#! /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;