diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-10-12 22:12:57 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-12 15:55:21 +0000 |
| commit | f26f4a2f8b63c72a33468ddeeb9d0337f0892af6 (patch) | |
| tree | b807579782e4ca6ff9623e6827bd8051627c5ddc /symbian/PerlApp.h | |
| parent | 58bf2e2e044ef8fba136d97f676bb7a977be1a6b (diff) | |
| download | perl-f26f4a2f8b63c72a33468ddeeb9d0337f0892af6.tar.gz | |
Symbian blead update: Symbian port 0.2.0
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F24E7A5E6@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@25742
Diffstat (limited to 'symbian/PerlApp.h')
| -rw-r--r-- | symbian/PerlApp.h | 30 |
1 files changed, 29 insertions, 1 deletions
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; |