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