utils/dbdata.awk

   1 BEGIN {
   2
   3   print "/***";
   4 }
   5
   6 /".*\.(mim|flt|fst|tbl)"/ {
   7   FROM=match($0, "\".*\\.(mim|flt|fst|tbl)\"") + 1;
   8   LEN=RLENGTH-2;
   9   FILE=substr($0, FROM, LEN);
  10   DIR=FILENAME;
  11   gsub("/[^/]*$", "", DIR)
  12   system("sed -n '/^;;;/s/^;;; *//p' "DIR"/"FILE);
  13   printf "\n";
  14 }
  15
  16 /^;;;/ {
  17   print substr($0, 5);
  18 }
  19
  20 END {
  21   print "*/";
  22 }