File: chex.pl

package info (click to toggle)

tora 1.3.21-3

links: PTS
area: main
in suites: etch, etch-m68k
size: 14,252 kB
ctags: 10,397
sloc: cpp: 108,822; sh: 10,861; makefile: 766; xml: 69; perl: 6

file content (11 lines) | stat: -rw-r--r-- 185 bytes

parent folder | download | duplicates (2)

#!/usr/local/bin/perl

undef $/;

$_=<>;

s/(.)/"\\x".sprintf("%02x",unpack("C",$1))/ges;
s/(.{1,160})/\"$1\"\n/gs;

print "static const unsigned char tora_toad[] =\n";
print $_.";\n";