Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
ext	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
PerlApp.cpp	15.25 KB	-r--r--r--	2014-12-27 11:49
PerlApp.h	2.3 KB	-r--r--r--	2014-12-27 11:49
PerlApp.hrh	608 B	-r--r--r--	2014-12-27 11:49
PerlAppAif.rss	521 B	-r--r--r--	2014-12-27 11:49
PerlBase.cpp	11.19 KB	-r--r--r--	2014-12-27 11:49
PerlBase.h	4.23 KB	-r--r--r--	2014-12-27 11:49
PerlBase.pod	4.5 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.cpp	1.49 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.mmp	197 B	-r--r--r--	2014-12-27 11:49
PerlUi.cpp	7.63 KB	-r--r--r--	2014-12-27 11:49
PerlUi.h	3.52 KB	-r--r--r--	2014-12-27 11:49
PerlUi.hrh	331 B	-r--r--r--	2014-12-27 11:49
PerlUiS60.rss	2.78 KB	-r--r--r--	2014-12-27 11:49
PerlUiS80.rss	1.89 KB	-r--r--r--	2014-12-27 11:49
PerlUiS90.rss	1.9 KB	-r--r--r--	2014-12-27 11:49
PerlUiUIQ.rss	2.26 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.cpp	2.88 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.h	1.19 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.pod	1.24 KB	-r--r--r--	2014-12-27 11:49
README	558 B	-r--r--r--	2014-12-27 11:49
TODO	6.99 KB	-r--r--r--	2014-12-27 11:49
bld.inf	40 B	-r--r--r--	2014-12-27 11:49
config.pl	27.36 KB	-r--r--r--	2014-12-27 11:49
config.sh	16.55 KB	-r--r--r--	2014-12-27 11:49
cwd.pl	87 B	-r--r--r--	2014-12-27 11:49
demo_pl	3.25 KB	-r--r--r--	2014-12-27 11:49
find_writeable_data.pl	1.41 KB	-r--r--r--	2014-12-27 11:49
hexdump.pl	959 B	-r--r--r--	2014-12-27 11:49
install.cfg	2.32 KB	-r--r--r--	2014-12-27 11:49
makesis.pl	5.41 KB	-r--r--r--	2014-12-27 11:49
port.pl	154 B	-r--r--r--	2014-12-27 11:49
sanity.pl	925 B	-r--r--r--	2014-12-27 11:49
sdk.pl	7.93 KB	-r--r--r--	2014-12-27 11:49
sisify.pl	81.87 KB	-r--r--r--	2014-12-27 11:49
symbian_dll.cpp	639 B	-r--r--r--	2014-12-27 11:49
symbian_proto.h	2.78 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.c	3.48 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.h	482 B	-r--r--r--	2014-12-27 11:49
symbian_utils.cpp	13.92 KB	-r--r--r--	2014-12-27 11:49
symbianish.h	7.23 KB	-r--r--r--	2014-12-27 11:49
uid.pl	11 B	-r--r--r--	2014-12-27 11:49
version.pl	494 B	-r--r--r--	2014-12-27 11:49
xsbuild.pl	27.3 KB	-r--r--r--	2014-12-27 11:49

Rename

/* The PerlApp application is licensed under the same terms as Perl itself. */

#ifndef __PerlApp_h__
#define __PerlApp_h__

#include "PerlUi.h"

/* The source code can be compiled into "PerlApp" which is the simple
 * launchpad application/demonstrator, or into "PerlAppMinimal", which
 * is the minimal Perl launchpad application.  Define the cpp symbols
 * CreatePerlAppMinimal (a boolean), PerlAppMinimalUid (the Symbian
 * application uid in the 0x... format), and PerlAppMinimalName (a C
 * wide string, with the L prefix) to compile as "PerlAppMinimal". */

// #define CreatePerlAppMinimal

#ifdef CreatePerlAppMinimal
# define PerlAppMinimal
# ifndef PerlAppMinimalUid // PerlApp is ...F6, PerlRecog is ...F7
#  define PerlAppMinimalUid 0x102015F8
# endif
# ifndef PerlAppMinimalName
#  define PerlAppMinimalName L"PerlAppMinimal"
# endif
#endif

#ifdef PerlAppMinimal
# ifndef PerlAppMinimalUid
#   error PerlAppMinimal defined but PerlAppMinimalUid undefined
# endif
# ifndef PerlAppMinimalName
#  error PerlAppMinimal defined but PerlAppMinimalName undefined
# endif
#endif

class CPerlAppDocument : public CgPerlUiDocument
{
  public:
    CPerlAppDocument(CEikApplication& aApp) : CgPerlUiDocument(aApp) {;}
#ifndef PerlAppMinimal
    CFileStore* OpenFileL(TBool aDoOpen, const TDesC& aFilename, RFs& aFs);
#endif // #ifndef PerlAppMinimal
  private: // from CEikDocument
    CEikAppUi* CreateAppUiL();
};

class CPerlAppApplication : public CPerlUiApplication
{
  private:
    CApaDocument* CreateDocumentL();
    TUid AppDllUid() const;
};

class CPerlAppAppView;

class CPerlAppAppUi : public CPerlUiAppUi
{
  public:
    TBool ProcessCommandParametersL(TApaCommand aCommand, TFileName& aDocumentName, const TDesC8& aTail);
    void DoHandleCommandL(TInt aCommand);
#ifndef PerlAppMinimal
    void OpenFileL(const TDesC& aFileName);
    void InstallOrRunL(const TFileName& aFileName);
    void SetFs(const RFs& aFs);
#endif // #ifndef PerlAppMinimal
    ~CPerlAppAppUi();
  private:
    RFs* iFs;
};

class CPerlAppAppView : public CPerlUiAppView
{
  public:
#if defined(__SERIES80__) || defined(__SERIES90__) || defined(__UIQ__)
    void HandleCommandL(TInt aCommand);
#endif /* #if defined(__SERIES80__) || defined(__SERIES90__) || defined(__UIQ__) */
};

#endif // __PerlApp_h__