lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) (10/17/90)
System: perl version 3.0
Patch #: 29
Priority: HIGH
Subject: added SysV IPC
Subject: added waitpid
Subject: various portability fixes
Subject: added cmp and <=>
Subject: added caller
Subject: added scalar
Subject: added sysread and syswrite
Subject: added -M, -A and -C
Subject: index and substr now have optional 3rd args
Subject: you can now read into the middle string
Subject: non-existent array values no longer cause core dumps
Subject: scripts now run at almost full speed under the debugger
Subject: @ENV = () now works
Subject: defined @foo was behaving inconsistently
Subject: -5 % 5 was wrong
Subject: package behavior is now more consistent
Subject: tr/// now understands c, d and s options, and handles nulls right
Subject: *foo now prints as *package'foo
Subject: local() without initialization now creates undefined values
Subject: file - didn't auto-close cleanly
Subject: close; core dumped
Subject: more MSDOS and OS/2 updates, from Kai Uwe Rommel
Subject: added scalar reverse
Subject: sort undefined_subroutine @array is now a fatal error
Subject: ~ now works on vector string
Subject: eof; core dumped
Subject: oct and hex now produce unsigned result
Subject: unshift did not return the documented value
Subject: added @###.## fields to format
Subject: h2ph didn't translate includes right
Subject: %foo = () will now clear dbm files
Subject: dbm files couldn't be opened read only
Subject: the cache array for dbm files wasn't correctly created on fetches
Subject: the debugger now understands packages and evals
Subject: more variables are settable from debugger
Subject: some machines didn't like unsigned C preprocessor values
Subject: added DATA filehandle to read stuff after __END__
Subject: -w sometimes printed spurious warnings about ARGV and ENV
Subject: require "./foo" didn't work right
Subject: require error messages referred to wrong file
Subject: patterns with multiple short literal strings sometimes failed
Subject: /^pat/ occasionally matched in middle of string when $* = 0
Subject: /.{n,m}$/ could match with fewer than n characters remaining
Subject: /\d{9}/ could match more than 9 characters
Subject: taintperl now checks for world writable PATH components
Subject: the undefined value could get defined by devious means
Subject: undefined values compared inconsistently
Subject: op.stat could fail if /bin/0 existed
Subject: the length of a search pattern was limited
Subject: 0x80000000 now makes unsigned value
Subject: Null could not be used as a delimiter
Subject: usub/mus had str_set where it needed str_nset
Subject: s2p modernized
Subject: removed #ifdef undef
Subject: a2p mistranslated certain weird field separators
Description:
This set of patches pretty much brings you up to the functionality
that version 4.0 will have. The Perl Book documents version 4.0.
Perhaps these should be called release notes... :-)
Enhancements:
Many of the changes relate to making the debugger work better.
It now runs your scripts at nearly full speed because it no longer
calls a subroutine on every statement. The debugger now doesn't
get confused about packages, evals and other filenames. More
variables (though still not all) are available within the debugger.
Related to this is the fact that every statement now knows which
package and filename it was compiled in, so package semantics are
now much more straightforward. Every variable also knows which
package it was compiled in. So many places that used to print
out just the variable name now prefix the variable name with the
package name. Notably, if you print *foo it now gives *package'foo.
Along with these, there is now a "caller" function which returns
the context of the current subroutine call. See the man page for
more details.
Chip Salzenberg sent the patches for System V IPC (msg, sem and shm)
so I dropped them in.
There was no way to wait for a specific pid, which was silly, since
Perl was already keeping track of the information. So I added
the waitpid() call, which uses Unix's wait4() or waitpid() if
available, and otherwise emulates them (at least as far as letting
you wait for a particular pid--it doesn't emulate non-blocking wait).
For use in sorting routines, there are now two new operators,
cmp and <=>. These do string and numeric comparison, returning
-1, 0 or 1 when the first argument is less than, equal to or
greater than the second argument.
Occasionally one finds that one wants to evaluate an operator in
a scalar context, even though it's part of a LIST. For this purpose,
there is now a scalar() operator. For instance, the approved
fix for the novice error of using <> in assigning to a local is now:
local($var) = scalar(<STDIN>);
Perl's ordinary I/O is done using standard I/O routines. Every
now and then this gets in your way. You may now access the system
calls read() and write() via the Perl functions sysread() and
syswrite(). They should not be intermixed with ordinary I/O calls
unless you know what you're doing.
Along with this, both the sysread() and read() functions allow you
an optional 4th argument giving an offset into the string you're
reading into, so for instance you can easily finish up partial reads.
As a bit of syntactic sugar, you can now use the file tests -M, -A
and -C to determine the age of a file in (possibly fractional) days
as of the time the script started running. This makes it much
easier to write midnight cleanup scripts with precision.
The index() and rindex() functions now have an optional 3rd argument
which tells it where to start looking, so you can now iterate through
a string using these functions.
The substr() function's 3rd argument is now optional, and if omitted,
the function returns everything to the end of the string.
The tr/// translation function now understands c, d and s options, just
like the tr program. (Well, almost just like. The d option only
deletes characters that aren't in the replacement string.) The
c complementes the character class to match and the s option squishes
out multiple occurrences of any replacement class characters.
The reverse function, used in a scalar context, now reverses its
scalar argument as a string.
Dale Worley posted a patch to add @###.## type fields to formats.
I said, "Neat!" and dropped it in, lock, stock and sinker.
Kai Uwe Rommel sent a bunch of MSDOS and OS/2 updates, which I (mostly)
incorporated. I can't vouch for them, but they look okay.
Any data stored after the __END__ marker can be accesses now via
the DATA filehandle, which is automatically opened onto the script
at that point. (Well, actually, it's just kept open, since it
was already open to read the script.)
The taintperl program now checks for world writable PATH components,
and complains if any are found (if PATH is used).
Bug fixes:
It used to be that you could get core dumps by such means as
@$foo=();
@foo[42];
(1,2,3)[42];
$#foo = 50;
foreach $elem (@foo) {
$elem = 1;
}
This is no longer so. (For those who are up on Perl internals, the
stack policy no longer allows Nullstr--all undefined values must
be passed as &str_undef.)
If you say something like
local($foo,$bar);
or
local($initialized,$foo,$bar) = ('one value');
$foo and $bar are now initialized to the undefined value, rather
than the defined null string.
Array assignment to special arrays is now better supported. For
instance, @ENV = () clears the environment, and %foo = () will
now clear any dbm file bound to %foo.
On the subject of dbm files, the highly visible bugs at patchlevel
28 have been fixed. You can now open dbm files readonly, and you
don't have to do a dummy assignment to make the cache allocate itself.
The modulus operator wasn't working right on negative values because
of a misplaced cast. For instance, -5 % 5 was returning
the value 5, which is clearly wrong.
Certain operations coredumped if you didn't supply a value:
close;
eof;
Previously, if the subroutine supplied for a sort operation didn't
exist, it failed quietly. Now it produces a fatal error.
The bitwise complement operator ~ didn't work on vec() strings longer
than one byte because of failure to increment a loop variable.
The oct and hex functions returned a negative result if the highest
bit was set. They now return an unsigned result, which seems a
little less confusing. Likewise, the token 0x80000000 also produces
an unsigned value now.
Some machines didn't like to see 0x87654321 in an #ifdef because
they think of the symbols as signed. The tests have been changed
to just look at the lower 4 nybbles of the value, which is sufficient
to determine endianness, at least as far as the #ifdefs are concerned.
The unshift operator did not return the documented value, which
was the number of elements in the new array. Instead it returned
the last unshifted argument, more or less by accident.
-w sometimes printed spurious warnings about ARGV and ENV when
referencing the arrays indirectly through shift or exec. This
was because the typo test was misplaced before the code that
exempts special variables from the typo test.
If you said 'require "./foo.pl"', it would look in someplace like
/usr/local/lib/perl/./foo.pl instead of the current directory. This
works more like people expect now. The require error messages also
referred to wrong file, if they worked at all.
The h2ph program didn't translate includes right--it should have
changed .h to .ph.
Patterns with multiple short literal strings sometimes failed.
This was a problem with the code that looks for a maximal literal
string to feed to the Boyer-Moore searching routine. The code
was gluing together literal strings that weren't continuous.
The $* variable controls multi-line pattern matching. When it's
0, patterns are supposed to match as if the string contained a
single line. Unfortunately, /^pat/ occasionally matched in middle
of string under certain conditions.
Recently the regular expression routines were upgraded to do
{n,m} more efficiently. In doing this, however, I manufactured
a couple of bugs: /.{n,m}$/ could match with fewer than n characters
remaining on the line, and patterns like /\d{9}/ could match more
than 9 characters.
The undefined value has an actual physical location in Perl, and
pointers to it are passed around. By certain circuitous routes
it was possible to clobber the undefined value so that it
was no longer undefined--kind of like making /dev/null into
a real file. Hopefully this can't happen any more.
op.stat could fail if /bin/0 existed, because of a while (<*>) {...
This has been changed to a while (defined($_ = <*>)) {...
The length of a search pattern was limited by the length of
tokenbuf internally. This restriction has been removed.
The null character gave the tokener indigestion when used as
a delimiter for m// or s///.
There was a bunch of other cleanupish things that are too trivial
to mention here.
Fix: From rn, say "| patch -p -N -d DIR", where DIR is your perl source
directory. Outside of rn, say "cd DIR; patch -p -N <thisarticle".
If you don't have the patch program, apply the following by hand,
or get patch (version 2.0, latest patchlevel).
After patching:
*** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #36 FIRST ***
If patch indicates that patchlevel is the wrong version, you may need
to apply one or more previous patches, or the patch may already
have been applied. See the patchlevel.h file to find out what has or
has not been applied. In any event, don't continue with the patch.
If you are missing previous patches they can be obtained from me:
Larry Wall
lwall@jpl-devvax.jpl.nasa.gov
If you send a mail message of the following form it will greatly speed
processing:
Subject: Command
@SH mailpatch PATH perl 3.0 LIST
^ note the c
where PATH is a return path FROM ME TO YOU either in Internet notation,
or in bang notation from some well-known host, and LIST is the number
of one or more patches you need, separated by spaces, commas, and/or
hyphens. Saying 35- says everything from 35 to the end.
You can also get the patches via anonymous FTP from
jpl-devvax.jpl.nasa.gov (128.149.1.143).
Index: patchlevel.h
Prereq: 28
1c1
< #define PATCHLEVEL 28
---
> #define PATCHLEVEL 29
Index: Configure
Prereq: 3.0.1.9
*** Configure.old Tue Oct 16 11:44:13 1990
--- Configure Tue Oct 16 11:44:29 1990
***************
*** 8,14 ****
# and edit it to reflect your system. Some packages may include samples
# of config.h for certain machines, so you might look for one of those.)
#
! # $Header: Configure,v 3.0.1.9 90/08/13 21:48:46 lwall Locked $
#
# Yes, you may rip this off to use in other distribution packages.
# (Note: this Configure script was generated automatically. Rather than
--- 8,14 ----
# and edit it to reflect your system. Some packages may include samples
# of config.h for certain machines, so you might look for one of those.)
#
! # $Header: Configure,v 3.0.1.10 90/10/15 14:37:52 lwall Locked $
#
# Yes, you may rip this off to use in other distribution packages.
# (Note: this Configure script was generated automatically. Rather than
***************
*** 15,21 ****
# working with this copy of Configure, you may wish to get metaconfig.)
: sanity checks
! PATH=".:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin:/etc:/usr/new:/usr/new/bin:/usr/nbin:$PATH"
export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh $0; kill $$)
if test ! -t 0; then
--- 15,21 ----
# working with this copy of Configure, you may wish to get metaconfig.)
: sanity checks
! PATH="$PATH:.:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin:/etc:/usr/new:/usr/new/bin:/usr/nbin"
export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh $0; kill $$)
if test ! -t 0; then
***************
*** 154,159 ****
--- 154,160 ----
d_strerror=''
d_symlink=''
d_syscall=''
+ d_sysvipc=''
d_truncate=''
d_varargs=''
d_vfork=''
***************
*** 162,167 ****
--- 163,169 ----
d_vprintf=''
d_charvspr=''
d_wait4=''
+ d_waitpid=''
gidtype=''
i_dirent=''
d_dirnamlen=''
***************
*** 169,174 ****
--- 171,177 ----
i_grp=''
i_niin=''
i_pwd=''
+ d_pwcomment=''
d_pwquota=''
d_pwage=''
d_pwchange=''
***************
*** 232,238 ****
undef='undef'
: change the next line if compiling for Xenix/286 on Xenix/386
xlibpth='/usr/lib/386 /lib/386'
! libpth='/usr/lib /usr/local/lib /usr/lib/large /lib '$xlibpth' /lib/large /usr/lib/small /lib/small'
smallmach='pdp11 i8086 z8000 i80286 iAPX286'
rmlist='kit[1-9]isdone kit[1-9][0-9]isdone'
trap 'echo " "; rm -f $rmlist; exit 1' 1 2 3
--- 235,241 ----
undef='undef'
: change the next line if compiling for Xenix/286 on Xenix/386
xlibpth='/usr/lib/386 /lib/386'
! libpth='/usr/ccs/lib /usr/lib /usr/local/lib /usr/lib/large /lib '$xlibpth' /lib/large /usr/lib/small /lib/small'
smallmach='pdp11 i8086 z8000 i80286 iAPX286'
rmlist='kit[1-9]isdone kit[1-9][0-9]isdone'
trap 'echo " "; rm -f $rmlist; exit 1' 1 2 3
***************
*** 259,269 ****
attrlist="$attrlist nsc32000 sinix xenix venix posix ansi M_XENIX"
attrlist="$attrlist $mc68k __STDC__ UTS M_I8086 M_I186 M_I286 M_I386"
attrlist="$attrlist i186 __m88k__ m88k DGUX __DGUX__"
! pth="/usr/ucb /bin /usr/bin /usr/local /usr/local/bin /usr/lbin /usr/plx /usr/5bin /vol/local/bin /etc /usr/lib /lib /usr/local/lib /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/bin /bsd4.3/usr/ucb"
d_newshome="/usr/NeWS"
defvoidused=7
libswanted="net_s net nsl_s nsl socket nm ndir ndbm dbm sun m bsd BSD x c_s"
inclwanted='/usr/netinclude /usr/include/sun /usr/include/bsd /usr/include/lan'
: some greps do not return status, grrr.
echo "grimblepritz" >grimble
if grep blurfldyick grimble >/dev/null 2>&1 ; then
--- 262,273 ----
attrlist="$attrlist nsc32000 sinix xenix venix posix ansi M_XENIX"
attrlist="$attrlist $mc68k __STDC__ UTS M_I8086 M_I186 M_I286 M_I386"
attrlist="$attrlist i186 __m88k__ m88k DGUX __DGUX__"
! pth="/usr/ccs/bin /bin /usr/bin /usr/ucb /usr/local /usr/local/bin /usr/lbin /usr/plx /usr/5bin /vol/local/bin /etc /usr/lib /lib /usr/local/lib /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/bin /bsd4.3/usr/ucb"
d_newshome="/usr/NeWS"
defvoidused=7
libswanted="net_s net nsl_s nsl socket nm ndir ndbm dbm sun m bsd BSD x c_s"
inclwanted='/usr/netinclude /usr/include/sun /usr/include/bsd /usr/include/lan'
+
: some greps do not return status, grrr.
echo "grimblepritz" >grimble
if grep blurfldyick grimble >/dev/null 2>&1 ; then
***************
*** 1126,1132 ****
*) thatlib="${thislib}_s";;
*) thatlib=NONE;;
esac
! xxx=`loc lib$thislib.a X /usr/lib /usr/local/lib /lib`
if test -f $xxx; then
echo "Found -l$thislib."
case "$dflt" in
--- 1130,1136 ----
*) thatlib="${thislib}_s";;
*) thatlib=NONE;;
esac
! xxx=`loc lib$thislib.a X /usr/ccs/lib /usr/lib /usr/local/lib /lib`
if test -f $xxx; then
echo "Found -l$thislib."
case "$dflt" in
***************
*** 1274,1298 ****
cppstdin="$cc -E"
cppminus='';
else
! echo 'Nope, maybe "'$cpp'" will work...'
! $cpp <testcpp.c >testcpp.out 2>&1
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
echo "Yup, it does."
! cppstdin="$cpp"
! cppminus='';
else
! echo 'No such luck...maybe "'$cpp' -" will work...'
! $cpp - <testcpp.c >testcpp.out 2>&1
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
echo "It works!"
cppstdin="$cpp"
! cppminus='-';
else
! echo 'Nixed again...maybe "'"$cc"' -E -" will work...'
! $cc -E - <testcpp.c >testcpp.out 2>&1
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
echo "Hooray, it works! I was beginning to wonder."
! cppstdin="$cc -E"
cppminus='-';
else
echo 'Nope...maybe "'"$cc"' -P" will work...'
--- 1278,1302 ----
cppstdin="$cc -E"
cppminus='';
else
! echo 'Nope...maybe "'"$cc"' -E -" will work...'
! $cc -E - <testcpp.c >testcpp.out 2>&1
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
echo "Yup, it does."
! cppstdin="$cc -E"
! cppminus='-';
else
! echo 'No such luck, maybe "'$cpp'" will work...'
! $cpp <testcpp.c >testcpp.out 2>&1
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
echo "It works!"
cppstdin="$cpp"
! cppminus='';
else
! echo 'Nixed again...maybe "'$cpp' -" will work...'
! $cpp - <testcpp.c >testcpp.out 2>&1
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
echo "Hooray, it works! I was beginning to wonder."
! cppstdin="$cpp"
cppminus='-';
else
echo 'Nope...maybe "'"$cc"' -P" will work...'
***************
*** 1357,1363 ****
'') libc=unknown;;
esac
case "$libpth" in
! '') libpth='/lib /usr/lib /usr/local/lib';;
esac
case "$libs" in
*-lc_s*) libc=`loc libc_s.a $libc $libpth`
--- 1361,1367 ----
'') libc=unknown;;
esac
case "$libpth" in
! '') libpth='/usr/ccs/lib /lib /usr/lib /usr/local/lib';;
esac
case "$libs" in
*-lc_s*) libc=`loc libc_s.a $libc $libpth`
***************
*** 1388,1394 ****
done
;;
esac
! set /usr/lib/libc.so.[0-9]*
eval set \$$#
if test -f "$1"; then
echo "Your shared C library is in $1."
--- 1392,1400 ----
done
;;
esac
! set /usr/ccs/lib/libc.so
! test -f $1 || set /usr/lib/libc.so
! test -f $1 || set /usr/lib/libc.so.[0-9]*
eval set \$$#
if test -f "$1"; then
echo "Your shared C library is in $1."
***************
*** 1440,1446 ****
set `echo $libc $libnames | tr ' ' '\012' | sort | uniq`
$echo $n "Extracting names from $* for later perusal...$c"
nm $* 2>/dev/null >libc.tmp
! $sed -n -e 's/^.* [AT] *_[_.]*//p' -e 's/^.* [AT] //p' <libc.tmp >libc.list
if $contains '^printf$' libc.list >/dev/null 2>&1; then
echo "done"
else
--- 1446,1452 ----
set `echo $libc $libnames | tr ' ' '\012' | sort | uniq`
$echo $n "Extracting names from $* for later perusal...$c"
nm $* 2>/dev/null >libc.tmp
! $sed -n -e 's/^.* [ATD] *_[_.]*//p' -e 's/^.* [ATD] //p' <libc.tmp >libc.list
if $contains '^printf$' libc.list >/dev/null 2>&1; then
echo "done"
else
***************
*** 1453,1459 ****
$sed -n -e 's/^_//' \
-e 's/^\([a-zA-Z_0-9]*\).*xtern.*text.*/\1/p' <libc.tmp >libc.list
$contains '^printf$' libc.list >/dev/null 2>&1 || \
! $sed -n -e 's/^.*|FUNC |GLOB .*|//p' <libc.tmp >libc.list
if $contains '^printf$' libc.list >/dev/null 2>&1; then
echo "done"
else
--- 1459,1466 ----
$sed -n -e 's/^_//' \
-e 's/^\([a-zA-Z_0-9]*\).*xtern.*text.*/\1/p' <libc.tmp >libc.list
$contains '^printf$' libc.list >/dev/null 2>&1 || \
! $sed -n -e 's/^.*|FUNC |GLOB .*|//p' -e 's/^.*|FUNC |WEAK .*|//p' \
! <libc.tmp >libc.list
if $contains '^printf$' libc.list >/dev/null 2>&1; then
echo "done"
else
***************
*** 1860,1866 ****
if $test -r /usr/include/pwd.h ; then
i_pwd="$define"
echo "pwd.h found."
! $cppstdin $cppflags </usr/include/pwd.h >$$.h
if $contains 'pw_quota' $$.h >/dev/null 2>&1; then
d_pwquota="$define"
else
--- 1867,1878 ----
if $test -r /usr/include/pwd.h ; then
i_pwd="$define"
echo "pwd.h found."
! $cppstdin $cppflags $cppminus </usr/include/pwd.h >$$.h
! if $contains 'pw_comment' $$.h >/dev/null 2>&1; then
! d_pwcomment="$define"
! else
! d_pwcomment="$undef"
! fi
if $contains 'pw_quota' $$.h >/dev/null 2>&1; then
d_pwquota="$define"
else
***************
*** 1889,1894 ****
--- 1901,1907 ----
rm -f $$.h
else
i_pwd="$undef"
+ d_pwcomment="$undef"
d_pwquota="$undef"
d_pwage="$undef"
d_pwchange="$undef"
***************
*** 2083,2088 ****
--- 2096,2105 ----
esac
$rm -f try.c try
+ : see if there is System V IPC
+ set msgget d_sysvipc
+ eval $inlibc
+
: see if truncate exists
set truncate d_truncate
eval $inlibc
***************
*** 2103,2109 ****
: see if signal is declared as pointer to function returning int or void
echo " "
! $cppstdin $cppflags < /usr/include/signal.h >$$.tmp
if $contains 'void.*signal' $$.tmp >/dev/null 2>&1 ; then
echo "You have void (*signal())() instead of int."
d_voidsig="$define"
--- 2120,2126 ----
: see if signal is declared as pointer to function returning int or void
echo " "
! $cppstdin $cppflags $cppminus < /usr/include/signal.h >$$.tmp
if $contains 'void.*signal' $$.tmp >/dev/null 2>&1 ; then
echo "You have void (*signal())() instead of int."
d_voidsig="$define"
***************
*** 2139,2144 ****
--- 2156,2165 ----
set wait4 d_wait4
eval $inlibc
+ : see if there is a waitpid
+ set waitpid d_waitpid
+ eval $inlibc
+
: check for void type
echo " "
$cat <<EOM
***************
*** 2494,2500 ****
Log='$Log'
Header='$Header'
-
: determine which malloc to compile in
echo " "
case "$usemymalloc" in
--- 2515,2520 ----
***************
*** 2709,2714 ****
--- 2729,2735 ----
d_strerror='$d_strerror'
d_symlink='$d_symlink'
d_syscall='$d_syscall'
+ d_sysvipc='$d_sysvipc'
d_truncate='$d_truncate'
d_varargs='$d_varargs'
d_vfork='$d_vfork'
***************
*** 2717,2722 ****
--- 2738,2744 ----
d_vprintf='$d_vprintf'
d_charvspr='$d_charvspr'
d_wait4='$d_wait4'
+ d_waitpid='$d_waitpid'
gidtype='$gidtype'
i_dirent='$i_dirent'
d_dirnamlen='$d_dirnamlen'
***************
*** 2724,2729 ****
--- 2746,2752 ----
i_grp='$i_grp'
i_niin='$i_niin'
i_pwd='$i_pwd'
+ d_pwcomment='$d_pwcomment'
d_pwquota='$d_pwquota'
d_pwage='$d_pwage'
d_pwchange='$d_pwchange'
Index: Makefile.SH
Prereq: 3.0.1.8
*** Makefile.SH.old Tue Oct 16 11:44:49 1990
--- Makefile.SH Tue Oct 16 11:44:55 1990
***************
*** 25,33 ****
echo "Extracting Makefile (with variable substitutions)"
cat >Makefile <<!GROK!THIS!
! # $Header: Makefile.SH,v 3.0.1.8 90/08/13 21:50:49 lwall Locked $
#
# $Log: Makefile.SH,v $
# Revision 3.0.1.8 90/08/13 21:50:49 lwall
# patch28: not all yaccs are the same
#
--- 25,36 ----
echo "Extracting Makefile (with variable substitutions)"
cat >Makefile <<!GROK!THIS!
! # $Header: Makefile.SH,v 3.0.1.9 90/10/15 14:41:34 lwall Locked $
#
# $Log: Makefile.SH,v $
+ # Revision 3.0.1.9 90/10/15 14:41:34 lwall
+ # patch29: various portability fixes
+ #
# Revision 3.0.1.8 90/08/13 21:50:49 lwall
# patch28: not all yaccs are the same
#
***************
*** 69,74 ****
--- 72,78 ----
manext = $manext
CFLAGS = $ccflags $optimize
LDFLAGS = $ldflags
+ CLDFLAGS = $ldflags
SMALL = $small
LARGE = $large $split
mallocsrc = $mallocsrc
***************
*** 75,81 ****
mallocobj = $mallocobj
SLN = $sln
! libs = $libs -lm
public = perl taintperl $suidperl
--- 79,85 ----
mallocobj = $mallocobj
SLN = $sln
! libs = $libs
public = perl taintperl $suidperl
***************
*** 101,107 ****
c1 = array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c
c2 = eval.c form.c hash.c $(mallocsrc) perly.c regcomp.c regexec.c
! c3 = stab.c str.c toke.c util.c
c = $(c1) $(c2) $(c3)
--- 105,111 ----
c1 = array.c cmd.c cons.c consarg.c doarg.c doio.c dolist.c dump.c
c2 = eval.c form.c hash.c $(mallocsrc) perly.c regcomp.c regexec.c
! c3 = stab.c str.c toke.c util.c usersub.c
c = $(c1) $(c2) $(c3)
***************
*** 135,144 ****
# used for all scripts that aren't set-id or running under something set-id.
perl: perl.o $(obj) usersub.o
! $(CC) $(LARGE) $(LDFLAGS) $(obj) perl.o usersub.o $(libs) -o perl
uperl.o: perl.o $(obj)
! ld $(LARGE) $(LDFLAGS) -r $(obj) perl.o $(libs) -o uperl.o
saber: perl.c
# load $(c) perl.c
--- 139,148 ----
# used for all scripts that aren't set-id or running under something set-id.
perl: perl.o $(obj) usersub.o
! $(CC) $(LARGE) $(CLDFLAGS) $(obj) perl.o usersub.o $(libs) -o perl
uperl.o: perl.o $(obj)
! -ld $(LARGE) $(LDFLAGS) -r $(obj) perl.o $(libs) -o uperl.o
saber: perl.c
# load $(c) perl.c
***************
*** 149,155 ****
# has been invoked correctly.
suidperl: tperl.o sperly.o $(tobj) usersub.o
! $(CC) $(LARGE) $(LDFLAGS) sperly.o $(tobj) tperl.o usersub.o $(libs) \
-o suidperl
# This version interprets scripts that are already set-id either via a wrapper
--- 153,159 ----
# has been invoked correctly.
suidperl: tperl.o sperly.o $(tobj) usersub.o
! $(CC) $(LARGE) $(CLDFLAGS) sperly.o $(tobj) tperl.o usersub.o $(libs) \
-o suidperl
# This version interprets scripts that are already set-id either via a wrapper
***************
*** 158,164 ****
# and normal perl is the presence of the "taint" checks.
taintperl: tperl.o tperly.o $(tobj) usersub.o
! $(CC) $(LARGE) $(LDFLAGS) tperly.o $(tobj) tperl.o usersub.o $(libs) \
-o taintperl
# Replicating all this junk is yucky, but I don't see a portable way to fix it.
--- 162,168 ----
# and normal perl is the presence of the "taint" checks.
taintperl: tperl.o tperly.o $(tobj) usersub.o
! $(CC) $(LARGE) $(CLDFLAGS) tperly.o $(tobj) tperl.o usersub.o $(libs) \
-o taintperl
# Replicating all this junk is yucky, but I don't see a portable way to fix it.
***************
*** 349,357 ****
rm -f *.o all perl taintperl suidperl perl.man
cd x2p; $(MAKE) clean
! realclean:
cd x2p; $(MAKE) realclean
! rm -f perl *.orig */*.orig *~ */*~ *.o core $(addedbyconf) perl.man
rm -f perl.c perly.h t/perl Makefile config.h makedepend makedir
rm -f x2p/Makefile
--- 353,361 ----
rm -f *.o all perl taintperl suidperl perl.man
cd x2p; $(MAKE) clean
! realclean: clean
cd x2p; $(MAKE) realclean
! rm -f *.orig */*.orig *~ */*~ core $(addedbyconf) h2ph h2ph.man
rm -f perl.c perly.h t/perl Makefile config.h makedepend makedir
rm -f x2p/Makefile
Index: x2p/Makefile.SH
Prereq: 3.0.1.5
*** x2p/Makefile.SH.old Tue Oct 16 12:06:09 1990
--- x2p/Makefile.SH Tue Oct 16 12:06:10 1990
***************
*** 18,26 ****
esac
echo "Extracting x2p/Makefile (with variable substitutions)"
cat >Makefile <<!GROK!THIS!
! # $Header: Makefile.SH,v 3.0.1.5 90/08/13 22:41:05 lwall Locked $
#
# $Log: Makefile.SH,v $
# Revision 3.0.1.5 90/08/13 22:41:05 lwall
# patch28: shift/reduce count was off for a2p's Makefile
#
--- 18,29 ----
esac
echo "Extracting x2p/Makefile (with variable substitutions)"
cat >Makefile <<!GROK!THIS!
! # $Header: Makefile.SH,v 3.0.1.6 90/10/16 11:28:18 lwall Locked $
#
# $Log: Makefile.SH,v $
+ # Revision 3.0.1.6 90/10/16 11:28:18 lwall
+ # patch29: various portability fixes
+ #
# Revision 3.0.1.5 90/08/13 22:41:05 lwall
# patch28: shift/reduce count was off for a2p's Makefile
#
***************
*** 63,69 ****
mallocsrc = $mallocsrc
mallocobj = $mallocobj
! libs = $libs -lm
!GROK!THIS!
cat >>Makefile <<'!NO!SUBS!'
--- 66,72 ----
mallocsrc = $mallocsrc
mallocobj = $mallocobj
! libs = $libs
!GROK!THIS!
cat >>Makefile <<'!NO!SUBS!'
***************
*** 105,111 ****
$(YACC) a2p.y
mv y.tab.c a2p.c
! a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h
$(CC) -c $(CFLAGS) $(LARGE) a2p.c
install: a2p s2p
--- 108,114 ----
$(YACC) a2p.y
mv y.tab.c a2p.c
! a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
$(CC) -c $(CFLAGS) $(LARGE) a2p.c
install: a2p s2p
***************
*** 137,144 ****
clean:
rm -f *.o
! realclean:
! rm -f a2p *.orig */*.orig *.o core $(addedbyconf)
# The following lint has practically everything turned on. Unfortunately,
# you have to wade through a lot of mumbo jumbo that can't be suppressed.
--- 140,147 ----
clean:
rm -f *.o
! realclean: clean
! rm -f a2p *.orig */*.orig core $(addedbyconf) a2p.c s2p all
# The following lint has practically everything turned on. Unfortunately,
# you have to wade through a lot of mumbo jumbo that can't be suppressed.
Index: README
*** README.old Tue Oct 16 11:45:08 1990
--- README Tue Oct 16 11:45:10 1990
***************
*** 91,97 ****
Some compilers will not compile or optimize the larger files without
some extra switches to use larger jump offsets or allocate larger
internal tables. It's okay to insert rules for specific files into
! Makefile.SH, since a default rule only take effect in the
absence of a specific rule.
The 3b2 needs to turn off -O.
--- 91,97 ----
Some compilers will not compile or optimize the larger files without
some extra switches to use larger jump offsets or allocate larger
internal tables. It's okay to insert rules for specific files into
! Makefile.SH, since a default rule only takes effect in the
absence of a specific rule.
The 3b2 needs to turn off -O.
Index: eg/sysvipc/README
*** eg/sysvipc/README.old Tue Oct 16 11:51:22 1990
--- eg/sysvipc/README Tue Oct 16 11:51:26 1990
***************
*** 0 ****
--- 1,9 ----
+ FYEnjoyment, here are the test scripts I used while implementing SysV
+ IPC in Perl. Each of them must be run with the parameter "s" for
+ "send" or "r" for "receive"; in each case, the receiver is the server
+ and the sender is the client.
+
+ --
+ Chip Salzenberg at ComDev/TCT <chip@tct.uucp>, <uunet!ateng!tct!chip>
+
+
Index: os2/README.OS2
*** os2/README.OS2.old Tue Oct 16 11:53:58 1990
--- os2/README.OS2 Tue Oct 16 11:54:01 1990
***************
*** 1,9 ****
-
Notes on the OS/2 Perl port
Raymond Chen
! (rjc@math.princeton.edu)
-1. Background.
This port was based on the MS-DOS port by Diomidis Spinellis.
--- 1,11 ----
Notes on the OS/2 Perl port
Raymond Chen
! (rjc@math.princeton.edu)
+ Kai Uwe Rommel
+ (rommel@lan.informatik.tu-muenchen.dbp.de)
+
-1. Background.
This port was based on the MS-DOS port by Diomidis Spinellis.
***************
*** 16,43 ****
1. Compiling.
! Perl has been compiled under MS-DOS using the Microsoft C compiler
! version 6.0. Before compiling install dir.h as <sys/dir.h>. You will
! need a Unix-like make program and something like yacc (e.g. bison). I
! just ran yacc on my UNIX box and downloaded the resulting y.tab.[ch]
files. Compilation takes 45 minutes on a 16MHz 386 machine running
! no jobs other than the compiler, so you will probably need something to
do in the meantime. Like, say, lunch. (Compilation time does not
! include formatting the manual.) If you compile with optimization
turned off, it takes about half as long.
The executable is 270k (perlsym.exe is 473k; if you compile
! without optimization, the sizes are 329K/531K), and the top level
! directory needs 800K for sources, 550K for object code, and 800K for the
executables, assuming you want to build both perl.exe and perlsym.exe
with full optimization.
! The makefile will compile glob for you which you will need to place
! somewhere in your path so that perl globbing will work correctly. All
! the tests were run, although some modifications were necessary because
! OS/2 isn't UNIX. The tests that failed failed because of limitations of
! the operating system and aren't the fault of the compiler. a2p and s2p
! were not tested.
In the eg directory you will find the syscalls.pl header file,
and a sample program that demonstrates some of the improvements
--- 18,45 ----
1. Compiling.
! Perl has been compiled under MS-DOS using the Microsoft C compiler
! version 6.0. Before compiling install dir.h as <sys/dir.h>. You will
! need a Unix-like make program and something like yacc (e.g. bison). I
! just ran yacc on my UNIX box and downloaded the resulting y.tab.[ch]
files. Compilation takes 45 minutes on a 16MHz 386 machine running
! no jobs other than the compiler, so you will probably need something to
do in the meantime. Like, say, lunch. (Compilation time does not
! include formatting the manual.) If you compile with optimization
turned off, it takes about half as long.
The executable is 270k (perlsym.exe is 473k; if you compile
! without optimization, the sizes are 329K/531K), and the top level
! directory needs 800K for sources, 550K for object code, and 800K for the
executables, assuming you want to build both perl.exe and perlsym.exe
with full optimization.
! The makefile will compile glob for you which you will need to place
! somewhere in your path so that perl globbing will work correctly. All
! the tests were run, although some modifications were necessary because
! OS/2 isn't UNIX. The tests that failed failed because of limitations of
! the operating system and aren't the fault of the compiler. a2p and s2p
! were not tested.
In the eg directory you will find the syscalls.pl header file,
and a sample program that demonstrates some of the improvements
***************
*** 46,65 ****
2. Using OS/2 Perl
! The OS/2 version of perl has much of the functionality of the Unix
! version. Here are some things that don't work: sockets, password
! functions, [gs]et[eug]id, dbm functions, fork.
One thing that doesn't work is "split" with no arguments. Somehow,
yylval.arg is empty ... [[ Wait, sorry, I fixed that. --rjc ]]
Care has been taken to implement the rest, although the implementation
! might not be the best possible. Here are short notes on the tricky
! bits:
2.1. In-place editing.
! Files currently can be edited in-place provided you are creating a
backup. Considerable effort is made to ensure that a reasonable
name for the backup is selected, while still remaining within
the 8.3 contraints of the FAT filesystem. (HPFS users have nothing
--- 48,67 ----
2. Using OS/2 Perl
! The OS/2 version of perl has much of the functionality of the Unix
! version. Here are some things that don't work: sockets, password
! functions, [gs]et[eug]id, dbm functions, fork.
One thing that doesn't work is "split" with no arguments. Somehow,
yylval.arg is empty ... [[ Wait, sorry, I fixed that. --rjc ]]
Care has been taken to implement the rest, although the implementation
! might not be the best possible. Here are short notes on the tricky
! bits:
2.1. In-place editing.
! Files currently can be edited in-place provided you are creating a
backup. Considerable effort is made to ensure that a reasonable
name for the backup is selected, while still remaining within
the 8.3 contraints of the FAT filesystem. (HPFS users have nothing
***************
*** 76,89 ****
swallow it. FAT will rarely accept it.)
Style 1: If the suffix begins with a '.', change the file extension
! to whatever you supplied. If the name matches the original
name, use the fallback method.
! Style 2: If the suffix is a single character, not a '.', try to add the
suffix to the following places, using the first one that works.
! [1] Append to extension.
! [2] Append to filename,
! [3] Replace end of extension,
[4] Replace end of filename.
If the name matches the original name, use the fallback method.
--- 78,91 ----
swallow it. FAT will rarely accept it.)
Style 1: If the suffix begins with a '.', change the file extension
! to whatever you supplied. If the name matches the original
name, use the fallback method.
! Style 2: If the suffix is a single character, not a '.', try to add the
suffix to the following places, using the first one that works.
! [1] Append to extension.
! [2] Append to filename,
! [3] Replace end of extension,
[4] Replace end of filename.
If the name matches the original name, use the fallback method.
***************
*** 116,122 ****
longname.fil => longname.fi~
longname.fi~ => longnam~.fi~
longnam~.fi~ => longnam~.$$$
!
2.2. Directory access.
Are implemented, but in order to support telldir() and seekdir(),
--- 118,124 ----
longname.fil => longname.fi~
longname.fi~ => longnam~.fi~
longnam~.fi~ => longnam~.$$$
!
2.2. Directory access.
Are implemented, but in order to support telldir() and seekdir(),
***************
*** 125,131 ****
2.3. Pipes and redirection.
! Pipes and redirection are supported. Although OS/2 does not
terminate programs which try to write to closed pipes, perl will
kill them for you if you do it like this:
--- 127,133 ----
2.3. Pipes and redirection.
! Pipes and redirection are supported. Although OS/2 does not
terminate programs which try to write to closed pipes, perl will
kill them for you if you do it like this:
***************
*** 174,197 ****
The arguments you pass are handed off to OS/2 without interpretation,
and the return value is returned straight to you. However, you don't
! have to supply arguments for the ones whose descriptions are "must be
zero"; perl will supply the mandatory zeros for you.
2.5. Binary file access
! Files are opened in text mode by default. This means that CR LF pairs
! are translated to LF. If binary access is needed the `binarymode'
! function should be used. There is currently no way to reverse the
! effect of the binary function. If that is needed close and reopen the
! file.
2.6. Priority
! The getpriority and setpriority functions are implemented, but since
! OS/2 priorities are different from UNIX priorities, the arguments aren't
! the same. Basically, the arguments you pass are handed directly to
! OS/2. The only exception is the last argument to setpriority. To make
! it easier to make delta priorities, if the priority class is 0xff, it
is changed to 0. That way, you can write
setpriority(0,0,-2)
--- 176,199 ----
The arguments you pass are handed off to OS/2 without interpretation,
and the return value is returned straight to you. However, you don't
! have to supply arguments for the ones whose descriptions are "must be
zero"; perl will supply the mandatory zeros for you.
2.5. Binary file access
! Files are opened in text mode by default. This means that CR LF pairs
! are translated to LF. If binary access is needed the `binarymode'
! function should be used. There is currently no way to reverse the
! effect of the binary function. If that is needed close and reopen the
! file.
2.6. Priority
! The getpriority and setpriority functions are implemented, but since
! OS/2 priorities are different from UNIX priorities, the arguments aren't
! the same. Basically, the arguments you pass are handed directly to
! OS/2. The only exception is the last argument to setpriority. To make
! it easier to make delta priorities, if the priority class is 0xff, it
is changed to 0. That way, you can write
setpriority(0,0,-2)
***************
*** 204,211 ****
2.7. Interpreter startup.
! The effect of the Unix #!/bin/perl interpreter startup can be obtained
! under OS/2 by giving the script a .cmd extension and beginning the script
with the line
extproc C:\binp\perl.exe -S
--- 206,213 ----
2.7. Interpreter startup.
! The effect of the Unix #!/bin/perl interpreter startup can be obtained
! under OS/2 by giving the script a .cmd extension and beginning the script
with the line
extproc C:\binp\perl.exe -S
***************
*** 264,270 ****
as do_spawn does (which means, of course, that we probably
should yank out code to be dished off into a subroutine).
! In do_spawn(), use DosExecPgm instead of spawnl in order to get more
precise reasons why the child terminated (RESULTCODES).
--- 266,272 ----
as do_spawn does (which means, of course, that we probably
should yank out code to be dished off into a subroutine).
! In do_spawn(), use DosExecPgm instead of spawnl in order to get more
precise reasons why the child terminated (RESULTCODES).
***************
*** 273,275 ****
--- 275,356 ----
Raymond Chen <rjc@math.princeton.edu>
1817 Oxford St. Apt 6
Berkeley, CA 94709-1828 USA
+
+ -----------------------
+ I picked up the OS/2 port with patches 19-28. When compiling, I found
+ out that os2.c and director.c were missing. I had to rewrite them because
+ even the original author of the port (Raymond Chen) did no longer have them.
+
+ I had directory routines laying around, this was no big deal.
+ I rewrote os2.c, but did not implement the syscall() as described above.
+ I had not the time and did not really need it. Feel free ...
+
+ Changes to above described port:
+
+ - the small program GLOB is now named PERLGLOB for better ordering in
+ my /bin directory
+
+ - added help page (well, a graphical user interface would be overkill
+ but a simple help page should be in every program :-)
+
+ - several cosmetic changes in standard distribution files because of
+ naming conventions etc., #ifdef'd OS2
+
+ - syscall() not supported as noted above
+
+ - chdir now recognizes also drive letters and changes also the drive
+
+ - new mypopen(), mypclose() functions and simulation routines for DOS mode,
+ they are selected automatically in real mode
+ - the new pclose() does not kill the child, my experience is that this is
+ not needed.
+
+ - setpriority is now: setpriority(class, pid, val)
+ see description of DosSetPrty() for class and val meanings
+ - getpriority is now: getpriority(dummy, pid)
+ see description of DosGetPrty()
+
+ - kill is now: kill(pid, sig)
+ where sig can be 0 (kill process)
+ 1-3 (send process flags A-C, see DosFlagProcess())
+ if pid is less than zero, the signal is sent to the whole
+ process tree originating at -pid.
+
+ The following files are now new with patch >=29:
+
+ readme.os2 this file
+
+ dir.h sys/dir.h
+ director.c directory routines
+ os2.c kernel of OS/2 port (see below)
+ popen.c new popen.c
+ mktemp.c enhanced mktemp(), uses TMP env. variable, used by popen.c
+
+ perl.cs Compiler Shell script for perl itself
+ perl.def linker definition file for perl
+ perl.bad names of protect-only API calls for BIND
+ perlglob.cs Compiler Shell script for perl globbing program
+ perlglob.def linker definition file for perlglob
+ a2p.cs Compiler Shell script for a2p (see below)
+ a2p.def linker definition file for a2p
+ makefile Makefile, not tested
+
+ perlsh.cmd the converted perlsh
+ selfrun.cmd sample selfrunning perl script for OS/2
+ selfrun.bat sample selfrunning perl script for DOS mode
+
+ Note: I don't use make but my own utility, the Compiler Shell CS.
+ It was posted in comp.binaries.os2 or you can ask me for the newest
+ version. The .CS files are the "makefiles" for it.
+
+ Note: MS C 6.00 is required. C 5.1 is not capable of compiling perl,
+ especially not with -DDEBUGGING
+
+
+ August 1990
+
+ Kai Uwe Rommel
+ rommel@lan.informatik.tu-muenchen.dbp.de
+ Breslauer Str. 25
+ D-8756 Kahl/Main
+ West (yes, still!) Germany
*** End of Patch 29 ***