sync up with disorder.dev

[disorder] / scripts / text2c

#! /usr/bin/perl -w
my $name = shift;
push(@out, "/* autogenerated file, do not edit */\n\n");
push(@out, "static const char $name\[] = \n");
while(<>) {
    next if /arch-tag/;
    s/[\\\"\?]/\\$&/g;
    s/\n/\\n/g;
    push(@out, "  \"$_\"\n");
}
push(@out, ";\n");
((print @out)
 and (close STDOUT))
    or die "$0: stdout: $!\n";