3 while (@ARGV && $ARGV[$#ARGV] =~ m/^\-/) {
5 if (m/^-M$/) { $manglout= 1; }
6 elsif (m/^-I(\S+),(\S+)$/) { $mapinclude{$1}= $2; }
14 return unless defined $codesection;
15 print(";{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{\n",
17 ";}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}\n")
23 print ";#MANGLE# $1\n"
27 if (m/^(\w*)\s+code\b/) {
29 $codesection= "$pfx$_";
30 } elsif (m/^\s+(?:include|end|udata(?:_acs)?)\b/) {
32 } elsif (m/^(\w+)\s+macro\b/) {
34 } elsif (m/^\w*\s+endm\b/) {
36 } elsif (m/^(\w*)\s+(?:equ)\b/) {
37 } elsif (m/^\s+extern\s+(\w+)\b/) {
39 print " extern $pfx$1;##\n" or die $!
41 } elsif (!$inmacro && defined $codesection) {
43 mangle($1) if m/^(\w+)\b/;
44 s/\b(\w+)\b/ $mangle{$1} ? "$pfx$1" : $1 /ge;
48 } elsif (m/^\;\#MANGLE\# (\w+)$/) {
52 if (m/^\s+include\s+(\S+)\s+$/ && exists $mapinclude{$1}) {
53 $l= " include $mapinclude{$1}\n";