diff options
Diffstat (limited to 'symbian')
| -rw-r--r-- | symbian/PerlBase.pod | 2 | ||||
| -rw-r--r-- | symbian/PerlUtil.cpp | 116 | ||||
| -rw-r--r-- | symbian/PerlUtil.h | 36 | ||||
| -rw-r--r-- | symbian/PerlUtil.pod | 41 | ||||
| -rw-r--r-- | symbian/TODO | 5 | ||||
| -rw-r--r-- | symbian/config.pl | 29 | ||||
| -rw-r--r-- | symbian/sdk.pl | 86 | ||||
| -rw-r--r-- | symbian/sisify.pl | 75 | ||||
| -rw-r--r-- | symbian/symbian_proto.h | 2 | ||||
| -rw-r--r-- | symbian/xsbuild.pl | 25 |
10 files changed, 374 insertions, 43 deletions
diff --git a/symbian/PerlBase.pod b/symbian/PerlBase.pod index 2203b961f0..af70e5dae8 100644 --- a/symbian/PerlBase.pod +++ b/symbian/PerlBase.pod @@ -1,6 +1,6 @@ =head1 NAME -CPerlBase - a base class encapsulating a Perl interpreter +CPerlBase - a C++ base class encapsulating a Perl interpreter in Symbian =head1 SYNOPSIS diff --git a/symbian/PerlUtil.cpp b/symbian/PerlUtil.cpp new file mode 100644 index 0000000000..75c2cffe39 --- /dev/null +++ b/symbian/PerlUtil.cpp @@ -0,0 +1,116 @@ +/* Copyright (c) 2004-2005 Nokia. All rights reserved. */ + +/* The PerlUtil class is licensed under the same terms as Perl itself. */ + +/* See PerlUtil.pod for documentation. */ + +#define PERLUTIL_CPP + +#include "PerlUtil.h" + +#include <utf.h> + +#undef Copy + +EXPORT_C SV* PerlUtil::newSvPVfromTDesC8(const TDesC8& aDesC8) { + dTHX; + return newSVpvn((const char *)aDesC8.Ptr(), aDesC8.Size()); +} + +EXPORT_C void PerlUtil::setSvPVfromTDesC8(SV* sv, const TDesC8& aDesC8) { + dTHX; + sv_setpvn(sv, (const char *)aDesC8.Ptr(), aDesC8.Size()); +} + +EXPORT_C HBufC8* PerlUtil::newHBufC8fromSvPV(SV* sv) { + dTHX; + return PerlUtil::newHBufC8fromPVn((const U8 *)SvPV_nolen(sv), SvLEN(sv)); +} + +EXPORT_C void PerlUtil::setTDes8fromSvPV(TDes8& aDes8, SV* sv) { + dTHX; + PerlUtil::setTDes8fromPVn(aDes8, (const U8 *)SvPV_nolen(sv), SvLEN(sv)); +} + +EXPORT_C SV* PerlUtil::newSvPVfromTDesC16(const TDesC16& aDesC16) { + dTHX; + SV* sv = NULL; + HBufC8* hBuf8 = HBufC8::New(aDesC16.Length() * 3); + + if (hBuf8) { + TPtr8 aPtr8(hBuf8->Des()); + CnvUtfConverter::ConvertFromUnicodeToUtf8(aPtr8, aDesC16); + sv = newSVpvn((const char *)(hBuf8->Ptr()), hBuf8->Size()); + delete hBuf8; + hBuf8 = NULL; + SvUTF8_on(sv); + } + + return sv; +} + +EXPORT_C void PerlUtil::setSvPVfromTDesC16(SV* sv, const TDesC16& aDesC16) { + dTHX; + HBufC8* hBuf8 = HBufC8::New(aDesC16.Length() * 3); + + if (hBuf8) { + TPtr8 aPtr8(hBuf8->Des()); + CnvUtfConverter::ConvertFromUnicodeToUtf8(aPtr8, aDesC16); + sv_setpvn(sv, (const char *)(hBuf8->Ptr()), hBuf8->Size()); + delete hBuf8; + hBuf8 = NULL; + SvUTF8_on(sv); + } +} + +EXPORT_C HBufC16* PerlUtil::newHBufC16fromSvPV(SV* sv) { + dTHX; + return PerlUtil::newHBufC16fromPVn((const U8 *)SvPV_nolen(sv), SvLEN(sv), SvUTF8(sv)); +} + +void PerlUtil::setTDes16fromSvPV(TDes16& aDes16, SV* sv) { + dTHX; + PerlUtil::setTDes16fromPVn(aDes16, (const U8 *)SvPV_nolen(sv), SvLEN(sv), SvUTF8(sv)); +} + +EXPORT_C HBufC8* PerlUtil::newHBufC8fromPVn(const U8* s, STRLEN n) { + HBufC8* aBuf8 = HBufC8::New(n); + if (aBuf8) { + TPtr8 ptr8 = aBuf8->Des(); + ptr8.Copy(s, n); + } + return aBuf8; +} + +EXPORT_C void PerlUtil::setTDes8fromPVn(TDes8& aDes8, const U8* s, STRLEN n) { + // TODO: grow aDes8 if needed + aDes8.Copy(s, n); +} + +EXPORT_C HBufC16* PerlUtil::newHBufC16fromPVn(const U8 *s, STRLEN n, bool utf8) { + HBufC16 *hBuf16 = HBufC16::New(n); // overallocate + + if (hBuf16) { + if (utf8) { + TPtr16 aPtr16(hBuf16->Des()); + TPtrC8 aPtrC8(s, n); + CnvUtfConverter::ConvertToUnicodeFromUtf8(aPtr16, aPtrC8); + } else { + TPtrC8 aPtrC8(s, n); + hBuf16->Des().Copy(aPtrC8); + } + } + + return hBuf16; +} + +EXPORT_C void PerlUtil::setTDes16fromPVn(TDes16& aDes16, const U8 *s, STRLEN n, bool utf8) { + // TODO: grow aDes16 if needed + if (utf8) { + TPtrC8 aPtrC8(s, n); + CnvUtfConverter::ConvertToUnicodeFromUtf8(aDes16, aPtrC8); + } else { + TPtrC8 aPtrC8(s, n); + aDes16.Copy(aPtrC8); + } +} diff --git a/symbian/PerlUtil.h b/symbian/PerlUtil.h new file mode 100644 index 0000000000..1e7d2929b4 --- /dev/null +++ b/symbian/PerlUtil.h @@ -0,0 +1,36 @@ +/* Copyright (c) 2004-2005 Nokia. All rights reserved. */ + +/* The PerlUtil class is licensed under the same terms as Perl itself. */ + +/* See PerlUtil.pod for documentation. */ + +#ifndef __PerlUtil_h__ +#define __PerlUtil_h__ + +#include <e32base.h> + +#include "EXTERN.h" +#include "perl.h" + +class PerlUtil { + public: + + IMPORT_C static SV* newSvPVfromTDesC8(const TDesC8& aDes); + IMPORT_C static void setSvPVfromTDesC8(SV* sv, const TDesC8& aDes); + IMPORT_C static HBufC8* newHBufC8fromSvPV(SV* sv); + IMPORT_C static void setTDes8fromSvPV(TDes8& aDes8, SV* sv); + + IMPORT_C static SV* newSvPVfromTDesC16(const TDesC16& aDes); + IMPORT_C static void setSvPVfromTDesC16(SV* sv, const TDesC16& aDes); + IMPORT_C static HBufC16* newHBufC16fromSvPV(SV* sv); + IMPORT_C static void setTDes16fromSvPV(TDes16& aDes16, SV* sv); + + IMPORT_C static HBufC8* newHBufC8fromPVn(const U8* s, STRLEN n); + IMPORT_C static void setTDes8fromPVn(TDes8& aDes8, const U8* s, STRLEN n); + IMPORT_C static HBufC16* newHBufC16fromPVn(const U8* s, STRLEN n, bool utf8); + IMPORT_C static void setTDes16fromPVn(TDes16& aDes16, const U8* s, STRLEN n, bool utf8); +}; + +#endif /* #ifndef __PerlUtil_h__ */ + + diff --git a/symbian/PerlUtil.pod b/symbian/PerlUtil.pod new file mode 100644 index 0000000000..095d5923dd --- /dev/null +++ b/symbian/PerlUtil.pod @@ -0,0 +1,41 @@ +=head1 NAME + +PerlUtil - a C++ utility class for Perl/Symbian + +=head1 SYNOPSIS + + // in your App.mmp + USERINCLUDE \symbian\perl\x.y.z\include + LIBRARY perlXYZ.lib + + // in your App + #include "PerlUtil.h" // includes also EXTERN.h and perl.h + + // Static methods for moving between Perl strings (SvPV) + // and Symbian strings (HBufC and TDes). + + static SV* newSvPVfromTDesC8(const TDesC8& aDes); + static void setSvPVfromTDesC8(SV* sv, const TDesC8& aDes); + static HBufC8* newHBufC8fromSvPV(SV* sv); + static void setTDes8fromSvPV(TDes8* aDes8, SV* sv); + + static SV* newSvPVfromTDesC16(const TDesC16& aDes); + static void setSvPVfromTDesC16(SV* sv, const TDesC16& aDes); + static HBufC16* newHBufC16fromSvPV(SV* sv); + static void setTDes16fromSvPV(TDes16* aDes16, SV* sv); + + static HBufC8* newHBufC8fromPVn(const U8* s, STRLEN n); + static void setTDes8fromPVn(TDes8* aDes8, const U8* s, STRLEN n); + static HBufC16* newHBufC16fromPVn(const U8* s, STRLEN n, bool utf8); + static void setTDes16fromPVn(TDes16* aDes16, const U8* s, STRLEN n); + // An example + + const U8* s = (const U8 *)"foo"; + HBufC16* b = PerlUtil::newHBufC16fromPVn(s, 3, 0); + someCallWithConstTDesCRefArgument(*b); + delete b; + +=cut + + + diff --git a/symbian/TODO b/symbian/TODO index 96b81a6d56..e8586d2efe 100644 --- a/symbian/TODO +++ b/symbian/TODO @@ -27,14 +27,16 @@ - system("app arg1 arg2 &") but remember that a Symbian process does get only argv[0] and argv[1]: all the arguments of the application are passed - in as a single argument ("arg1 arg2" in the above) + in as a single argument, the second one ("arg1 arg2" in the above) What does not work: + - I/O redirection - piped open, in either direction - qx/backtick/` - fork/wait (these unlikely to ever work as in POSIX) - IO redirection or filename globbing in system() (since there is no POSIX shell beneath) What might work in future: + - some I/O redirection - exec() might be made to work - Symbian::spawn("cmd args") returning a process id (what does Win32 do?) - Symbian::waitpid($spawned_pid) @@ -70,7 +72,6 @@ =head1 PACKAGING -- @INC manipulation for sisify.pl - subdivide perlext.sis? - pm-stripper: strip pod and comments, while inserting the appropriate #line commands to keep linenumbers in sync. Shaves off easily 50% diff --git a/symbian/config.pl b/symbian/config.pl index cb1477126c..d37a49e875 100644 --- a/symbian/config.pl +++ b/symbian/config.pl @@ -313,12 +313,15 @@ print "Creating...\n"; create_mmp( 'miniperl', 'exe', 'miniperlmain.c', 'symbian\symbian_stubs.c', - 'symbian\PerlBase.cpp', 'symbian\symbian_utils.cpp', + 'symbian\PerlBase.cpp', + 'symbian\PerlUtil.cpp', + 'symbian\symbian_utils.cpp', ); create_mmp( "perl", 'exe', 'perlmain.c', 'symbian\symbian_stubs.c', 'symbian\symbian_utils.cpp', 'symbian\PerlBase.cpp', + 'symbian\PerlUtil.cpp', 'ext\DynaLoader\DynaLoader.cpp', ); @@ -326,6 +329,7 @@ create_mmp( "perl$VERSION", 'dll', 'symbian\symbian_dll.cpp', 'symbian\symbian_stubs.c', 'symbian\symbian_utils.cpp', 'symbian\PerlBase.cpp', + 'symbian\PerlUtil.cpp', 'ext\DynaLoader\DynaLoader.cpp', ); @@ -548,10 +552,10 @@ allsis: all miniperlexe.sis perlexe.sis perldll.sis perllib.sis perlext.sis perl perldll.sis perl$VERSION.sis: perldll_arm pm symbian\\makesis.pl perl \$(XLIB) symbian\\makesis.pl perl${VERSION}dll -perllib.sis: \$(PM) +perl${VERSION}lib.sis perllib.sis: \$(PM) perl \$(XLIB) symbian\\makesis.pl perl${VERSION}lib -perlext.sis: perldll_arm buildext_sis +perl${VERSION}ext.sis perlext.sis: perldll_arm buildext_sis perl symbian\\makesis.pl perl${VERSION}ext EXT = Compress::Zlib Cwd Data::Dumper Devel::Peek Digest::MD5 Errno Fcntl File::Glob Filter::Util::Call IO List::Util MIME::Base64 PerlIO::scalar PerlIO::via SDBM_File Socket Storable Time::HiRes XSLoader attrs @@ -587,19 +591,34 @@ sdkinstall: - copy /y *.inc \$(APIDIR)\\include copy /y lib\\ExtUtils\\xsubpp \$(APIDIR)\\lib\\ExtUtils copy /y lib\\ExtUtils\\typemap \$(APIDIR)\\lib\\ExtUtils + copy /y lib\\ExtUtils\\ParseXS.pm \$(APIDIR)\\lib\\ExtUtils copy /y symbian\\xsbuild.pl \$(APIDIR)\\bin + copy /y symbian\\sisify.pl \$(APIDIR)\\bin copy /y symbian\\PerlBase.h \$(APIDIR)\\include + copy /y symbian\\PerlUtil.h \$(APIDIR)\\include copy /y symbian\\symbian*.h \$(APIDIR)\\include\\symbian copy /y symbian\\PerlBase.pod \$(APIDIR)\\pod + copy /y symbian\\PerlUtil.pod \$(APIDIR)\\pod RELDIR = $SDK\\epoc32\\release RELWIN = \$(RELDIR)\\\$(WIN)\\udeb RELARM = \$(RELDIR)\\\$(ARM)\\$UARM +SDKZIP = perl${VERSION}sdk.zip -perlsdk.zip: perldll sdkinstall + +\$(SDKZIP) perlsdk.zip: perldll sdkinstall + -del /f perl${VERSION}sdk.zip zip -r perl${VERSION}sdk.zip \$(RELWIN)\\perl$VERSION.* \$(RELARM)\\perl$VERSION.* \$(APIDIR) \@echo perl${VERSION}sdk.zip created. +PERLSIS = perl${VERSION}.SIS perl${VERSION}lib.SIS perl${VERSION}ext.SIS +ALLSIS = \$(PERLSIS) perlapp.sis +ETC = README.symbian symbian\\PerlBase.pod symbian\\PerlUtil.pod symbian\\sisify.pl symbian\\TODO + +perl${VERSION}dist.zip perldist.zip: \$(ALLSIS) \$(SDKZIP) \$(ETC) + -del /f perl${VERSION}dist.zip + zip -r perl${VERSION}dist.zip \$(ALLSIS) \$(SDKZIP) \$(ETC) + perlapp: sdkinstall perlapp_win perlapp_arm perlapp_win: config.h @@ -615,7 +634,7 @@ perlapp.sis: perlapp_arm cd symbian; make perlapp.sis perlapp.zip: - cd symbian; zip perlapp.zip PerlApp.* PerlRecog.* PerlBase.* demo_pl + cd symbian; zip perlapp.zip PerlApp.* PerlRecog.* PerlBase.* PerlUtil.* demo_pl zip: perlsdk.zip perlapp.zip diff --git a/symbian/sdk.pl b/symbian/sdk.pl index 1dc4d2f552..8054c50652 100644 --- a/symbian/sdk.pl +++ b/symbian/sdk.pl @@ -46,3 +46,89 @@ $ENV{UARM} = $UARM; die "$0: failed to locate the Symbian SDK\n" unless defined $SDK; $SDK; + +# The following is a cheat sheet for the right S60/S80 SDK settings. +# +# set EPOC_BIN=%EPOCROOT%Epoc32\gcc\bin;%EPOCROOT%Epoc32\Tools +# set MWCW=C:\Program Files\Metrowerks\CodeWarrior for Symbian OEM v2.8 +# set MSVC=C:\Program Files\Microsoft Visual Studio +# set MSVC_BIN=%MSVC%\VC98\Bin;%MSVC%\Common\MSDev98\Bin +# set MSVC_INC=%MSVC%\VC98\atl\include;%MSVC%\mfc\include;%MSVC%\include +# set MSVC_LIB=%MSVC%\mfc\lib;%MSVC%\lib +# +# s60-1.2-cw: +# +# set EPOCROOT=\Symbian\Series60_1_2_CW\ +# set PATH=%EPOC_BIN%;%MSVC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES60_12__ -D__SERIES60_MAJOR__=1 -D__SERIES60_MINOR__=2 -D__SERIES60_1X__ +# +# s60-1.2-vc: +# +# set EPOCROOT=\Symbian\6.1\Series60\ +# set PATH=\Symbian\6.1\Shared\Epoc32\gcc\bin;\Symbian\6.1\Shared\Epoc32\Tools;%MSVC_BIN%;%PATH% +# set INCLUDE=%MSVC_INC% +# set LIB=%MSVC_LIB% +# set USERDEFS=%USERDEFS% -D__SERIES60_12__ -D__SERIES60_MAJOR__=1 -D__SERIES60_MINOR__=2 -D__SERIES60_1X__ +# +# s60-2.0-cw: +# +# set EPOCROOT=\Symbian\7.0s\Series60_v20_CW\ +# set EPOCDEVICE=Series60_2_0_CW:com.Nokia.Series60_2_0_CW +# set PATH=%EPOC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES60_20__ -D__SERIES60_MAJOR__=2 -D__SERIES60_MINOR__=0 -D__SERIES60_2X__ +# +# s60-2.0-vc: +# +# set EPOCROOT=\Symbian\7.0s\Series60_v20\ +# set EPOCDEVICE=Series60_v20:com.nokia.series60 +# set PATH=%EPOC_BIN%;%MSVC_BIN%;%PATH% +# set INCLUDE=%MSVC_INC% +# set LIB=%MSVC_LIB% +# set USERDEFS=%USERDEFS% -D__SERIES60_20__ -D__SERIES60_MAJOR__=2 -D__SERIES60_MINOR__=0 -D__SERIES60_2X__ +# +# s60-2.1-cw: +# +# set EPOCROOT=\Symbian\7.0s\Series60_v21_CW\ +# set EPOCDEVICE=Series60_v21_CW:com.Nokia.series60 +# set PATH=%EPOC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES60_21__ -D__SERIES60_MAJOR__=2 -D__SERIES60_MINOR__=1 -D__SERIES60_2X__ +# +# s60-2.6-cw: +# +# set EPOCROOT=\Symbian\8.0a\S60_2nd_FP2_CW\ +# set EPOCDEVICE=S60_2nd_FP2_CW:com.nokia.series60 +# set PATH=%EPOC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES60_26__ -D__SERIES60_MAJOR__=2 -D__SERIES60_MINOR__=6 -D__SERIES60_2X__ -D__BLUETOOTH_API_V2__ +# +# s60-2.6-vc: +# +# set EPOCROOT=\Symbian\8.0a\S60_2nd_FP2\ +# set EPOCDEVICE=S60_2nd_FP2:com.nokia.Series60 +# set PATH=%EPOC_BIN%;%MSVC_BIN%;%PATH% +# set INCLUDE=%MSVC_INC% +# set LIB=%MSVC_LIB% +# set USERDEFS=%USERDEFS% -D__SERIES60_26__ -D__SERIES60_MAJOR__=2 -D__SERIES60_MINOR__=6 -D__SERIES60_2X__ -D__BLUETOOTH_API_V2__ +# +# s60-2.8-cw: +# +# set EPOCROOT=\Symbian\8.1a\S60_2nd_FP3\ +# set EPOCDEVICE=S60_2nd_FP3:com.nokia.series60 +# set PATH=%EPOC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES60_28__ -D__SERIES60_MAJOR__=2 -D__SERIES60_MINOR__=8 -D__SERIES60_2X__ -D__BLUETOOTH_API_V2__ +# +# s80-2.0-cw: +# +# set EPOCROOT=\Symbian\7.0s\S80_DP2_0_SDK_CW\ +# set EPOCDEVICE=Series80_DP2_0_SDK_CW:com.nokia.Series80 +# set PATH=%EPOC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES80_20__ -D__SERIES80_MAJOR__=2 -D__SERIES80_MINOR__=0 -D__SERIES80_2X__ +# +# s80-2.0-vc: +# +# set EPOCROOT=\Symbian\7.0s\S80_DP2_0_SDK\ +# set EPOCDEVICE=Series80_DP2_0_SDK:com.nokia.Series80 +# set PATH=%EPOC_BIN%;%MWCW%\Bin;%MWCW%\Symbian_Tools\Command_Line_Tools;%PATH% +# set USERDEFS=%USERDEFS% -D__SERIES80_20__ -D__SERIES80_MAJOR__=2 -D__SERIES80_MINOR__=0 -D__SERIES80_2X__ +# +# EOF + diff --git a/symbian/sisify.pl b/symbian/sisify.pl index 1cf2065d77..6edce4bd93 100644 --- a/symbian/sisify.pl +++ b/symbian/sisify.pl @@ -14,7 +14,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.1'; +$VERSION = '0.2'; use Getopt::Long; use File::Temp qw/tempdir/; @@ -22,24 +22,14 @@ use File::Find; use File::Basename qw/basename dirname/; use Cwd qw/getcwd/; -# TODO: -# - prepend the \system\app\$AppName{,\lib} somehow to the @INC - BEGIN { - my $warn; - # This utility has been developed under Cygwin in Windows with - # the Series 60 2.6 SDK installed, but for the makesis utility in - # UNIX/Linux, try e.g. one of the following: + # This utility has been developed in Windows under cmd.exe with + # the Series 60 2.6 SDK installed, but for the makesis utility + # in UNIX/Linux, try e.g. one of the following: # http://gnupoc.sourceforge.net/ # http://symbianos.org/~andreh/ You # will also need the 'uidcrc' utility. - for my $exe (qw(/bin/cp /bin/tar)) { - unless( -f $exe) { # Sorry, Win32ers. - warn "$0: Need $exe\n"; - $warn++; - } - } - die "$0: Cannot continue, aborting.\n" if $warn; + die "$0: Looks like Cygwin, aborting.\n" if exists $ENV{'!C:'}; } sub die_with_usage { @@ -52,7 +42,7 @@ $0 [ --uid=hhhhhhhh ] [ --version=a.b.c ] [ --library=x.y.z ] [ some.pl | Some.p The uid is the Symbian app uid for the SIS. The version is the version of the SIS. The library is the version of Perl under which to install. If using this, -only specify directories to package. +only specify directories for packaging. __USAGE__ } @@ -156,15 +146,16 @@ for my $file (@SisPl, @SisPm, @SisOther) { print "[copying file '$file']\n" if $Debug; die_with_usage("$0: File '$file': $!") unless -f $file; my $dir = dirname($file); - do_system("mkdir $tempdir/$dir") unless $dir eq '.'; - do_system("cp $file $tempdir"); + do_system("mkdir $tempdir\\$dir") unless $dir eq '.'; + do_system("copy $file $tempdir"); } if (@SisPl) { - do_system("cp $SisPl[0] $tempdir/default.pl") unless $SisPl[0] eq "default.pl"; + do_system("copy $SisPl[0] $tempdir\\default.pl") + unless $SisPl[0] eq "default.pl"; } for my $dir (@SisDir) { print "[copying directory '$dir']\n" if $Debug; - do_system("tar cf - $dir | (cd $tempdir && tar xf -)"); + do_system("copy $dir $tempdir"); } my $SisVersionCommas = $SisVersion; @@ -173,13 +164,43 @@ $SisVersionCommas =~ s/\./\,/g; my @pkg; -push @pkg, qq[&EN]; +push @pkg, qq[&EN;]; push @pkg, qq[#{"$AppName"},($SisUid),$SisVersionCommas]; push @pkg, qq[(0x101F6F88), 0, 0, 0, {"Series60ProductID"}]; my $OWD = getcwd(); +$OWD =~ s!/!\\!g; + chdir($tempdir) or die "$0: chdir('$tempdir')\n"; + +if (@SisPl) { + if (open(my $fi, "default.pl")) { + my $fn = "default.pl.new"; + if (open(my $fo, ">$fn")) { + while (<$fi>) { + last unless /^\#/; + print $fo $_; + } + print $fo "use lib qw(\\system\\apps\\$AppName \\system\\apps\\$AppName\\lib);\n"; + printf $fo qq[# %d "$SisPl[0]"\n], $.; + print $fo $_; + while (<$fi>) { + print $fo $_; + } + close($fo); + } else { + die "$0: open '>$fn': $!\n"; + } + close($fi); + rename($fn, "default.pl") or die "$0: rename $fn default.pl: $!\n"; + # system("cat -nvet default.pl"); + } else { + die "$0: open 'default.pl': $!\n"; + } +} + + my @c; find( sub { @@ -290,15 +311,15 @@ if ($ShowPkg) { } my $sis = "$AppName.SIS"; unlink($sis); + do_system("dir"); do_system("makesis $fn"); unless (-f $sis) { die qq[$0: failed to create "$sis"\n]; } - do_system("ls -l"); - do_system("cat -vet $fn"); - do_system("cp $AppName.sis $OWD"); + do_system("copy $AppName.sis $OWD"); + chdir($OWD); + system("dir $sis"); print "\n=== Now transfer $sis to your device ===\n"; - system("ls -l $sis"); } exit(0); @@ -307,6 +328,8 @@ sub init_hex { # This is Symbian application executable skeleton. # You can create the ...\epoc32\release\thumb\urel\foo.app # by compiling the PerlApp.cpp with PerlMinSample defined in PerlApp.h. + # The following executable has been compiled using the Series 60 SDK 2.6 + # for Visual C. $APPHEX = <<__APP__; 7900 0010 ce39 0010 f615 2010 8581 1076 4550 4f43 0020 0000 05fc d15d 0000 0000 @@ -691,6 +714,8 @@ __APP__ # This is Symbian application resource skeleton. # You can create the ...\epoc32\data\z\system\apps\PerlApp\PerlApp.rsc # by compiling the PerlApp.cpp. + # The following resource has been compiled using the Series 60 SDK 2.6 + # for Visual C. $RSCHEX = <<__RSC__; 6b4a 1f10 0000 0000 5fde 0400 1ca3 60de 01b8 0010 0004 0000 0001 f0e5 4d00 0000 diff --git a/symbian/symbian_proto.h b/symbian/symbian_proto.h index f50de34af8..2a51f3abc7 100644 --- a/symbian/symbian_proto.h +++ b/symbian/symbian_proto.h @@ -41,7 +41,7 @@ extern char* strncpy(char *dst, const char *src, size_t n); #endif /* PERL_CORE || PERL_EXT */ -#if defined(SYMBIAN_DLL_CPP) || defined(SYMBIAN_UTILS_CPP) || defined(PERLBASE_CPP) +#if defined(SYMBIAN_DLL_CPP) || defined(SYMBIAN_UTILS_CPP) || defined(PERLBASE_CPP) || defined(PERLUTIL_CPP) # define PERL_SYMBIAN_START_EXTERN_C extern "C" { # define PERL_SYMBIAN_EXPORT_C EXPORT_C # define PERL_SYMBIAN_END_EXTERN_C } diff --git a/symbian/xsbuild.pl b/symbian/xsbuild.pl index f4140a96c0..556db70e33 100644 --- a/symbian/xsbuild.pl +++ b/symbian/xsbuild.pl @@ -34,8 +34,8 @@ my $SDK; my $VERSION; my $R_V_SV; my $PERLSDK; -my $WIN; -my $ARM; +my $WIN = 'wins'; +my $ARM = 'thumb'; my $BUILDROOT = getcwd(); if ( !defined $PerlVersion && $0 =~ m:\\symbian\\perl\\(.+)\\bin\\xsbuild.pl:i ) @@ -101,15 +101,22 @@ $PERLSDK = "\\Symbian\\Perl\\$PerlVersion"; $R_V_SV = $PerlVersion; -$VERSION =~ tr/.//d; +$VERSION = $PerlVersion unless defined $VERSION; + +$VERSION =~ tr/.//d if defined $VERSION; $ENV{SDK} = $SDK; # For the Errno extension $ENV{CROSS} = 1; # For the Encode extension -my $UREL = $ENV{UREL}; # from sdk.pl -$UREL =~ s/-ARM-/$ARM/; -my $UARM = $ENV{UARM}; # from sdk.pl -my $SRCDBG = $UARM eq 'udeb' ? "SRCDBG" : ""; +my $UARM = 'urel'; +my $UREL = "$SDK\\epoc32\\release\\-ARM-\\$UARM"; +my $SRCDBG; +if (exists $ENV{UREL}) { + $UREL = $ENV{UREL}; # from sdk.pl + $UREL =~ s/-ARM-/$ARM/; + $UARM = $ENV{UARM}; # from sdk.pl + $SRCDBG = $UARM eq 'udeb' ? "SRCDBG" : ""; +} my %CONF; my %EXTCFG; @@ -379,7 +386,7 @@ sub update_dir { sub xsconfig { my ( $ext, $dir ) = @_; - print "Configuring for $ext, directory $dir...\n"; + print "Configuring for $ext, directory '$dir'...\n"; my $extu = $CoreBuild ? "$BUILDROOT\\lib\\ExtUtils" : "$PERLSDK\\lib\\ExtUtils"; update_dir($dir) or die "$0: chdir '$dir': $!\n"; my $build = dirname($ext); @@ -743,7 +750,7 @@ for my $ext (@ARGV) { # (3) With an updated _init.c that carries the symbols from step (2). system_echo("make clean"); - system_echo("make defrost") == 0 or die "$0: make defrost failed\n"; + system_echo("make defrost") == 0 or warn "$0: make defrost failed\n"; my @TARGET; |