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".

     7 //

     8 // Initial Contributors:

     9 // Nokia Corporation - initial contribution.

    10 //

    11 // Contributors:

    12 //

    13 // Description:

    14 // Provides a Symbian version of the main program and Tcl_AppInit

    15 // procedure for Tcl applications (without Tk).

    16 // 

    17 //

    18 

    19 #ifndef _TCLSYMBIANGLOBALS

    20 #define _TCLSYMBIANGLOBALS

    21 

    22 #include "tcl.h"

    23 #include "tclInt.h"

    24 

    25 #ifdef __WINSCW__ 

    26 

    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))

    36 

    37 #define getdataKey(x) (*(Tcl_ThreadDataKey*)get_dataKey(x))

    38 /*  dataKey[KMaxDataKey]

    39  *  tclEvent.c[0]

    40  *  tclAsync.c[1]

    41  *  tclFileName.c[2]

    42  *  tclIO.c[3]

    43  *  tclIOUtil.c[4]

    44  *  tclNotify.c[5]

    45  *  tclRegexp.c[6]

    46  *  tclTimer.c[7]

    47  *  tclUnixNotify.c[8]

    48 */

    49 

    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())

    70 

    71 typedef char (*tempFileNameType)[L_tmpnam + 9];

    72 

    73 #else

    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];	

    82 #endif

    83 

    84 #endif /* _TCLSYMBIANGLOBALS */