#!/usr/bin/perl -w
-#
+#
# macros.pl produce macros.c from standard.mac
#
# The Netwide Assembler is copyright (C) 1996 Simon Tatham and
undef $tasm_count;
open(OUTPUT,">macros.c") or die "unable to open macros.c\n";
-
+
print OUTPUT "/* This file auto-generated from standard.mac by macros.pl" .
" - don't edit it */\n\n#include \"compiler.h\"\n\nstatic const char *stdmac[] = {\n";
-
+
foreach $fname ( @ARGV ) {
open(INPUT,$fname) or die "unable to open $fname\n";
while (<INPUT>) {
if (length > 0) {
print OUTPUT " \"$_\",\n";
$index++;
- }
+ }
} else {
die "$fname:$line: error unterminated quote";
}