From: Perl 5 Porters Date: Wed, 9 Oct 1996 09:48:41 +0000 (+0000) Subject: Updated for 5.003_07 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eeb010abfafa45a684cf9283b335d8f34c7c5381;p=p5sagit%2Fp5-mst-13.2.git Updated for 5.003_07 --- diff --git a/plan9/buildinfo b/plan9/buildinfo index abd8e5e..849d3ce 100644 --- a/plan9/buildinfo +++ b/plan9/buildinfo @@ -1 +1 @@ -p9pvers = 5.003_03 +p9pvers = 5.003_05 diff --git a/plan9/config.plan9 b/plan9/config.plan9 index eccf2fb..1e4ec52 100644 --- a/plan9/config.plan9 +++ b/plan9/config.plan9 @@ -117,9 +117,9 @@ * 2 = couldn't cast >= 0x80000000 * 4 = couldn't cast in argument expression list */ -#define CASTNEGFLOAT /**/ +#undef CASTNEGFLOAT /**/ #if _P9P_OBJTYPE == 386 -# define CASTFLAGS 2 /**/ /* config-skip */ +# define CASTFLAGS 3 /**/ /* config-skip */ #else # define CASTFLAGS 0 /**/ /* config-skip */ #endif @@ -273,7 +273,12 @@ * This symbol, if defined, indicates that the getpgrp routine is * available to get the current process group. */ +/* USE_BSD_GETPGRP: + * This symbol, if defined, indicates that getpgrp needs one + * arguments whereas USG one needs none. + */ #define HAS_GETPGRP /**/ +#undef USE_BSD_GETPGRP /**/ /* HAS_GETPGRP2: * This symbol, if defined, indicates that the getpgrp2() (as in DG/UX) @@ -586,8 +591,14 @@ * group is to be used. For instance, you have to say setpgrp(pid, pgrp) * instead of the USG setpgrp(). */ +/* USE_BSD_SETPGRP: + * This symbol, if defined, indicates that setpgrp needs two + * arguments whereas USG one needs none. See also HAS_SETPGID + * for a POSIX interface. + */ #undef HAS_SETPGRP /**/ #undef USE_BSDPGRP /**/ +#undef USE_BSD_SETPGRP /**/ /* HAS_SETPGRP2: * This symbol, if defined, indicates that the setpgrp2() (as in DG/UX) @@ -1340,7 +1351,11 @@ * This symbol hold the hexadecimal constant defined in byteorder, * i.e. 0x1234 or 0x4321, etc... */ -#define BYTEORDER 0x1234 /* large digits for MSB */ +#if _P9P_OBJTYPE == 386 +# define BYTEORDER 0x1234 /* little-endian */ /* config-skip */ +#else +# define BYTEORDER 0x4321 /* big-endian */ /* config-skip */ +#endif /* CSH: * This symbol, if defined, indicates that the C-shell exists. @@ -1580,6 +1595,12 @@ */ #undef USE_SFIO /**/ +/* HAS_GETPGID: + * This symbol, if defined, indicates to the C program that + * the getpgid(pid) function is available to get the + * process group id. + */ +#undef HAS_GETPGID /**/ /* I_SYS_RESOURCE: * This symbol, if defined, indicates to the C program that it should diff --git a/plan9/exclude b/plan9/exclude index 5b52d96..2b941ff 100644 --- a/plan9/exclude +++ b/plan9/exclude @@ -1,29 +1,16 @@ comp/cpp.t -comp/script.t -io/argv.t io/dup.t io/fs.t -io/inplace.t -io/pipe.t lib/anydbm.t -lib/dirhand.t -lib/filehand.t lib/io_dup.t lib/io_pipe.t lib/io_sock.t -lib/io_tell.t lib/io_udp.t lib/posix.t -lib/safe1.t -lib/safe2.t lib/socket.t -op/eval.t op/exec.t op/goto.t -op/magic.t op/misc.t op/oct.t -op/readdir.t op/split.t op/stat.t -op/tie.t diff --git a/plan9/mkfile b/plan9/mkfile index eeeb045..dc10cf6 100644 --- a/plan9/mkfile +++ b/plan9/mkfile @@ -8,7 +8,7 @@ archlib = /$objtype/lib/perl/$p9pvers sitelib = $privlib/site_perl sitearch = $archlib/site_perl -CFLAGS = -B -D_POSIX_SOURCE -D_BSD_EXTENSION -DNO_EMBED +CFLAGS = -B -D_POSIX_SOURCE -D_BSD_EXTENSION -DNO_EMBED -DMY_UV_MAX=0x7fffffffUL LDFLAGS = -B CCCMD = $CC -c $CFLAGS @@ -39,7 +39,7 @@ testlist = base/*.t comp/*.t cmd/*.t io/*.t op/*.t install:V: perl preplibrary cp perl /$objtype/bin/perl - cp plan9/aperl /rc/bin/aperl + cp plan9/aperl /rc/bin/Perl perl: config.h miniperlmain.$O miniperl $archlib/Config.pm perlmain.$O $perlshr $LD $CFLAGS -o perl perlmain.$O $perllib $perlshr diff --git a/plan9/perlplan9.doc b/plan9/perlplan9.doc index 5fc6e0f..d6d7df8 100644 --- a/plan9/perlplan9.doc +++ b/plan9/perlplan9.doc @@ -1,5 +1,5 @@ - PLAN9/PERLPLAN9(1) (perl 5.003, patch 01) PLAN9/PERLPLAN9(1) + PLAN9/PERLPLAN9(1) (perl 5.003, patch 05) PLAN9/PERLPLAN9(1) NNNNAAAAMMMMEEEE perlplan9 - Plan 9-specific documentation for Perl @@ -22,7 +22,7 @@ should be "#!/bin/perl" if you wish to be able to directly invoke the script by its name. Alternatively, you may invoke perl with the command - "aperl" instead of "perl". This will produce Acme-friendly + "Perl" instead of "perl". This will produce Acme-friendly error messages of the form "filename:18". Some scripts, usually identified with a *.PL extension, are @@ -52,9 +52,9 @@ The functions not currently implemented include: - Page 1 6/Aug/96 (printed 8/6/96) + Page 1 9/Oct/96 (printed 10/9/96) - PLAN9/PERLPLAN9(1) (perl 5.003, patch 01) PLAN9/PERLPLAN9(1) + PLAN9/PERLPLAN9(1) (perl 5.003, patch 05) PLAN9/PERLPLAN9(1) chown, chroot, dbmclose, dbmopen, getsockopt, setsockopt, recvmsg, sendmsg, getnetbyname, @@ -82,10 +82,10 @@ the world . . ." - Carl Sagan RRRReeeevvvviiiissssiiiioooonnnn ddddaaaatttteeee - This document was revised 06-August-1996 for Perl 5.003_2. + This document was revised 09-October-1996 for Perl 5.003_7. AAAAUUUUTTTTHHHHOOOORRRR Luther Huffman, lutherh@stratcom.com - Page 2 6/Aug/96 (printed 8/6/96) + Page 2 9/Oct/96 (printed 10/9/96) diff --git a/plan9/perlplan9.pod b/plan9/perlplan9.pod index f632d45..fb58149 100644 --- a/plan9/perlplan9.pod +++ b/plan9/perlplan9.pod @@ -21,7 +21,7 @@ such as "#!/usr/local/bin/perl". This is known as a shebang the perl interpreter. In Plan 9 Perl this statement should be "#!/bin/perl" if you wish to be able to directly invoke the script by its name. - Alternatively, you may invoke perl with the command "aperl" + Alternatively, you may invoke perl with the command "Perl" instead of "perl". This will produce Acme-friendly error messages of the form "filename:18". @@ -80,7 +80,7 @@ world . . ." - Carl Sagan =head1 Revision date -This document was revised 06-August-1996 for Perl 5.003_2. +This document was revised 09-October-1996 for Perl 5.003_7. =head1 AUTHOR