blob: e90ea52eeea67efbcf1fdccc2cf484d277634a8d (
plain)
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
|
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
REVISION=`grep REVISION $TOP/revision.h | head -n1 | cut -d' ' -f4`
case "$0" in
*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
esac
echo "Extracting mcon/mlint (with variable substitutions)"
cat >mlint <<!GROK!THIS!
$startperl
eval 'exec perl -S \$0 \${1+"\$@"}'
if \$running_under_some_shell;
# $Id: mlint.SH 114 2012-01-28 13:01:37Z rmanfredi $
#
# Copyright (c) 1991-1997, 2004-2006, 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 4.0.
#
# Original Author: Harlan Stenn <harlan@mumps.pfcs.com>
#
# $Log: mlint.SH,v $
# Revision 3.0.1.3 1994/05/06 15:20:42 ram
# patch23: added -L switch to override public unit repository path
#
# Revision 3.0.1.2 1994/01/24 14:21:00 ram
# patch16: added ~/.dist_profile awareness
#
# Revision 3.0.1.1 1993/08/19 06:42:27 ram
# patch1: leading config.sh searching was not aborting properly
#
# Revision 3.0 1993/08/18 12:10:17 ram
# Baseline for dist 3.0 netwide release.
#
# Perload ON
\$MC = '$privlib';
\$version = '$VERSION';
\$patchlevel = '$PATCHLEVEL';
\$revision = '$REVISION';
\$grep = '$grep';
!GROK!THIS!
$spitshell >>mlint <<'!NO!SUBS!'
&profile; # Read ~/.dist_profile
use Getopt::Std;
&usage unless getopts("hklVL:");
if ($opt_V) {
print STDERR "metalint $version-$revision\n";
exit 0;
} elsif ($opt_h) {
&usage;
}
chop($date = `date`);
$MC = $opt_L if $opt_L; # May override library path
$MC = &tilda_expand($MC); # ~name expansion
chop($WD = `pwd`); # Working directory
chdir $MC || die "Can't chdir to $MC: $!\n";
chop($MC = `pwd`); # Real metalint lib path (no symbolic links)
chdir $WD || die "Can't chdir back to $WD: $!\n";
&init; # Various initializations
`mkdir .MT 2>&1` unless -d '.MT'; # For private temporary files
&locate_units; # Fill in @ARGV with a unit list
&extract_dependencies; # Extract dependencies from units
&sanity_checks; # Perform sanity checks
if ($opt_k) {
print "Leaving subdirectory .MT unremoved so you can peruse it.\n"
unless $opt_s;
} else {
`rm -rf .MT 2>&1`;
}
print "Done.\n" unless $opt_s;
# General initializations
sub init {
&init_except; # Token which have upper-cased letters
&init_depend; # The %Depend array records control line handling
}
# Record the exceptions -- all symbols but these are lower case
sub init_except {
$Except{'Author'}++;
$Except{'Date'}++;
$Except{'Header'}++;
$Except{'Id'}++;
$Except{'Locker'}++;
$Except{'Log'}++;
$Except{'RCSfile'}++;
$Except{'Revision'}++;
$Except{'Source'}++;
$Except{'State'}++;
}
# Print out metalint's usage and exits
sub usage {
print STDERR <<EOM;
Usage: metalint [-hklsV] [-L dir]
-h : print this help message and exits.
-k : keep temporary directory.
-l : also report problems from library units.
-s : silent mode.
-L : specify main units repository.
-V : print version number and exits.
EOM
exit 1;
}
!NO!SUBS!
$grep -v '^;#' pl/locate.pl >>mlint
$grep -v '^;#' pl/lint.pl >>mlint
$grep -v '^;#' pl/init.pl >>mlint
$grep -v '^;#' pl/extract.pl >>mlint
$grep -v '^;#' pl/obsolete.pl >>mlint
$grep -v '^;#' pl/tsort.pl >>mlint
$grep -v '^;#' ../pl/tilde.pl >>mlint
$grep -v '^;#' ../pl/profile.pl >>mlint
chmod +x mlint
$eunicefix mlint
|
