FreeRTOS source:

[freertos] / FreeRTOS / Demo / ARM7_AT91SAM7X256_Eclipse / RTOSDemo / webserver / makestrings

diff --git a/FreeRTOS/Demo/ARM7_AT91SAM7X256_Eclipse/RTOSDemo/webserver/makestrings b/FreeRTOS/Demo/ARM7_AT91SAM7X256_Eclipse/RTOSDemo/webserver/makestrings
deleted file mode 100644 (file)
index 8a13c6d..0000000
--- a/FreeRTOS/Demo/ARM7_AT91SAM7X256_Eclipse/RTOSDemo/webserver/makestrings
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/usr/bin/perl\r
-\r
-\r
-sub stringify {\r
-  my $name = shift(@_);\r
-  open(OUTPUTC, "> $name.c");\r
-  open(OUTPUTH, "> $name.h");\r
-  \r
-  open(FILE, "$name");\r
-  \r
-  while(<FILE>) {\r
-    if(/(.+) "(.+)"/) {\r
-      $var = $1;\r
-      $data = $2;\r
-      \r
-      $datan = $data;\r
-      $datan =~ s/\\r/\r/g;\r
-      $datan =~ s/\\n/\n/g;\r
-      $datan =~ s/\\01/\01/g;      \r
-      $datan =~ s/\\0/\0/g;\r
-      \r
-      printf(OUTPUTC "const char $var\[%d] = \n", length($datan) + 1);\r
-      printf(OUTPUTC "/* \"$data\" */\n");\r
-      printf(OUTPUTC "{");\r
-      for($j = 0; $j < length($datan); $j++) {\r
-       printf(OUTPUTC "%#02x, ", unpack("C", substr($datan, $j, 1)));\r
-      }\r
-      printf(OUTPUTC "};\n");\r
-      \r
-      printf(OUTPUTH "extern const char $var\[%d];\n", length($datan) + 1);\r
-      \r
-    }\r
-  }\r
-  close(OUTPUTC);\r
-  close(OUTPUTH);\r
-}\r
-stringify("http-strings");\r
-\r
-exit 0;\r
-\r