root/buildtools/xml2h

Revision db656f3332551668dbf8656d8dcd05fe917ddcd7, 137 bytes (checked in by Theo Schlossnagle <jesus@omniti.com>, 6 years ago)

pull help and docs into the console, refs #21

  • Property mode set to 100755
Line 
1 #!/usr/bin/perl
2
3 my $name = shift;
4
5 print qq^#define ${name} "^;
6
7 while(<>) {
8   s/([\\"])/\\$1/g; s/\n/\\n/gs;
9   print;
10 }
11
12 print "\"\n";
Note: See TracBrowser for help on using the browser.