diff options
author | Larry Wall <larry@wall.org> | 1988-06-05 00:00:00 +0000 |
---|---|---|
committer | Larry Wall <larry@wall.org> | 1988-06-05 00:00:00 +0000 |
commit | 378cc40b38293ffc7298c6a7ed3cd740ad79be52 (patch) | |
tree | 87bedf9adc5c88847a2e2d85963df5f94435aaf5 /makedepend.SH | |
parent | a4de7c03d0bdc29d9d3a18abad4ac2628182ed7b (diff) | |
download | perl-378cc40b38293ffc7298c6a7ed3cd740ad79be52.tar.gz |
perl 2.0 (no announcement message available)perl-2.0
Some of the enhancements from Perl1 included:
* New regexp routines derived from Henry Spencer's.
o Support for /(foo|bar)/.
o Support for /(foo)*/ and /(foo)+/.
o \s for whitespace, \S for non-, \d for digit, \D nondigit
* Local variables in blocks, subroutines and evals.
* Recursive subroutine calls are now supported.
* Array values may now be interpolated into lists: unlink 'foo', 'bar', @trashcan, 'tmp';
* File globbing.
* Use of <> in array contexts returns the whole file or glob list.
* New iterator for normal arrays, foreach, that allows both read and write.
* Ability to open pipe to a forked off script for secure pipes in setuid scripts.
* File inclusion via do 'foo.pl';
* More file tests, including -t to see if, for instance, stdin is a terminal. File tests now behave in a more correct manner. You can do file tests on filehandles as well as filenames. The special filetests -T and -B test a file to see if it's text or binary.
* An eof can now be used on each file of the <> input for such purposes as resetting the line numbers or appending to each file of an inplace edit.
* Assignments can now function as lvalues, so you can say things like ($HOST = $host) =~ tr/a-z/A-Z/; ($obj = $src) =~ s/\.c$/.o/;
* You can now do certain file operations with a variable which holds the name of a filehandle, e.g. open(++$incl,$includefilename); $foo = <$incl>;
* Warnings are now available (with -w) on use of uninitialized variables and on identifiers that are mentioned only once, and on reference to various undefined things.
* There is now a wait operator.
* There is now a sort operator.
* The manual is now not lying when it says that perl is generally faster than sed. I hope.
Diffstat (limited to 'makedepend.SH')
-rw-r--r-- | makedepend.SH | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/makedepend.SH b/makedepend.SH index 5a8d9794fe..70c6163548 100644 --- a/makedepend.SH +++ b/makedepend.SH @@ -6,7 +6,7 @@ case $CONFIG in ln ../../../config.sh . || \ (echo "Can't find config.sh."; exit 1) fi - . config.sh + . ./config.sh ;; esac case "$0" in @@ -15,22 +15,20 @@ esac echo "Extracting makedepend (with variable substitutions)" $spitshell >makedepend <<!GROK!THIS! $startsh -# $Header: makedepend.SH,v 1.0.1.1 88/02/02 11:24:05 root Exp $ +# $Header: makedepend.SH,v 2.0 88/06/05 00:09:11 root Exp $ # # $Log: makedepend.SH,v $ -# Revision 1.0.1.1 88/02/02 11:24:05 root -# patch13: removed spurious -I./h. -# -# Revision 1.0 87/12/18 17:54:32 root -# Initial revision +# Revision 2.0 88/06/05 00:09:11 root +# Baseline version 2.0. # # export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$) cat='$cat' +ccflags='$ccflags' cp='$cp' -cpp='$cpp' +cpp='$cppstdin' echo='$echo' egrep='$egrep' expr='$expr' @@ -45,6 +43,19 @@ uniq='$uniq' $spitshell >>makedepend <<'!NO!SUBS!' +: the following weeds options from ccflags that are of no interest to cpp +case "$ccflags" in +'');; +*) set X $ccflags + ccflags='' + for flag do + case $flag in + -D*|-I*) ccflags="$ccflags $flag";; + esac + done + ;; +esac + $cat /dev/null >.deptmp $rm -f *.c.c c/*.c.c if test -f Makefile; then @@ -86,7 +97,7 @@ for file in `$cat .clist`; do -e 's|\\$||' \ -e p \ -e '}' - $cpp -I/usr/local/include -I. $file.c | \ + $cpp -I/usr/local/include -I. $ccflags $file.c | \ $sed \ -e '/^# *[0-9]/!d' \ -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \ @@ -145,7 +156,7 @@ $rm -f .deptmp `sed 's/\.c/.c.c/' .clist` .shlist .clist .hlist .hsed !NO!SUBS! $eunicefix makedepend -chmod 755 makedepend +chmod +x makedepend case `pwd` in *SH) $rm -f ../makedepend |