-/".*\.(tbl|mim|tab|flt)"/ {
- FROM=match($0, "\".*\.(tbl|mim|tab|flt)\"") + 1;
+/"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);
+ DIR=FILENAME;
+ 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;