summaryrefslogtreecommitdiff
path: root/symbian/ext
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2005-11-07 15:32:15 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-11-07 11:39:57 +0000
commitd0d72822ba0a68d160ea4c98ca80f24b8f73969b (patch)
tree735ce6a98b4d91d05a26f9573f8e62ca8f91738f /symbian/ext
parent7d0beb42a2610634ab455d4519a64df3ca90bc2f (diff)
downloadperl-d0d72822ba0a68d160ea4c98ca80f24b8f73969b.tar.gz
Symbian update blead@26025
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F24E7A70C@esebe105.NOE.Nokia.com> p4raw-id: //depot/perl@26030
Diffstat (limited to 'symbian/ext')
-rw-r--r--symbian/ext/Moped/Msg/Msg.mmp1
-rw-r--r--symbian/ext/Moped/Msg/Msg.pkg16
-rw-r--r--symbian/ext/Moped/Msg/Msg.pm9
-rw-r--r--symbian/ext/Moped/Msg/Msg.xs51
-rw-r--r--symbian/ext/Moped/Msg/README49
-rw-r--r--symbian/ext/Moped/Msg/bld.inf4
-rw-r--r--symbian/ext/Moped/Msg/location.pl8
7 files changed, 138 insertions, 0 deletions
diff --git a/symbian/ext/Moped/Msg/Msg.mmp b/symbian/ext/Moped/Msg/Msg.mmp
new file mode 100644
index 0000000000..7736d2ab57
--- /dev/null
+++ b/symbian/ext/Moped/Msg/Msg.mmp
@@ -0,0 +1 @@
+LIBRARY etel.lib gsmbas.lib
diff --git a/symbian/ext/Moped/Msg/Msg.pkg b/symbian/ext/Moped/Msg/Msg.pkg
new file mode 100644
index 0000000000..eb7aed02f5
--- /dev/null
+++ b/symbian/ext/Moped/Msg/Msg.pkg
@@ -0,0 +1,16 @@
+; MoDev::Msg installation script
+;
+; The supported languages
+&EN;
+;
+; The installation name and header data
+;
+#{"MoDev::Msg"},(0x0FFFFFFF),0,1,0
+;
+; Platform supported is Series 60
+;
+(0x101F6F88), 0, 0, 0, {"Series60ProductID"}
+; The files to install
+;
+"Msg.pm"-"!:\System\Libs\Perl\5.9.3\MoDev\Msg.pm"
+"\epoc32\release\thumb\urel\Msg.dll"-"!:\System\Libs\Perl\5.9.3\thumb-symbian\Msg.dll"
diff --git a/symbian/ext/Moped/Msg/Msg.pm b/symbian/ext/Moped/Msg/Msg.pm
new file mode 100644
index 0000000000..e1aaef8344
--- /dev/null
+++ b/symbian/ext/Moped/Msg/Msg.pm
@@ -0,0 +1,9 @@
+package Moped::Msg;
+use strict;
+use vars qw(@ISA $VERSION);
+require DynaLoader;
+@ISA = qw(DynaLoader);
+$VERSION = '0.01';
+bootstrap Moped::Msg;
+1;
+
diff --git a/symbian/ext/Moped/Msg/Msg.xs b/symbian/ext/Moped/Msg/Msg.xs
new file mode 100644
index 0000000000..ae47e0a556
--- /dev/null
+++ b/symbian/ext/Moped/Msg/Msg.xs
@@ -0,0 +1,51 @@
+#include <eikenv.h>
+#include <e32std.h>
+
+#include "etelbgsm.h" // From Symbian 6.1 SDK (the Communicator SDK)
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+#include "PerlBase.h"
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+#ifdef __cplusplus
+}
+#endif
+
+_LIT(KTsyName, "phonetsy.tsy");
+
+#define XS_SYMBIAN_OR_EMPTY(e, c) errno = (e) = (c); if ((e) != KErrNone) XSRETURN_EMPTY
+
+MODULE = Moped::Msg PACKAGE = Moped::Msg
+
+PROTOTYPES: ENABLE
+
+extern "C" void
+get_gsm_network_info()
+ PREINIT:
+ TInt error;
+ TInt enumphone;
+ RTelServer server;
+ RBasicGsmPhone phone;
+ RTelServer::TPhoneInfo info;
+ MBasicGsmPhoneNetwork::TCurrentNetworkInfo networkinfo;
+ PPCODE:
+ if (GIMME != G_ARRAY)
+ XSRETURN_UNDEF;
+ XS_SYMBIAN_OR_EMPTY(error, server.Connect());
+ XS_SYMBIAN_OR_EMPTY(error, server.LoadPhoneModule(KTsyName));
+ XS_SYMBIAN_OR_EMPTY(error, server.EnumeratePhones(enumphone));
+ if (enumphone < 1)
+ XSRETURN_EMPTY;
+ XS_SYMBIAN_OR_EMPTY(error, server.GetPhoneInfo(0, info));
+ XS_SYMBIAN_OR_EMPTY(error, phone.Open(server, info.iName));
+ XS_SYMBIAN_OR_EMPTY(error, phone.GetCurrentNetworkInfo(networkinfo));
+ EXTEND(SP, 4);
+ PUSHs(sv_2mortal(newSViv(networkinfo.iNetworkInfo.iId.iMCC)));
+ PUSHs(sv_2mortal(newSViv(networkinfo.iNetworkInfo.iId.iMNC)));
+ PUSHs(sv_2mortal(newSViv(networkinfo.iLocationAreaCode)));
+ PUSHs(sv_2mortal(newSViv(networkinfo.iCellId)));
+
+
diff --git a/symbian/ext/Moped/Msg/README b/symbian/ext/Moped/Msg/README
new file mode 100644
index 0000000000..2d31c298a0
--- /dev/null
+++ b/symbian/ext/Moped/Msg/README
@@ -0,0 +1,49 @@
+NOTE: this is just a sample of how building Symbian specific
+extensions COULD work. This is most probably far from the best
+or final way of doing things.
+
+The Moped::Msg currently defines just a single static method,
+get_gsm_network_info(), which returns the GSM network and cell id.
+
+The extension code is in Msg.xs (which gets translated by xsubpp into
+Msg.cpp), the Perl glue code is in Msg.pm. To understand the .xs
+syntax studying perlxstut and perlxs is recommended.
+
+The prerequisites for compiling this extension are:
+
+(1) The Perl for Symbian SDK installed (either done "make sdkinstall",
+ or separately installed the perlXYZsdk.zip).
+
+(2) The etelbgsm.h header, which is available for example from
+ the Symbian 6.1 SDK (the Communicator SDK). This must be
+ copied to ...\epoc32\include.
+
+(3) The etel.lib and the gsmbas.lib, they should come both
+ with the 6.1 and 7.0s SDK. The WINS udeb and THUMB urel
+ versions of these must be copied to the directories
+ ...\epoc32\release\wins\udeb and ...\epoc32\release\thumb\urel,
+ respectively.
+
+To compile (assuming Perl 5.9.3 and Series 60 SDK 2.6 for Visual C):
+
+ perl \symbian\perl\5.9.3\bin\xsbuild.pl --cpp --extversion=0.1 ext\symbian\Moped\Msg
+
+The --symbian indicates the Symbian and SDK version, the --cplusplus
+indicates that one should generate a .cpp file instead of a .c file.
+
+The xsbuild.pl both configures and builds the extension.
+To clean do "make clean" or "make distclean".
+
+The location.pl demonstrates using the extension.
+
+To create a SIS:
+
+ makesis -d%EPOCROOT% ext\Moped\Msg\Msg.pkg
+
+TODO: automate the determination of the EXTVERSION (from .pkg?)
+and of creation of .pkg (the location of the .dll in the build
+and in the target).
+
+
+
+
diff --git a/symbian/ext/Moped/Msg/bld.inf b/symbian/ext/Moped/Msg/bld.inf
new file mode 100644
index 0000000000..121a66a720
--- /dev/null
+++ b/symbian/ext/Moped/Msg/bld.inf
@@ -0,0 +1,4 @@
+PRJ_MMPFILES
+Msg.mmp
+PRJ_PLATFORMS
+wins thumb
diff --git a/symbian/ext/Moped/Msg/location.pl b/symbian/ext/Moped/Msg/location.pl
new file mode 100644
index 0000000000..50df335041
--- /dev/null
+++ b/symbian/ext/Moped/Msg/location.pl
@@ -0,0 +1,8 @@
+use Moped::Msg;
+my ($MCC, $MNC, $LAC, $Cell) =
+ Moped::Msg::get_gsm_network_info();
+print "MCC = $MCC\n";
+print "MNC = $MNC\n";
+print "LAC = $LAC\n";
+print "Cell = $Cell\n";
+