diff options
author | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2007-08-26 23:12:17 +0000 |
---|---|---|
committer | patacongo <patacongo@42af7a65-404d-4744-a932-0658087f49c3> | 2007-08-26 23:12:17 +0000 |
commit | 93f9271b27b33e322ffa45ec71c43884674458af (patch) | |
tree | 36f9bb5f22dc98aee189714b2733c7cbcb6c08d1 /nuttx/netutils/webclient/makestrings | |
parent | c010014195f732bf60d018d9432354fba0950a11 (diff) | |
download | px4-nuttx-93f9271b27b33e322ffa45ec71c43884674458af.tar.gz px4-nuttx-93f9271b27b33e322ffa45ec71c43884674458af.tar.bz2 px4-nuttx-93f9271b27b33e322ffa45ec71c43884674458af.zip |
Import of uIP 1.0
git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@308 42af7a65-404d-4744-a932-0658087f49c3
Diffstat (limited to 'nuttx/netutils/webclient/makestrings')
-rwxr-xr-x | nuttx/netutils/webclient/makestrings | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/nuttx/netutils/webclient/makestrings b/nuttx/netutils/webclient/makestrings new file mode 100755 index 000000000..6dec075dd --- /dev/null +++ b/nuttx/netutils/webclient/makestrings @@ -0,0 +1,40 @@ +#!/usr/bin/perl + + +sub stringify { + my $name = shift(@_); + open(OUTPUTC, "> $name.c"); + open(OUTPUTH, "> $name.h"); + + open(FILE, "$name"); + + while(<FILE>) { + if(/(.+) "(.+)"/) { + $var = $1; + $data = $2; + + $datan = $data; + $datan =~ s/\\r/\r/g; + $datan =~ s/\\n/\n/g; + $datan =~ s/\\01/\01/g; + $datan =~ s/\\0/\0/g; + + printf(OUTPUTC "const char $var\[%d] = \n", length($datan) + 1); + printf(OUTPUTC "/* \"$data\" */\n"); + printf(OUTPUTC "{"); + for($j = 0; $j < length($datan); $j++) { + printf(OUTPUTC "%#02x, ", unpack("C", substr($datan, $j, 1))); + } + printf(OUTPUTC "0 };\n"); + + printf(OUTPUTH "extern const char $var\[%d];\n", length($datan) + 1); + + } + } + close(OUTPUTC); + close(OUTPUTH); +} +stringify("webclient-strings"); + +exit 0; + |