symbian/PerlBase.pod Symbian Perl base class documentation
symbian/PerlRecog.cpp Symbian recognizer code
symbian/PerlRecog.mmp Symbian recognizer build
+symbian/PerlUtil.cpp Symbian Perl utility class
+symbian/PerlUtil.h Symbian Perl utility class header
+symbian/PerlUtil.pod Symbian Perl utility class documentation
symbian/port.pl Helper code for config.pl
symbian/README ReadMe for the Symbian files
symbian/sanity.pl Helper code for config.pl
the messages.
Since the total size of all Perl SIS files once installed is
- over 1.9 MB, it is recommended to do the installation into a
+ over 2 MB, it is recommended to do the installation into a
memory card (drive E:) instead of the C: drive.
The size of the perlXYZ.SIS is about 370 kB but once it is in the
make perlext.sis
- which will create perlXYZext.sis (210 kB -> 470 kB).
+ which will create perlXYZext.sis (290 kB -> 770 kB).
To compile the demonstration application PerlApp you need first to
install the Perl headers under the SDK.
=head1 NAME
-CPerlBase - a base class encapsulating a Perl interpreter
+CPerlBase - a C++ base class encapsulating a Perl interpreter in Symbian
=head1 SYNOPSIS
--- /dev/null
+/* 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);
+ }
+}
--- /dev/null
+/* 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__ */
+
+
--- /dev/null
+=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
+
+
+
- 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)
=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%
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',
);
"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',
);
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
- 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
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
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
+
use vars qw($VERSION);
-$VERSION = '0.1';
+$VERSION = '0.2';
use Getopt::Long;
use File::Temp qw/tempdir/;
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 {
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__
}
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;
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 {
}
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);
# 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
# 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
#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 }
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 )
$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;
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);
# (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;
projects / p5sagit/p5-mst-13.2.git / commitdiff