X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;f=tools%2Fbinmode-rpc-kit%2Foct2bin;fp=tools%2Fbinmode-rpc-kit%2Foct2bin;h=8fea23f676a3957574aa1d07e31f452b3d12e64c;hb=ce67d0cdeaa37c3e856e23ae4010480887165630;hp=0000000000000000000000000000000000000000;hpb=e355d4e7962400470f467b88f5568de9c8324475;p=xmlrpc-c

diff --git a/tools/binmode-rpc-kit/oct2bin b/tools/binmode-rpc-kit/oct2bin
new file mode 100755
index 0000000..8fea23f
--- /dev/null
+++ b/tools/binmode-rpc-kit/oct2bin
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+# Turn C-style octal escapes into binary.
+# Call as "echo -n 'ab\0\001cd' | oct2bin > out.binmode".
+
+binmode STDOUT;
+
+while (<>) {
+    s/\\(\d\d\d)/chr(oct($1))/ge;
+    s/\\0/chr(0)/ge;
+    s/\\\\/\\/g;
+    print $_;
+}