1 // Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
2 // All rights reserved.
3 // This component and the accompanying materials are made available
4 // under the terms of "Eclipse Public License v1.0"
5 // which accompanies this distribution, and is available
6 // at the URL "http://www.eclipse.org/legal/epl-v10.html".
8 // Initial Contributors:
9 // Nokia Corporation - initial contribution.
14 // Provides a Symbian version of the main program and Tcl_AppInit
15 // procedure for Tcl applications (without Tk).
19 #ifndef _TCLSYMBIANGLOBALS
20 #define _TCLSYMBIANGLOBALS
27 //Macro to replace the variable with our new method
28 #define tmpFileName (*(tempFileNameType)get_gFileName(0))
29 #define fifoFileName (*(tempFileNameType)get_gFileName(1))
30 #define inFileName (*(tempFileNameType)get_gFileName(2))
31 #define outFileName (*(tempFileNameType)get_gFileName(3))
32 #define errFileName (*(tempFileNameType)get_gFileName(4))
33 #define inFileName1 (*(tempFileNameType)get_gFileName(5))
34 #define outFileName1 (*(tempFileNameType)get_gFileName(6))
35 #define errFileName1 (*(tempFileNameType)get_gFileName(7))
37 #define getdataKey(x) (*(Tcl_ThreadDataKey*)get_dataKey(x))
38 /* dataKey[KMaxDataKey]
50 #define tclExecutableName (*get_tclExecutableName())
51 #define tclNativeExecutableName (*get_tclNativeExecutableName())
52 #define inFinalize (*(int *)get_inFinalize())
53 #define subsystemsInitialized (*(int *)get_subsystemsInitialized())
54 #define defaultEncoding (*(Tcl_Encoding*)get_defaultEncoding())
55 #define systemEncoding (*(Tcl_Encoding*)get_systemEncoding())
56 #define encodingTable (*(Tcl_HashTable*)get_encodingTable())
57 #define keyRecord (*(SyncObjRecord*)get_keyRecord())
58 #define typeTable (*(Tcl_HashTable*)get_typeTable())
59 #define typeTableInitialized (*(int *)get_typeTableInitialized())
60 #define encodingsInitialized (*(int *)get_encodingsInitialized())
61 #define tclDefaultEncodingDir (*get_tclDefaultEncodingDir())
62 #define tclLibraryPathStr (*get_tclLibraryPathStr())
63 #define opTableInitialized (*(int *)get_opTableInitialized())
64 #define opHashTable (*(Tcl_HashTable*)get_opHashTable())
65 #define auxDataTypeTableInitialized (*(int *)get_auxDataTypeTableInitialized())
66 #define auxDataTypeTable (*(Tcl_HashTable*)get_auxDataTypeTable())
67 #define glcwdPathPtr (*(Tcl_Obj**)get_cwdPathPtr())
68 #define glcwdPathEpoch (*(int *)get_cwdPathEpoch())
69 #define tclPlatform (*(TclPlatformType *)get_tclPlatform())
71 typedef char (*tempFileNameType)[L_tmpnam + 9];
74 extern char tmpFileName[L_tmpnam + 9];
75 extern char fifoFileName[L_tmpnam + 9];
76 extern char inFileName[L_tmpnam + 9];
77 extern char outFileName[L_tmpnam + 9];
78 extern char errFileName[L_tmpnam + 9];
79 extern char inFileName1[L_tmpnam + 9];
80 extern char outFileName1[L_tmpnam + 9];
81 extern char errFileName1[L_tmpnam + 9];
84 #endif /* _TCLSYMBIANGLOBALS */