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