git.sur5r.net Git - freertos/blob - Demo/ARM9_STR91X_IAR/webserver/makestrings

   1 #!/usr/bin/perl\r
   2 \r
   3 \r
   4 sub stringify {\r
   5   my $name = shift(@_);\r
   6   open(OUTPUTC, "> $name.c");\r
   7   open(OUTPUTH, "> $name.h");\r
   8   \r
   9   open(FILE, "$name");\r
  10   \r
  11   while(<FILE>) {\r
  12     if(/(.+) "(.+)"/) {\r
  13       $var = $1;\r
  14       $data = $2;\r
  15       \r
  16       $datan = $data;\r
  17       $datan =~ s/\\r/\r/g;\r
  18       $datan =~ s/\\n/\n/g;\r
  19       $datan =~ s/\\01/\01/g;      \r
  20       $datan =~ s/\\0/\0/g;\r
  21       \r
  22       printf(OUTPUTC "const char $var\[%d] = \n", length($datan) + 1);\r
  23       printf(OUTPUTC "/* \"$data\" */\n");\r
  24       printf(OUTPUTC "{");\r
  25       for($j = 0; $j < length($datan); $j++) {\r
  26         printf(OUTPUTC "%#02x, ", unpack("C", substr($datan, $j, 1)));\r
  27       }\r
  28       printf(OUTPUTC "};\n");\r
  29       \r
  30       printf(OUTPUTH "extern const char $var\[%d];\n", length($datan) + 1);\r
  31       \r
  32     }\r
  33   }\r
  34   close(OUTPUTC);\r
  35   close(OUTPUTH);\r
  36 }\r
  37 stringify("http-strings");\r
  38 \r
  39 exit 0;\r
  40 \r