print "/***";
}
-/".*\.(mim|flt|fst|tbl)"/ {
+/"LANGUAGE.tbl"/ {
+ DIR=FILENAME;
+ gsub("/[^/]*$", "", DIR)
+ system("utils/dbdata.sh "DIR"/LANGDATA LANGUAGE.tbl");
+ printf "\n";
+ next;
+}
+
+/".*\.(fst|tbl)"/ {
FROM=match($0, "\".*\\.(mim|flt|fst|tbl)\"") + 1;
LEN=RLENGTH-2;
FILE=substr($0, FROM, LEN);
gsub("/[^/]*$", "", DIR)
system("utils/dbdata.sh "DIR" "FILE);
printf "\n";
+ next;
+}
+
+/".*\.mim"/ {
+ FROM=match($0, "\".*\\.mim\"") + 1;
+ LEN=RLENGTH-2;
+ FILE=substr($0, FROM, LEN);
+ DIR=FILENAME;
+ gsub("/[^/]*$", "", DIR)
+ system("utils/dbdata.sh "DIR"/MIM "FILE);
+ printf "\n";
+ next;
+}
+
+/".*\.flt"/ {
+ FROM=match($0, "\".*\\.flt\"") + 1;
+ LEN=RLENGTH-2;
+ FILE=substr($0, FROM, LEN);
+ DIR=FILENAME;
+ gsub("/[^/]*$", "", DIR)
+ system("utils/dbdata.sh "DIR"/FLT "FILE);
+ printf "\n";
+ next;
}
/^;;;/ {