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.
Cross/README
-=item EPOC
-
-README.epoc
-
=item Symbian
README.symbian
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 $[
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
# 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",
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);
}
}
+++ /dev/null
-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 <olaf@oflebbe.de>
-L<http://www.oflebbe.de/perl/perl5.html>
-
-=head1 LAST UPDATE
-
-2003-01-18
-
-=cut
}
#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",
+++ /dev/null
-#!/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.flebbe@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++"'
+++ /dev/null
-#!/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;
-
+++ /dev/null
-/*
- * Copyright (c) 1999 Olaf Flebbe o.flebbe@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);
-}
-
+++ /dev/null
-/*
- * Copyright (c) 1999 Olaf Flebbe o.flebbe@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() {}
-
-
-
+++ /dev/null
-/*
- * Copyright (c) 1999 Olaf Flebbe o.flebbe@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));
- }
-}
-
-
+++ /dev/null
-/*
- * 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
-
-
+++ /dev/null
-#!/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\" ");
-
use Config;
use strict;
-our $VERSION = "1.16";
+our $VERSION = "1.17";
my %err = ();
my %wsa = ();
} 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 -`;
our $host;
BEGIN {
- $VERSION = '1.16';
+ $VERSION = '1.17';
{
local $SIG{__DIE__};
eval {
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?
use strict;
use warnings;
use warnings::register;
-our $VERSION = '1.22';
+our $VERSION = '1.23';
require Exporter;
require Cwd;
$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
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
$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.
dsc
ebcdic
embed
- epoc
faq1
faq2
faq3
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
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"
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)
/* 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. */
#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
#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
# define ISHISH "vos"
#endif
-#if defined(EPOC)
-# include "epocish.h"
-# define ISHISH "epoc"
-#endif
-
#ifdef __SYMBIAN32__
# include "symbian/symbianish.h"
# define ISHISH "symbian"
# 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);
podnames = perl perlbook perldata perldebtut perldiag perldsc perlform perlfunc perlipc perllexwarn perllol perlmod perlmodlib perlmodinstall perlnewmod perlop perlootut perlopentut perlpacktut perlpod perlport perlrequick perlretut perlref perlreftut perlrequick perlrun perlsec perlstyle perlsub perlsyn perltie perltrap perlutil perlunifaq perluniintro perlvar
faqpodnames = perlfaq perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5 perlfaq6 perlfaq7 perlfaq8 perlfaq9
advpodnames = perlapi perlapio perlcall perlclib perlcompile perldebguts perldbmfilter perldebug perldelta perldiag perlebcdic perlembed perlfilter perlfork perlguts perlhack perlintern perliol perllocale perlnumber perlobj perlpodspec perlre perlthrtut perltodo perlunicode perlxs perlxs perlxstut
-archpodnames = perlaix perlamiga perlbeos perlbs2000 perlce perlcygwin perldgux perldos perlepoc perlfreebsd perlhpux perlhurd perlirix perlmacos perlmpeix perlnetware perlos2 perlos390 perlos400 perlplan9 perlqnx perlsolaris perltru64 perlvms perlvos perlwin32
+archpodnames = perlaix perlamiga perlbeos perlbs2000 perlce perlcygwin perldgux perldos perlfreebsd perlhpux perlhurd perlirix perlmacos perlmpeix perlnetware perlos2 perlos390 perlos400 perlplan9 perlqnx perlsolaris perltru64 perlvms perlvos perlwin32
histpods = perl5004delta perl5005delta perl561delta perl56delta perl570delta perl571delta perl572delta perl573delta perl58delta perlhist
libpods = ${podnames:%=pod/%.pod}
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
=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
=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>,
/* MSG_TRUNC can give oversized count; quietly lose it */
if (count > length)
count = length;
-#ifdef EPOC
- /* Bogus return without padding */
- bufsize = sizeof (struct sockaddr_in);
-#endif
SvCUR_set(bufsv, count);
*SvEND(bufsv) = '\0';
(void)SvPOK_only(bufsv);
fcntl(fd, F_SETFD, fd > PL_maxsysfd); /* ensure close-on-exec */
#endif
-#ifdef EPOC
- setbuf( IoIFP(io), NULL); /* EPOC gets confused about sockets */
-#endif
-
RETPUSHYES;
}
#endif
fcntl(fd, F_SETFD, fd > PL_maxsysfd); /* ensure close-on-exec */
#endif
-#ifdef EPOC
- len = sizeof (struct sockaddr_in); /* EPOC somehow truncates info */
- setbuf( IoIFP(nstio), NULL); /* EPOC gets confused about sockets */
-#endif
#ifdef __SCO_VERSION__
len = sizeof (struct sockaddr_in); /* OpenUNIX 8 somehow truncates info */
#endif
umask(022);
SKIP: {
- skip "bogus umask", 1 if ($^O eq 'MSWin32') || ($^O eq 'NetWare') || ($^O eq 'epoc');
+ skip "bogus umask", 1 if ($^O eq 'MSWin32') || ($^O eq 'NetWare');
is((umask(0)&0777), 022, 'umask'),
}
SKIP:
{
- # based on code, dosish and epoc systems can't do no-backup inplace
+ # based on code, dosish systems can't do no-backup inplace
# edits
- $^O =~ /^(MSWin32|cygwin|uwin|dos|epoc|os2)$/
+ $^O =~ /^(MSWin32|cygwin|uwin|dos|os2)$/
and skip("Can't inplace edit without backups on $^O", 4);
our @ifiles = ( tempfile(), tempfile(), tempfile() );
my $list_assignment_supported = 1;
-#mg.c says list assignment not supported on VMS, EPOC, and SYMBIAN.
+#mg.c says list assignment not supported on VMS and SYMBIAN.
$list_assignment_supported = 0 if ($^O eq 'VMS');
}
# Test for bug [perl #36434]
-# Can not do this test on VMS, EPOC, and SYMBIAN according to comments
+# Can not do this test on VMS, and SYMBIAN according to comments
# in mg.c/Perl_magic_clear_all_env()
SKIP: {
skip('Can\'t make assignment to \%ENV on this system', 3) if $Is_VMS;
my_setenv_format(environ[i], nam, nlen, val, vlen);
} else {
# endif
-# if defined(__CYGWIN__) || defined(EPOC) || defined(__SYMBIAN32__) || defined(__riscos__)
+# if defined(__CYGWIN__)|| defined(__SYMBIAN32__) || defined(__riscos__)
# if defined(HAS_UNSETENV)
if (val == NULL) {
(void)unsetenv(nam);
#endif /* WIN32 || NETWARE */
-#endif /* !VMS && !EPOC*/
+#endif /* !VMS */
#ifdef UNLINK_ALL_VERSIONS
I32
PerlIO *
Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args)
{
-#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(OS2) && !defined(VMS) && !defined(EPOC) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__)
+#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(OS2) && !defined(VMS) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__)
dVAR;
int p[2];
I32 This, that;
}
/* VMS' my_popen() is in VMS.c, same with OS/2. */
-#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(EPOC) && !defined(__LIBCATAMOUNT__)
+#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(__LIBCATAMOUNT__)
PerlIO *
Perl_my_popen(pTHX_ const char *cmd, const char *mode)
{
return PerlIO_fdopen(p[This], mode);
}
#else
-#if defined(EPOC)
-FILE *popen();
-PerlIO *
-Perl_my_popen(pTHX_ const char *cmd, const char *mode)
-{
- PERL_ARGS_ASSERT_MY_POPEN;
- PERL_FLUSHALL_FOR_CHILD;
- /* Call system's popen() to get a FILE *, then import it.
- used 0 for 2nd parameter to PerlIO_importFILE;
- apparently not used
- */
- return PerlIO_importFILE(popen(cmd, mode), 0);
-}
-#else
#if defined(DJGPP)
FILE *djgpp_popen();
PerlIO *
}
#endif
#endif
-#endif
#endif /* !DOSISH */
#endif /* !PERL_MICRO */
/* VMS' my_pclose() is in VMS.c; same with OS/2 */
-#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(EPOC) && !defined(__LIBCATAMOUNT__)
+#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(__LIBCATAMOUNT__)
I32
Perl_my_pclose(pTHX_ PerlIO *ptr)
{
}
#endif
-#if defined(OS2) || defined(EPOC)
+#if defined(OS2)
int pclose();
#ifdef HAS_FORK
int /* Cannot prototype with I32
|| ((f)[0] == '\\' && (f)[1] == '\\') /* UNC path */ \
|| ((f)[3] == ':')) /* volume name, currently only sys */
# else /* !NETWARE */
-# if defined(DOSISH) || defined(EPOC) || defined(__SYMBIAN32__)
+# if defined(DOSISH) || defined(__SYMBIAN32__)
# define PERL_FILE_IS_ABSOLUTE(f) \
(*(f) == '/' \
|| ((f)[0] && (f)[1] == ':')) /* drive name */
-# else /* NEITHER DOSISH NOR EPOCISH NOR SYMBIANISH */
+# else /* NEITHER DOSISH NOR SYMBIANISH */
# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
# endif /* DOSISH */
# endif /* NETWARE */
copy ..\README.cygwin ..\pod\perlcygwin.pod
copy ..\README.dgux ..\pod\perldgux.pod
copy ..\README.dos ..\pod\perldos.pod
- copy ..\README.epoc ..\pod\perlepoc.pod
copy ..\README.freebsd ..\pod\perlfreebsd.pod
copy ..\README.haiku ..\pod\perlhaiku.pod
copy ..\README.hpux ..\pod\perlhpux.pod
-cd $(PODDIR) && del /f *.html *.bat roffitall \
perl5176delta.pod perlaix.pod perlamiga.pod perlapi.pod \
perlbeos.pod perlbs2000.pod perlce.pod perlcn.pod \
- perlcygwin.pod perldgux.pod perldos.pod perlepoc.pod \
- perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \
- perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \
- perlmacos.pod perlmacosx.pod perlmodlib.pod perlnetware.pod \
- perlopenbsd.pod perlos2.pod perlos390.pod perlos400.pod \
- perlplan9.pod perlqnx.pod perlriscos.pod perlsolaris.pod \
- perlsymbian.pod perltoc.pod perltru64.pod perltw.pod \
- perluniprops.pod perlvos.pod perlwin32.pod
+ perlcygwin.pod perldgux.pod perldos.pod perlfreebsd.pod \
+ perlhaiku.pod perlhpux.pod perlhurd.pod perlintern.pod \
+ perlirix.pod perljp.pod perlko.pod perllinux.pod perlmacos.pod \
+ perlmacosx.pod perlmodlib.pod perlnetware.pod perlopenbsd.pod \
+ perlos2.pod perlos390.pod perlos400.pod perlplan9.pod \
+ perlqnx.pod perlriscos.pod perlsolaris.pod perlsymbian.pod \
+ perltoc.pod perltru64.pod perltw.pod perluniprops.pod \
+ perlvos.pod perlwin32.pod
-cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \
perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \
xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep cpanp-run-perl cpanp cpan2dist shasum corelist config_data zipdetails
copy ..\README.cygwin ..\pod\perlcygwin.pod
copy ..\README.dgux ..\pod\perldgux.pod
copy ..\README.dos ..\pod\perldos.pod
- copy ..\README.epoc ..\pod\perlepoc.pod
copy ..\README.freebsd ..\pod\perlfreebsd.pod
copy ..\README.haiku ..\pod\perlhaiku.pod
copy ..\README.hpux ..\pod\perlhpux.pod
-cd $(PODDIR) && del /f *.html *.bat roffitall \
perl5176delta.pod perlaix.pod perlamiga.pod perlapi.pod \
perlbeos.pod perlbs2000.pod perlce.pod perlcn.pod \
- perlcygwin.pod perldgux.pod perldos.pod perlepoc.pod \
- perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \
- perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \
- perlmacos.pod perlmacosx.pod perlmodlib.pod perlnetware.pod \
- perlopenbsd.pod perlos2.pod perlos390.pod perlos400.pod \
- perlplan9.pod perlqnx.pod perlriscos.pod perlsolaris.pod \
- perlsymbian.pod perltoc.pod perltru64.pod perltw.pod \
- perluniprops.pod perlvos.pod perlwin32.pod
+ perlcygwin.pod perldgux.pod perldos.pod perlfreebsd.pod \
+ perlhaiku.pod perlhpux.pod perlhurd.pod perlintern.pod \
+ perlirix.pod perljp.pod perlko.pod perllinux.pod perlmacos.pod \
+ perlmacosx.pod perlmodlib.pod perlnetware.pod perlopenbsd.pod \
+ perlos2.pod perlos390.pod perlos400.pod perlplan9.pod \
+ perlqnx.pod perlriscos.pod perlsolaris.pod perlsymbian.pod \
+ perltoc.pod perltru64.pod perltw.pod perluniprops.pod \
+ perlvos.pod perlwin32.pod
-cd ..\utils && del /f h2ph splain perlbug pl2pm c2ph pstruct h2xs \
perldoc perlivp libnetcfg enc2xs piconv cpan *.bat \
xsubpp pod2html instmodsh json_pp prove ptar ptardiff ptargrep cpanp-run-perl cpanp cpan2dist shasum corelist config_data zipdetails
projects / platform / upstream / perl.git / commitdiff