#!/usr/bin/perl

$name = shift;

print "static char $name [] = \n";
while (<>) {
    $x = 1;
    if (/^\s*#/) {
	$x = 0 unless /^\s*#define/
    }
    if ($x) {
	chop;
	s/^\s*//;
	s/\\/\\\\/g;
	s/\"/\\\"/g;
	print "\"$_\\n\"\n" if !/^$/;
    }
}
print "\"\";\n";
