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 CPerlBase class is licensed under the same terms as Perl itself. */

/* See PerlBase.pod for documentation. */

#ifndef __PerlBase_h__
#define __PerlBase_h__

#include <e32base.h>

#if !defined(PERL_MINIPERL) && !defined(PERL_PERL)
#  ifndef PERL_IMPLICIT_CONTEXT
#    define PERL_IMPLICIT_CONTEXT
#  endif
#  ifndef PERL_MULTIPLICITY
#    define PERL_MULTIPLICITY
#  endif
#  ifndef PERL_GLOBAL_STRUCT
#    define PERL_GLOBAL_STRUCT
#  endif
#  ifndef PERL_GLOBAL_STRUCT_PRIVATE
#    define PERL_GLOBAL_STRUCT_PRIVATE
#  endif
#endif

#include "EXTERN.h"
#include "perl.h"

typedef enum {
   EPerlNone,
   EPerlAllocated,
   EPerlConstructed,
   EPerlParsed,
   EPerlRunning,
   EPerlTerminated,
   EPerlPaused,
   EPerlSuccess,
   EPerlFailure,
   EPerlDestroying
} TPerlState;

class PerlConsole;

class CPerlBase : public CBase
{
  public:
    CPerlBase();
    IMPORT_C virtual ~CPerlBase();
    IMPORT_C static CPerlBase* NewInterpreter(TBool aCloseStdlib = ETrue,
                                               void (*aStdioInitFunc)(void*) = NULL,
                                               void *aStdioInitCookie = NULL);
    IMPORT_C static CPerlBase* NewInterpreterL(TBool aCloseStdlib = ETrue,
                                               void (*aStdioInitFunc)(void*) = NULL,
                                               void *aStdioInitCookie = NULL);
    IMPORT_C static CPerlBase* NewInterpreterLC(TBool iCloseStdlib = ETrue,
                                                void (*aStdioInitFunc)(void*) = NULL,
                                                void *aStdioInitCookie = NULL);
    IMPORT_C TInt RunScriptL(const TDesC& aFileName, int argc = 2, char **argv = NULL, char *envp[] = NULL);
    IMPORT_C int  Parse(int argc = 0, char *argv[] = NULL, char *envp[] = NULL);
    IMPORT_C void SetupExit();
    IMPORT_C int  Run();
    IMPORT_C int  ParseAndRun(int argc = 0, char *argv[] = 0, char *envp[] = 0);
    IMPORT_C void Destruct();

IMPORT_C PerlInterpreter* GetInterpreter();

// These two really should be private but when not using PERLIO
    // certain C callback functions of STDLIB need to be able to call
    // these.  In general, all the console related functionality is
    // intentionally hidden and underdocumented.
    int               ConsoleRead(const int fd, char* buf, int n);
    int               ConsoleWrite(const int fd, const char* buf, int n);

// Having these public does not feel right, but maybe someone needs
    // to do creative things with them.
    int               (*iReadFunc)(const int fd, char *buf, int n);
    int               (*iWriteFunc)(const int fd, const char *buf, int n);

protected:
    PerlInterpreter*  iPerl;
#ifdef PERL_GLOBAL_STRUCT
    struct perl_vars* iVars;
#else
    void*             iAppCtx;
#endif
    TPerlState        iState;

private:
    void              ConstructL();
    CConsoleBase*     iConsole;		/* The screen. */
    TUint16*          iConsoleBuffer;	/* The UTF-16 characters. */
    TUint             iConsoleUsed;	/* How many in iConsoleBuffer. */
    TBool             iCloseStdlib;	/* Close STDLIB on exit? */

void              (*iStdioInitFunc)(void *);
    void*             iStdioInitCookie;

int               ConsoleReadLine();
    void              StdioRewire(void*);
};

#define diTHX PerlInterpreter*  my_perl = iPerl
#define diVAR struct perl_vars* my_vars = iVars

#ifdef PERL_GLOBAL_STRUCT
#  define PERL_APPCTX_SET(c) ((c)->iVars->Gappctx = (c))
#else
#  define PERL_APPCTX_SET(c) (PL_appctx = (c))
#endif

#undef Copy
#undef CopyD /* For symmetry, not for Symbian reasons. */
#undef New
#define PerlCopy(s,d,n,t)	(MEM_WRAP_CHECK(n,t), (void)memcpy((char*)(d),(char*)(s), (n) * sizeof(t)))
#define PerlCopyD(s,d,n,t)	(MEM_WRAP_CHECK(n,t), memcpy((char*)(d),(char*)(s), (n) * sizeof(t)))
#define PerlNew(x,v,n,t)	(v = (MEM_WRAP_CHECK(n,t), (t*)safemalloc((MEM_SIZE)((n)*sizeof(t)))))

// This is like the Symbian _LIT() but without the embedded L prefix,
// which enables using #defined constants (which need to carry their
// own L prefix).
#ifndef _LIT_NO_L
# define _LIT_NO_L(n, s) static const TLitC<sizeof(s)/2> n={sizeof(s)/2-1,s}
#endif // #ifndef _LIT_NO_L

#endif /* #ifndef __PerlBase_h__ */