In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/739a0b843246478d33d6b9205abb19e5492a5807?hp=a2b3762a2993f9d1f92ffee8ac3a80b128381168>
- Log -----------------------------------------------------------------
commit 739a0b843246478d33d6b9205abb19e5492a5807
Author: Nicholas Clark <n...@ccl4.org>
Date: Sat Nov 17 15:09:45 2012 +0100
Remove the EPOC port.
EPOC was a family of operating systems developed by Psion for mobile
devices. It was the predecessor of Symbian.
The port was last updated in April 2002.
-----------------------------------------------------------------------
Summary of changes:
INSTALL | 6 +-
MANIFEST | 8 -
Porting/checkcfgvar.pl | 1 -
Porting/perlhist_calculate.pl | 2 +-
README.epoc | 154 ------
doio.c | 2 +-
epoc/config.sh | 1061 -----------------------------------------
epoc/createpkg.pl | 41 --
epoc/epoc.c | 125 -----
epoc/epoc_stubs.c | 18 -
epoc/epocish.c | 41 --
epoc/epocish.h | 158 ------
epoc/link.pl | 25 -
ext/Errno/Errno_pm.PL | 5 +-
ext/Sys-Hostname/Hostname.pm | 6 +-
lib/File/Find.pm | 5 +-
lib/perl5db.pl | 8 +-
perl.c | 8 +-
perl.h | 17 +-
plan9/mkfile | 2 +-
pod/perl.pod | 1 -
pod/perldelta.pod | 8 +-
pod/perlport.pod | 2 +-
pp_sys.c | 12 -
t/io/fs.t | 2 +-
t/io/inplace.t | 4 +-
t/op/local.t | 2 +-
t/op/magic.t | 2 +-
util.c | 27 +-
util.h | 4 +-
win32/Makefile | 17 +-
win32/makefile.mk | 17 +-
32 files changed, 51 insertions(+), 1740 deletions(-)
delete mode 100644 README.epoc
delete mode 100644 epoc/config.sh
delete mode 100644 epoc/createpkg.pl
delete mode 100644 epoc/epoc.c
delete mode 100644 epoc/epoc_stubs.c
delete mode 100644 epoc/epocish.c
delete mode 100644 epoc/epocish.h
delete mode 100644 epoc/link.pl
diff --git a/INSTALL b/INSTALL
index 3ca5029..2a87f19 100644
--- a/INSTALL
+++ b/INSTALL
@@ -1716,7 +1716,7 @@ to avoid the BIND.
Perl can be cross-compiled. It is just not trivial, cross-compilation
rarely is. Perl is routinely cross-compiled for many platforms (as of
-June 2005 at least PocketPC aka WinCE, Open Zaurus, EPOC, Symbian, and
+June 2005 at least PocketPC aka WinCE, Open Zaurus, Symbian, and
the IBM OS/400). These platforms are known as the B<target> platforms,
while the systems where the compilation takes place are the B<host>
platforms.
@@ -1742,10 +1742,6 @@ README.ce
Cross/README
-=item EPOC
-
-README.epoc
-
=item Symbian
README.symbian
diff --git a/MANIFEST b/MANIFEST
index 17224f5..9e64401 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3636,13 +3636,6 @@ dump.c Debugging output
embed.fnc Database used by embed.pl
embed.h Maps symbols to safer names
embedvar.h C namespace management
-epoc/config.sh EPOC port config.sh template
-epoc/createpkg.pl EPOC port generate PKG file
-epoc/epoc.c EPOC port
-epoc/epocish.c EPOC port
-epoc/epocish.h EPOC port
-epoc/epoc_stubs.c EPOC port
-epoc/link.pl EPOC port link a exe
ext/arybase/arybase.pm For $[
ext/arybase/arybase.xs For $[
ext/arybase/ptable.h For $[
@@ -4882,7 +4875,6 @@ 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.epoc Perl notes for EPOC
README.freebsd Perl notes for FreeBSD
README.haiku Perl notes for Haiku
README.hpux Perl notes for HP-UX
diff --git a/Porting/checkcfgvar.pl b/Porting/checkcfgvar.pl
index 26709a4..3ebde3a 100755
--- a/Porting/checkcfgvar.pl
+++ b/Porting/checkcfgvar.pl
@@ -46,7 +46,6 @@ my @CFG = (
# We can't base our check on $], because that's the version of the
# perl that we are running, not the version of the source tree.
"Cross/config.sh-arm-linux",
- "epoc/config.sh",
"NetWare/config.wc",
"symbian/config.sh",
"uconfig.sh",
diff --git a/Porting/perlhist_calculate.pl b/Porting/perlhist_calculate.pl
index 47a0d4d..34841b9 100755
--- a/Porting/perlhist_calculate.pl
+++ b/Porting/perlhist_calculate.pl
@@ -147,7 +147,7 @@ sub calc_longtable {
emit Configure => $configure_size, 1;
- foreach my $dir (qw(Cross djgpp emacs epoc h2pl hints mad NetWare os2
plan9 Porting qnx symbian utils vms vos win32 x2p)) {
+ foreach my $dir (qw(Cross djgpp emacs h2pl hints mad NetWare os2 plan9
Porting qnx symbian utils vms vos win32 x2p)) {
calc_dir($dir);
}
}
diff --git a/README.epoc b/README.epoc
deleted file mode 100644
index f577350..0000000
--- a/README.epoc
+++ /dev/null
@@ -1,154 +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
-
-perlepoc - Perl for EPOC
-
-=head1 SYNOPSIS
-
-Perl 5 README file for the EPOC Release 5 operating system.
-
-=head1 INTRODUCTION
-
-EPOC is an OS for palmtops and mobile phones. For more information look
-at: L<http://www.symbian.com/>
-
-This is a port of perl to the epocemx SDK by Eberhard Mattes, which
-itself uses the SDK by symbian. Essentially epocemx it is a POSIX
-look alike environment for the EPOC OS. For more information look at:
-L<http://epocemx.sourceforge.net/>
-
-perl and epocemx runs on Epoc Release 5 machines: Psion 5mx, 5mx Pro,
-Psion Revo, Psion Netbook and on the Ericsson M128. It may run on Epoc
-Release 3 Hardware (Series 5 classic), too. For more information about
-this hardware please refer to L<http://www.psion.com/>
-
-Vendors which like to have support for their devices are free to send
-me a sample.
-
-=head1 INSTALLING PERL ON EPOC
-
-You can download a ready-to-install version from
-L<http://www.oflebbe.de/perl/perl5.html>
-
-You will need at least ~6MB free space in order to install and run perl.
-
-Please install the emxusr.sis package from
-L<http://epocemx.sourceforge.net/> first.
-
-Install perl.sis on the EPOC machine. If you do not know how to do
-that, consult your PsiWin documentation.
-
-Perl itself and its standard library is using 4 MB disk space.
-Unicode support and some other modules are left out. (For details,
-please look into epoc/createpkg.pl). If you like to use these modules,
-you are free to copy them from a current perl release.
-
-=head1 STARTING PERL ON EPOC
-
-Please use the epocemx shell to start perl. perl integrates with the
-conventions of epocemx.
-
-=head2 Features of Perl on Epoc
-
-The built-in function EPOC::getcwd returns the current directory.
-
-=head2 Restrictions of Perl on Epoc
-
-Features are left out, because of restrictions of the POSIX support in
-EPOC:
-
-=over 4
-
-=item *
-
-socket IO is only implemented poorly. You can only use sysread and
-syswrite on them. The commands read, write, print, <> do not work for
-sockets. This may change iff epocemx supports sockets.
-
-=item *
-
-kill, alarm and signals. Do not try to use them. This may be
-impossible to implement on EPOC.
-
-=item *
-
-select is missing.
-
-=item *
-
-binmode does not exist. (No CR LF to LF translation for text files)
-
-=item *
-
-EPOC does not handle the notion of current drive and current
-directory very well (i.e. not at all, but it tries hard to emulate
-one). See PATH.
-
-=item *
-
-Heap is limited to 4MB.
-
-=item *
-
-Dynamic loading is not implemented.
-
-=back
-
-=head2 Compiling Perl 5 on the EPOC cross compiling environment
-
-Sorry, this is far too short.
-
-=over 4
-
-=item *
-
-You will need the epocemx SDK from Eberhard Mattes.
-
-=item *
-
-Get the Perl sources from your nearest CPAN site.
-
-=item *
-
-Unpack the sources.
-
-=item *
-
-Build a native perl from this sources... Make sure to save the
-miniperl executable as miniperl.native.
-
-Start again from scratch
-
- cp epoc/* .
- ./Configure -S
- make
- cp miniperl.native miniperl
- touch miniperl.exe
- make
- perl createpkg.pl
-
- emxsis perl.pkg perl.sis
-
-=back
-
-=head1 SUPPORT STATUS OF PERL ON EPOC
-
-I'm offering this port "as is". You can ask me questions, but I can't
-guarantee I'll be able to answer them. Since the port to epocemx is
-quite new, please check the web for updates first.
-
-Very special thanks to Eberhard Mattes for epocemx.
-
-=head1 AUTHOR
-
-Olaf Flebbe <o...@oflebbe.de>
-L<http://www.oflebbe.de/perl/perl5.html>
-
-=head1 LAST UPDATE
-
-2003-01-18
-
-=cut
diff --git a/doio.c b/doio.c
index eedd374..92ed3ef 100644
--- a/doio.c
+++ b/doio.c
@@ -806,7 +806,7 @@ Perl_nextargv(pTHX_ register GV *gv)
}
#endif
#ifdef HAS_RENAME
-#if !defined(DOSISH) && !defined(__CYGWIN__) && !defined(EPOC)
+#if !defined(DOSISH) && !defined(__CYGWIN__)
if (PerlLIO_rename(PL_oldname,SvPVX_const(sv)) < 0) {
Perl_ck_warner_d(aTHX_ packWARN(WARN_INPLACE),
"Can't rename %s to %"SVf": %s,
skipping file",
diff --git a/epoc/config.sh b/epoc/config.sh
deleted file mode 100644
index 2b6c8e4..0000000
--- a/epoc/config.sh
+++ /dev/null
@@ -1,1061 +0,0 @@
-#!/bin/sh
-#
-# This file is manually maintained.
-#
-# It is NOT produced by running the Configure script.
-#
-
-# Package name : perl5
-# Source directory : .
-# Configuration time:
-# Configured by : Olaf Flebbe
-# Target system : EPOC
-
-Author=''
-Date='$Date'
-Header=''
-Id='$Id'
-Locker=''
-Log='$Log'
-RCSfile='$RCSfile'
-Revision='$Revision'
-Source=''
-State=''
-_a='.a'
-_exe='.exe'
-_o='.o'
-afs='false'
-afsroot='/afs'
-alignbytes='8'
-ansi2knr=''
-aphostname=''
-apirevision=''
-apisubversion=''
-apiversion=''
-ar='arm-epoc-pe-ar'
-archlib='/usr/lib/perl/5.17.6/epoc'
-archlibexp='/usr/lib/perl/5.17.6/epoc'
-archname64=''
-archname='epoc'
-archobjs='epoc.o epocish.o epoc_stubs.o'
-asctime_r_proto='0'
-awk='awk'
-baserev='5.0'
-bash=''
-bin=''
-binexp=''
-bison='bison'
-byacc=''
-byteorder='1234'
-c=''
-castflags='0'
-cat='cat'
-cc='arm-epoc-pe-gcc -DEPOC'
-cccdlflags=''
-ccdlflags=''
-ccflags=''
-ccsymbols=''
-cf_by='olaf'
-cf_email='o.fle...@gmx.de'
-cf_time='Dec 2001'
-charbits='8'
-chgrp=''
-chmod=''
-chown=''
-clocktype=''
-comm=''
-compress=''
-contains='grep'
-cp='cp'
-cpio=''
-cpp='arm-epoc-pe-cpp'
-cpp_stuff='42'
-cppccsymbols='EPOC=1'
-cppflags=''
-cpplast='-'
-cppminus='-'
-cpprun='arm-epoc-pe-gcc -E'
-cppstdin='arm-epoc-pe-gcc -E'
-cppsymbols=''
-crypt_r_proto='0'
-cryptlib=''
-csh='csh'
-ctermid_r_proto='0'
-ctime_r_proto='0'
-d_Gconvert='epoc_gcvt((x),(n),(b))'
-d_PRIEUldbl='undef'
-d_PRIFUldbl='undef'
-d_PRIGUldbl='undef'
-d_PRIXU64='undef'
-d_PRId64='undef'
-d_PRIeldbl='undef'
-d_PRIfldbl='define'
-d_PRIgldbl='define'
-d_PRIi64='undef'
-d_PRIo64='undef'
-d_PRIu64='undef'
-d_PRIx64='undef'
-d_SCNfldbl='undef'
-d__fwalk='undef'
-d_access='undef'
-d_accessx='undef'
-d_aintl='undef'
-d_alarm='undef'
-d_archlib='define'
-d_asctime64='undef'
-d_asctime_r='undef'
-d_atolf='undef'
-d_atoll='undef'
-d_attribute_deprecated='undef'
-d_attribute_format='undef'
-d_attribute_malloc='undef'
-d_attribute_nonnull='undef'
-d_attribute_noreturn='undef'
-d_attribute_pure='undef'
-d_attribute_unused='undef'
-d_attribute_warn_unused_result='undef'
-d_bcmp='define'
-d_bcopy='define'
-d_bsd='undef'
-d_bsdgetpgrp='undef'
-d_bsdsetpgrp='undef'
-d_builtin_choose_expr='undef'
-d_builtin_expect='undef'
-d_bzero='define'
-d_c99_variadic_macros='undef'
-d_casti32='undef'
-d_castneg='undef'
-d_charvspr='undef'
-d_chown='undef'
-d_chroot='undef'
-d_chsize='undef'
-d_class='undef'
-d_clearenv='define'
-d_closedir='undef'
-d_cmsghdr_s='undef'
-d_const='define'
-d_copysignl='undef'
-d_cplusplus='undef'
-d_crypt='undef'
-d_crypt_r='undef'
-d_csh='undef'
-d_ctermid='undef'
-d_ctermid_r='undef'
-d_ctime64='undef'
-d_ctime_r='undef'
-d_cuserid='undef'
-d_dbl_dig='undef'
-d_dbminitproto='undef'
-d_difftime64='undef'
-d_difftime='define'
-d_dir_dd_fd='undef'
-d_dirfd='undef'
-d_dirnamlen='undef'
-d_dlerror='undef'
-d_dlopen='undef'
-d_dlsymun='undef'
-d_dosuid='undef'
-d_drand48_r='undef'
-d_drand48proto='define'
-d_dup2='undef'
-d_eaccess='undef'
-d_endgrent='undef'
-d_endgrent_r='undef'
-d_endhent='undef'
-d_endhostent_r='undef'
-d_endnent='undef'
-d_endnetent_r='undef'
-d_endpent='undef'
-d_endprotoent_r='undef'
-d_endpwent='undef'
-d_endpwent_r='undef'
-d_endsent='undef'
-d_endservent_r='undef'
-d_eofnblk='define'
-d_eunice='undef'
-d_faststdio='undef'
-d_fchdir='undef'
-d_fchmod='undef'
-d_fchown='undef'
-d_fcntl='undef'
-d_fcntl_can_lock='undef'
-d_fd_macros='undef'
-d_fd_set='define'
-d_fds_bits='undef'
-d_fgetpos='define'
-d_finite='undef'
-d_finitel='undef'
-d_flexfnam='define'
-d_flock='undef'
-d_flockproto='undef'
-d_fork='undef'
-d_fp_class='undef'
-d_fpathconf='undef'
-d_fpclass='undef'
-d_fpclassify='undef'
-d_fpclassl='undef'
-d_fpos64_t='undef'
-d_frexpl='undef'
-d_fs_data_s='undef'
-d_fseeko='undef'
-d_fsetpos='define'
-d_fstatfs='define'
-d_fstatvfs='undef'
-d_fsync='undef'
-d_ftello='undef'
-d_ftime='undef'
-d_futimes='undef'
-d_gdbm_ndbm_h_uses_prototypes='undef'
-d_gdbmndbm_h_uses_prototypes='undef'
-d_getaddrinfo='undef'
-d_getcwd='define'
-d_getespwnam='undef'
-d_getfsstat='undef'
-d_getgrent='undef'
-d_getgrent_r='undef'
-d_getgrgid_r='undef'
-d_getgrnam_r='undef'
-d_getgrps='undef'
-d_gethbyaddr='define'
-d_gethbyname='define'
-d_gethent='undef'
-d_gethname='undef'
-d_gethostbyaddr_r='undef'
-d_gethostbyname_r='undef'
-d_gethostent_r='undef'
-d_gethostprotos='define'
-d_getitimer='undef'
-d_getlogin='undef'
-d_getlogin_r='undef'
-d_getmnt='undef'
-d_getmntent='undef'
-d_getnameinfo='undef'
-d_getnbyaddr='undef'
-d_getnbyname='undef'
-d_getnent='undef'
-d_getnetbyaddr_r='undef'
-d_getnetbyname_r='undef'
-d_getnetent_r='undef'
-d_getnetprotos='define'
-d_getpagsz='undef'
-d_getpbyname='define'
-d_getpbynumber='define'
-d_getpent='undef'
-d_getpgid='undef'
-d_getpgrp2='undef'
-d_getpgrp='undef'
-d_getppid='undef'
-d_getprior='undef'
-d_getprotobyname_r='undef'
-d_getprotobynumber_r='undef'
-d_getprotoent_r='undef'
-d_getprotoprotos='define'
-d_getprpwnam='undef'
-d_getpwent='undef'
-d_getpwent_r='undef'
-d_getpwnam_r='undef'
-d_getpwuid_r='undef'
-d_getsbyname='undef'
-d_getsbyport='undef'
-d_getsent='undef'
-d_getservbyname_r='undef'
-d_getservbyport_r='undef'
-d_getservent_r='undef'
-d_getservprotos='define'
-d_getspnam='undef'
-d_getspnam_r='undef'
-d_gettimeod='define'
-d_gmtime64='undef'
-d_gmtime_r='undef'
-d_gnulibc='undef'
-d_grpasswd='undef'
-d_hasmntopt='undef'
-d_htonl='define'
-d_ilogbl='undef'
-d_inc_version_list='undef'
-d_index='undef'
-d_inetaton='define'
-d_inetntop='undef'
-d_inetpton='undef'
-d_int64_t='undef'
-d_iovec_s='undef'
-d_ip_mreq='undef'
-d_ip_mreq_source='undef'
-d_ipv6_mreq='undef'
-d_ipv6_mreq_source='undef'
-d_isascii='define'
-d_isblank='undef'
-d_isfinite='undef'
-d_isinf='undef'
-d_isnan='define'
-d_isnanl='undef'
-d_killpg='undef'
-d_lchown='undef'
-d_ldbl_dig='undef'
-d_libm_lib_version='0'
-d_link='undef'
-d_llseek='undef'
-d_localtime64='undef'
-d_localtime_r='undef'
-d_localtime_r_needs_tzset='undef'
-d_locconv='undef'
-d_lockf='undef'
-d_longdbl='undef'
-d_longlong='define'
-d_lseekproto='define'
-d_lstat='undef'
-d_madvise='undef'
-d_malloc_good_size='undef'
-d_malloc_size='undef'
-d_mblen='undef'
-d_mbstowcs='undef'
-d_mbtowc='undef'
-d_memchr='define'
-d_memcmp='define'
-d_memcpy='define'
-d_memmove='define'
-d_memset='define'
-d_mkdir='define'
-d_mkdtemp='undef'
-d_mkfifo='undef'
-d_mkstemp='undef'
-d_mkstemps='undef'
-d_mktime64='undef'
-d_mktime='define'
-d_mmap='undef'
-d_modfl='undef'
-d_modfl_pow32_bug='undef'
-d_modflproto='undef'
-d_mprotect='undef'
-d_msg='undef'
-d_msg_ctrunc='undef'
-d_msg_dontroute='undef'
-d_msg_oob='undef'
-d_msg_peek='undef'
-d_msg_proxy='undef'
-d_msgctl='undef'
-d_msgget='undef'
-d_msghdr_s='undef'
-d_msgrcv='undef'
-d_msgsnd='undef'
-d_msync='undef'
-d_munmap='undef'
-d_mymalloc='undef'
-d_ndbm_h_uses_prototypes='undef'
-d_nice='undef'
-d_nl_langinfo='undef'
-d_nv_preserves_uv='define'
-d_nv_zero_is_allbits_zero='undef'
-d_off64_t='undef'
-d_old_pthread_create_joinable='undef'
-d_oldpthreads='undef'
-d_oldsock='undef'
-d_open3='define'
-d_pathconf='undef'
-d_pause='undef'
-d_perl_otherlibdirs='undef'
-d_phostname='undef'
-d_pipe='undef'
-d_poll='undef'
-d_portable='undef'
-d_prctl='undef'
-d_prctl_set_name='undef'
-d_printf_format_null='undef'
-d_procselfexe='undef'
-d_pseudofork='undef'
-d_pthread_atfork='undef'
-d_pthread_attr_setscope='undef'
-d_pthread_yield='undef'
-d_pwage='undef'
-d_pwchange='undef'
-d_pwclass='undef'
-d_pwcomment='undef'
-d_pwexpire='undef'
-d_pwgecos='undef'
-d_pwpasswd='undef'
-d_pwquota='undef'
-d_qgcvt='undef'
-d_quad='define'
-d_random_r='undef'
-d_readdir64_r='undef'
-d_readdir='define'
-d_readdir_r='undef'
-d_readlink='undef'
-d_readv='undef'
-d_recvmsg='undef'
-d_rename='define'
-d_rewinddir='define'
-d_rmdir='define'
-d_safebcpy='undef'
-d_safemcpy='undef'
-d_sanemcmp='define'
-d_sbrkproto='undef'
-d_scalbnl='undef'
-d_sched_yield='undef'
-d_scm_rights='undef'
-d_seekdir='define'
-d_select='undef'
-d_sem='undef'
-d_semctl='undef'
-d_semctl_semid_ds='define'
-d_semctl_semun='define'
-d_semget='undef'
-d_semop='undef'
-d_sendmsg='undef'
-d_setegid='undef'
-d_seteuid='undef'
-d_setgrent='undef'
-d_setgrent_r='undef'
-d_setgrps='undef'
-d_sethent='undef'
-d_sethostent_r='undef'
-d_setitimer='undef'
-d_setlinebuf='undef'
-d_setlocale='undef'
-d_setlocale_r='undef'
-d_setnent='undef'
-d_setnetent_r='undef'
-d_setpent='undef'
-d_setpgid='undef'
-d_setpgrp2='undef'
-d_setpgrp='undef'
-d_setprior='undef'
-d_setproctitle='undef'
-d_setprotoent_r='undef'
-d_setpwent='undef'
-d_setpwent_r='undef'
-d_setregid='undef'
-d_setresgid='undef'
-d_setresuid='undef'
-d_setreuid='undef'
-d_setrgid='undef'
-d_setruid='undef'
-d_setsent='undef'
-d_setservent_r='undef'
-d_setsid='undef'
-d_setvbuf='undef'
-d_sfio='undef'
-d_shm='undef'
-d_shmat='undef'
-d_shmatprototype='undef'
-d_shmctl='undef'
-d_shmdt='undef'
-d_shmget='undef'
-d_sigaction='undef'
-d_signbit='undef'
-d_sigprocmask='undef'
-d_sigsetjmp='undef'
-d_sin6_scope_id='undef'
-d_sitearch='undef'
-d_snprintf='undef'
-d_sockaddr_in6='undef'
-d_sockaddr_sa_len='undef'
-d_sockatmark='undef'
-d_sockatmarkproto='undef'
-d_socket='define'
-d_socklen_t='undef'
-d_sockpair='undef'
-d_socks5_init='undef'
-d_sprintf_returns_strlen='undef'
-d_sqrtl='undef'
-d_srand48_r='undef'
-d_srandom_r='undef'
-d_sresgproto='undef'
-d_sresuproto='undef'
-d_statblks='define'
-d_statfs='undef'
-d_statfs_f_flags='undef'
-d_statfs_s='undef'
-d_statfsflags='define'
-d_static_inline='undef'
-d_statvfs='undef'
-d_stdio_cnt_lval='define'
-d_stdio_ptr_lval='define'
-d_stdio_ptr_lval_nochange_cnt='undef'
-d_stdio_ptr_lval_sets_cnt='undef'
-d_stdio_stream_array='undef'
-d_stdiobase='undef'
-d_stdstdio='undef'
-d_strchr='define'
-d_strcoll='define'
-d_strctcpy='define'
-d_strerrm='strerror(e)'
-d_strerror='define'
-d_strerror_r='undef'
-d_strftime='define'
-d_strlcat='undef'
-d_strlcpy='undef'
-d_strtod='define'
-d_strtol='define'
-d_strtold='undef'
-d_strtoll='undef'
-d_strtoq='undef'
-d_strtoul='define'
-d_strtoull='undef'
-d_strtouq='undef'
-d_strxfrm='define'
-d_suidsafe='undef'
-d_symlink='undef'
-d_syscall='undef'
-d_syscallproto='undef'
-d_sysconf='define'
-d_sysernlst='undef'
-d_syserrlst='undef'
-d_system='define'
-d_tcgetpgrp='undef'
-d_tcsetpgrp='undef'
-d_telldir='define'
-d_telldirproto='define'
-d_time='undef'
-d_timegm='undef'
-d_times='undef'
-d_tm_tm_gmtoff='undef'
-d_tm_tm_zone='undef'
-d_tmpnam_r='undef'
-d_truncate='undef'
-d_ttyname_r='undef'
-d_tzname='undef'
-d_u32align='define'
-d_ualarm='undef'
-d_umask='undef'
-d_uname='undef'
-d_union_semun='undef'
-d_unordered='undef'
-d_unsetenv='undef'
-d_usleep='undef'
-d_usleepproto='undef'
-d_ustat='undef'
-d_vendorarch='undef'
-d_vendorlib='undef'
-d_vfork='undef'
-d_void_closedir='undef'
-d_voidsig='undef'
-d_voidtty='undef'
-d_volatile='define'
-d_vprintf='define'
-d_vsnprintf='undef'
-d_wait4='undef'
-d_waitpid='undef'
-d_wcstombs='undef'
-d_wctomb='undef'
-d_writev='undef'
-d_xenix='undef'
-date='date'
-db_hashtype='undef'
-db_prefixtype='undef'
-db_version_major='0'
-db_version_minor='0'
-db_version_patch='0'
-defvoidused='15'
-direntrytype='struct dirent'
-dlext='none'
-dlsrc='dl_none.xs'
-double='undef'
-doublesize='8'
-drand01='(rand()/(double)(1U<<RANDBITS))'
-drand48_r_proto='0'
-dtrace=''
-dynamic_ext=''
-eagain='EAGAIN'
-ebcdic='undef'
-echo='echo'
-egrep='egrep'
-emacs=''
-endgrent_r_proto='0'
-endhostent_r_proto='0'
-endnetent_r_proto='0'
-endprotoent_r_proto='0'
-endpwent_r_proto='0'
-endservent_r_proto='0'
-eunicefix=':'
-exe_ext=''
-expr='expr'
-extensions='Data/Dumper Digest/MD5 Errno Fcntl File/Glob Filter/Util/Call IO
List/Util MIME/Base64 Opcode PerlIO/scalar Socket Storable Sys/Hostname
Unicode/Storable attributes re'
-fflushNULL='undef'
-fflushall='define'
-find=''
-firstmakefile='makefile'
-flex=''
-fpostype='fpos_t'
-freetype='void'
-full_ar='arm-epoc-pe-ar'
-full_csh=''
-full_sed='/usr/bin/sed'
-gccversion=''
-getgrent_r_proto='0'
-getgrgid_r_proto='0'
-getgrnam_r_proto='0'
-gethostbyaddr_r_proto='0'
-gethostbyname_r_proto='0'
-gethostent_r_proto='0'
-getlogin_r_proto='0'
-getnetbyaddr_r_proto='0'
-getnetbyname_r_proto='0'
-getnetent_r_proto='0'
-getprotobyname_r_proto='0'
-getprotobynumber_r_proto='0'
-getprotoent_r_proto='0'
-getpwent_r_proto='0'
-getpwnam_r_proto='0'
-getpwuid_r_proto='0'
-getservbyname_r_proto='0'
-getservbyport_r_proto='0'
-getservent_r_proto='0'
-getspnam_r_proto='0'
-gidformat='"hu"'
-gidsign='1'
-gidsize='2'
-gidtype='gid_t'
-glibpth=''
-gmtime_r_proto='0'
-grep='grep'
-groupcat=''
-groupstype='gid_t'
-gzip='gzip'
-h_fcntl=''
-h_sysfile=''
-hint=''
-hostcat=''
-i16size='2'
-i16type='short'
-i32size='4'
-i32type='int'
-i64size='8'
-i64type='long long'
-i8size='1'
-i8type='char'
-i_arpainet='define'
-i_assert='define'
-i_bsdioctl='undef'
-i_crypt='undef'
-i_db='undef'
-i_dbm='undef'
-i_dirent='define'
-i_dld='undef'
-i_dlfcn='undef'
-i_fcntl='define'
-i_float='undef'
-i_fp='undef'
-i_fp_class='undef'
-i_gdbm='undef'
-i_gdbm_ndbm='undef'
-i_gdbmndbm='undef'
-i_grp='undef'
-i_ieeefp='undef'
-i_inttypes='undef'
-i_langinfo='undef'
-i_libutil='undef'
-i_limits='define'
-i_locale='undef'
-i_machcthr='undef'
-i_malloc='undef'
-i_mallocmalloc='undef'
-i_math='define'
-i_memory='undef'
-i_mntent='undef'
-i_ndbm='undef'
-i_netdb='define'
-i_neterrno='undef'
-i_netinettcp='define'
-i_niin='define'
-i_poll='undef'
-i_prot='undef'
-i_pthread='undef'
-i_pwd='undef'
-i_rpcsvcdbm='undef'
-i_sfio='undef'
-i_sgtty='undef'
-i_shadow='undef'
-i_socks='undef'
-i_stdarg='define'
-i_stdbool='undef'
-i_stddef='define'
-i_stdlib='define'
-i_string='define'
-i_sunmath='undef'
-i_sysaccess='undef'
-i_sysdir='undef'
-i_sysfile='undef'
-i_sysfilio='undef'
-i_sysin='undef'
-i_sysioctl='define'
-i_syslog='undef'
-i_sysmman='undef'
-i_sysmode='undef'
-i_sysmount='undef'
-i_sysndir='undef'
-i_sysparam='define'
-i_syspoll='undef'
-i_sysresrc='define'
-i_syssecrt='undef'
-i_sysselct='undef'
-i_syssockio='undef'
-i_sysstat='define'
-i_sysstatfs='undef'
-i_sysstatvfs='undef'
-i_systime='define'
-i_systimek='undef'
-i_systimes='define'
-i_systypes='define'
-i_sysuio='undef'
-i_sysun='undef'
-i_sysutsname='undef'
-i_sysvfs='undef'
-i_syswait='define'
-i_termio='undef'
-i_termios='undef'
-i_time='define'
-i_unistd='define'
-i_ustat='undef'
-i_utime='undef'
-i_values='undef'
-i_varargs='undef'
-i_varhdr='undef'
-i_vfork='undef'
-ignore_versioned_solibs=''
-inc_version_list=' '
-inc_version_list_init='0'
-incpath=''
-inews=''
-installarchlib='/home/of/PERL/perl/lib/5.17.6/epoc'
-installbin='/home/of/PERL/System/Programs/'
-installman1dir='/home/of/PERL/man1'
-installman3dir='/home/of/PERL/man3'
-installprefix=''
-installprefixexp=''
-installprivlib='/home/of/PERL/perl/lib/5.17.6/'
-installscript='/home/of/PERL/bin/'
-installsitearch='/home/of/PERL/site/lib/site_perl/5.17.6/epoc'
-installsitelib='/home/of/PERL/perl/lib/site_perl/5.17.6'
-installstyle=''
-installusrbinperl='undef'
-installvendorarch=''
-installvendorlib=''
-intsize='4'
-issymlink=''
-ivdformat='"ld"'
-ivsize='4'
-ivtype='int'
-known_extensions='Data/Dumper File/Glob IO Socket Fcntl Sys/Hostname Errno'
-ksh=''
-ld='echo'
-lddlflags=''
-ldflags='-Wl,-heap,0x04000000'
-ldlibpthname=''
-less=''
-lib_ext=''
-libc=''
-libperl='perl.a'
-libpth=''
-libs=''
-libswanted=''
-line=''
-lint=''
-lkflags=''
-ln='ln'
-lns='/bin/ln -s'
-localtime_r_proto='0'
-locincpth=''
-loclibpth=''
-longdblsize='8'
-longlongsize='8'
-longsize='4'
-lp=''
-lpr=''
-ls='ls'
-lseeksize='8'
-lseektype='off_t'
-mad='undef'
-mail=''
-mailx=''
-make='make'
-make_set_make='#'
-mallocobj=''
-mallocsrc=''
-malloctype='void *'
-man1='man1'
-man1dir=''
-man1direxp=''
-man1ext=''
-man2='man2'
-man2ext='2'
-man3='man3'
-man3dir=''
-man3direxp=''
-man3ext=''
-man4='man4'
-man4ext='4'
-man5='man5'
-man5ext='5'
-man6='man6'
-man6ext='6'
-man7='man7'
-man7ext='7'
-man8='man8'
-man8ext='8'
-mips=''
-mips_type=''
-mkdir='mkdir'
-mmaptype=''
-modetype='mode_t'
-more='more'
-multiarch='define'
-mv=''
-myarchname='epoc'
-mydomain='.gmx.de'
-myhostname='dragon'
-myuname=''
-n='-n'
-need_va_copy='undef'
-netdb_hlen_type='int'
-netdb_host_type='const char *'
-netdb_name_type='const char *'
-netdb_net_type='int'
-nm='arm-epoc-pe-nm'
-nm_opt=''
-nm_so_opt=''
-nonxs_ext='Errno'
-nroff='nroff'
-nv_overflows_integers_at='0'
-nv_preserves_uv_bits='32'
-nveformat='"e"'
-nvfformat='"f"'
-nvgformat='"g"'
-nvsize='16'
-nvtype='double'
-o_nonblock='O_NONBLOCK'
-obj_ext=''
-old_pthread_create_joinable=''
-optimize='-fomit-frame-pointer -DNDEBUG -O'
-orderlib=''
-osname='epoc'
-osvers=''
-otherlibdirs=''
-package=''
-pager=''
-passcat=''
-patchlevel=''
-path_sep=':'
-perl=''
-perl_static_inline='static'
-perladmin=''
-perlpath=''
-pg=''
-phostname=''
-pidtype='pid_t'
-plibpth=''
-pmake=''
-pr=''
-prefix=''
-prefixexp=''
-privlib='/usr/lib/perl/5.17.6'
-privlibexp='/usr/lib/perl/5.17.6'
-procselfexe=''
-prototype='define'
-ptrsize='4'
-quadkind='QUAD_IS_LONG_LONG'
-quadtype='long long'
-randbits='31'
-randfunc=''
-random_r_proto='0'
-randseedtype='unsigned'
-ranlib='arm-epoc-pe-ranlib'
-rd_nodata='-1'
-readdir64_r_proto='0'
-readdir_r_proto='0'
-revision='5'
-rm='rm'
-rmail=''
-runnm='false'
-sGMTIME_max='2147483647'
-sGMTIME_min='0'
-sLOCALTIME_max='2147483647'
-sLOCALTIME_min='0'
-sPRIEUldbl=''
-sPRIFUldbl=''
-sPRIGUldbl=''
-sPRIXU64=''
-sPRId64=''
-sPRIeldbl=''
-sPRIfldbl='"f"'
-sPRIgldbl='"g"'
-sPRIi64=''
-sPRIo64=''
-sPRIu64=''
-sPRIx64=''
-sSCNfldbl=''
-sched_yield=''
-scriptdir=''
-scriptdirexp=''
-sed='sed'
-seedfunc='srand'
-selectminbits='32'
-selecttype=''
-sendmail=''
-setgrent_r_proto='0'
-sethostent_r_proto='0'
-setlocale_r_proto='0'
-setnetent_r_proto='0'
-setprotoent_r_proto='0'
-setpwent_r_proto='0'
-setservent_r_proto='0'
-sh='/bin/sh'
-shar=''
-sharpbang='#!'
-shmattype=''
-shortsize='2'
-shrpenv=''
-shsharp=''
-sig_name=''
-sig_name_init='"ZERO", 0'
-sig_num='0'
-sig_num_init='0, 0'
-sig_size='1'
-signal_t='void'
-sitearch='/usr/lib/perl/site_perl/5.17.6/epoc'
-sitearchexp='/usr/lib/perl/site_perl/5.17.6/epoc'
-sitelib='/usr/lib/perl/site_perl/5.17.6/'
-sitelib_stem='/usr/lib/perl/site_perl'
-sitelibexp='/usr/lib/perl/site_perl/5.17.6/'
-siteprefix=''
-siteprefixexp=''
-sizesize='4'
-sizetype='size_t'
-sleep=''
-smail=''
-so=''
-sockethdr=''
-socketlib=''
-socksizetype='int'
-sort='sort'
-spackage=''
-spitshell='cat'
-srand48_r_proto='0'
-srandom_r_proto='0'
-src='.'
-ssizetype='long'
-st_ino_sign='1'
-st_ino_size='4'
-startperl=''
-startsh='#!/bin/sh'
-static_ext='Data/Dumper File/Glob IO Socket Fcntl Sys/Hostname'
-stdchar='char'
-stdio_base=''
-stdio_bufsiz=''
-stdio_cnt=''
-stdio_filbuf=''
-stdio_ptr=''
-stdio_stream_array=''
-strerror_r_proto='0'
-strings=''
-submit=''
-subversion=''
-sysman=''
-tail=''
-tar=''
-targetarch=''
-tbl=''
-tee='tee'
-test='test'
-timeincl=''
-timetype='time_t'
-tmpnam_r_proto='0'
-touch='touch'
-tr='tr'
-trnl='\n'
-troff=''
-ttyname_r_proto='0'
-u16size='2'
-u16type='unsigned short'
-u32size='4'
-u32type='unsigned int'
-u64size='8'
-u64type='unsigned long long'
-u8size='1'
-u8type='unsigned char'
-uidformat='"hu"'
-uidsign='1'
-uidsize='2'
-uidtype='uid_t'
-uname='uname'
-uniq='uniq'
-uquadtype='uint64_t'
-use5005threads='undef'
-use64bitall='undef'
-use64bitint='undef'
-usecrosscompile='define'
-usedevel='undef'
-usedl='undef'
-usedtrace='undef'
-usefaststdio='undef'
-useithreads='undef'
-usekernprocpathname='undef'
-uselargefiles='undef'
-uselongdouble='undef'
-usemallocwrap='undef'
-usemorebits='undef'
-usemultiplicity='undef'
-usemymalloc='n'
-usenm=''
-usensgetexecutablepath='undef'
-useopcode=''
-useperlio='undef'
-useposix=''
-usereentrant='undef'
-userelocatableinc='undef'
-usesfio=''
-useshrplib=''
-usesitecustomize='undef'
-usesocks='undef'
-usethreads='undef'
-usevendorprefix=''
-usevfork=''
-usrinc=''
-uuname=''
-uvXUformat='"lX"'
-uvoformat='"lo"'
-uvsize='4'
-uvtype='unsigned int'
-uvuformat='"lu"'
-uvxformat='"lx"'
-vaproto='undef'
-vendorarch=''
-vendorarchexp=''
-vendorlib=''
-vendorlib_stem=''
-vendorlibexp=''
-vendorprefix=''
-vendorprefixexp=''
-version='5.17.6'
-versiononly='undef'
-vi=''
-voidflags='15'
-xlibpth=''
-zcat=''
-zip=''
-# Configure command line arguments.
-config_arg0=''
-config_args=''
-config_argc=11
-config_arg1=''
-config_arg2=''
-config_arg3=''
-config_arg4=''
-config_arg5=''
-config_arg6=''
-config_arg7=''
-config_arg8=''
-config_arg9=''
-config_arg10=''
-config_arg11=''
-PERL_REVISION=5
-PERL_VERSION=17
-PERL_SUBVERSION=6
-PERL_API_REVISION=5
-PERL_API_VERSION=17
-PERL_API_SUBVERSION=6
-PERL_CONFIG_SH=true
-CONFIGDOTSH=true
-# Variables propagated from previous config.sh file.
-pp_sys_cflags=''
-epocish_cflags='ccflags="$cflags -xc++"'
diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl
deleted file mode 100644
index b4233c2..0000000
--- a/epoc/createpkg.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-
-use File::Find;
-use Cwd;
-
-$VERSION="5.17.6";
-$EPOC_VERSION=1;
-
-
-sub filefound {
-
- my $f = $File::Find::name;
-
- return if ( $f =~
/CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i);
- my $back = $f;
-
- my $psiback = $back;
-
- $psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|;
- $psiback =~ s|/|\\|g;
- print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f );
-}
-
-open OUT,">perl.pkg";
-
-print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n";
-print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
-print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";
-
-find(\&filefound, cwd.'/lib');
-
-open IN, "<Artistic";
-open OUT, ">Artistic.txt";
-while (my $line = <IN>) {
- chomp $line;
- print OUT "$line\r\n";
-}
-
-close IN;
-close OUT;
-
diff --git a/epoc/epoc.c b/epoc/epoc.c
deleted file mode 100644
index 03b0134..0000000
--- a/epoc/epoc.c
+++ /dev/null
@@ -1,125 +0,0 @@
-/*
- * Copyright (c) 1999 Olaf Flebbe o.fle...@gmx.de
- *
- * You may distribute under the terms of either the GNU General Public
- * License or the Artistic License, as specified in the README file.
- *
- */
-
-#include <stdlib.h>
-#include <string.h>
-#include <stdio.h>
-#include <sys/unistd.h>
-#include <process.h>
-
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-int
-do_spawn( char *cmd) {
- dTHX;
- return system( cmd);
-}
-
-int
-do_aspawn ( void *vreally, void **vmark, void **vsp) {
-
- dTHX;
-
- SV *really = (SV*)vreally;
- SV **mark = (SV**)vmark;
- SV **sp = (SV**)vsp;
-
- char **argv;
- char *str;
- char *p2, **ptr;
- char *cmd;
-
-
- int rc;
- int index = 0;
-
- if (sp<=mark)
- return -1;
-
- ptr = argv =(char**) malloc ((sp-mark+3)*sizeof (char*));
-
- while (++mark <= sp) {
- if (*mark && (str = SvPV_nolen(*mark)))
- argv[index] = str;
- else
- argv[index] = "";
- }
- argv[index++] = 0;
-
- cmd = strdup((const char*)(really ? SvPV_nolen(really) : argv[0]));
-
- rc = spawnvp( P_WAIT, cmd, argv);
- free( argv);
- free( cmd);
-
- return rc;
-}
-
-static
-XS(epoc_getcwd) /* more or less stolen from win32.c */
-{
- dXSARGS;
- /* Make the host for current directory */
- char *buffer;
- int buflen = 256;
-
- char *ptr;
- buffer = (char *) malloc( buflen);
- if (buffer == NULL) {
- XSRETURN_UNDEF;
- }
- while ((NULL == ( ptr = getcwd( buffer, buflen))) && (errno == ERANGE)) {
- buflen *= 2;
- if (NULL == realloc( buffer, buflen)) {
- XSRETURN_UNDEF;
- }
-
- }
-
- /*
- * If ptr != NULL
- * then it worked, set PV valid,
- * else return 'undef'
- */
-
- if (ptr) {
- SV *sv = sv_newmortal();
- char *tptr;
-
- for (tptr = ptr; *tptr != '\0'; tptr++) {
- if (*tptr == '\\') {
- *tptr = '/';
- }
- }
- sv_setpv(sv, ptr);
- free( buffer);
-
- EXTEND(SP,1);
- SvPOK_on(sv);
- ST(0) = sv;
-#ifndef INCOMPLETE_TAINTS
- SvTAINTED_on(ST(0));
-#endif
- XSRETURN(1);
- }
- free( buffer);
- XSRETURN_UNDEF;
-}
-
-
-void
-Perl_init_os_extras(void)
-{
- dTHX;
- char *file = __FILE__;
- newXS("EPOC::getcwd", epoc_getcwd, file);
-}
-
diff --git a/epoc/epoc_stubs.c b/epoc/epoc_stubs.c
deleted file mode 100644
index 2d1b09d..0000000
--- a/epoc/epoc_stubs.c
+++ /dev/null
@@ -1,18 +0,0 @@
-/*
- * Copyright (c) 1999 Olaf Flebbe o.fle...@gmx.de
- *
- * You may distribute under the terms of either the GNU General Public
- * License or the Artistic License, as specified in the README file.
- *
- */
-
-int setgid() {return -1;}
-int setuid() {return -1;}
-
-int execv() { return -1;}
-int execvp() { return -1;}
-
-void Perl_do_exec() {}
-
-
-
diff --git a/epoc/epocish.c b/epoc/epocish.c
deleted file mode 100644
index d457fff..0000000
--- a/epoc/epocish.c
+++ /dev/null
@@ -1,41 +0,0 @@
-/*
- * Copyright (c) 1999 Olaf Flebbe o.fle...@gmx.de
- *
- * You may distribute under the terms of either the GNU General Public
- * License or the Artistic License, as specified in the README file.
- *
- */
-
-/* This is C++ Code !! */
-
-#include <e32std.h>
-#include <stdlib.h>
-#include <estlib.h>
-#include <string.h>
-
-extern "C" {
-
-
-/* Workaround for defect strtoul(). Values with leading + are zero */
-
-unsigned long int epoc_strtoul(const char *nptr, char **endptr,
- int base) {
- if (nptr && *nptr == '+')
- nptr++;
- return strtoul( nptr, endptr, base);
-}
-
-void epoc_gcvt( double x, int digits, unsigned char *buf) {
- TRealFormat trel;
-
- trel.iPlaces = digits;
- trel.iPoint = TChar( '.');
-
- TPtr result( buf, 80);
-
- result.Num( x, trel);
- result.Append( TChar( 0));
- }
-}
-
-
diff --git a/epoc/epocish.h b/epoc/epocish.h
deleted file mode 100644
index bd364ec..0000000
--- a/epoc/epocish.h
+++ /dev/null
@@ -1,158 +0,0 @@
-/*
- * The following symbols are defined if your operating system supports
- * functions by that name. All Unixes I know of support them, thus they
- * are not checked by the configuration script, but are directly defined
- * here.
- */
-
-/* HAS_IOCTL:
- * This symbol, if defined, indicates that the ioctl() routine is
- * available to set I/O characteristics
- */
-#define HAS_IOCTL /**/
-
-/* HAS_UTIME:
- * This symbol, if defined, indicates that the routine utime() is
- * available to update the access and modification times of files.
- */
-/* #define HAS_UTIME / **/
-
-/* HAS_GROUP
- * This symbol, if defined, indicates that the getgrnam() and
- * getgrgid() routines are available to get group entries.
- * The getgrent() has a separate definition, HAS_GETGRENT.
- */
-/* #define HAS_GROUP / **/
-
-/* HAS_PASSWD
- * This symbol, if defined, indicates that the getpwnam() and
- * getpwuid() routines are available to get password entries.
- * The getpwent() has a separate definition, HAS_GETPWENT.
- */
-/* #define HAS_PASSWD / **/
-
-/* #define HAS_KILL */
-#define HAS_WAIT
-
-/* USEMYBINMODE
- * This symbol, if defined, indicates that the program should
- * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure
- * that a file is in "binary" mode -- that is, that no translation
- * of bytes occurs on read or write operations.
- */
-#undef USEMYBINMODE
-
-/* Stat_t:
- * This symbol holds the type used to declare buffers for information
- * returned by stat(). It's usually just struct stat. It may be necessary
- * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed
- * information.
- */
-#define Stat_t struct stat
-
-/* USE_STAT_RDEV:
- * This symbol is defined if this system has a stat structure declaring
- * st_rdev
- */
-#define USE_STAT_RDEV /**/
-
-/* ACME_MESS:
- * This symbol, if defined, indicates that error messages should be
- * should be generated in a format that allows the use of the Acme
- * GUI/editor's autofind feature.
- */
-#undef ACME_MESS /**/
-
-/* UNLINK_ALL_VERSIONS:
- * This symbol, if defined, indicates that the program should arrange
- * to remove all versions of a file if unlink() is called. This is
- * probably only relevant for VMS.
- */
-/* #define UNLINK_ALL_VERSIONS / **/
-
-/* VMS:
- * This symbol, if defined, indicates that the program is running under
- * VMS. It is currently automatically set by cpps running under VMS,
- * and is included here for completeness only.
- */
-/* #define VMS / **/
-
-/* ALTERNATE_SHEBANG:
- * This symbol, if defined, contains a "magic" string which may be used
- * as the first line of a Perl program designed to be executed directly
- * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG
- * begins with a character other then #, then Perl will only treat
- * it as a command line if if finds the string "perl" in the first
- * word; otherwise it's treated as the first line of code in the script.
- * (IOW, Perl won't hand off to another interpreter via an alternate
- * shebang sequence that might be legal Perl code.)
- */
-/* #define ALTERNATE_SHEBANG "#!" / **/
-
-
-#define ABORT() abort();
-
-/*
- * fwrite1() should be a routine with the same calling sequence as fwrite(),
- * but which outputs all of the bytes requested as a single stream (unlike
- * fwrite() itself, which on some systems outputs several distinct records
- * if the number_of_items parameter is >1).
- */
-#define fwrite1 fwrite
-
-#define Stat(fname,bufptr) stat((fname),(bufptr))
-#define Fstat(fd,bufptr) fstat((fd),(bufptr))
-#define Fflush(fp) fflush(fp)
-#define Mkdir(path,mode) mkdir((path),(mode))
-
-
-/* epocemx setenv bug workaround */
-#ifndef PERL_SYS_INIT_BODY
-# define PERL_SYS_INIT_BODY(c,v) \
- MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); \
- PERLIO_INIT; MALLOC_INIT
-#endif
-
-#ifndef PERL_SYS_TERM_BODY
-#define PERL_SYS_TERM_BODY() PERLIO_TERM; MALLOC_TERM
-#endif
-
-#define BIT_BUCKET "/dev/null"
-
-#define dXSUB_SYS
-
-/* getsockname returns the size of struct sockaddr_in *without* padding */
-#define BOGUS_GETNAME_RETURN 8
-
-/*
- read() on a socket is unimplemented in current epocemx
- use recv() instead
-*/
-
-#define PERL_SOCK_SYSREAD_IS_RECV
-
-/* write ditto, use send */
-#define PERL_SOCK_SYSWRITE_IS_SEND
-
-/* No /dev/random available*/
-
-#define PERL_NO_DEV_RANDOM
-
-/*
- work around for buggy atof():
- atof() in ER5 stdlib depends on locale.
-*/
-
-#define strtoul(a,b,c) epoc_strtoul(a,b,c)
-
-#define init_os_extras Perl_init_os_extras
-
-#define ARG_MAX 4096
-
-#define ECONNABORTED 0xdead
-
-/* For environ */
-#include <emx.h>
-#define PERL_USE_SAFE_PUTENV
-
-
diff --git a/epoc/link.pl b/epoc/link.pl
deleted file mode 100644
index ab3bd65..0000000
--- a/epoc/link.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl -w
-
-$epoc="/usr/local/epoc";
-@objs=@ARGV;
-$basname=$objs[0];
-$basname =~ s/.o//;
-$baspe = $basname . "pe";
-
-
-system("arm-pe-ld -s -e _E32Startup --base-file $basname.bas " .
- "-o $baspe.exe $epoc/lib/eexe.o @objs " .
- "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
-
-system("arm-pe-dlltool --as=arm-pe-as --output-exp $basname.exp " .
- "--base-file $basname.bas $epoc/lib/eexe.o @objs " .
- "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
-
-system("arm-pe-ld -s -e _E32Startup $basname.exp " .
- "-o $baspe.exe $epoc/lib/eexe.o @objs " .
- "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
-
-system( "wine $epoc/bin/petran.exe \"$baspe.exe $basname.exe " .
- "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " .
- "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000\" ");
-
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 02ac226..941ee40 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
use Config;
use strict;
-our $VERSION = "1.16";
+our $VERSION = "1.17";
my %err = ();
my %wsa = ();
@@ -125,9 +125,6 @@ sub get_files {
} elsif ($^O eq 'os390') {
# OS/390 C compiler doesn't generate #file or #line directives
$file{'/usr/include/errno.h'} = 1;
- } elsif ($Config{archname} eq 'epoc') {
- # Watch out for cross compiling for EPOC (usually done on linux)
- $file{'/usr/local/epocemx/epocsdk/include/libc/sys/errno.h'} = 1;
} elsif ($Config{archname} eq 'arm-riscos') {
# Watch out for cross compiling for RISC OS
my $dep = `echo "#include <errno.h>" | gcc -E -M -`;
diff --git a/ext/Sys-Hostname/Hostname.pm b/ext/Sys-Hostname/Hostname.pm
index cdc1231..4893f6a 100644
--- a/ext/Sys-Hostname/Hostname.pm
+++ b/ext/Sys-Hostname/Hostname.pm
@@ -14,7 +14,7 @@ our $VERSION;
our $host;
BEGIN {
- $VERSION = '1.16';
+ $VERSION = '1.17';
{
local $SIG{__DIE__};
eval {
@@ -64,10 +64,6 @@ sub hostname {
chomp($host = `hostname 2> NUL`) unless defined $host;
return $host;
}
- elsif ($^O eq 'epoc') {
- $host = 'localhost';
- return $host;
- }
else { # Unix
# is anyone going to make it here?
diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 1ebc98f..d1dbc52 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -3,7 +3,7 @@ use 5.006;
use strict;
use warnings;
use warnings::register;
-our $VERSION = '1.22';
+our $VERSION = '1.23';
require Exporter;
require Cwd;
@@ -1104,8 +1104,7 @@ $File::Find::current_dir = File::Spec->curdir || '.';
$File::Find::dont_use_nlink = 1
if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos' || $Is_Win32 ||
- $^O eq 'interix' || $^O eq 'cygwin' || $^O eq 'epoc' || $^O eq 'qnx' ||
- $^O eq 'nto';
+ $^O eq 'interix' || $^O eq 'cygwin' || $^O eq 'qnx' || $^O eq 'nto';
# Set dont_use_nlink in your hint file if your system's stat doesn't
# report the number of links in a directory as an indication
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 24b85ef..705b920 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1545,7 +1545,7 @@ We then determine what the console should be on various
systems:
Several other systems don't use a specific console. We C<undef $console>
for those (Windows using a slave editor/graphical debugger, NetWare, OS/2
-with a slave editor, Epoc).
+with a slave editor).
=cut
@@ -1568,11 +1568,6 @@ with a slave editor, Epoc).
$console = undef;
}
- # EPOC also falls into the 'got to use STDIN' camp.
- if ( $^O eq 'epoc' ) {
- $console = undef;
- }
-
=pod
If there is a TTY hanging around from a parent, we use that as the console.
@@ -8785,7 +8780,6 @@ my %_is_in_pods = (map { $_ => 1 }
dsc
ebcdic
embed
- epoc
faq1
faq2
faq3
diff --git a/perl.c b/perl.c
index d7767b1..63de43e 100644
--- a/perl.c
+++ b/perl.c
@@ -2151,7 +2151,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
if (xsinit)
(*xsinit)(aTHX); /* in case linked C routines want magical
variables */
#ifndef PERL_MICRO
-#if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__) ||
defined(EPOC) || defined(SYMBIAN)
+#if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__) ||
defined(SYMBIAN)
init_os_extras();
#endif
#endif
@@ -3505,10 +3505,6 @@ S_minus_v(pTHX)
PerlIO_printf(PIO_stdout,
"BS2000 (POSIX) port by Start Amadeus GmbH, 1998-1999\n");
#endif
-#ifdef EPOC
- PerlIO_printf(PIO_stdout,
- "EPOC port by Olaf Flebbe, 1999-2002\n");
-#endif
#ifdef UNDER_CE
PerlIO_printf(PIO_stdout,
"WINCE port by Rainer Keuchel, 2001-2002\n"
@@ -4448,7 +4444,7 @@ S_init_perllib(pTHX)
S_incpush(aTHX_ STR_WITH_LEN("."), 0);
}
-#if defined(DOSISH) || defined(EPOC) || defined(__SYMBIAN32__)
+#if defined(DOSISH) || defined(__SYMBIAN32__)
# define PERLLIB_SEP ';'
#else
# if defined(VMS)
diff --git a/perl.h b/perl.h
index 70dc87e..cab4eba 100644
--- a/perl.h
+++ b/perl.h
@@ -91,8 +91,8 @@
/* Any stack-challenged places. The limit varies (and often
* is configurable), but using more than a kilobyte of stack
* is usually dubious in these systems. */
-#if defined(EPOC) || defined(__SYMBIAN32__)
-/* EPOC/Symbian: need to work around the SDK features. *
+#if defined(__SYMBIAN32__)
+/* Symbian: need to work around the SDK features. *
* On WINS: MS VC5 generates calls to _chkstk, *
* if a "large" stack frame is allocated. *
* gcc on MARM does not generate calls like these. */
@@ -516,11 +516,11 @@ register struct op *Perl_op
asm(stringify(OP_IN_REGISTER));
#define DOSISH 1
#endif
-#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) ||
defined(__cplusplus) || defined(EPOC) || defined(NETWARE) ||
defined(__SYMBIAN32__)
+#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) ||
defined(__cplusplus) || defined(NETWARE) || defined(__SYMBIAN32__)
# define STANDARD_C 1
#endif
-#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) ||
defined(__EMX__) || defined(__DGUX) || defined(EPOC) || defined(__QNX__) ||
defined(NETWARE) || defined(PERL_MICRO)
+#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) ||
defined(__EMX__) || defined(__DGUX) || defined(__QNX__) || defined(NETWARE) ||
defined(PERL_MICRO)
# define DONT_DECLARE_STD 1
#endif
@@ -1012,7 +1012,7 @@ EXTERN_C int usleep(unsigned int);
#define PERL_USES_PL_PIDSTATUS
#endif
-#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(EPOC) &&
!defined(__SYMBIAN32__)
+#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) &&
!defined(__SYMBIAN32__)
#define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
#endif
@@ -2628,11 +2628,6 @@ typedef SV PADNAME;
# define ISHISH "vos"
#endif
-#if defined(EPOC)
-# include "epocish.h"
-# define ISHISH "epoc"
-#endif
-
#ifdef __SYMBIAN32__
# include "symbian/symbianish.h"
# define ISHISH "symbian"
@@ -4030,7 +4025,7 @@ char *crypt (const char*, const char*);
# ifndef getenv
char *getenv (const char*);
# endif /* !getenv */
-# if !defined(HAS_LSEEK_PROTO) && !defined(EPOC) && !defined(__hpux)
+# if !defined(HAS_LSEEK_PROTO) && !defined(__hpux)
# ifdef _FILE_OFFSET_BITS
# if _FILE_OFFSET_BITS == 64
Off_t lseek (int,Off_t,int);
diff --git a/plan9/mkfile b/plan9/mkfile
index 51c682d..28d290b 100644
--- a/plan9/mkfile
+++ b/plan9/mkfile
@@ -23,7 +23,7 @@ installman3dir = /sys/man/2
podnames = perl perlbook perldata perldebtut perldiag perldsc perlform
perlfunc perlipc perllexwarn perllol perlmod perlmodlib perlmodinstall
perlnewmod perlop perlootut perlopentut perlpacktut perlp ... [164 chars
truncated]
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 perll ... [99 chars truncated]
-archpodnames = perlaix perlamiga perlbeos perlbs2000 perlce perlcygwin
perldgux perldos perlepoc perlfreebsd perlhpux perlhurd perlirix perlmacos
perlmpeix perlnetware perlos2 perlos390 perlos400 per ... [62 chars truncated]
+archpodnames = perlaix perlamiga perlbeos perlbs2000 perlce perlcygwin
perldgux perldos perlfreebsd perlhpux perlhurd perlirix perlmacos perlmpeix
perlnetware perlos2 perlos390 perlos400 perlplan9 pe ... [53 chars truncated]
histpods = perl5004delta perl5005delta perl561delta perl56delta perl570delta
perl571delta perl572delta perl573delta perl58delta perlhist
libpods = ${podnames:%=pod/%.pod}
diff --git a/pod/perl.pod b/pod/perl.pod
index a1bac94..142ce74 100644
--- a/pod/perl.pod
+++ b/pod/perl.pod
@@ -239,7 +239,6 @@ aux a2p c2ph h2ph h2xs perlbug pl2pm pod2html pod2man s2p
splain xsubpp
perlcygwin Perl notes for Cygwin
perldgux Perl notes for DG/UX
perldos Perl notes for DOS
- perlepoc Perl notes for EPOC
perlfreebsd Perl notes for FreeBSD
perlhaiku Perl notes for Haiku
perlhpux Perl notes for HP-UX
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 314177f..ddaa189 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -321,13 +321,13 @@ XXX
=head2 Discontinued Platforms
-XXX List any platforms that this version of perl no longer compiles on.
-
=over 4
-=item XXX-some-platform
+=item EPOC
-XXX
+Support code relating to EPOC has been removed. EPOC was a family of
+operating systems developed by Psion for mobile devices. It was the
+predecessor of Symbian. The port was last updated in April 2002.
=back
**** PATCH TRUNCATED AT 2000 LINES -- 281 NOT SHOWN ****
--
Perl5 Master Repository
