← Back to branch summary

~ubuntu-branches/ubuntu/raring/tcl8.5/raring

« back to all changes in this revision

Viewing changes to generic/tclIntDecls.h

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2007-12-25 16:10:04 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20071225161004-zr4n8bj42nh1ybll
Tags: 8.5.0-2
Again disabled stack checking on hppa architecture since it doesn't
work yet.

Show diffs side-by-side

added added

removed removed

Lines of Context:
generic/tclIntDecls.h
11
11
 * See the file "license.terms" for information on usage and redistribution
12
12
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13
13
 *
14
 
 * RCS: @(#) $Id: tclIntDecls.h,v 1.108 2007/11/12 02:07:19 hobbs Exp $
 
14
 * RCS: @(#) $Id: tclIntDecls.h,v 1.111 2007/12/13 15:23:18 dgp Exp $
15
15
 */
16
16
 
17
17
#ifndef _TCLINTDECLS
51
51
EXTERN void             TclAllocateFreeObjects (void);
52
52
#endif
53
53
/* Slot 4 is reserved */
54
 
#if !defined(__WIN32__) /* UNIX */
 
54
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
55
55
#ifndef TclCleanupChildren_TCL_DECLARED
56
56
#define TclCleanupChildren_TCL_DECLARED
57
57
/* 5 */
59
59
                                Tcl_Pid * pidPtr, Tcl_Channel errorChan);
60
60
#endif
61
61
#endif /* UNIX */
62
 
#ifdef __WIN32__
63
 
#ifndef TclCleanupChildren_TCL_DECLARED
64
 
#define TclCleanupChildren_TCL_DECLARED
65
 
/* 5 */
66
 
EXTERN int              TclCleanupChildren (Tcl_Interp * interp, int numPids, 
67
 
                                Tcl_Pid * pidPtr, Tcl_Channel errorChan);
68
 
#endif
69
 
#endif /* __WIN32__ */
 
62
#ifdef __WIN32__ /* WIN */
 
63
#ifndef TclCleanupChildren_TCL_DECLARED
 
64
#define TclCleanupChildren_TCL_DECLARED
 
65
/* 5 */
 
66
EXTERN int              TclCleanupChildren (Tcl_Interp * interp, int numPids, 
 
67
                                Tcl_Pid * pidPtr, Tcl_Channel errorChan);
 
68
#endif
 
69
#endif /* WIN */
 
70
#ifdef MAC_OSX_TCL /* MACOSX */
 
71
#ifndef TclCleanupChildren_TCL_DECLARED
 
72
#define TclCleanupChildren_TCL_DECLARED
 
73
/* 5 */
 
74
EXTERN int              TclCleanupChildren (Tcl_Interp * interp, int numPids, 
 
75
                                Tcl_Pid * pidPtr, Tcl_Channel errorChan);
 
76
#endif
 
77
#endif /* MACOSX */
70
78
#ifndef TclCleanupCommand_TCL_DECLARED
71
79
#define TclCleanupCommand_TCL_DECLARED
72
80
/* 6 */
85
93
                                Tcl_Channel inChan, Tcl_Channel outChan, 
86
94
                                int toRead, Tcl_Obj * cmdPtr);
87
95
#endif
88
 
#if !defined(__WIN32__) /* UNIX */
 
96
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
89
97
#ifndef TclCreatePipeline_TCL_DECLARED
90
98
#define TclCreatePipeline_TCL_DECLARED
91
99
/* 9 */
95
103
                                TclFile * errFilePtr);
96
104
#endif
97
105
#endif /* UNIX */
98
 
#ifdef __WIN32__
99
 
#ifndef TclCreatePipeline_TCL_DECLARED
100
 
#define TclCreatePipeline_TCL_DECLARED
101
 
/* 9 */
102
 
EXTERN int              TclCreatePipeline (Tcl_Interp * interp, int argc, 
103
 
                                CONST char ** argv, Tcl_Pid ** pidArrayPtr, 
104
 
                                TclFile * inPipePtr, TclFile * outPipePtr, 
105
 
                                TclFile * errFilePtr);
106
 
#endif
107
 
#endif /* __WIN32__ */
 
106
#ifdef __WIN32__ /* WIN */
 
107
#ifndef TclCreatePipeline_TCL_DECLARED
 
108
#define TclCreatePipeline_TCL_DECLARED
 
109
/* 9 */
 
110
EXTERN int              TclCreatePipeline (Tcl_Interp * interp, int argc, 
 
111
                                CONST char ** argv, Tcl_Pid ** pidArrayPtr, 
 
112
                                TclFile * inPipePtr, TclFile * outPipePtr, 
 
113
                                TclFile * errFilePtr);
 
114
#endif
 
115
#endif /* WIN */
 
116
#ifdef MAC_OSX_TCL /* MACOSX */
 
117
#ifndef TclCreatePipeline_TCL_DECLARED
 
118
#define TclCreatePipeline_TCL_DECLARED
 
119
/* 9 */
 
120
EXTERN int              TclCreatePipeline (Tcl_Interp * interp, int argc, 
 
121
                                CONST char ** argv, Tcl_Pid ** pidArrayPtr, 
 
122
                                TclFile * inPipePtr, TclFile * outPipePtr, 
 
123
                                TclFile * errFilePtr);
 
124
#endif
 
125
#endif /* MACOSX */
108
126
#ifndef TclCreateProc_TCL_DECLARED
109
127
#define TclCreateProc_TCL_DECLARED
110
128
/* 10 */
446
464
                                CONST char * str, CONST char * proto, 
447
465
                                int * portPtr);
448
466
#endif
449
 
#if !defined(__WIN32__) /* UNIX */
 
467
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
450
468
#ifndef TclSockMinimumBuffers_TCL_DECLARED
451
469
#define TclSockMinimumBuffers_TCL_DECLARED
452
470
/* 104 */
453
471
EXTERN int              TclSockMinimumBuffers (int sock, int size);
454
472
#endif
455
473
#endif /* UNIX */
456
 
#ifdef __WIN32__
457
 
#ifndef TclSockMinimumBuffers_TCL_DECLARED
458
 
#define TclSockMinimumBuffers_TCL_DECLARED
459
 
/* 104 */
460
 
EXTERN int              TclSockMinimumBuffers (int sock, int size);
461
 
#endif
462
 
#endif /* __WIN32__ */
 
474
#ifdef __WIN32__ /* WIN */
 
475
#ifndef TclSockMinimumBuffers_TCL_DECLARED
 
476
#define TclSockMinimumBuffers_TCL_DECLARED
 
477
/* 104 */
 
478
EXTERN int              TclSockMinimumBuffers (int sock, int size);
 
479
#endif
 
480
#endif /* WIN */
 
481
#ifdef MAC_OSX_TCL /* MACOSX */
 
482
#ifndef TclSockMinimumBuffers_TCL_DECLARED
 
483
#define TclSockMinimumBuffers_TCL_DECLARED
 
484
/* 104 */
 
485
EXTERN int              TclSockMinimumBuffers (int sock, int size);
 
486
#endif
 
487
#endif /* MACOSX */
463
488
/* Slot 105 is reserved */
464
489
/* Slot 106 is reserved */
465
490
/* Slot 107 is reserved */
805
830
/* 173 */
806
831
EXTERN int              TclUniCharMatch (CONST Tcl_UniChar * string, 
807
832
                                int strLen, CONST Tcl_UniChar * pattern, 
808
 
                                int ptnLen, int nocase);
 
833
                                int ptnLen, int flags);
809
834
#endif
810
835
/* Slot 174 is reserved */
811
836
#ifndef TclCallVarTraces_TCL_DECLARED
1057
1082
EXTERN void             TclBackgroundException (Tcl_Interp * interp, 
1058
1083
                                int code);
1059
1084
#endif
1060
 
#ifndef TclByteArrayMatch_TCL_DECLARED
1061
 
#define TclByteArrayMatch_TCL_DECLARED
1062
 
/* 237 */
1063
 
EXTERN int              TclByteArrayMatch (const unsigned char * string, 
1064
 
                                int strLen, const unsigned char * pattern, 
1065
 
                                int ptnLen);
1066
 
#endif
1067
 
#ifndef TclReToGlob_TCL_DECLARED
1068
 
#define TclReToGlob_TCL_DECLARED
1069
 
/* 238 */
1070
 
EXTERN int              TclReToGlob (Tcl_Interp * interp, const char * reStr, 
1071
 
                                int reStrLen, Tcl_DString * dsPtr, 
1072
 
                                int * exactPtr);
1073
 
#endif
1074
1085
 
1075
1086
typedef struct TclIntStubs {
1076
1087
    int magic;
1081
1092
    void *reserved2;
1082
1093
    void (*tclAllocateFreeObjects) (void); /* 3 */
1083
1094
    void *reserved4;
1084
 
#if !defined(__WIN32__) /* UNIX */
 
1095
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1085
1096
    int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
1086
1097
#endif /* UNIX */
1087
 
#ifdef __WIN32__
1088
 
    int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
1089
 
#endif /* __WIN32__ */
 
1098
#ifdef __WIN32__ /* WIN */
 
1099
    int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
 
1100
#endif /* WIN */
 
1101
#ifdef MAC_OSX_TCL /* MACOSX */
 
1102
    int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
 
1103
#endif /* MACOSX */
1090
1104
    void (*tclCleanupCommand) (Command * cmdPtr); /* 6 */
1091
1105
    int (*tclCopyAndCollapse) (int count, CONST char * src, char * dst); /* 7 */
1092
1106
    int (*tclCopyChannel) (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); /* 8 */
1093
 
#if !defined(__WIN32__) /* UNIX */
 
1107
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1094
1108
    int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
1095
1109
#endif /* UNIX */
1096
 
#ifdef __WIN32__
1097
 
    int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
1098
 
#endif /* __WIN32__ */
 
1110
#ifdef __WIN32__ /* WIN */
 
1111
    int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
 
1112
#endif /* WIN */
 
1113
#ifdef MAC_OSX_TCL /* MACOSX */
 
1114
    int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
 
1115
#endif /* MACOSX */
1099
1116
    int (*tclCreateProc) (Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); /* 10 */
1100
1117
    void (*tclDeleteCompiledLocalVars) (Interp * iPtr, CallFrame * framePtr); /* 11 */
1101
1118
    void (*tclDeleteVars) (Interp * iPtr, TclVarHashTable * tablePtr); /* 12 */
1190
1207
    char * (*tclSetPreInitScript) (char * string); /* 101 */
1191
1208
    void (*tclSetupEnv) (Tcl_Interp * interp); /* 102 */
1192
1209
    int (*tclSockGetPort) (Tcl_Interp * interp, CONST char * str, CONST char * proto, int * portPtr); /* 103 */
1193
 
#if !defined(__WIN32__) /* UNIX */
 
1210
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1194
1211
    int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
1195
1212
#endif /* UNIX */
1196
 
#ifdef __WIN32__
1197
 
    int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
1198
 
#endif /* __WIN32__ */
 
1213
#ifdef __WIN32__ /* WIN */
 
1214
    int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
 
1215
#endif /* WIN */
 
1216
#ifdef MAC_OSX_TCL /* MACOSX */
 
1217
    int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
 
1218
#endif /* MACOSX */
1199
1219
    void *reserved105;
1200
1220
    void *reserved106;
1201
1221
    void *reserved107;
1264
1284
    int (*tclCheckInterpTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */
1265
1285
    int (*tclCheckExecutionTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */
1266
1286
    int (*tclInThreadExit) (void); /* 172 */
1267
 
    int (*tclUniCharMatch) (CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase); /* 173 */
 
1287
    int (*tclUniCharMatch) (CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int flags); /* 173 */
1268
1288
    void *reserved174;
1269
1289
    int (*tclCallVarTraces) (Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg); /* 175 */
1270
1290
    void (*tclCleanupVar) (Var * varPtr, Var * arrayPtr); /* 176 */
1328
1348
    Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */
1329
1349
    void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */
1330
1350
    void (*tclBackgroundException) (Tcl_Interp * interp, int code); /* 236 */
1331
 
    int (*tclByteArrayMatch) (const unsigned char * string, int strLen, const unsigned char * pattern, int ptnLen); /* 237 */
1332
 
    int (*tclReToGlob) (Tcl_Interp * interp, const char * reStr, int reStrLen, Tcl_DString * dsPtr, int * exactPtr); /* 238 */
1333
1351
} TclIntStubs;
1334
1352
 
1335
1353
#ifdef __cplusplus
1354
1372
        (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
1355
1373
#endif
1356
1374
/* Slot 4 is reserved */
1357
 
#if !defined(__WIN32__) /* UNIX */
 
1375
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1358
1376
#ifndef TclCleanupChildren
1359
1377
#define TclCleanupChildren \
1360
1378
        (tclIntStubsPtr->tclCleanupChildren) /* 5 */
1361
1379
#endif
1362
1380
#endif /* UNIX */
1363
 
#ifdef __WIN32__
1364
 
#ifndef TclCleanupChildren
1365
 
#define TclCleanupChildren \
1366
 
        (tclIntStubsPtr->tclCleanupChildren) /* 5 */
1367
 
#endif
1368
 
#endif /* __WIN32__ */
 
1381
#ifdef __WIN32__ /* WIN */
 
1382
#ifndef TclCleanupChildren
 
1383
#define TclCleanupChildren \
 
1384
        (tclIntStubsPtr->tclCleanupChildren) /* 5 */
 
1385
#endif
 
1386
#endif /* WIN */
 
1387
#ifdef MAC_OSX_TCL /* MACOSX */
 
1388
#ifndef TclCleanupChildren
 
1389
#define TclCleanupChildren \
 
1390
        (tclIntStubsPtr->tclCleanupChildren) /* 5 */
 
1391
#endif
 
1392
#endif /* MACOSX */
1369
1393
#ifndef TclCleanupCommand
1370
1394
#define TclCleanupCommand \
1371
1395
        (tclIntStubsPtr->tclCleanupCommand) /* 6 */
1378
1402
#define TclCopyChannel \
1379
1403
        (tclIntStubsPtr->tclCopyChannel) /* 8 */
1380
1404
#endif
1381
 
#if !defined(__WIN32__) /* UNIX */
 
1405
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1382
1406
#ifndef TclCreatePipeline
1383
1407
#define TclCreatePipeline \
1384
1408
        (tclIntStubsPtr->tclCreatePipeline) /* 9 */
1385
1409
#endif
1386
1410
#endif /* UNIX */
1387
 
#ifdef __WIN32__
1388
 
#ifndef TclCreatePipeline
1389
 
#define TclCreatePipeline \
1390
 
        (tclIntStubsPtr->tclCreatePipeline) /* 9 */
1391
 
#endif
1392
 
#endif /* __WIN32__ */
 
1411
#ifdef __WIN32__ /* WIN */
 
1412
#ifndef TclCreatePipeline
 
1413
#define TclCreatePipeline \
 
1414
        (tclIntStubsPtr->tclCreatePipeline) /* 9 */
 
1415
#endif
 
1416
#endif /* WIN */
 
1417
#ifdef MAC_OSX_TCL /* MACOSX */
 
1418
#ifndef TclCreatePipeline
 
1419
#define TclCreatePipeline \
 
1420
        (tclIntStubsPtr->tclCreatePipeline) /* 9 */
 
1421
#endif
 
1422
#endif /* MACOSX */
1393
1423
#ifndef TclCreateProc
1394
1424
#define TclCreateProc \
1395
1425
        (tclIntStubsPtr->tclCreateProc) /* 10 */
1637
1667
#define TclSockGetPort \
1638
1668
        (tclIntStubsPtr->tclSockGetPort) /* 103 */
1639
1669
#endif
1640
 
#if !defined(__WIN32__) /* UNIX */
 
1670
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
1641
1671
#ifndef TclSockMinimumBuffers
1642
1672
#define TclSockMinimumBuffers \
1643
1673
        (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1644
1674
#endif
1645
1675
#endif /* UNIX */
1646
 
#ifdef __WIN32__
1647
 
#ifndef TclSockMinimumBuffers
1648
 
#define TclSockMinimumBuffers \
1649
 
        (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1650
 
#endif
1651
 
#endif /* __WIN32__ */
 
1676
#ifdef __WIN32__ /* WIN */
 
1677
#ifndef TclSockMinimumBuffers
 
1678
#define TclSockMinimumBuffers \
 
1679
        (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
 
1680
#endif
 
1681
#endif /* WIN */
 
1682
#ifdef MAC_OSX_TCL /* MACOSX */
 
1683
#ifndef TclSockMinimumBuffers
 
1684
#define TclSockMinimumBuffers \
 
1685
        (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
 
1686
#endif
 
1687
#endif /* MACOSX */
1652
1688
/* Slot 105 is reserved */
1653
1689
/* Slot 106 is reserved */
1654
1690
/* Slot 107 is reserved */
2063
2099
#define TclBackgroundException \
2064
2100
        (tclIntStubsPtr->tclBackgroundException) /* 236 */
2065
2101
#endif
2066
 
#ifndef TclByteArrayMatch
2067
 
#define TclByteArrayMatch \
2068
 
        (tclIntStubsPtr->tclByteArrayMatch) /* 237 */
2069
 
#endif
2070
 
#ifndef TclReToGlob
2071
 
#define TclReToGlob \
2072
 
        (tclIntStubsPtr->tclReToGlob) /* 238 */
2073
 
#endif
2074
2102
 
2075
2103
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
2076
2104