From f26f4a2f8b63c72a33468ddeeb9d0337f0892af6 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Oct 2005 22:12:57 +0300
Subject: Symbian blead update: Symbian port 0.2.0 Message-ID:
 <B356D8F434D20B40A8CEDAEC305A1F24E7A5E6@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@25742
---
 symbian/PerlApp.h | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

(limited to 'symbian/PerlApp.h')

diff --git a/symbian/PerlApp.h b/symbian/PerlApp.h
index 37a02f2502..c76d9632c9 100644
--- a/symbian/PerlApp.h
+++ b/symbian/PerlApp.h
@@ -11,11 +11,37 @@
 #include <coecntrl.h>
 #include <f32file.h>
 
+/* The source code can be compiled into "PerlApp" which is the simple
+ * launchpad application/demonstrator, or into "PerlMin", which is the
+ * minimal Perl-on-Series-60 application.  Define the cpp symbols
+ * PerlMin (a boolean), PerlMinUid (the Symbian application uid in
+ * the 0x... format), and PerlMinName (a C wide string, with the L prefix)
+ * to compile as "PerlMin". */
+
+// #define PerlMinSample
+
+#ifdef PerlMinSample
+# define PerlMin
+# define PerlMinUid 0x102015F6
+# define PerlMinName L"PerlMin"
+#endif
+
+#ifdef PerlMin
+# ifndef PerlMinUid
+#   error PerlMin defined but PerlMinUid undefined
+# endif
+# ifndef PerlMinName
+#  error PerlMin defined but PerlMinName undefined
+# endif
+#endif
+
 class CPerlAppDocument : public CAknDocument
 {
   public:
     CPerlAppDocument(CEikApplication& aApp):CAknDocument(aApp) {;}
+#ifndef PerlMin
     CFileStore* OpenFileL(TBool aDoOpen, const TDesC& aFilename, RFs& aFs);
+#endif // #ifndef PerlMin
   private: // from CEikDocument
     CEikAppUi* CreateAppUiL();
 };
@@ -36,11 +62,13 @@ class CPerlAppUi : public CAknAppUi
   public:
     void ConstructL();
      ~CPerlAppUi();
+    TBool ProcessCommandParametersL(TApaCommand aCommand, TFileName& aDocumentName, const TDesC8& aTail);
     void HandleCommandL(TInt aCommand);
+#ifndef PerlMin
     void OpenFileL(const TDesC& aFileName);
-    TBool ProcessCommandParametersL(TApaCommand aCommand, TFileName& aDocumentName, const TDesC8& aTail);
     void InstallOrRunL(const TFileName& aFileName);
     void SetFs(const RFs& aFs);
+#endif // #ifndef PerlMin
   private:
     CPerlAppView* iAppView;
     RFs* iFs;
-- 
cgit v1.2.1