mirror of
https://github.com/netwide-assembler/nasm.git
synced 2024-12-27 09:29:06 +08:00
e6ee1a859b
This adds copyright verbiage to the Perl scripts. Scripts that are known to be clean w.r.t. the 2-clause BSD license are given that license; unclear ones are given the "LGPL for now". Signed-off-by: H. Peter Anvin <hpa@zytor.com>
127 lines
3.6 KiB
Perl
Executable File
127 lines
3.6 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
## --------------------------------------------------------------------------
|
|
##
|
|
## Copyright 1996-2009 The NASM Authors - All Rights Reserved
|
|
## See the file AUTHORS included with the NASM distribution for
|
|
## the specific copyright holders.
|
|
##
|
|
## Redistribution and use in source and binary forms, with or without
|
|
## modification, are permitted provided that the following
|
|
## conditions are met:
|
|
##
|
|
## * Redistributions of source code must retain the above copyright
|
|
## notice, this list of conditions and the following disclaimer.
|
|
## * Redistributions in binary form must reproduce the above
|
|
## copyright notice, this list of conditions and the following
|
|
## disclaimer in the documentation and/or other materials provided
|
|
## with the distribution.
|
|
##
|
|
## THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
|
|
## CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
|
## INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
|
## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
## DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
|
|
## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
## NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
## CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
|
## OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
|
|
## EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
##
|
|
## --------------------------------------------------------------------------
|
|
|
|
#
|
|
# Sync the output file list between Makefiles
|
|
# Use the mkdep.pl parameters to get the filename syntax
|
|
#
|
|
# The first file is the source file; the other ones target.
|
|
#
|
|
%def_hints = ('object-ending' => '.o',
|
|
'path-separator' => '/',
|
|
'continuation' => "\\");
|
|
|
|
sub do_transform($$) {
|
|
my($l, $h) = @_;
|
|
my($ps) = $$h{'path-separator'};
|
|
|
|
$l =~ s/\x01/$$h{'object-ending'}/g;
|
|
$l =~ s/\x03/$$h{'continuation'}/g;
|
|
|
|
if ($ps eq '') {
|
|
# Remove the path separator and the preceeding directory
|
|
$l =~ s/[^\s\=]*\x02//g;
|
|
} else {
|
|
# Convert the path separator
|
|
$l =~ s/\x02/$ps/g;
|
|
}
|
|
|
|
return $l;
|
|
}
|
|
|
|
@file_list = ();
|
|
|
|
$first = 1;
|
|
$first_file = $ARGV[0];
|
|
die unless (defined($first_file));
|
|
|
|
foreach $file (@ARGV) {
|
|
open(FILE, "< $file\0") or die;
|
|
|
|
# First, read the syntax hints
|
|
%hints = %def_hints;
|
|
while (defined($line = <FILE>)) {
|
|
if ( $line =~ /^\s*\#\s*@([a-z0-9-]+):\s*\"([^\"]*)\"/ ) {
|
|
$hints{$1} = $2;
|
|
}
|
|
}
|
|
|
|
# Read and process the file
|
|
seek(FILE,0,0);
|
|
@lines = ();
|
|
$processing = 0;
|
|
while (defined($line = <FILE>)) {
|
|
chomp $line;
|
|
if ($processing) {
|
|
if ($line eq '#-- End File Lists --#') {
|
|
push(@lines, $line."\n");
|
|
$processing = 0;
|
|
} elsif ($first) {
|
|
my $xl = $line;
|
|
my $oe = "\Q$hints{'object-ending'}";
|
|
my $ps = "\Q$hints{'path-separator'}";
|
|
my $cn = "\Q$hints{'continuation'}";
|
|
|
|
$xl =~ s/${oe}(\s|$)/\x01$1/g;
|
|
$xl =~ s/${ps}/\x02/g;
|
|
$xl =~ s/${cn}$/\x03/;
|
|
push(@file_list, $xl);
|
|
push(@lines, $line);
|
|
}
|
|
} else {
|
|
push(@lines, $line."\n");
|
|
if ($line eq '#-- Begin File Lists --#') {
|
|
$processing = 1;
|
|
if (!$first) {
|
|
push(@lines, "# Edit in $first_file, not here!\n");
|
|
foreach $l (@file_list) {
|
|
push(@lines, do_transform($l, \%hints)."\n");
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
close(FILE);
|
|
|
|
# Write the file back out
|
|
if (!$first) {
|
|
open(FILE, "> $file\0") or die;
|
|
print FILE @lines;
|
|
close(FILE);
|
|
}
|
|
|
|
undef @lines;
|
|
$first = 0;
|
|
}
|