*** empty log message ***
[m17n/m17n-docs.git] / utils / dbdata.awk
index be6fd3f..f8b31e8 100644 (file)
@@ -2,16 +2,18 @@ BEGIN {
   print "/***";
 }
 
-/".*\.(tbl|mim|tab|flt)"/ {
-  FROM=match($0, "\".*\.(tbl|mim|tab|flt)\"") + 1;
+/".*\.(mim|flt|fst|tbl)"/ {
+  FROM=match($0, "\".*\\.(mim|flt|fst|tbl)\"") + 1;
   LEN=RLENGTH-2;
   FILE=substr($0, FROM, LEN);
-  system("sed -n '/^[;#][;#]* <li>/,/^$/s/^[;#][;#]* *//p' "FILE);
+  DIR=FILENAME;
+  gsub("/[^/]*$", "", DIR)
+  system("utils/dbdata.sh "DIR" "FILE);
   printf "\n";
 }
 
-/^;; / {
-  print substr($0, 4);
+/^;;;/ {
+  print substr($0, 5);
 }
 
 END {