From: Gurusamy Sarathy Date: Tue, 22 Feb 2000 09:38:58 +0000 (+0000) Subject: EPOC port update (from Olaf Flebbe ) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f83d2536257d3a72eef5f8d789c0784171782b42;p=p5sagit%2Fp5-mst-13.2.git EPOC port update (from Olaf Flebbe ) p4raw-id: //depot/perl@5193 --- diff --git a/README.epoc b/README.epoc index 2ff36fd..b4bcca6 100644 --- a/README.epoc +++ b/README.epoc @@ -4,7 +4,7 @@ Perl 5 README file for the EPOC operating system. Olaf Flebbe 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 --- 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 --- 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 --- 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