sl@0: // Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: // All rights reserved.
sl@0: // This component and the accompanying materials are made available
sl@0: // under the terms of "Eclipse Public License v1.0"
sl@0: // which accompanies this distribution, and is available
sl@0: // at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: //
sl@0: // Initial Contributors:
sl@0: // Nokia Corporation - initial contribution.
sl@0: //
sl@0: // Contributors:
sl@0: //
sl@0: // Description:
sl@0: // Provides a Symbian version of the main program and Tcl_AppInit
sl@0: // procedure for Tcl applications (without Tk).
sl@0: // 
sl@0: //
sl@0: 
sl@0: #ifndef _TCLSYMBIANGLOBALS
sl@0: #define _TCLSYMBIANGLOBALS
sl@0: 
sl@0: #include "tcl.h"
sl@0: #include "tclInt.h"
sl@0: 
sl@0: #ifdef __WINSCW__ 
sl@0: 
sl@0: //Macro to replace the variable with our new method
sl@0: #define tmpFileName (*(tempFileNameType)get_gFileName(0))
sl@0: #define fifoFileName (*(tempFileNameType)get_gFileName(1))
sl@0: #define inFileName (*(tempFileNameType)get_gFileName(2))
sl@0: #define outFileName (*(tempFileNameType)get_gFileName(3))
sl@0: #define errFileName (*(tempFileNameType)get_gFileName(4))
sl@0: #define inFileName1 (*(tempFileNameType)get_gFileName(5))
sl@0: #define outFileName1 (*(tempFileNameType)get_gFileName(6))
sl@0: #define errFileName1 (*(tempFileNameType)get_gFileName(7))
sl@0: 
sl@0: #define getdataKey(x) (*(Tcl_ThreadDataKey*)get_dataKey(x))
sl@0: /*  dataKey[KMaxDataKey]
sl@0:  *  tclEvent.c[0]
sl@0:  *  tclAsync.c[1]
sl@0:  *  tclFileName.c[2]
sl@0:  *  tclIO.c[3]
sl@0:  *  tclIOUtil.c[4]
sl@0:  *  tclNotify.c[5]
sl@0:  *  tclRegexp.c[6]
sl@0:  *  tclTimer.c[7]
sl@0:  *  tclUnixNotify.c[8]
sl@0: */
sl@0: 
sl@0: #define tclExecutableName (*get_tclExecutableName())
sl@0: #define tclNativeExecutableName (*get_tclNativeExecutableName())
sl@0: #define inFinalize (*(int *)get_inFinalize())
sl@0: #define subsystemsInitialized (*(int *)get_subsystemsInitialized())
sl@0: #define defaultEncoding (*(Tcl_Encoding*)get_defaultEncoding())
sl@0: #define systemEncoding (*(Tcl_Encoding*)get_systemEncoding())
sl@0: #define encodingTable (*(Tcl_HashTable*)get_encodingTable())
sl@0: #define keyRecord (*(SyncObjRecord*)get_keyRecord())
sl@0: #define typeTable (*(Tcl_HashTable*)get_typeTable())
sl@0: #define typeTableInitialized (*(int *)get_typeTableInitialized())
sl@0: #define encodingsInitialized (*(int *)get_encodingsInitialized())
sl@0: #define tclDefaultEncodingDir (*get_tclDefaultEncodingDir())
sl@0: #define tclLibraryPathStr (*get_tclLibraryPathStr())
sl@0: #define opTableInitialized (*(int *)get_opTableInitialized())
sl@0: #define opHashTable (*(Tcl_HashTable*)get_opHashTable())
sl@0: #define auxDataTypeTableInitialized (*(int *)get_auxDataTypeTableInitialized())
sl@0: #define auxDataTypeTable (*(Tcl_HashTable*)get_auxDataTypeTable())
sl@0: #define glcwdPathPtr (*(Tcl_Obj**)get_cwdPathPtr())
sl@0: #define glcwdPathEpoch (*(int *)get_cwdPathEpoch())
sl@0: #define tclPlatform (*(TclPlatformType *)get_tclPlatform())
sl@0: 
sl@0: typedef char (*tempFileNameType)[L_tmpnam + 9];
sl@0: 
sl@0: #else
sl@0: extern char tmpFileName[L_tmpnam + 9];
sl@0: extern char fifoFileName[L_tmpnam + 9];
sl@0: extern char inFileName[L_tmpnam + 9];
sl@0: extern char outFileName[L_tmpnam + 9];
sl@0: extern char errFileName[L_tmpnam + 9];
sl@0: extern char inFileName1[L_tmpnam + 9];
sl@0: extern char outFileName1[L_tmpnam + 9];
sl@0: extern char errFileName1[L_tmpnam + 9];	
sl@0: #endif
sl@0: 
sl@0: #endif /* _TCLSYMBIANGLOBALS */