NetBSD port

This commit is contained in:
Ulrich Wilkens
2014-02-20 19:19:17 +01:00
committed by Jon Trulson
parent a4f9413950
commit 2712d5f787
94 changed files with 2443 additions and 302 deletions

View File

@@ -3,6 +3,9 @@ XCOMM $XConsortium: Imakefile /main/7 1996/08/21 15:56:17 drk $
XCOMM These tools are used during "make includes".
includes:: all
LOCAL_SED_DEFINES = -e 's|PERL|$(PERL)|g'
SedSourceFile(treeres,treeres.src,$(LOCAL_SED_DEFINES))
NormalCplusplusObjectRule()
NormalLibraryObjectRule()
AllTarget(dfiles)

View File

@@ -1,5 +1,5 @@
# feed this into perl
eval '(exit $?0)' && eval 'exec /usr/bin/perl $0 ${1+"$@"}' & eval 'exec /usr/bin/perl $0 $argv'
eval '(exit $?0)' && eval 'exec PERL $0 ${1+"$@"}' & eval 'exec PERL $0 $argv'
if 0;
# treeres - resource file preprocessor
@@ -34,7 +34,7 @@ eval '(exit $?0)' && eval 'exec /usr/bin/perl $0 ${1+"$@"}' & eval 'exec /usr/bi
*IN = STDIN;
$file = "<stdin>";
if ($#ARGV >= 0)
{
{
open(IN,$ARGV[0]) || die "Can't open file $ARGV[0].\n";
$file = $ARGV[0];
}
@@ -65,7 +65,7 @@ while (<IN>)
$continuation = /[^\\](\\\\)*\\$/;
# Multiple blank lines are compressed to one
if (/^([ \t]*)(!x.*)?$/) {
if (/^([ \t]*)(!x.*)?$/) {
if ($blankcount++ == 0) { print; }
next;
}
@@ -92,7 +92,7 @@ while (<IN>)
# Make base array length match current level
#DEBUG print "! oldlevel = $oldlevel, level = $level\n";
if ($oldlevel > 0 && $level <= $oldlevel && ! $did_gen)
{ print STDERR $file, ":", $line,
{ print STDERR $file, ":", $line,
": Level <= previous with no generation.\n"; }
$#base = $level - 1;