Further consolidate static logical name routines in vms/vms.c

[perl5.git] / symbian / PerlBase.h

diff --git a/symbian/PerlBase.h b/symbian/PerlBase.h
index f6765fb..769958d 100644 (file)
--- a/symbian/PerlBase.h
+++ b/symbian/PerlBase.h
@@ -47,7 +47,10 @@ class CPerlBase : public CBase
   public:
     CPerlBase();
     IMPORT_C virtual ~CPerlBase();
-    IMPORT_C static CPerlBase* NewInterpreterL(TBool iCloseStdlib = ETrue,
+    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,
@@ -84,7 +87,6 @@ class CPerlBase : public CBase
     TPerlState        iState;
 
    private:
- 
     void              ConstructL();
     CConsoleBase*     iConsole;                /* The screen. */
     TUint16*          iConsoleBuffer;  /* The UTF-16 characters. */
@@ -114,5 +116,12 @@ class CPerlBase : public CBase
 #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__ */