root/buildtools/xml2h
| Revision db656f3332551668dbf8656d8dcd05fe917ddcd7, 137 bytes (checked in by Theo Schlossnagle <jesus@omniti.com>, 5 years ago) | |
|---|---|
| |
| 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.