diff options
author | Nicholas Clark <nick@ccl4.org> | 2013-05-24 12:20:02 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2013-05-27 11:26:18 +0200 |
commit | 8d87852bc15db2551d30680b9ef82903e4c7ca1a (patch) | |
tree | 1657c70fa5c475f4a186716f666d79121212d46a | |
parent | 553215cca7b3b92e1c96ef45917ee18dc7446644 (diff) | |
download | perl-8d87852bc15db2551d30680b9ef82903e4c7ca1a.tar.gz |
Remove DG/UX support.
DG/UX was a Unix sold by Data General. The last release was in April 2001.
It only runs on Data General's own hardware.
-rw-r--r-- | MANIFEST | 2 | ||||
-rw-r--r-- | README.dgux | 117 | ||||
-rw-r--r-- | hints/dgux.sh | 237 | ||||
-rw-r--r-- | perl.c | 14 | ||||
-rw-r--r-- | perl.h | 9 | ||||
-rw-r--r-- | pod/perl.pod | 1 | ||||
-rw-r--r-- | pod/perlport.pod | 3 | ||||
-rw-r--r-- | t/op/stat.t | 11 | ||||
-rw-r--r-- | thread.h | 4 | ||||
-rw-r--r-- | win32/Makefile | 18 | ||||
-rw-r--r-- | win32/makefile.mk | 18 |
11 files changed, 20 insertions, 414 deletions
@@ -3952,7 +3952,6 @@ hints/cygwin.sh Hints for named architecture hints/darwin.sh Hints for named architecture hints/dcosx.sh Hints for named architecture hints/dec_osf.sh Hints for named architecture -hints/dgux.sh Hints for named architecture hints/dos_djgpp.sh Hints for named architecture hints/dragonfly.sh Hints for named architecture hints/dynixptx.sh Hints for named architecture @@ -4702,7 +4701,6 @@ README.bs2000 Perl notes for POSIX-BC BS2000 README.ce Perl notes for WinCE README.cn Perl for Simplified Chinese (in EUC-CN) README.cygwin Perl notes for Cygwin -README.dgux Perl notes for DG/UX README.dos Perl notes for DOS README.freebsd Perl notes for FreeBSD README.haiku Perl notes for Haiku diff --git a/README.dgux b/README.dgux deleted file mode 100644 index fd6eaa3baa..0000000000 --- a/README.dgux +++ /dev/null @@ -1,117 +0,0 @@ -If you read this file _as_is_, just ignore the funny characters you -see. It is written in the POD format (see perlpod manpage) which is -specially designed to be readable as is. - -=head1 NAME - -perldgux - Perl under DG/UX. - -=head1 SYNOPSIS - -One can read this document in the following formats: - - man perldgux - view perl perldgux - explorer perldgux.html - info perldgux - -to list some (not all may be available simultaneously), or it may -be read I<as is>: as F<README.dgux>. - -=cut - -Contents - - perldgux - Perl under DG/UX. - - NAME - SYNOPSIS - DESCRIPTION - BUILD - - Non-threaded Case - - Threaded Case - - Testing - - Installing the built perl - AUTHOR - SEE ALSO - -=head1 DESCRIPTION - -Perl 5.7/8.x for DG/UX ix86 R4.20MU0x - -=head1 BUILDING PERL ON DG/UX - -=head2 Non-threaded Perl on DG/UX - -Just run ./Configure script from the top directory. -Then give "make" to compile. - -=head2 Threaded Perl on DG/UX - -If you are using as compiler GCC-2.95.x rev(DG/UX) -an easy solution for configuring perl in your DG/UX -machine is to run the command: - -./Configure -Dusethreads -Duseithreads -Dusedevel -des - -This will automatically accept all the defaults and -in particular /usr/local/ as installation directory. -Note that GCC-2.95.x rev(DG/UX) knows the switch --pthread which allows it to link correctly DG/UX's --lthread library. - -If you want to change the installation directory or -have a standard DG/UX with C compiler GCC-2.7.2.x -then you have no choice than to do an interactive -build by issuing the command: - -./Configure -Dusethreads -Duseithreads - -In particular with GCC-2.7.2.x accept all the defaults -and *watch* out for the message: - - Any additional ld flags (NOT including libraries)? [ -pthread] - -Instead of -pthread put here -lthread. CGCC-2.7.2.x -that comes with the DG/UX OS does NOT know the -pthread -switch. So your build will fail if you choose the defaults. -After configuration is done correctly give "make" to compile. - -=head2 Testing Perl on DG/UX - -Issuing a "make test" will run all the tests. -If the test lib/ftmp-security gives you as a result -something like - - lib/ftmp-security....File::Temp::_gettemp: - Parent directory (/tmp/) is not safe (sticky bit not set - when world writable?) at lib/ftmp-security.t line 100 - -don't panic and just set the sticky bit in your /tmp -directory by doing the following as root: - -cd / -chmod +t /tmp (=set the sticky bit to /tmp). - -Then rerun the tests. This time all must be OK. - -=head2 Installing the built perl on DG/UX - -Run the command "make install" - -=head1 AUTHOR - -Takis Psarogiannakopoulos -University of Cambridge -Centre for Mathematical Sciences -Department of Pure Mathematics -Wilberforce road -Cambridge CB3 0WB , UK -email <takis@XFree86.Org> - -=head1 SEE ALSO - -perl(1). - -=cut - diff --git a/hints/dgux.sh b/hints/dgux.sh deleted file mode 100644 index bb4955666a..0000000000 --- a/hints/dgux.sh +++ /dev/null @@ -1,237 +0,0 @@ -# This is a hints file for DGUX, which is EMC's Data General's Unix. It -# was originally developed with version 5.4.3.10 of the OS, and then was -# later updated running under version 4.11.2 (running on m88k hardware). -# The gross features should work with versions going back to 2.nil but -# some tweaking will probably be necessary. -# -# DGUX is an SVR4 derivative. It ships with gcc as the standard -# compiler. Since version 3.0 it has shipped with Perl 4.036 -# installed in /usr/bin, which is kind of neat. Be careful when you -# install that you don't overwrite the system version, though (by -# answering yes to the question about installing perl as /usr/bin/perl), -# as it would suck to try to get support if the vendor learned that you -# were physically replacing the system binaries. -# -# -Roderick Schertler <roderick@argon.org> - -# The standard system compiler is gcc, but invoking it as cc changes its -# behavior. I have to pick one name or the other so I can get the -# dynamic loading switches right (they vary depending on this). I'm -# picking gcc because there's no way to get at the optimization options -# and so on when you call it cc. - -########################################## -# Modified by Takis Psarogiannakopoulos -# University of Cambridge -# Centre for Mathematical Sciences -# Department of Pure Mathematics -# Wilberforce road -# Cambridge CB3 0WB , UK -# e-mail <takis@XFree86.Org> -# Use GCC-2.95.2/3 rev (DG/UX) for threads -# This compiler supports the -pthread switch -# to link correctly DG/UX 's -lthread. -# March 2002 -########################################### - -cc=gcc -ccflags="-DDGUX -D_DGUX_SOURCE" -# Debug build. If using GNU as,ld use the flag -gstabs+ -# ccflags="-g -mstandard -DDGUX -D_DGUX_SOURCE -DDEBUGGING" -# Dummy ; always compile with -O2 on GCC 2.95.2/3 rev (DG/UX) -# even if you debugging the program! -optimize="-mno-legend -O2" - -archname="ix86-dgux" -libpth="/usr/lib" - -##################################### -# <takis@XFree86.Org> -# Change this if you want. -# prefix =/usr/local -##################################### - -prefix=/usr/local -perlpath="$prefix/bin/perl519" -startperl="#! $prefix/bin/perl519" -privlib="$prefix/lib/perl519" -man1dir="$prefix/man/man1" -man3dir="$prefix/man/man3" - -sitearch="$prefix/lib/perl519/$archname" -sitelib="$prefix/lib/perl519" - -#Do not overwrite by default /usr/bin/perl of DG/UX -installusrbinperl="$undef" - -# Configure may fail to find lstat() -# function in <sys/stat.h>. -d_lstat='define' - -# Internal (perl) malloc is causing serious problems and -# test failures in DG/UX. Most notable Embed.t -# So for perl-5.7.3 and on do NOT use. -# I have no time to investigate more. -# <takis@XFree86.Org> - -case "$usemymalloc" in -'') usemymalloc='n' ;; -esac - -case "$uselongdouble" in -'') uselongdouble='y' ;; -esac - -#usevfork=true -usevfork=false - -# DG has this thing set up with symlinks which point to different places -# depending on environment variables (see elink(5)) and the compiler and -# related tools use them to access different development environments -# (COFF, ELF, m88k BCS and so on), see sde(5). The upshot, however, is -# that when a normal program tries to access one of these elinks it sees -# no such file (like stat()ting a mis-directed symlink). Setting -# $plibpth to explicitly include the place to which the elinks point -# allows Configure to find libraries which vary based on the development -# environment. -# -# Starting with version 4.10 (the first time the OS supported Intel -# hardware) all libraries are accessed with this mechanism. -# -# The default $TARGET_BINARY_INTERFACE changed with version 4.10. The -# system now comes with a link named /usr/sde/default which points to -# the proper entry, but older versions lacked this and used m88kdgux -# directly. - -: && sde_path=${SDE_PATH:-/usr}/sde # hide from Configure -while : # dummy loop -do - if [ -n "$TARGET_BINARY_INTERFACE" ] - then set X "$TARGET_BINARY_INTERFACE" - else set X default dg m88k_dg ix86_dg m88kdgux m88kdguxelf - fi - shift - default_sde=$1 - for sde - do - [ -d "$sde_path/$sde" ] && break 2 - done - cat <<END >&2 - -NOTE: I can't figure out what SDE is used by default on this machine (I -didn't find a likely directory under $sde_path). This is bad news. If -this is a R4.10 or newer system I'm not going to be able to find any of -your libraries, if this system is R3.10 or older I won't be able to find -the math library. You should re-run Configure with the environment -variable TARGET_BINARY_INTERFACE set to the proper value for this -machine, see sde(5) and the notes in hints/dgux.sh. - -END - sde=$default_sde - break -done - -plibpth="$plibpth $sde_path/$sde/usr/lib" -unset sde_path default_sde sde - -##################################### -# <takis@XFree86.Org> -##################################### - -libperl="libperl519.so" - -# Many functions (eg, gethostent(), killpg(), getpriority(), setruid() -# dbm_*(), and plenty more) are defined in -ldgc. Usually you don't -# need to know this (it seems that libdgc.so is searched automatically -# by ld), but Configure needs to check it otherwise it will report all -# those functions as missing. - -##################################### -# <takis@XFree86.Org> -##################################### - -# libswanted="dgc gdbm $libswanted" -#libswanted="dbm posix $libswanted" -# Do *NOT* add there the malloc native -# DG/UX library! -libswanted="dbm posix resolv socket nsl dl m" - -##################################### -# <takis@XFree86.Org> -##################################### - -mydomain='.localhost' -cf_by=`(whoami) 2>/dev/null` -cf_email="$cf_by@localhost" - -# Dynamic loading works using the dlopen() functions. Note that dlfcn.h -# used to be broken, it declared _dl*() rather than dl*(). This was the -# case up to 3.10, it has been fixed in 4.11. I'm not sure if it was -# fixed in 4.10. If you have the older header just ignore the warnings -# (since pointers and integers have the same format on m88k). - -# usedl=true -usedl=false - -# For cc rather than gcc the flags would be `-K PIC' for compiling and -# -G for loading. I haven't tested this. - -##################################### -# <takis@XFree86.Org> -# Use -fPIC instead -fpic -##################################### - -cccdlflags=-fPIC -#We must use gcc -ld="gcc" -lddlflags="-shared" - -############################################################################ -# DGUX Posix 4A Draft 10 Thread support -# <takis@XFree86.Org> -# use Configure -Dusethreads to enable -############################################################################ - -cat > UU/usethreads.cbu <<'EOCBU' -case "$usethreads" in -$define|true|[yY]*) - ccflags="$ccflags" - # DG/UX has this for sure! Main Configure fails to - # detect it but it is needed! - d_pthread_atfork='define' - shift - # DG/UX's sched_yield is in -lrte - # Do *NOT* add there the malloc native - # DG/UX library! - libswanted="dbm posix resolv socket nsl dl m rte" - archname="ix86-dgux-thread" - sitearch="$prefix/lib/perl519/$archname" - sitelib="$prefix/lib/perl519" - case "$cc" in - *gcc*) - #### Use GCC -2.95.2/3 rev (DG/UX) and -pthread - #### Otherwise take out the switch -pthread - #### And add manually the -D_POSIX4A_DRAFT10_SOURCE flag. - ld="gcc" - ccflags="$ccflags -D_POSIX4A_DRAFT10_SOURCE" - # Debug build : use -DS flag on command line perl - # ccflags="$ccflags -g -mstandard -DDEBUGGING -D_POSIX4A_DRAFT10_SOURCE -pthread" - cccdlflags='-fPIC' - lddlflags="-shared" - #### Use GCC -2.95.2/3 rev (DG/UX) and -pthread - #### Otherwise take out the switch -pthread - #### And add manually the -lthread library. - ldflags="$ldflags -pthread" - ;; - - *) - echo "Not supported DG/UX cc and threads !" - ;; - esac -esac -EOCBU - -# "./Configure -d" can't figure this out easily -d_suidsafe='define' - -################################################### @@ -3464,7 +3464,6 @@ S_minus_v(pTHX) PerlIO * PIO_stdout; if (!sv_derived_from(PL_patchlevel, "version")) upg_version(PL_patchlevel, TRUE); -#if !defined(DGUX) { SV* level= vstringify(PL_patchlevel); #ifdef PERL_PATCHNUM @@ -3496,19 +3495,6 @@ S_minus_v(pTHX) ); SvREFCNT_dec(level); } -#else /* DGUX */ - PIO_stdout = PerlIO_stdout(); -/* Adjust verbose output as in the perl that ships with the DG/UX OS from EMC */ - PerlIO_printf(PIO_stdout, - Perl_form(aTHX_ "\nThis is perl, %"SVf"\n", - SVfARG(vstringify(PL_patchlevel)))); - PerlIO_printf(PIO_stdout, - Perl_form(aTHX_ " built under %s at %s %s\n", - OSNAME, __DATE__, __TIME__)); - PerlIO_printf(PIO_stdout, - Perl_form(aTHX_ " OS Specific Release: %s\n", - OSVERS)); -#endif /* !DGUX */ #if defined(LOCAL_PATCH_COUNT) if (LOCAL_PATCH_COUNT > 0) PerlIO_printf(PIO_stdout, @@ -22,10 +22,6 @@ #define USE_STDIO #endif /* PERL_FOR_X2P */ -#if defined(DGUX) -#include <sys/fcntl.h> -#endif - #ifdef VOIDUSED # undef VOIDUSED #endif @@ -520,7 +516,7 @@ struct op *Perl_op asm(stringify(OP_IN_REGISTER)); # define STANDARD_C 1 #endif -#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__DGUX) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO) +#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO) # define DONT_DECLARE_STD 1 #endif @@ -4063,8 +4059,7 @@ EXT char *** environ_pointer; # ifdef USE_ENVIRON_ARRAY # if !defined(DONT_DECLARE_STD) || \ (defined(__svr4__) && defined(__GNUC__) && defined(sun)) || \ - defined(__sgi) || \ - defined(__DGUX) + defined(__sgi) extern char ** environ; /* environment variables supplied via exec */ # endif # endif diff --git a/pod/perl.pod b/pod/perl.pod index 7f4245d06c..e1009ed7ca 100644 --- a/pod/perl.pod +++ b/pod/perl.pod @@ -234,7 +234,6 @@ aux a2p c2ph h2ph h2xs perlbug pl2pm pod2html pod2man s2p splain xsubpp perlbs2000 Perl notes for POSIX-BC BS2000 perlce Perl notes for WinCE perlcygwin Perl notes for Cygwin - perldgux Perl notes for DG/UX perldos Perl notes for DOS perlfreebsd Perl notes for FreeBSD perlhaiku Perl notes for Haiku diff --git a/pod/perlport.pod b/pod/perlport.pod index cdde52db3c..d186d1272d 100644 --- a/pod/perlport.pod +++ b/pod/perlport.pod @@ -804,7 +804,6 @@ are a few of the more popular Unix flavors: AIX aix aix BSD/OS bsdos i386-bsdos Darwin darwin darwin - dgux dgux AViiON-dgux DYNIX/ptx dynixptx i386-dynixptx FreeBSD freebsd freebsd-i386 Haiku haiku BePC-haiku @@ -2309,7 +2308,7 @@ L<http://www.cpan.org/ports/index.html> for binary distributions. =head1 SEE ALSO L<perlaix>, L<perlamiga>, L<perlbs2000>, -L<perlce>, L<perlcygwin>, L<perldgux>, L<perldos>, +L<perlce>, L<perlcygwin>, L<perldos>, L<perlebcdic>, L<perlfreebsd>, L<perlhurd>, L<perlhpux>, L<perlirix>, L<perlmacos>, L<perlmacosx>, L<perlnetware>, L<perlos2>, L<perlos390>, L<perlos400>, diff --git a/t/op/stat.t b/t/op/stat.t index c5c74ca26c..2ff4cdf86d 100644 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -36,7 +36,6 @@ $Is_NetWare = $^O eq 'NetWare'; $Is_OS2 = $^O eq 'os2'; $Is_Solaris = $^O eq 'solaris'; $Is_VMS = $^O eq 'VMS'; -$Is_DGUX = $^O eq 'dgux'; $Is_MPRAS = $^O =~ /svr4/ && -f '/etc/.relid'; $Is_Dosish = $Is_Dos || $Is_OS2 || $Is_MSWin32 || $Is_NetWare; @@ -294,13 +293,10 @@ SKIP: { is($c1, $c2, "ls and $_[1] agreeing on /dev ($c1 $c2)"); }; -SKIP: { - skip("DG/UX ls -L broken", 3) if $Is_DGUX; - +{ $try->('b', '-b'); $try->('c', '-c'); $try->('s', '-S'); - } ok(! -b $Curdir, '!-b cwd'); @@ -377,12 +373,7 @@ SKIP: { my $statfile = './op/stat.t'; ok( -T $statfile, '-T'); ok(! -B $statfile, '!-B'); - -SKIP: { - skip("DG/UX", 1) if $Is_DGUX; ok(-B $Perl, '-B'); -} - ok(! -T $Perl, '!-T'); open(FOO,$statfile); @@ -91,10 +91,6 @@ # endif #endif -#ifdef DGUX -# define THREAD_CREATE_NEEDS_STACK (32*1024) -#endif - #ifdef __VMS /* Default is 1024 on VAX, 8192 otherwise */ # ifdef __ia64 diff --git a/win32/Makefile b/win32/Makefile index 79287a851b..4f8898a11b 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -1129,7 +1129,6 @@ utils: $(PERLEXE) $(X2P) copy ..\README.ce ..\pod\perlce.pod copy ..\README.cn ..\pod\perlcn.pod copy ..\README.cygwin ..\pod\perlcygwin.pod - copy ..\README.dgux ..\pod\perldgux.pod copy ..\README.dos ..\pod\perldos.pod copy ..\README.freebsd ..\pod\perlfreebsd.pod copy ..\README.haiku ..\pod\perlhaiku.pod @@ -1248,15 +1247,14 @@ distclean: realclean -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -cd $(PODDIR) && del /f *.html *.bat roffitall \ perl5191delta.pod perlaix.pod perlamiga.pod perlapi.pod \ - perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod \ - perldgux.pod perldos.pod perlfreebsd.pod perlhaiku.pod \ - perlhpux.pod perlhurd.pod perlintern.pod perlirix.pod \ - perljp.pod perlko.pod perllinux.pod perlmacos.pod \ - perlmacosx.pod perlmodlib.pod perlnetware.pod perlopenbsd.pod \ - perlos2.pod perlos390.pod perlos400.pod perlplan9.pod \ - perlqnx.pod perlriscos.pod perlsolaris.pod perlsymbian.pod \ - perltoc.pod perltru64.pod perltw.pod perluniprops.pod \ - perlvos.pod perlwin32.pod + perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod perldos.pod \ + perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ + perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \ + perlmacos.pod perlmacosx.pod perlmodlib.pod perlnetware.pod \ + perlopenbsd.pod perlos2.pod perlos390.pod perlos400.pod \ + perlplan9.pod perlqnx.pod perlriscos.pod perlsolaris.pod \ + perlsymbian.pod perltoc.pod perltru64.pod perltw.pod \ + perluniprops.pod perlvos.pod perlwin32.pod -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \ perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \ xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep shasum corelist config_data zipdetails diff --git a/win32/makefile.mk b/win32/makefile.mk index 6752a110ea..edaf6ccbdc 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -1309,7 +1309,6 @@ utils: $(PERLEXE) $(X2P) copy ..\README.ce ..\pod\perlce.pod copy ..\README.cn ..\pod\perlcn.pod copy ..\README.cygwin ..\pod\perlcygwin.pod - copy ..\README.dgux ..\pod\perldgux.pod copy ..\README.dos ..\pod\perldos.pod copy ..\README.freebsd ..\pod\perlfreebsd.pod copy ..\README.haiku ..\pod\perlhaiku.pod @@ -1427,15 +1426,14 @@ distclean: realclean -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -cd $(PODDIR) && del /f *.html *.bat roffitall \ perl5191delta.pod perlaix.pod perlamiga.pod perlapi.pod \ - perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod \ - perldgux.pod perldos.pod perlfreebsd.pod perlhaiku.pod \ - perlhpux.pod perlhurd.pod perlintern.pod perlirix.pod \ - perljp.pod perlko.pod perllinux.pod perlmacos.pod \ - perlmacosx.pod perlmodlib.pod perlnetware.pod perlopenbsd.pod \ - perlos2.pod perlos390.pod perlos400.pod perlplan9.pod \ - perlqnx.pod perlriscos.pod perlsolaris.pod perlsymbian.pod \ - perltoc.pod perltru64.pod perltw.pod perluniprops.pod \ - perlvos.pod perlwin32.pod + perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod perldos.pod \ + perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ + perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \ + perlmacos.pod perlmacosx.pod perlmodlib.pod perlnetware.pod \ + perlopenbsd.pod perlos2.pod perlos390.pod perlos400.pod \ + perlplan9.pod perlqnx.pod perlriscos.pod perlsolaris.pod \ + perlsymbian.pod perltoc.pod perltru64.pod perltw.pod \ + perluniprops.pod perlvos.pod perlwin32.pod -cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \ perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \ xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep shasum corelist config_data zipdetails |