Initial commit (from git)

2000-05-19 16:04:55 +00:00
commit 1a9128a473
130 changed files with 31392 additions and 0 deletions
@@ -0,0 +1,120 @@
+#! /usr/bin/perl -w
+#
+#  app.pl -- assembly preprocessor for upx
+#
+#  This file is part of the UPX executable compressor.
+#
+#  Copyright (C) 1996-2000 Markus Franz Xaver Johannes Oberhumer
+#  Copyright (C) 1996-2000 Laszlo Molnar
+#
+#  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@jk.uni-linz.ac.at        ml1050@cdata.tvnet.hu
+#
+
+#
+# usage: app.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:$line"
+        }
+    }
+
+    if ($line =~ /^\%(if|el|endi)/)
+    {
+        if ($line =~ /__([A-Z0-9]{8})__/)
+        {
+            $line=";$line";
+        }
+        else
+        {
+            print STDERR "$in:$i:warning:$line";
+        }
+    }
+    $line =~ s/\.ash/\.asy/ if ($line =~ /^\s*\%include/);
+    $i++;
+}
+
+$cs = "";
+$i = 0;
+
+# 2nd pass
+for $line (@lines)
+{
+    if ($line =~ /^\s+(j\w+|loop|call)\s+(\w*)/)
+    {
+        $label = $2;
+        die "$line" if ($label =~ /(\bnear\b|\bshort\b)/);
+        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";
+                print OU "\t\tsection\t.data\n\t\tdd\t";
+                print OU "0,J$i$ilabel,\'$ts\',$label - S$ts$ilabel\n";
+                print OU "\t\tsection\t.text\n\n";
+                $line = "";
+            }
+        }
+    }
+
+    $line = ";$line" if ($line =~ /^\s+align\s/);
+
+    print OU $line;
+    if ($line =~ /__([A-Z0-9]{8})__/)
+    {
+        print OU "S$1$ilabel:\n";
+        print OU "\t\tsection\t.data\n\t\tdd\t\'$1\',S$1$ilabel\n";
+        print OU "\t\tsection\t.text\n\n";
+        $cs = $1;
+    }
+    $i++;
+}
+
+# vi:ts=4:et