mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
Remove the port to MiNT. It's a dead platform that hasn't had any love since 5.005
This commit is contained in:
Jesse Vincent
parent
1af1c0d6fc
commit
cd86ed9d43
9
MANIFEST
9
MANIFEST
@ -1661,7 +1661,6 @@ hints/lynxos.sh Hints for named architecture
|
||||
hints/machten_2.sh Hints for named architecture
|
||||
hints/machten.sh Hints for named architecture
|
||||
hints/midnightbsd.sh Hints for named architecture
|
||||
hints/mint.sh Hints for named architecture
|
||||
hints/mips.sh Hints for named architecture
|
||||
hints/mirbsd.sh Hints for named architecture
|
||||
hints/mpc.sh Hints for named architecture
|
||||
@ -3433,13 +3432,6 @@ mg.c Magic code
|
||||
mg.h Magic header
|
||||
minimod.pl Writes lib/ExtUtils/Miniperl.pm
|
||||
miniperlmain.c Basic perl w/o dynamic loading or extensions
|
||||
mint/errno.h MiNT port
|
||||
mint/Makefile MiNT port
|
||||
mint/pwd.c MiNT port
|
||||
mint/README MiNT port
|
||||
mint/stdio.h MiNT port
|
||||
mint/sys/time.h MiNT port
|
||||
mint/time.h MiNT port
|
||||
mkppport A script that distributes ppport.h
|
||||
mkppport.lst List of extensions that need a ppport.h
|
||||
mpeix/mpeix.c MPE/iX port
|
||||
@ -3832,7 +3824,6 @@ README.machten Perl notes for Power MachTen
|
||||
README.macos Perl notes for Mac OS (Classic)
|
||||
README.macosx Perl notes for Mac OS X
|
||||
README.micro Notes about microperl
|
||||
README.mint Perl notes for MiNT
|
||||
README.mpeix Perl notes for MPE/iX
|
||||
README.netware Perl notes for NetWare
|
||||
README.openbsd Perl notes for OpenBSD
|
||||
|
||||
229
README.mint
229
README.mint
@ -1,229 +0,0 @@
|
||||
If you read this file _as_is_, just ignore the funny characters you see.
|
||||
It is written in the POD format (see pod/perlpod.pod) which is specially
|
||||
designed to be readable as is.
|
||||
|
||||
=head1 NAME
|
||||
|
||||
README.mint - Perl version 5 on Atari MiNT
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
There is a binary version of perl available from the FreeMiNT project
|
||||
http://freemint.de/ You may wish to use this instead of trying to
|
||||
compile yourself.
|
||||
|
||||
B<The following advice is from perl 5.004_02 and is probably rather
|
||||
out of date.>
|
||||
|
||||
If you want to build perl yourself on MiNT (or maybe on an Atari without
|
||||
MiNT) you may want to accept some advice from somebody who already did it...
|
||||
|
||||
There was a perl port for Atari ST done by ++jrb bammi@cadence.com.
|
||||
This port tried very hard to build on non-MiNT-systems. For the
|
||||
sake of efficiency I've left this way. Yet, I haven't removed bammi's
|
||||
patches but left them intact. Unfortunately some of the files that
|
||||
bammi contributed to the perl distribution seem to have vanished?
|
||||
|
||||
So, how can you distinguish my patches from bammi's patches? All of
|
||||
bammi's stuff is embedded in "#ifdef atarist" preprocessor macros.
|
||||
My MiNT port uses "#ifdef __MINT__" instead (and unconditionally
|
||||
undefines "atarist". If you want to continue on bammi's port, all
|
||||
you have to do is to swap the "-D" and "-U" switches for "__MINT__"
|
||||
and "atarist" in the variable ccflags.
|
||||
|
||||
However, I think that my version will still run on non-MiNT-systems
|
||||
provided that the user has a Eunuchs-like environment (i.e. the
|
||||
standard envariables like $PATH, $HOME, ... are set, there is a
|
||||
POSIX compliant shell in /bin/sh, and...)
|
||||
|
||||
=head1 Known problems with Perl on MiNT
|
||||
|
||||
The problems you may encounter when building perl on your machine
|
||||
are most probably due to deficiencies in MiNT resp. the Atari
|
||||
platform in general.
|
||||
|
||||
First of all, if you have less than 8 MB of RAM you shouldn't
|
||||
even try to build Perl yourself. Better grab a binary pre-compiled
|
||||
version somewhere. Even if you have more memory you should take
|
||||
some care. Try to run in a fresh environment (without memory
|
||||
fragmented too much) with as few daemons, accessories, xcontrol
|
||||
modules etc. as possible. If you run some AES you should
|
||||
consider to start a console based environment instead.
|
||||
|
||||
A problem has been reported with sed. Sed is used to create
|
||||
some configuration files based on the answers you have given
|
||||
to the Configure script. Unfortunately the Perl Configure script
|
||||
shows sed on MiNT its limits. I have sed 2.05 with a stacksize
|
||||
of 64k and I have encountered no problems. If sed crashes
|
||||
during your configuration process you should first try to
|
||||
augment sed's stacksize:
|
||||
|
||||
fixstk 64k /usr/bin/sed
|
||||
|
||||
(or similar). If it still doesn't help you may have a look
|
||||
which other versions of sed are installed on your system.
|
||||
If you have a KGMD 1.0 installation you will find three
|
||||
in /usr/bin. Have a look there.
|
||||
|
||||
Perl has some "mammut" C files. If gcc reports "internal
|
||||
compiler error: program cc1 got fatal signal 10" this is very
|
||||
likely due to a stack overflow in program cc1. Find cc1
|
||||
and fix its stack. I have made good experiences with
|
||||
|
||||
fixstk 2 cc1
|
||||
|
||||
This doesn't establish a stack of 2 Bytes only as you might
|
||||
think. It really reserves one half of the available memory
|
||||
for cc1's stack. A setting of 1 would reserve the entire
|
||||
memory for cc1, 3 would reserve three fourths. You will have
|
||||
to find out the value that suits to your system yourself.
|
||||
|
||||
To find out the location of the program "cc1" simply type
|
||||
`gcc --print-prog-name cc1' at your shell prompt.
|
||||
|
||||
Now run make (maybe "make -k"). If you get a fatal signal 10
|
||||
increase cc1's stacksize, if you run out of memory you should
|
||||
either decrease the stacksize or follow some more hints:
|
||||
|
||||
Perl's building process is very handy on machines with a lot
|
||||
of virtual memory but may result in a disaster if you are short
|
||||
of memory. If gcc fails to compile many source files you should
|
||||
reduce the optimization. Grep for "optimize" in the file
|
||||
config.sh and change the flags.
|
||||
|
||||
If only several huge files cause problems (actually it is not a
|
||||
matter of the file size resp. the amount of code but depends on
|
||||
the size of the individual functions) it is useful to bypass
|
||||
the make program and compile these files directly from the
|
||||
command line. For example if you got something like the
|
||||
following from make:
|
||||
|
||||
CCCMD = gcc -DPERL_CORE ....
|
||||
...
|
||||
...: virtual memory exhausted
|
||||
|
||||
you should hack into the shell:
|
||||
|
||||
gcc -DPERL_CORE ... toke.c
|
||||
|
||||
Please note that you have to add the name of the source file
|
||||
(here toke.c) at the end.
|
||||
|
||||
If none of this helps, you're helpless. Wait for a binary
|
||||
release. If you have succeeded you may encounter another problem
|
||||
at the linking process. If gcc complains that it can't find
|
||||
some libraries within the perl distribution you probably have
|
||||
an old linker. If it complains for example about "file not
|
||||
found for xxx.olb" you should cd into the directory in
|
||||
question and
|
||||
|
||||
ln -s libxxx.a xxx.olb
|
||||
|
||||
This will fix the problem.
|
||||
|
||||
This version (5.00402) of perl has passed most of the tests on my system:
|
||||
|
||||
Failed Test Status Wstat Total Fail Failed List of failed
|
||||
------------------------------------------------------------------------------
|
||||
io/pipe.t 10 2 20.00% 7, 9
|
||||
io/tell.t 13 1 7.69% 12
|
||||
lib/complex.t 762 13 1.71% 84-85, 248-251, 257, 272-273,
|
||||
371, 380, 419-420
|
||||
lib/io_pipe.t 10 1 10.00% 9
|
||||
lib/io_tell.t 13 1 7.69% 12
|
||||
op/magic.t 30 2 6.67% 29-30
|
||||
Failed 6/152 test scripts, 96.05% okay. 20/4359 subtests failed, 99.54% okay.
|
||||
|
||||
Pipes always cause problems with MiNT, it's actually a surprise that
|
||||
most of the tests did work. I've got no idea why the "tell" test failed,
|
||||
this shouldn't mean too big a problem however.
|
||||
|
||||
Most of the failures of lib/complex seem to be harmless, actually errors
|
||||
far right to the decimal point... Two failures seem to be serious:
|
||||
The sign of the results is reversed. I would say that this is due
|
||||
to minor bugs in the portable math lib that I compiled perl with.
|
||||
|
||||
I haven't bothered very much to find the reason for the failures
|
||||
with op/magic.t and op/stat.t. Maybe you'll find it out.
|
||||
|
||||
##########################################################################
|
||||
|
||||
Another possible problem may arise from the implementation of the "pwd"
|
||||
command. It happened to add a carriage return and newline to its output
|
||||
no matter what the setting of $UNIXMODE is. This is quite annoying since many
|
||||
library modules for perl take the output of pwd, chop off the
|
||||
trailing newline character and then expect to see a valid path in
|
||||
that. But the carriage return (last but second character!) isn't
|
||||
chopped off. You can either try to patch all library modules (at
|
||||
the price of performance for the extra transformation) or you can
|
||||
use my version of pwd that doesn't suffer from this deficiency.
|
||||
|
||||
The fixed implementation is in the mint subdirectory. Running
|
||||
"Configure" will attempt to build and install it if necessary
|
||||
(hints/mint.sh will do this work) but you can build and install it
|
||||
explicitly by:
|
||||
|
||||
cd mint
|
||||
make install
|
||||
|
||||
This is the fastest solution.
|
||||
|
||||
Just in case you want to go the hard way: perl won't even build with a
|
||||
broken pwd! You will have to fix the library modules
|
||||
(ext/POSIX/POSIX.pm, lib/Cwd.pm, lib/pwd.pl) at last after building
|
||||
miniperl.
|
||||
|
||||
A major nuisance of current MiNTLib versions is the implementation
|
||||
of system() which is far from being POSIX compliant. A real system()
|
||||
should fork and then exec /bin/sh with its argument as a command
|
||||
line to the shell. The MiNTLib system() however doesn't expect
|
||||
that every user has a POSIX shell in /bin/sh. It tries to work
|
||||
around the problem by forking and exec'ing the first token in its argument
|
||||
string. To get a little bit of compliance to POSIX system() it
|
||||
tries to handle at least redirection ("<" or ">") on its own
|
||||
behalf.
|
||||
|
||||
This isn't a good idea since many programs expect that they can
|
||||
pass a command line to system() that exploits all features of a
|
||||
POSIX shell. If you use the MiNTLib version of system() with
|
||||
perl the Perl function system() will suffer from the same deficiencies.
|
||||
|
||||
You will find a fixed version of system() in the mint subdirectory.
|
||||
You can easily insert this version into your system libc:
|
||||
|
||||
cd mint
|
||||
make system.o
|
||||
ar r /usr/lib/libc.a
|
||||
ranlib /usr/lib/libc.a
|
||||
|
||||
If you are suspicious you should either back up your libc before
|
||||
or extract the original system.o from your libc with
|
||||
"ar x /usr/lib/libc.a system.o". You can then backup the system.o
|
||||
module somewhere before you succeed.
|
||||
|
||||
Anything missing? Yep, I've almost forgotten...
|
||||
No file in this distribution without a fine saying. Take this one:
|
||||
|
||||
"From a thief you should learn: (1) to work at night;
|
||||
(2) if one cannot gain what one wants in one night to
|
||||
try again the next night; (3) to love one's coworkers
|
||||
just as thieves love each other; (4) to be willing to
|
||||
risk one's life even for a little thing; (5) not to
|
||||
attach too much value to things even though one has
|
||||
risked one's life for them - just as a thief will resell
|
||||
a stolen article for a fraction of its real value;
|
||||
(6) to withstand all kinds of beatings and tortures
|
||||
but to remain what you are; and (7) to believe your
|
||||
work is worthwhile and not be willing to change it."
|
||||
|
||||
-- Rabbi Dov Baer, Maggid of Mezeritch
|
||||
|
||||
OK, this was my motto while working on Perl for MiNT, especially rule (1)...
|
||||
|
||||
Have fun with Perl!
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Guido Flohr
|
||||
|
||||
mailto:guido@FreeMiNT.de
|
||||
@ -1,94 +0,0 @@
|
||||
# hints/mint.sh
|
||||
#
|
||||
# talk to gufl0000@stud.uni-sb.de if you want to change this file.
|
||||
# Please read the README.mint file.
|
||||
#
|
||||
# misc stuff
|
||||
|
||||
case `uname -m` in
|
||||
atarist*) archname="m68000-mint"
|
||||
;;
|
||||
*) archname="m68k-mint"
|
||||
;;
|
||||
esac
|
||||
|
||||
here=`pwd | tr -d '\015'`
|
||||
|
||||
cc='gcc'
|
||||
|
||||
# The weird include path is really to work around some bugs in
|
||||
# broken system header files.
|
||||
ccflags="$ccflags -D__MINT__ -Uatarist -DDEBUGGING -I$here/../mint"
|
||||
|
||||
# libs
|
||||
|
||||
libpth="$prefix/lib /usr/lib /usr/local/lib"
|
||||
glibpth="$libpth"
|
||||
xlibpth="$libpth"
|
||||
|
||||
libswanted='gdbm socket port m'
|
||||
so='none'
|
||||
|
||||
#
|
||||
# compiler & linker flags
|
||||
#
|
||||
optimize='-O2 -fomit-frame-pointer -fno-defer-pop -fstrength-reduce'
|
||||
|
||||
# The setlocale function in the MiNTLib is actually a bad joke. We
|
||||
# lend a workaround from Ultrix. If neither LC_ALL nor LANG is
|
||||
# set in the environment, perl won't complain. If one is set to
|
||||
# anything but "C" you will see a warning. Note that you can
|
||||
# still use the GNU extension "$LANGUAGE" if you want to use
|
||||
# the i18n features of some GNU packages.
|
||||
util_cflags='ccflags="$ccflags -DLOCALE_ENVIRON_REQUIRED"'
|
||||
|
||||
#
|
||||
# Some good answers to the questions in Configure:
|
||||
# Does Configure really get all these wrong?
|
||||
usenm='true'
|
||||
d_suidsafe='true'
|
||||
clocktype='long'
|
||||
usevfork='true'
|
||||
d_fsetpos='fpos_t'
|
||||
gidtype='gid_t'
|
||||
groupstype='gid_t'
|
||||
lseektype='long'
|
||||
modetype='mode_t'
|
||||
sizetype='size_t'
|
||||
timetype='time_t'
|
||||
uidtype='uid_t'
|
||||
|
||||
# Don't remove that leading tab character (Configure Black Magic (TM)).
|
||||
broken_pwd=
|
||||
case "`/bin/pwd|tr -d xy|tr '\015\012' 'xy'`" in
|
||||
*xy) broken_pwd=yes ;;
|
||||
esac
|
||||
|
||||
if test X"$broken_pwd" = Xyes
|
||||
then
|
||||
echo " "
|
||||
echo "*** Building fixed 'pwd'... (as described in README.mint) ***"
|
||||
echo " "
|
||||
cd mint
|
||||
make pwd
|
||||
cd ..
|
||||
if test -x mint/pwd -a -w /usr/bin
|
||||
then
|
||||
echo " "
|
||||
echo "*** Installing fixed 'pwd'... ***"
|
||||
echo " "
|
||||
cd mint
|
||||
make install
|
||||
cd ..
|
||||
if cmp -s mint/pwd /usr/bin/pwd
|
||||
then
|
||||
echo "*** Installed fixed 'pwd' successfully. ***"
|
||||
else
|
||||
echo "*** Failed to install fixed 'pwd'. Aborting. ***"
|
||||
exit 1
|
||||
fi
|
||||
else
|
||||
echo "*** Cannot install fixed 'pwd'. Aborting. ***"
|
||||
exit 1
|
||||
fi
|
||||
fi
|
||||
@ -8186,7 +8186,6 @@ my @pods = qw(
|
||||
machten
|
||||
macos
|
||||
macosx
|
||||
mint
|
||||
modinstall
|
||||
modlib
|
||||
mod
|
||||
|
||||
8
malloc.c
8
malloc.c
@ -264,7 +264,7 @@
|
||||
#define MIN_BUC_POW2 (sizeof(void*) > 4 ? 3 : 2) /* Allow for 4-byte arena. */
|
||||
#define MIN_BUCKET (MIN_BUC_POW2 * BUCKETS_PER_POW2)
|
||||
|
||||
#if !(defined(I286) || defined(atarist) || defined(__MINT__))
|
||||
#if !(defined(I286) || defined(atarist)
|
||||
/* take 2k unless the block is bigger than that */
|
||||
# define LOG_OF_MIN_ARENA 11
|
||||
#else
|
||||
@ -552,7 +552,7 @@
|
||||
#define u_short unsigned short
|
||||
|
||||
/* 286 and atarist like big chunks, which gives too much overhead. */
|
||||
#if (defined(RCHECK) || defined(I286) || defined(atarist) || defined(__MINT__)) && defined(PACK_MALLOC)
|
||||
#if (defined(RCHECK) || defined(I286) || defined(atarist) && defined(PACK_MALLOC)
|
||||
# undef PACK_MALLOC
|
||||
#endif
|
||||
|
||||
@ -1734,7 +1734,7 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket)
|
||||
/* Second, check alignment. */
|
||||
slack = 0;
|
||||
|
||||
#if !defined(atarist) && !defined(__MINT__) /* on the atari we dont have to worry about this */
|
||||
#if !defined(atarist) /* on the atari we dont have to worry about this */
|
||||
# ifndef I286 /* The sbrk(0) call on the I286 always returns the next segment */
|
||||
/* WANTED_ALIGNMENT may be more than NEEDED_ALIGNMENT, but this may
|
||||
improve performance of memory access. */
|
||||
@ -1743,7 +1743,7 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket)
|
||||
add += slack;
|
||||
}
|
||||
# endif
|
||||
#endif /* !atarist && !MINT */
|
||||
#endif /* !atarist */
|
||||
|
||||
if (add) {
|
||||
DEBUG_m(PerlIO_printf(Perl_debug_log,
|
||||
|
||||
@ -42,7 +42,7 @@
|
||||
static void xs_init (pTHX);
|
||||
static PerlInterpreter *my_perl;
|
||||
|
||||
#if defined (__MINT__) || defined (atarist)
|
||||
#if defined (atarist)
|
||||
/* The Atari operating system doesn't have a dynamic stack. The
|
||||
stack size is determined from this value. */
|
||||
long _stksize = 64 * 1024;
|
||||
|
||||
@ -1,15 +0,0 @@
|
||||
# IMPORTANT: This Makefile is not intended to build Perl itself but
|
||||
# only to replace a broken pwd command!
|
||||
|
||||
all: pwd
|
||||
|
||||
pwd: pwd.c
|
||||
$(CC) -O3 -o pwd pwd.c
|
||||
|
||||
install: pwd
|
||||
(new_pwd=`which pwd` && cp -f $$new_pwd $$new_pwd.broken \
|
||||
&& cp -f pwd $$new_pwd)
|
||||
|
||||
clean:
|
||||
rm -f pwd.o pwd
|
||||
|
||||
14
mint/README
14
mint/README
@ -1,14 +0,0 @@
|
||||
This subdirectory contains some additional files which are necessary
|
||||
(or at least useful) when compiling Perl on MiNT.
|
||||
|
||||
"Makefile" and "pwd.c" will build and install a fixed version of the
|
||||
pwd command if your system pwd is broken.
|
||||
|
||||
The header files are wrappers around broken system header files. Make
|
||||
sure that this directory stands at first place in your include path
|
||||
when compiling Perl.
|
||||
|
||||
The file system.c is an enhanced version of the system() function
|
||||
in the MiNTLib. It is strongly recommended that you insert this
|
||||
version into your libc before you compile Perl (see README.mint
|
||||
in the toplevel directory for details).
|
||||
32
mint/errno.h
32
mint/errno.h
@ -1,32 +0,0 @@
|
||||
/* Wrapper around broken system errno.h. */
|
||||
|
||||
#ifndef _PERL_WRAPPER_AROUND_ERRNO_H
|
||||
# define _PERL_WRAPPER_AROUND_ERRNO_H 1
|
||||
|
||||
/* First include the system file. */
|
||||
#include_next <errno.h>
|
||||
|
||||
/* Now add the missing stuff.
|
||||
#ifndef EAGAIN
|
||||
# define EAGAIN EWOULDBLOCK
|
||||
#endif
|
||||
|
||||
/* This one is problematic. If you open() a directory with the
|
||||
MiNTLib you can't detect from errno if it is really a directory
|
||||
or if the file simply doesn't exist. You'll get ENOENT
|
||||
("file not found") in either case.
|
||||
|
||||
Defining EISDIR as ENOENT is actually a bad idea but works fine
|
||||
in general. In praxi, if code checks for errno == EISDIR it
|
||||
will attempt an opendir() call on the file in question and this
|
||||
call will also file if the file really can't be found. But
|
||||
you may get compile-time errors if the errno checking is embedded
|
||||
in a switch statement ("duplicate case value in switch").
|
||||
|
||||
Anyway, here the define works alright. */
|
||||
#ifndef EISDIR
|
||||
# define EISDIR ENOENT
|
||||
#endif
|
||||
|
||||
#endif
|
||||
|
||||
43
mint/pwd.c
43
mint/pwd.c
@ -1,43 +0,0 @@
|
||||
/* pwd.c - replacement for broken pwd command.
|
||||
* Copyright 1997 Guido Flohr, <gufl0000@stud.uni-sb.de>.
|
||||
* Do with it as you please.
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <limits.h>
|
||||
#include <unistd.h>
|
||||
#include <string.h>
|
||||
#include <errno.h>
|
||||
|
||||
#if defined(__STDC__) || defined(__cplusplus)
|
||||
int main (int argc, char* argv[])
|
||||
#else
|
||||
int main (argc, argv)
|
||||
int argc;
|
||||
char* argv[];
|
||||
#endif
|
||||
{
|
||||
char path_buf[PATH_MAX + 1];
|
||||
|
||||
if (argc > 1) {
|
||||
int i;
|
||||
|
||||
fflush (stdout);
|
||||
fputs (argv[0], stderr);
|
||||
fputs (": ignoring garbage arguments\n", stderr);
|
||||
}
|
||||
|
||||
if (!getcwd (path_buf, PATH_MAX + 1)) {
|
||||
fflush (stdout);
|
||||
/* Save space, memory and the whales, avoid fprintf. */
|
||||
fputs (argv[0], stderr);
|
||||
fputs (": can\'t get current working directory: ", stderr);
|
||||
fputs (strerror (errno), stderr);
|
||||
fputc ('\n', stderr);
|
||||
return 1;
|
||||
}
|
||||
if (puts (path_buf) < 0) {
|
||||
return 1;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
/* End of pwd.c. */
|
||||
21
mint/stdio.h
21
mint/stdio.h
@ -1,21 +0,0 @@
|
||||
/* Wrapper around broken system stdio.h. */
|
||||
|
||||
#ifndef _PERL_WRAPPER_AROUND_STDIO_H
|
||||
# define _PERL_WRAPPER_AROUND_STDIO_H 1
|
||||
|
||||
/* The MiNTLib has a macro called EOS in stdio.h. This conflicts
|
||||
with regnode.h. Who had this glorious idea. */
|
||||
#ifdef EOS
|
||||
# define PERL_EOS EOS
|
||||
#endif
|
||||
|
||||
/* First include the system file. */
|
||||
#include_next <stdio.h>
|
||||
|
||||
#ifdef EOS
|
||||
# undef EOS
|
||||
# define EOS PERL_EOS
|
||||
#endif
|
||||
|
||||
#endif
|
||||
|
||||
@ -1,2 +0,0 @@
|
||||
#include <time.h>
|
||||
|
||||
22
mint/time.h
22
mint/time.h
@ -1,22 +0,0 @@
|
||||
/* Wrapper around broken system time.h. */
|
||||
|
||||
#ifndef _PERL_WRAPPER_AROUND_TIME_H
|
||||
# define _PERL_WRAPPER_AROUND_TIME_H 1
|
||||
|
||||
/* Recent versions of the MiNTLib have a macro HAS_TZNAME in
|
||||
time.h resp. sys/time.h. Wow, I wonder why they didn't
|
||||
define HAVE_CONFIG_H ... */
|
||||
#ifdef HAS_TZNAME
|
||||
# define PERL_HAS_TZNAME HAS_TZNAME
|
||||
#endif
|
||||
|
||||
/* First include the system file. */
|
||||
#include_next <time.h>
|
||||
|
||||
#ifdef HAS_TZNAME
|
||||
# undef HAS_TZNAME
|
||||
# define HAS_TZNAME PERL_HAS_TZNAME
|
||||
#endif
|
||||
|
||||
#endif
|
||||
|
||||
@ -35,7 +35,7 @@ ULONG PERLEXPORTALL(PCSZ name, LONG rargc, const RXSTRING *rargv, PCSZ queuename
|
||||
ULONG PERLDROPALL(PCSZ name, LONG rargc, const RXSTRING *rargv, PCSZ queuename, PRXSTRING retstr);
|
||||
ULONG PERLDROPALLEXIT(PCSZ name, LONG rargc, const RXSTRING *rargv, PCSZ queuename, PRXSTRING retstr);
|
||||
|
||||
#if defined (__MINT__) || defined (atarist)
|
||||
#if defined (atarist)
|
||||
/* The Atari operating system doesn't have a dynamic stack. The
|
||||
stack size is determined from this value. */
|
||||
long _stksize = 64 * 1024;
|
||||
|
||||
4
perl.c
4
perl.c
@ -3271,10 +3271,6 @@ Perl_moreswitches(pTHX_ const char *s)
|
||||
PerlIO_printf(PerlIO_stdout(),
|
||||
"BS2000 (POSIX) port by Start Amadeus GmbH, 1998-1999\n");
|
||||
#endif
|
||||
#ifdef __MINT__
|
||||
PerlIO_printf(PerlIO_stdout(),
|
||||
"MiNT port by Guido Flohr, 1997-1999\n");
|
||||
#endif
|
||||
#ifdef EPOC
|
||||
PerlIO_printf(PerlIO_stdout(),
|
||||
"EPOC port by Olaf Flebbe, 1999-2002\n");
|
||||
|
||||
2
perlio.c
2
perlio.c
@ -135,7 +135,7 @@ perlsio_binmode(FILE *fp, int iotype, int mode)
|
||||
* This used to be contents of do_binmode in doio.c
|
||||
*/
|
||||
#ifdef DOSISH
|
||||
# if defined(atarist) || defined(__MINT__)
|
||||
# if defined(atarist)
|
||||
PERL_UNUSED_ARG(iotype);
|
||||
if (!fflush(fp)) {
|
||||
if (mode & O_BINARY)
|
||||
|
||||
@ -23,7 +23,7 @@ installman3dir = /sys/man/2
|
||||
podnames = perl perlbook perlboot perlbot perldata perldebtut perldiag perldsc perlform perlfunc perlipc perllexwarn perllol perlmod perlmodlib perlmodinstall perlnewmod perlop perlopentut perlpacktut perlpod perlport perlrequick perlretut perlref perlreftut perlrequick perlrun perlsec perlstyle perlsub perlsyn perltie perltoc perltooc perltoot perltrap perlutil perlunifaq perluniintro perlvar
|
||||
faqpodnames = perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5 perlfaq6 perlfaq7 perlfaq8 perlfaq9
|
||||
advpodnames = perlapi perlapio perlcall perlclib perlcompile perldebguts perldbmfilter perldebug perldelta perldiag perlebcdic perlembed perlfilter perlfork perlguts perlhack perlintern perliol perllocale perlnumber perlobj perlpodspec perlre perlthrtut perltodo perlunicode perlxs perlxs perlxstut
|
||||
archpodnames = perlaix perlamiga perlapollo perlbeos perlbs2000 perlce perlcygwin perldgux perldos perlepoc perlfreebsd perlhpux perlhurd perlirix perlmachten perlmacos perlmint perlmpeix perlnetware perlos2 perlos390 perlos400 perlplan9 perlqnx perlsolaris perltru64 perluts perlvmesa perlvms perlvos perlwin32
|
||||
archpodnames = perlaix perlamiga perlapollo perlbeos perlbs2000 perlce perlcygwin perldgux perldos perlepoc perlfreebsd perlhpux perlhurd perlirix perlmachten perlmacos perlmpeix perlnetware perlos2 perlos390 perlos400 perlplan9 perlqnx perlsolaris perltru64 perluts perlvmesa perlvms perlvos perlwin32
|
||||
histpods = perl5004delta perl5005delta perl561delta perl56delta perl570delta perl571delta perl572delta perl573delta perl58delta perlhist
|
||||
|
||||
libpods = ${podnames:%=pod/%.pod}
|
||||
|
||||
1
pod.lst
1
pod.lst
@ -192,7 +192,6 @@ r perllinux Perl notes for Linux
|
||||
r perlmachten Perl notes for Power MachTen
|
||||
r perlmacos Perl notes for Mac OS (Classic)
|
||||
r perlmacosx Perl notes for Mac OS X
|
||||
r perlmint Perl notes for MiNT
|
||||
r perlmpeix Perl notes for MPE/iX
|
||||
r perlnetware Perl notes for NetWare
|
||||
r perlopenbsd Perl notes for OpenBSD
|
||||
|
||||
1
pod/.gitignore
vendored
1
pod/.gitignore
vendored
@ -21,7 +21,6 @@
|
||||
/perlmachten.pod
|
||||
/perlmacos.pod
|
||||
/perlmacosx.pod
|
||||
/perlmint.pod
|
||||
/perlmodlib.pod
|
||||
/perlmpeix.pod
|
||||
/perlnetware.pod
|
||||
|
||||
@ -205,7 +205,6 @@ For ease of access, the Perl manual has been split up into several sections.
|
||||
perlmachten Perl notes for Power MachTen
|
||||
perlmacos Perl notes for Mac OS (Classic)
|
||||
perlmacosx Perl notes for Mac OS X
|
||||
perlmint Perl notes for MiNT
|
||||
perlmpeix Perl notes for MPE/iX
|
||||
perlnetware Perl notes for NetWare
|
||||
perlopenbsd Perl notes for OpenBSD
|
||||
|
||||
@ -1499,13 +1499,13 @@ in C<$^O> is "riscos" (because we don't like shouting).
|
||||
=head2 Other perls
|
||||
|
||||
Perl has been ported to many platforms that do not fit into any of
|
||||
the categories listed above. Some, such as AmigaOS, Atari MiNT,
|
||||
BeOS, HP MPE/iX, QNX, Plan 9, and VOS, have been well-integrated
|
||||
into the standard Perl source code kit. You may need to see the
|
||||
F<ports/> directory on CPAN for information, and possibly binaries,
|
||||
for the likes of: aos, Atari ST, lynxos, riscos, Novell Netware,
|
||||
Tandem Guardian, I<etc.> (Yes, we know that some of these OSes may
|
||||
fall under the Unix category, but we are not a standards body.)
|
||||
the categories listed above. Some, such as AmigaOS, BeOS, HP MPE/iX,
|
||||
QNX, Plan 9, and VOS, have been well-integrated into the standard
|
||||
Perl source code kit. You may need to see the F<ports/> directory
|
||||
on CPAN for information, and possibly binaries, for the likes of:
|
||||
aos, Atari ST, lynxos, riscos, Novell Netware, Tandem Guardian,
|
||||
I<etc.> (Yes, we know that some of these OSes may fall under the
|
||||
Unix category, but we are not a standards body.)
|
||||
|
||||
Some approximate operating system names and their C<$^O> values
|
||||
in the "OTHER" category include:
|
||||
@ -1526,11 +1526,6 @@ Amiga, F<README.amiga> (installed as L<perlamiga>).
|
||||
|
||||
=item *
|
||||
|
||||
Atari, F<README.mint> and Guido Flohr's web page
|
||||
http://stud.uni-sb.de/~gufl0000/
|
||||
|
||||
=item *
|
||||
|
||||
Be OS, F<README.beos>
|
||||
|
||||
=item *
|
||||
@ -1947,10 +1942,6 @@ open to C<|-> and C<-|> are unsupported. (S<Mac OS>, Win32, S<RISC OS>)
|
||||
Opening a process does not automatically flush output handles on some
|
||||
platforms. (SunOS, Solaris, HP-UX)
|
||||
|
||||
=item pipe
|
||||
|
||||
Very limited functionality. (MiNT)
|
||||
|
||||
=item readlink
|
||||
|
||||
Not implemented. (Win32, VMS, S<RISC OS>)
|
||||
@ -2088,11 +2079,6 @@ the child program uses a compatible version of the emulation library.
|
||||
I<scalar> will call the native command line direct and no such emulation
|
||||
of a child Unix program will exists. Mileage B<will> vary. (S<RISC OS>)
|
||||
|
||||
Far from being POSIX compliant. Because there may be no underlying
|
||||
/bin/sh tries to work around the problem by forking and execing the
|
||||
first token in its argument string. Handles basic redirection
|
||||
("<" or ">") on its own behalf. (MiNT)
|
||||
|
||||
Does not automatically flush output handles on some platforms.
|
||||
(SunOS, Solaris, HP-UX)
|
||||
|
||||
@ -2249,7 +2235,6 @@ of any trouble.
|
||||
Greenhills
|
||||
ISC
|
||||
MachTen 68k
|
||||
MiNT
|
||||
MPC
|
||||
NEWS-OS
|
||||
NextSTEP
|
||||
@ -2292,7 +2277,7 @@ http://www.cpan.org/ports/index.html for binary distributions.
|
||||
L<perlaix>, L<perlamiga>, L<perlapollo>, L<perlbeos>, L<perlbs2000>,
|
||||
L<perlce>, L<perlcygwin>, L<perldgux>, L<perldos>, L<perlepoc>,
|
||||
L<perlebcdic>, L<perlfreebsd>, L<perlhurd>, L<perlhpux>, L<perlirix>,
|
||||
L<perlmachten>, L<perlmacos>, L<perlmacosx>, L<perlmint>, L<perlmpeix>,
|
||||
L<perlmachten>, L<perlmacos>, L<perlmacosx>, L<perlmpeix>,
|
||||
L<perlnetware>, L<perlos2>, L<perlos390>, L<perlos400>,
|
||||
L<perlplan9>, L<perlqnx>, L<perlsolaris>, L<perltru64>,
|
||||
L<perlunicode>, L<perlvmesa>, L<perlvms>, L<perlvos>,
|
||||
|
||||
@ -27,9 +27,8 @@ my $has_link = $Config{d_link};
|
||||
my $accurate_timestamps =
|
||||
!($^O eq 'MSWin32' || $^O eq 'NetWare' ||
|
||||
$^O eq 'dos' || $^O eq 'os2' ||
|
||||
$^O eq 'mint' || $^O eq 'cygwin' ||
|
||||
$^O eq 'amigaos' || $wd =~ m#$Config{afsroot}/# ||
|
||||
$Is_MacOS
|
||||
$^O eq 'cygwin' || $^O eq 'amigaos' ||
|
||||
$wd =~ m#$Config{afsroot}/# || $Is_MacOS
|
||||
);
|
||||
|
||||
if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
|
||||
|
||||
@ -27,7 +27,7 @@ BEGIN {
|
||||
|
||||
use Config;
|
||||
|
||||
my $DOSISH = $^O =~ /^(?:MSWin32|os2|dos|NetWare|mint)$/ ? 1 : 0;
|
||||
my $DOSISH = $^O =~ /^(?:MSWin32|os2|dos|NetWare)$/ ? 1 : 0;
|
||||
$DOSISH = 1 if !$DOSISH and $^O =~ /^uwin/;
|
||||
my $NONSTDIO = exists $ENV{PERLIO} && $ENV{PERLIO} ne 'stdio' ? 1 : 0;
|
||||
my $FASTSTDIO = $Config{d_faststdio} && $Config{usefaststdio} ? 1 : 0;
|
||||
|
||||
@ -11,7 +11,7 @@ print "1..28\n";
|
||||
$TST = 'TST';
|
||||
|
||||
$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or
|
||||
$^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin' or
|
||||
$^O eq 'os2' or $^O eq 'cygwin' or
|
||||
$^O =~ /^uwin/);
|
||||
|
||||
open($TST, 'harness') || (die "Can't open harness");
|
||||
|
||||
@ -430,8 +430,7 @@ SKIP: {
|
||||
# just because Errno possibly failing.
|
||||
test eval('$!{ENOENT}') ||
|
||||
$! == 2 || # File not found
|
||||
($Is_Dos && $! == 22) ||
|
||||
($^O eq 'mint' && $! == 33);
|
||||
($Is_Dos && $! == 22);
|
||||
|
||||
test !eval { open FOO, "> $foo" }, 'open for write';
|
||||
test $@ =~ /^Insecure dependency/, $@;
|
||||
|
||||
2
util.c
2
util.c
@ -3251,7 +3251,7 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch,
|
||||
if (len + 1 + strlen(scriptname) + MAX_EXT_LEN >= sizeof tmpbuf)
|
||||
continue; /* don't search dir with too-long name */
|
||||
if (len
|
||||
# if defined(atarist) || defined(__MINT__) || defined(DOSISH)
|
||||
# if defined(atarist) || defined(DOSISH)
|
||||
&& tmpbuf[len - 1] != '/'
|
||||
&& tmpbuf[len - 1] != '\\'
|
||||
# endif
|
||||
|
||||
@ -417,7 +417,7 @@ pod13 = [.lib.pods]perlfilter.pod [.lib.pods]perlfork.pod [.lib.pods]perlform.po
|
||||
pod14 = [.lib.pods]perlglossary.pod [.lib.pods]perlgpl.pod [.lib.pods]perlguts.pod [.lib.pods]perlhack.pod [.lib.pods]perlhaiku.pod [.lib.pods]perlhist.pod
|
||||
pod15 = [.lib.pods]perlhpux.pod [.lib.pods]perlhurd.pod [.lib.pods]perlintern.pod [.lib.pods]perlintro.pod [.lib.pods]perliol.pod [.lib.pods]perlipc.pod
|
||||
pod16 = [.lib.pods]perlirix.pod [.lib.pods]perljp.pod [.lib.pods]perlko.pod [.lib.pods]perllexwarn.pod [.lib.pods]perllinux.pod [.lib.pods]perllocale.pod
|
||||
pod17 = [.lib.pods]perllol.pod [.lib.pods]perlmachten.pod [.lib.pods]perlmacos.pod [.lib.pods]perlmacosx.pod [.lib.pods]perlmint.pod [.lib.pods]perlmod.pod
|
||||
pod17 = [.lib.pods]perllol.pod [.lib.pods]perlmachten.pod [.lib.pods]perlmacos.pod [.lib.pods]perlmacosx.pod [.lib.pods]perlmod.pod
|
||||
pod18 = [.lib.pods]perlmodinstall.pod [.lib.pods]perlmodlib.pod [.lib.pods]perlmodstyle.pod [.lib.pods]perlmpeix.pod [.lib.pods]perlmroapi.pod
|
||||
pod19 = [.lib.pods]perlnetware.pod [.lib.pods]perlnewmod.pod [.lib.pods]perlnumber.pod [.lib.pods]perlobj.pod [.lib.pods]perlop.pod
|
||||
pod20 = [.lib.pods]perlopenbsd.pod [.lib.pods]perlopentut.pod [.lib.pods]perlos2.pod [.lib.pods]perlos390.pod [.lib.pods]perlos400.pod
|
||||
@ -1138,10 +1138,6 @@ makeppport : $(MINIPERL_EXE) $(ARCHDIR)Config.pm
|
||||
@ If F$Search("[.lib]pods.dir").eqs."" Then Create/Directory [.lib.pods]
|
||||
Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pods]
|
||||
|
||||
[.lib.pods]perlmint.pod : [.pod]perlmint.pod
|
||||
@ If F$Search("[.lib]pods.dir").eqs."" Then Create/Directory [.lib.pods]
|
||||
Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pods]
|
||||
|
||||
[.lib.pods]perlmod.pod : [.pod]perlmod.pod
|
||||
@ If F$Search("[.lib]pods.dir").eqs."" Then Create/Directory [.lib.pods]
|
||||
Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pods]
|
||||
|
||||
@ -1113,7 +1113,6 @@ utils: $(PERLEXE) $(X2P)
|
||||
copy ..\README.machten ..\pod\perlmachten.pod
|
||||
copy ..\README.macos ..\pod\perlmacos.pod
|
||||
copy ..\README.macosx ..\pod\perlmacosx.pod
|
||||
copy ..\README.mint ..\pod\perlmint.pod
|
||||
copy ..\README.mpeix ..\pod\perlmpeix.pod
|
||||
copy ..\README.netware ..\pod\perlnetware.pod
|
||||
copy ..\README.openbsd ..\pod\perlopenbsd.pod
|
||||
@ -1207,7 +1206,7 @@ distclean: realclean
|
||||
perlepoc.pod perlfreebsd.pod perlhaiku.pod perlhpux.pod \
|
||||
perlhurd.pod perlintern.pod perlirix.pod perljp.pod perlko.pod \
|
||||
perllinux.pod perlmachten.pod perlmacos.pod perlmacosx.pod \
|
||||
perlmint.pod perlmodlib.pod perlmpeix.pod perlnetware.pod \
|
||||
perlmodlib.pod perlmpeix.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 \
|
||||
|
||||
@ -1437,7 +1437,6 @@ utils: $(PERLEXE) $(X2P)
|
||||
copy ..\README.machten ..\pod\perlmachten.pod
|
||||
copy ..\README.macos ..\pod\perlmacos.pod
|
||||
copy ..\README.macosx ..\pod\perlmacosx.pod
|
||||
copy ..\README.mint ..\pod\perlmint.pod
|
||||
copy ..\README.mpeix ..\pod\perlmpeix.pod
|
||||
copy ..\README.netware ..\pod\perlnetware.pod
|
||||
copy ..\README.openbsd ..\pod\perlopenbsd.pod
|
||||
@ -1529,7 +1528,7 @@ distclean: realclean
|
||||
perlepoc.pod perlfreebsd.pod perlhaiku.pod perlhpux.pod \
|
||||
perlhurd.pod perlintern.pod perlirix.pod perljp.pod perlko.pod \
|
||||
perllinux.pod perlmachten.pod perlmacos.pod perlmacosx.pod \
|
||||
perlmint.pod perlmodlib.pod perlmpeix.pod perlnetware.pod \
|
||||
perlmodlib.pod perlmpeix.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 \
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user