tools/GenerateAndroidResources.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 print <<EOT;
   6 static const struct {
   7   unsigned id;
   8   const char *name;
   9 } DrawableNames[] = {
  10 EOT
  11
  12 while (<>) {
  13     # merge adjacent strings
  14     while (s/"([^"]*)"\s+"([^"]*)"\s*$/"$1$2"/) {}
  15
  16     print qq|  { $1, \"$2\" },\n|
  17       if /^\s*(\d+)\s+BITMAP\s+DISCARDABLE\s+"(?:.*\/)?([\w]+)\.png"\s*$/;
  18 }
  19
  20 print <<EOT;
  21   { 0, NULL }
  22 };
  23 EOT