Added experimental app_68k.pl.

committer: mfx <mfx> 978635857 +0000

src/stub/scripts/app.pl

@@ -55,20 +55,20 @@ for $line (@lines)
     if ($line =~ /__([A-Z0-9]{8})__/) {
         $cs = $1;
         # verify the line
-        if ($line =~ /^\%ifdef/) {
+        if ($line =~ /^[\%\;]ifdef/) {
             # ok
-        } elsif ($line =~ /^(\%\w+)?\s*;/) {
+        } elsif ($line =~ /^([\%\;]\w+)?\s*;/) {
             # ok
         } else {
             print STDERR "$in:$i:warning 1:$line"
         }
     }
 
-    if ($line =~ /^\%(if|el|endi)/)
+    if ($line =~ /^[\%\;](if|el|endi)/)
     {
         if ($line =~ /__([A-Z0-9]{8})__/)
         {
-            $line=";$line";
+            $line=";$line" unless ($line =~ /^\;/);
         }
         else
         {

src/stub/scripts/app_68k.pl

@@ -0,0 +1,138 @@
+#! /usr/bin/perl -w
+#
+#  app_68k.pl -- assembly preprocessor for upx
+#
+#  This file is part of the UPX executable compressor.
+#
+#  Copyright (C) 1996-2001 Markus Franz Xaver Johannes Oberhumer
+#  Copyright (C) 1996-2001 Laszlo Molnar
+#  All Rights Reserved.
+#
+#  UPX and the UCL library are free software; you can redistribute them
+#  and/or modify them under the terms of the GNU General Public License as
+#  published by the Free Software Foundation; either version 2 of
+#  the License, or (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with this program; see the file COPYING.
+#  If not, write to the Free Software Foundation, Inc.,
+#  59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+#  Markus F.X.J. Oberhumer   Laszlo Molnar
+#  markus@oberhumer.com      ml1050@cdata.tvnet.hu
+#
+
+#
+# usage: app_68k.pl infile outfile
+#
+
+$in = shift || die;
+$ou = shift || die;
+
+open (IN,"<$in") or die;
+open (OU,">$ou") or die;
+binmode IN;
+binmode OU;
+
+@lines = <IN>;
+
+%labels = ();
+$i = 0;
+$cs = "";
+
+($ilabel = $in) =~ s,^.*[\/\\],,;   # get basename
+$ilabel =~ s/\W//g;
+
+# 1st pass
+for $line (@lines)
+{
+    $labels{$1} = "$cs" if ($line =~ /^(\w+):/ && $cs);
+    if ($line =~ /__([A-Z0-9]{8})__/) {
+        $cs = $1;
+        # verify the line
+        if ($line =~ /^[\%\;]ifdef/) {
+            # ok
+        } elsif ($line =~ /^([\%\;]\w+)?\s*;/) {
+            # ok
+        } else {
+            print STDERR "$in:$i:warning 1:$line"
+        }
+    }
+
+    if ($line =~ /^[\%\;](if|el|endi)/)
+    {
+        if ($line =~ /__([A-Z0-9]{8})__/)
+        {
+            $line=";$line" unless ($line =~ /^\;/);
+        }
+        else
+        {
+            print STDERR "$in:$i:warning 2:$line";
+        }
+    }
+    $line =~ s/\.ash/\.asy/ if ($line =~ /^\s*\%include/);
+    $i++;
+}
+
+$cs = "";
+$i = 0;
+
+@data = ();
+
+# 2nd pass
+for $line (@lines)
+{
+    if ($line =~ /^\s+(b[\w\.]+|db[\w\.]+)\s+(\w*)/)
+    {
+        $label = $2;
+        ##print STDERR "$label $cs\n";        # debug
+        if (defined $labels{$label})
+        {
+            $ts = $labels{$label};
+            if ($ts ne $cs)
+            {
+                $line =~ s/$label/J$i$ilabel/;
+                print OU $line;
+                print OU "J$i$ilabel:\n";
+                $d = "dc.l\t0, J$i$ilabel";
+                push(@data, $d);
+                $d = "dc.b\t'$ts'";
+                push(@data, $d);
+                $d = "dc.l\t$label - S$ts$ilabel";
+                push(@data, $d);
+                $line = "";
+            }
+        }
+    }
+
+    $line = ";$line" if ($line =~ /^\s+align\b/);
+    $line = ";$line" if ($line =~ /^\s+even\b/);
+    $line = ";$line" if ($line =~ /^\s+end\b/);
+
+    print OU $line;
+    if ($line =~ /__([A-Z0-9]{8})__/)
+    {
+        print OU "S$1$ilabel:\n";
+        $cs = $1;
+        $d = "dc.b\t'$1'";
+        push(@data, $d);
+        $d = "dc.l\tS$1$ilabel";
+        push(@data, $d);
+    }
+    $i++;
+}
+
+# print data section
+print OU "\n\n\t\tsection_data\n";
+for $d (@data) {
+    print OU "\t\t$d\n";
+}
+print OU "\t\tdc.b\t'UPX9'\n";
+print OU "\t\tend\n";
+
+# vi:ts=4:et