Major refactoring of src/stub directory.

2006-06-15 08:17:50 +02:00
parent 72906cdc6a
commit d3323d6550
161 changed files with 24934 additions and 173 deletions
@@ -0,0 +1,42 @@
+#! /usr/bin/perl -w
+#
+#  version.pl -- convert version.h into version.asy
+#
+#  This file is part of the UPX executable compressor.
+#
+#  Copyright (C) 1996-2006 Markus Franz Xaver Johannes Oberhumer
+#  Copyright (C) 1996-2006 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
+#  <mfx@users.sourceforge.net>          <ml1050@users.sourceforge.net>
+#
+
+
+$mode = shift || "--nasm";
+while (<>) {
+    chop;
+    s/\s+$//;
+    if (/^\s*\#\s*define\s+(.*)/) {
+        print "%define $1\n" if ($mode eq "--nasm");
+    }
+}
+
+exit (0);
+
+# vi:ts=4:et