tools/update_ref_docs.mpsl

   1 /*
   2
   3         update_ref_docs.mpsl
   4
   5         Updates some MP reference documents.
   6
   7         Angel Ortega <angel@triptico.com>
   8
   9 */
  10
  11 sub load_ref_document(file)
  12 /* loads a document and returns a structure with header,
  13    data entries and signature */
  14 {
  15         local f, l, d, k;
  16         local r = {
  17                 'header'        => NULL,
  18                 'data'          => {},
  19                 'sig'           => ''
  20         };
  21
  22         if ((f = open(file, "r")) == NULL)
  23                 return NULL;
  24
  25         d = [];
  26         k = NULL;
  27
  28         while (l = read(f)) {
  29                 l = sregex("/\r?\n$/", l);
  30
  31                 /* is the line only dashes? */
  32                 if (regex('/^-+$/', l)) {
  33
  34                         /* pop last string */
  35                         local p = pop(d);
  36
  37                         /* concat all data and reset */
  38                         local b = join("\n", d);
  39                         d = [];
  40
  41                         /* flush previous data: is this the first one? */
  42                         if (k == NULL) {
  43                                 /* yes; everything is the header */
  44                                 r.header = b;
  45                         }
  46                         else {
  47                                 /* there is a previous one; store */
  48                                 r.data[k] = b;
  49                         }
  50
  51                         k = p;
  52
  53                         /* if it's the empty string, it's the
  54                            signature mark; we're done */
  55                         if (p eq '') {
  56                                 r.sig = join("\n", [ l, read(f) ] );
  57                                 break;
  58                         }
  59                 }
  60                 else
  61                         push(d, l);
  62         }
  63
  64         close(f);
  65
  66         return r;
  67 }
  68
  69
  70 sub save_ref_document(file, r, hash, prefix)
  71 /* saves a parsed document filling empty entries from hash */
  72 {
  73         local f;
  74
  75         if ((f = open(file, "w")) == NULL)
  76                 return;
  77
  78         write(f, r.header);
  79         write(f, "\n");
  80
  81         foreach (local k, sort(keys(hash))) {
  82
  83                 k = prefix ~ '.' ~ k;
  84
  85                 write(f, k ~ "\n");
  86                 write(f, sregex('/./g', k, '-'));
  87                 write(f, "\n");
  88
  89                 write(f, r.data[k] || "\nTo be written.\n");
  90                 write(f, "\n");
  91         }
  92
  93         write(f, "\n");
  94         write(f, r.sig);
  95
  96         close(f);
  97 }
  98
  99
 100 sub update_ref_document(file, hash, prefix)
 101 {
 102         local r;
 103
 104         if (r = load_ref_document(file))
 105                 save_ref_document(file, r, hash, prefix);
 106 }
 107
 108 /*****************/
 109
 110 update_ref_document('doc/mp_configuration.txt', mp.config, 'mp.config');