utils/expand-mdb.awk

   1 BEGIN {
   2     SUBDIR["input-method-*"] = "MIM/";
   3     SUBDIR["font-layouter-*"] = "FLT/";
   4     SUBDIR["language-name-*"] = "LANGDATA/";
   5     SUBDIR["standard-language-iso639"] = "LANGDATA/";
   6     KEY="";
   7 }
   8
   9 /^<item / {
  10     match($0, "key0=\"[^\"]*");
  11     KEY=substr($0, RSTART + 6, RLENGTH - 6);
  12     if (match($0, "key1=\"[^\"]*") > 0) {
  13         KEY = sprintf("%s-%s", KEY, substr($0, RSTART + 6, RLENGTH - 6));
  14         if (match($0, "key2=\"[^\"]*") > 0)
  15             KEY = sprintf("%s-%s", KEY, substr($0, RSTART + 6, RLENGTH - 6));
  16     }
  17     print;
  18     next;
  19 }
  20
  21 /<filename>[^<]*<\/filename>/ {
  22     from = match($0, "<filename>[^<]*</filename>");
  23     to = from + RLENGTH;
  24     printf "%s\n", substr($0, 1, to - 1);
  25     TAIL = substr($0, to);
  26     FILE = sprintf("%s%s", SUBDIR[KEY], substr($0, from + 10, to - from - 21));
  27     system(sprintf("ls %s/%s | sed -f %s", M17NDB, FILE, SEDFILE));
  28     if (length(TAIL) > 0 && ! match(TAIL, "^[ \t]*$"))
  29         print TAIL;
  30     next;
  31 }
  32
  33 {
  34     print;
  35 }