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     XINCLUDEFMT="<xi:include xmlns:xi=\"http://www.w3.org/2001/XInclude\" parse=\"xml\" href=\"%s\"/>\n";
   8 }
   9
  10 /^<item / {
  11     match($0, "key0=\"[^\"]*");
  12     KEY = substr($0, RSTART + 6, RLENGTH - 6);
  13     for (i = 1; i < 4 && match($0, sprintf("key%d=\"[^\"]*", i)) > 0; i++)
  14         KEY=KEY"-"substr($0, RSTART + 6, RLENGTH - 6);
  15     print;
  16     next;
  17 }
  18
  19 /<filename>[^<]*<\/filename>/ {
  20     from = match($0, "<filename>[^<]*</filename>");
  21     to = from + RLENGTH;
  22     printf "%s", substr($0, 1, from - 1);
  23     TAIL = substr($0, to);
  24     FILE = substr($0, from + 10, to - from - 21);
  25     COMMAND = "cd "M17NDB"/"SUBDIR[KEY]"; ls "FILE;
  26     COMMAND | getline LINE;
  27     print "<filename>"LINE"</filename>";
  28     printf XINCLUDEFMT, M17NDB"/"SUBDIR[KEY]LINE;
  29     while (COMMAND | getline LINE) {
  30         print "<filename>"LINE"</filename>";
  31         printf XINCLUDEFMT, M17NDB"/"SUBDIR[KEY]LINE;
  32     }
  33     if (length(TAIL) > 0 && ! match(TAIL, "^[ \t]*$"))
  34         print TAIL;
  35     next;
  36 }
  37
  38 {
  39     print;
  40 }