utils/dbdata.awk

   1 BEGIN {
   2   print "/***";
   3 }
   4
   5 /"LANGUAGE.tbl"/ {
   6   DIR=FILENAME;
   7   gsub("/[^/]*$", "", DIR)
   8   system("utils/dbdata.sh "DIR"/LANGDATA LANGUAGE.tbl");
   9   printf "\n";
  10   next;
  11 }
  12
  13 /".*\.(fst|tbl)"/ {
  14   FROM=match($0, "\".*\\.(mim|flt|fst|tbl)\"") + 1;
  15   LEN=RLENGTH-2;
  16   FILE=substr($0, FROM, LEN);
  17   DIR=FILENAME;
  18   gsub("/[^/]*$", "", DIR)
  19   system("utils/dbdata.sh "DIR" "FILE);
  20   printf "\n";
  21   next;
  22 }
  23
  24 /".*\.mim"/ {
  25   FROM=match($0, "\".*\\.mim\"") + 1;
  26   LEN=RLENGTH-2;
  27   FILE=substr($0, FROM, LEN);
  28   DIR=FILENAME;
  29   gsub("/[^/]*$", "", DIR)
  30   system("utils/dbdata.sh "DIR"/MIM "FILE);
  31   printf "\n";
  32   next;
  33 }
  34
  35 /".*\.flt"/ {
  36   FROM=match($0, "\".*\\.flt\"") + 1;
  37   LEN=RLENGTH-2;
  38   FILE=substr($0, FROM, LEN);
  39   DIR=FILENAME;
  40   gsub("/[^/]*$", "", DIR)
  41   system("utils/dbdata.sh "DIR"/FLT "FILE);
  42   printf "\n";
  43   next;
  44 }
  45
  46 /^;;;/ {
  47   print substr($0, 5);
  48 }
  49
  50 END {
  51   print "*/";
  52 }