In perl.git, the branch smoke-me/end-of-an-era has been updated <http://perl5.git.perl.org/perl.git/commitdiff/403981f1d91035d2186c08c3f59388919622a671?hp=7d4ee4b3ab7a3ef2c4675f2b4dc93f1e6ede7194>
- Log ----------------------------------------------------------------- commit 403981f1d91035d2186c08c3f59388919622a671 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/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 +- 31 files changed, 47 insertions(+), 1736 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 722d002..744be3e 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 $[ @@ -4883,7 +4876,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 7bd9ab9..a0f8801 100644 --- a/perl.c +++ b/perl.c @@ -2140,7 +2140,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 @@ -3494,10 +3494,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" @@ -4437,7 +4433,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 f68a336..8a74a0c 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/perlport.pod b/pod/perlport.pod index 110c9a2..1c20791 100644 --- a/pod/perlport.pod +++ b/pod/perlport.pod @@ -2308,7 +2308,7 @@ L<http://www.cpan.org/ports/index.html> for binary distributions. =head1 SEE ALSO L<perlaix>, L<perlamiga>, L<perlbeos>, L<perlbs2000>, -L<perlce>, L<perlcygwin>, L<perldgux>, L<perldos>, L<perlepoc>, +L<perlce>, L<perlcygwin>, L<perldgux>, 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/pp_sys.c b/pp_sys.c index 54fe661..5945e23 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -1685,10 +1685,6 @@ PP(pp_sysread) /* MSG_TRUNC can give oversized count; quietly lose it */ if (count > length) count = length; **** PATCH TRUNCATED AT 2000 LINES -- 259 NOT SHOWN **** -- Perl5 Master Repository