EPOC port update (from Olaf Flebbe <O.Flebbe@science-computing.de>)

p4raw-id: //depot/perl@5193

diff --git a/README.epoc b/README.epoc
index 2ff36fd..b4bcca6 100644 (file)
--- a/README.epoc
+++ b/README.epoc
@@ -4,7 +4,7 @@ Perl 5 README file for the EPOC operating system.
 
 Olaf Flebbe <o.flebbe@gmx.de>
 http://www.linuxstart.com/~oflebbe/perl/perl5.html
-2000-01-08
+2000-02-20
 
 =====================================================================
 Introduction
@@ -13,9 +13,9 @@ Introduction
 EPOC is a OS for palmtops and mobile phones. For more informations look at:
 http://www.symbian.com/
 
-This is a port of Perl version 5.005_63 to EPOC. It runs on the Perl
-Series 5, Series 5mx. I have no reports about the Psion Revo, the
-Ericcson (??) and the Psion NetBook. I only have acess to an Series 5.
+This is a port of Perl version 5.5.650 to EPOC. It runs on the Perl
+Series 5, Series 5mx and the Psion Revo. I have no reports for other
+EPOC devices.
 
 Features are left out, because of restrictions of the POSIX support.
 
@@ -105,8 +105,6 @@ The following things are left out of this perl port:
   directory very well (i.e. not at all, but it tries hard to emulate
   one) See PATH.
 
-+ sockets seems to work now!
-
 + You need the shell eshell.exe in order to run perl.exe and supply
   it with arguments.
 
@@ -132,15 +130,13 @@ Sorry, this is far too short.
 
     Unpack the sources. 
 
-      Build a native miniperl... 
+      Build a native perl from this sources... 
       cp epoc/* .
-      for i in *.SH ; do
-         sh $i
-      done
+      ./Configure -S
       make perl
       cp miniperl.native miniperl
       make perl
-      perl linkit perlmain.o lib/auto/DynaLoader/DynaLoader.a \
+      perl link.pl perlmain.o lib/auto/DynaLoader/DynaLoader.a \
          lib/auto/Data/Dumper.a \
          lib/auto/File/Glob/Glob.a lib/auto/IO/IO.a \
          lib/auto/Socket/Socket.a perl.a `cat ext.libs`
@@ -149,10 +145,9 @@ Sorry, this is far too short.
 
 
 ====================================================================
-TODO
+Wish List
 ====================================================================
 
-- Get the HTTPD::* working (Hey, It worked the first time for me!)
 - Threads ?
 - Acess to the GUI?
 

diff --git a/epoc/config.sh b/epoc/config.sh
index 533bdcc..fda0bf0 100644 (file)
--- a/epoc/config.sh
+++ b/epoc/config.sh
@@ -34,8 +34,8 @@ apirevision=''
 apisubversion=''
 apiversion=''
 ar='arm-pe-ar'
-archlib='/perl/lib/5.5.640/epoc'
-archlibexp='/perl/lib/5.5.640/epoc'
+archlib='/perl/lib/5.5.650/epoc'
+archlibexp='/perl/lib/5.5.650/epoc'
 archname64=''
 archname='epoc'
 archobjs='epoc.o epocish.o epoc_stubs.o'
@@ -575,8 +575,8 @@ pmake=''
 pr=''
 prefix=''
 prefixexp=''
-privlib='/perl/lib/5.5.640'
-privlibexp='/perl/lib/5.5.640'
+privlib='/perl/lib/5.5.650'
+privlibexp='/perl/lib/5.5.650'
 prototype='define'
 ptrsize='4'
 randbits='31'
@@ -620,10 +620,10 @@ sig_name_init='"ZERO", 0'
 sig_num='0'
 sig_num_init='0, 0'
 signal_t='void'
-sitearch='/perl/lib/site_perl/5.5.640/epoc'
-sitearchexp='/perl/lib/site_perl/5.5.640/epoc'
-sitelib='/perl/lib/site_perl/5.5.640/'
-sitelibexp='/perl/lib/site_perl/5.5.640/'
+sitearch='/perl/lib/site_perl/5.5.650/epoc'
+sitearchexp='/perl/lib/site_perl/5.5.650/epoc'
+sitelib='/perl/lib/site_perl/5.5.650/'
+sitelibexp='/perl/lib/site_perl/5.5.650/'
 siteprefix=''
 siteprefixexp=''
 sizetype='size_t'
@@ -691,7 +691,7 @@ vendorlib=''
 vendorlibexp=''
 vendorprefix=''
 vendorprefixexp=''
-version='5.5.640'
+version='5.5.650'
 vi=''
 voidflags='15'
 xlibpth=''
@@ -714,10 +714,10 @@ config_arg10=''
 config_arg11=''
 PERL_REVISION=5
 PERL_VERSION=5
-PERL_SUBVERSION=640
+PERL_SUBVERSION=650
 PERL_API_REVISION=5
 PERL_API_VERSION=5
-PERL_API_SUBVERSION=640
+PERL_API_SUBVERSION=650
 CONFIGDOTSH=true
 # Variables propagated from previous config.sh file.
 pp_sys_cflags=''
@@ -761,4 +761,19 @@ i_ustat='undef'
 use64bits='define'
 uidsize='2'
 gidsize='2'
-
+ivdformat='"ld"'
+uvuformat='"lu"'
+uvoformat='"lo"'
+uvxformat='"lx"'
+uidformat='"hu"'
+gidformat='"hu"'
+d_strtold='undef'
+d_strtoll='undef'
+d_strtouq='undef'
+d_nv_preserves_uv='define'
+use5005threads='undef'
+useithreads='undef'
+d_iconv='undef'
+i_iconv='undef'
+inc_version_list=' '
+inc_version_list_init='0'

diff --git a/epoc/createpkg.pl b/epoc/createpkg.pl
index 7270504..6977bd3 100644 (file)
--- a/epoc/createpkg.pl
+++ b/epoc/createpkg.pl
@@ -3,17 +3,17 @@
 use File::Find;
 use Cwd;
 
-$VERSION="5.005";
-$PATCH=63;
-$EPOC_VERSION=16;
+$VERSION="5.5";
+$PATCH="650";
+$EPOC_VERSION=19;
 $CROSSCOMPILEPATH=cwd;
-$CROSSREPLACEPATH="H:\\devel\\perl5.005_63";
+$CROSSREPLACEPATH="H:\\devel\\perl5.5.650";
 
 
 sub filefound {
     my $f = $File::Find::name;
     
-    return if ( $f =~ /unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
+    return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
     my $back = $f;
 
     $back =~ s|$CROSSCOMPILEPATH||;
@@ -22,7 +22,7 @@ sub filefound {
 
     my $psiback = $back;
 
-    $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i;
+    $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i;
 
     print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n"  if ( -f $f );
 ;
@@ -35,6 +35,6 @@ print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
 print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n";
 
 find(\&filefound, cwd.'/lib');
-print OUT "@\"G:\\lib\\stdlib.sis\",(0x010002c3)\n"
+print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"
 
 

diff --git a/perl.c b/perl.c
index cce5c51..d1bbb27 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2166,6 +2166,9 @@ Perl_moreswitches(pTHX_ char *s)
 #ifdef __MINT__
        printf("MiNT port by Guido Flohr, 1997-1999\n");
 #endif
+#ifdef EPOC
+       printf("EPOC port by Olaf Flebbe, 1999-2000\n");
+#endif
 #ifdef BINARY_BUILD_NOTICE
        BINARY_BUILD_NOTICE;
 #endif