6adc3af532f987cacdefb658ef63e724bd7f97b4
[m17n/m17n-docs.git] / utils / dbdata.awk
1 BEGIN {
2   
3   print "/***";
4 }
5
6 /".*\.(mim|flt|fst|tbl)"/ {
7   FROM=match($0, "\".*\\.(mim|flt|fst|tbl)\"") + 1;
8   LEN=RLENGTH-2;
9   FILE=substr($0, FROM, LEN);
10   DIR=FILENAME;
11   gsub("/[^/]*$", "", DIR)
12   system("sed -n '/^;;;/s/^;;; *//p' "DIR"/"FILE);
13   printf "\n";
14 }
15
16 /^;;;/ {
17   print substr($0, 5);
18 }
19
20 END {
21   print "*/";
22 }