Markus F.X.J. Oberhumer
43 lines
1.3 KiB
Perl
43 lines
1.3 KiB
Perl
#! /usr/bin/perl -w
|
|
#
|
|
# version.pl -- convert version.h into version.asy
|
|
#
|
|
# This file is part of the UPX executable compressor.
|
|
#
|
|
# Copyright (C) 1996-2002 Markus Franz Xaver Johannes Oberhumer
|
|
# Copyright (C) 1996-2002 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
|