7 gsub("/[^/]*$", "", DIR)
8 system("utils/dbdata.sh "DIR"/LANGDATA LANGUAGE.tbl");
14 FROM=match($0, "\".*\\.(mim|flt|fst|tbl)\"") + 1;
16 FILE=substr($0, FROM, LEN);
18 gsub("/[^/]*$", "", DIR)
19 system("utils/dbdata.sh "DIR" "FILE);
25 FROM=match($0, "\".*\\.mim\"") + 1;
27 FILE=substr($0, FROM, LEN);
29 gsub("/[^/]*$", "", DIR)
30 system("utils/dbdata.sh "DIR"/MIM "FILE);
36 FROM=match($0, "\".*\\.flt\"") + 1;
38 FILE=substr($0, FROM, LEN);
40 gsub("/[^/]*$", "", DIR)
41 system("utils/dbdata.sh "DIR"/FLT "FILE);