RAM / dist-3.0@70 / pat / pat.SH 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

              
case $CONFIG in
'')
        if test -f config.sh; then TOP=.;
        elif test -f ../config.sh; then TOP=..;
        elif test -f ../../config.sh; then TOP=../..;
        elif test -f ../../../config.sh; then TOP=../../..;
        elif test -f ../../../../config.sh; then TOP=../../../..;
        else
                echo "Can't find config.sh."; exit 1
        fi
        . $TOP/config.sh
        ;;
esac
case "$0" in
*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
esac
echo "Extracting pat/pat (with variable substitutions)"
cat >pat <<!GROK!THIS!
$startperl
        eval "exec perl -S \$0 \$*"
                if \$running_under_some_shell;
# $Id: pat.SH,v 3.0.1.5 1994/10/29 16:37:53 ram Exp $
#
#  Copyright (c) 1991-1993, Raphael Manfredi
#  
#  You may redistribute only under the terms of the Artistic Licence,
#  as specified in the README file that comes with the distribution.
#  You may reuse parts of this distribution only within the terms of
#  that same Artistic Licence; a copy of which may be found at the root
#  of the source tree for dist 3.0.
#
# Original Author: Larry Wall <lwall@netlabs.com>
#
# $Log: pat.SH,v $
# Revision 3.0.1.5  1994/10/29  16:37:53  ram
# patch36: now unlinks all the files created by patlog in bugs
#
# Revision 3.0.1.4  1994/01/24  14:29:17  ram
# patch16: added ~/.dist_profile awareness
#
# Revision 3.0.1.3  1993/08/25  14:04:35  ram
# patch6: removal of patch temporary files did not work with gaps
#
# Revision 3.0.1.2  1993/08/24  12:14:39  ram
# patch3: now removes older patch temporary files within bugs
#
# Revision 3.0.1.1  1993/08/19  06:42:31  ram
# patch1: leading config.sh searching was not aborting properly
#
# Revision 3.0  1993/08/18  12:10:36  ram
# Baseline for dist 3.0 netwide release.
#
\$version = '$VERSION';
\$patchlevel = '$PATCHLEVEL';
!GROK!THIS!
cat >>pat <<'!NO!SUBS!'
$progname = &profile;                               # Read ~/.dist_profile
require 'getopts.pl';
&usage unless $#ARGV >= 0;
&usage unless &Getopts("ahmnV");
if ($opt_V) {
        print STDERR "$progname $version PL$patchlevel\n";
        exit 0;
} elsif ($opt_h) {
        &usage;
}
&readpackage;
if (-f 'patchlevel.h') {
        open(PL,"patchlevel.h") || die "$progname: can't open patchlevel.h: $!\n";
        while (<PL>) {
                $bnum = $1 if /^#define\s+PATCHLEVEL\s+(\d+)/;
        }
        die "$progname: malformed patchlevel.h file.\n" if $bnum eq '';
        ++$bnum;
} else {
        $bnum=1;
}
if ($opt_n) {
        &newer;                             # Look for files newer than patchlevel.h
} elsif ($opt_a) {
        open(MANI,"MANIFEST.new") || die "No MANIFEST.new found.\n";
        @ARGV = ();
        while (<MANI>) {
                s|^\./||;
                next if m|^patchlevel.h|;               # This file is built by hand
                chop;
                ($_) = split(' ');
                next if -d;
                push(@ARGV,$_);
        }
        close MANI;
} elsif ($opt_m) {
        open(MODS,"bugs/.mods$bnum") || die "$progname: no modification found.\n";
        @ARGV = ();
        while (<MODS>) {
                next if m|^patchlevel.h$|;              # This file is built by hand
                chop;
                ($_) = split(' ');
                push(@ARGV,$_);
        }
        close MODS;
}
# Remove older patch temporary files
@patlist = &patseq($bnum - 1);
foreach $cpat (@patlist) {
        unlink <bugs/*.$cpat bugs/.logs$cpat bugs/.mods$cpat bugs/.xlog$cpat>;
        unlink <bugs/.pri$cpat bugs/.subj$cpat bugs/.clog$cpat bugs/.rlog$cpat>;
}
# Since we're about to launch other pat exectuables, disable ~/.dist_profile
# to protect them if they added some weird switches we don't need...
$ENV{'DIST'} = '/dev/null';             # Disable ~/.dist_profile
system 'perl', '-S', 'patcil', '-p', @ARGV;
# Update MANIFEST if necessary, then patcil it.
if (-f 'MANIFEST' && `diff MANIFEST.new MANIFEST 2>/dev/null` ne '') {
        system 'cp', 'MANIFEST.new', 'MANIFEST';
        system 'perl', '-S', 'patcil', '-p', 'MANIFEST';
        push(@ARGV, 'MANIFEST');
}
system 'perl', '-S', 'patdiff', @ARGV;
system 'perl', '-S', 'patmake';
sub usage {
        print STDERR "Usage: $progname [-ahmnV] [filelist]\n";
        print STDERR "  -a : all the files in MANIFEST.new\n";
        print STDERR "  -h : print this message and exit\n";
        print STDERR "  -m : all the modified files (which have been patciled)\n";
        print STDERR "  -n : all the files newer than patchlevel.h\n";
        print STDERR "  -V : print version number and exit\n";
        exit 1;
}
!NO!SUBS!
$grep -v '^;#' ../pl/newer.pl >>pat
$grep -v '^;#' ../pl/package.pl >>pat
$grep -v '^;#' ../pl/patseq.pl >>pat
$grep -v '^;#' ../pl/tilde.pl >>pat
$grep -v '^;#' ../pl/profile.pl >>pat
chmod +x pat
$eunicefix pat