lib/gen_geda_m4.awk

   1 #!/usr/bin/awk -f
   2 #
   3 # Script to regenerate geda.m4 from geda.inc
   4 #
   5 # Usage:
   6 #
   7 #  awk -f gen_geda_m4.awk geda.inc > geda.m4
   8 #
   9
  10 BEGIN {
  11         printf("divert(-1)\n");
  12         printf("#\n");
  13         printf("# NOTE: Auto-generated. Do not change.\n");
  14         printf("#");
  15 }
  16
  17 /^\#\#/ {
  18         descr = $0;
  19         ind = index(descr, $2);
  20         descr = substr(descr, ind);
  21         printf("#\n");
  22         next;
  23 }
  24
  25
  26 /^[ \t]*define/ {
  27         pkg = $1;
  28         ind = index(pkg, "PKG");
  29         pkg = substr(pkg, ind+4);
  30         ind = index(pkg, "'");
  31         pkg = substr(pkg, 1, ind-1);
  32         printf("define(`Description_geda_%s',\t``%s'')\n", pkg, descr);
  33 }
  34
  35 END {
  36         printf("divert(0)dnl\n");
  37 }
  38