# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

library tcl

Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc(Tcl_ChannelType *chanTypePtr)

}

##############################################################################

# Define the platform specific public Tcl interface. These functions are

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#ifndef _TCL

VOID *ptr1;

VOID *ptr2;

} twoPtrValue;

} internalRep;

} Tcl_Obj;

*/

#ifdef TCL_MEM_DEBUG

# define Tcl_NewBooleanObj(val) \

Tcl_DbNewBooleanObj(val, __FILE__, __LINE__)

# define Tcl_NewByteArrayObj(bytes, len) \

typedef void (Tcl_LimitHandlerDeleteProc) _ANSI_ARGS_((ClientData clientData));

#ifndef TCL_NO_DEPRECATED

/*

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

#include "tclCompile.h"

/*

* Static procedures in this file:

static void ProcessUnexpectedResult _ANSI_ARGS_((

Tcl_Interp *interp, int returnCode));

extern TclStubs tclStubs;

/*

{NULL, (Tcl_ObjCmdProc *) NULL, (CompileProc *) NULL, 0}

};



/*

*----------------------------------------------------------------------

Interp *iPtr;

Tcl_Interp *interp;

Command *cmdPtr;

const CmdInfo *cmdInfoPtr;

int i;

union {

char c[sizeof(short)];

iPtr->globalNsPtr = NULL;

iPtr->hiddenCmdTablePtr = NULL;

iPtr->interpInfo = NULL;

iPtr->numLevels = 0;

iPtr->maxNestingDepth = MAX_NESTING_DEPTH;

iPtr->returnOpts = NULL;

iPtr->errorInfo = NULL;

Tcl_IncrRefCount(iPtr->eiVar);

iPtr->errorCode = NULL;

Tcl_IncrRefCount(iPtr->ecVar);

iPtr->returnLevel = 0;

iPtr->returnCode = TCL_OK;

TclClockOldscanObjCmd, (ClientData) NULL,

(Tcl_CmdDeleteProc*) NULL );

/* Register the default [interp bgerror] handler. */

Tcl_CreateObjCommand( interp, "::tcl::Bgerror",

* Register the builtin math functions.

*/

i = 0;

}

}

/*

Tcl_DeleteHashTable(hTablePtr);

ckfree((char *) hTablePtr);

}

/*

* Invoke deletion callbacks; note that a callback can create new

ClientData clientData; /* Additional value to pass to the

* function. */

{

}

}

}

}

}

}

}



/*

Tcl_MathProc **procPtr;

ClientData *clientDataPtr;

{

}

} else {

}

return TCL_OK;

}



/*

Tcl_Interp *interp;

CONST char *pattern;

{

}

}

}



/*

for (i = objc-1; i >= 0; i--) {

newObjv[i+1] = objv[i];

}

Tcl_IncrRefCount(newObjv[0]);

cmdPtr = (Command *) Tcl_GetCommandFromObj(interp, newObjv[0]);

if (cmdPtr == NULL) {

objv[objectsUsed], &numElements);

if (code == TCL_ERROR) {

/* Attempt to expand a non-list */

Tcl_IncrRefCount(wordNum);

Tcl_IncrRefCount(msg);

Tcl_AppendObjToObj(msg, wordNum);

&& ((iPtr->flags & ERR_ALREADY_LOGGED) == 0)) {

int length;

Tcl_Obj *command = Tcl_NewListObj(objc, objv);

Tcl_LogCommandInfo(interp, cmdString, cmdString, length);

Tcl_DecrRefCount(command);

iPtr->flags &= ~ERR_ALREADY_LOGGED;

*type = TCL_RELEASE_LEVEL;

}

}

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

case 'Q':

/*

* Double-precision floating point values.

*/

if (Tcl_GetDoubleFromObj(interp, src, &dvalue) != TCL_OK) {

}

CopyNumber(&dvalue, *cursorPtr, sizeof(double), type);

*cursorPtr += sizeof(double);

case 'R':

/*

* Single-precision floating point values.

*/

if (Tcl_GetDoubleFromObj(interp, src, &dvalue) != TCL_OK) {

}

/*

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

}

}

errno = 0;

/*

* In this case, nothing like a number was found

*/

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* just after the last token in the

* subexpression is stored here. */

{

Tcl_Token *tokenPtr, *afterSubexprPtr;

/*

*/

/*

* Compile any arguments for the function.

*/

tokenPtr = exprTokenPtr+2;

afterSubexprPtr = exprTokenPtr + (exprTokenPtr->numComponents + 1);

}

}

} else {

}

}



/*

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#ifndef _TCLCOMPILATION

MODULE_SCOPE InstructionDesc tclInstructionTable[];

/*

* Compilation of some Tcl constructs such as if commands and the logical or

* (||) and logical and (&&) operators in expressions requires the

* generation of forward jumps. Since the PC target of these jumps isn't

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#ifndef _TCLDECLS

EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc _ANSI_ARGS_((

Tcl_ChannelType * chanTypePtr));

#endif

typedef struct TclStubHooks {

struct TclPlatStubs *tclPlatStubs;

void (*tcl_SetTimeProc) _ANSI_ARGS_((Tcl_GetTimeProc* getProc, Tcl_ScaleTimeProc* scaleProc, ClientData clientData)); /* 552 */

void (*tcl_QueryTimeProc) _ANSI_ARGS_((Tcl_GetTimeProc** getProc, Tcl_ScaleTimeProc** scaleProc, ClientData* clientData)); /* 553 */

Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) _ANSI_ARGS_((Tcl_ChannelType * chanTypePtr)); /* 554 */

} TclStubs;

#ifdef __cplusplus

#define Tcl_ChannelThreadActionProc \

(tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */

#endif

#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

#endif

TclpInitPlatform(); /* creates signal handler(s) */

TclInitObjSubsystem(); /* register obj types, create mutexes */

TclInitIOSubsystem(); /* inits a tsd key (noop) */

TclInitEncodingSubsystem(); /* process wide encoding init */

TclFinalizeLoad();

TclResetFilesystem();

/*

* There shouldn't be any malloc'ed memory after this.

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

#ifndef TCL_NO_MATH

# include <math.h>

#endif

/*

* The stuff below is a bit of a hack so that this file can be used

* by comparing against the largest floating-point value.

*/

/*

* The new macro for ending an instruction; note that a

static int TclExecuteByteCode _ANSI_ARGS_((Tcl_Interp *interp,

ByteCode *codePtr));

#ifdef TCL_COMPILE_STATS

static int EvalStatsCmd _ANSI_ARGS_((ClientData clientData,

Tcl_Interp *interp, int objc,

int stackTop, int stackLowerBound,

int checkStack));

#endif /* TCL_COMPILE_DEBUG */

static Tcl_WideInt ExponWide _ANSI_ARGS_((Tcl_WideInt w, Tcl_WideInt w2,

int *errExpon));

static long ExponLong _ANSI_ARGS_((long i, long i2,

int *errExpon));



/*

*----------------------------------------------------------------------

dResult = d1 * d2;

break;

case INST_DIV:

if (d2 == 0.0) {

TRACE(("%.6g %.6g => DIVIDE BY ZERO\n", d1, d2));

goto divideByZero;

}

dResult = d1 / d2;

break;

case INST_EXPON:

* Check now for IEEE floating-point error.

*/

TRACE(("%.20s %.20s => IEEE FLOATING PT ERROR\n",

O2S(valuePtr), O2S(value2Ptr)));

TclExprFloatError(interp, dResult);

case INST_CALL_BUILTIN_FUNC1:

{

}

case INST_CALL_FUNC1:

{

}

case INST_TRY_CVT_TO_NUMERIC:

{

if (tPtr == &tclDoubleType) {

d = objResultPtr->internalRep.doubleValue;

TRACE(("\"%.20s\" => IEEE FLOATING PT ERROR\n",

O2S(objResultPtr)));

TclExprFloatError(interp, d);

/*

*----------------------------------------------------------------------

*

* TclExprFloatError --

*

* This procedure is called when an error occurs during a

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

%{

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#include "tclInt.h"

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

library tcl

void TclPopStackFrame(Tcl_Interp *interp)

}

##############################################################################

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#ifndef _TCLINT

Tcl_Interp *interp, Tcl_Obj *objPtr));

MODULE_SCOPE int TclArraySet _ANSI_ARGS_((Tcl_Interp *interp,

Tcl_Obj *arrayNameObj, Tcl_Obj *arrayElemObj));

MODULE_SCOPE int TclCheckBadOctal _ANSI_ARGS_((Tcl_Interp *interp,

CONST char *value));

MODULE_SCOPE void TclCleanupLiteralTable _ANSI_ARGS_((

Tcl_Interp* interp, LiteralTable* tablePtr));

MODULE_SCOPE void TclExpandTokenArray _ANSI_ARGS_((

Tcl_Parse *parsePtr));

MODULE_SCOPE int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp *interp,

MODULE_SCOPE void TclFinalizeAllocSubsystem _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeCompExecEnv _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeCompilation _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeEncodingSubsystem _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeEnvironment _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeExecution _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeSynchronization _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeLock _ANSI_ARGS_((void));

MODULE_SCOPE void TclFinalizeThreadData _ANSI_ARGS_((void));

MODULE_SCOPE int TclFSFileAttrIndex _ANSI_ARGS_((Tcl_Obj *pathPtr,

CONST char *attributeName, int *indexPtr));

MODULE_SCOPE Tcl_Obj * TclGetBgErrorHandler _ANSI_ARGS_((Tcl_Interp *interp));

int globFlags, Tcl_GlobTypeData* types));

MODULE_SCOPE void TclInitAlloc _ANSI_ARGS_((void));

MODULE_SCOPE void TclInitDbCkalloc _ANSI_ARGS_((void));

MODULE_SCOPE void TclInitEmbeddedConfigurationInformation

_ANSI_ARGS_((Tcl_Interp *interp));

MODULE_SCOPE void TclInitEncodingSubsystem _ANSI_ARGS_((void));

Tcl_Encoding encoding));

MODULE_SCOPE VOID TclSignalExitThread _ANSI_ARGS_((Tcl_ThreadId id,

int result));

MODULE_SCOPE int TclSubstTokens _ANSI_ARGS_((Tcl_Interp *interp,

Tcl_Token *tokenPtr, int count,

int *tokensLeftPtr));

}

/*

*----------------------------------------------------------------

* Macro used by the Tcl core to check whether a pattern has

* any characters special to [string match].

* See the file "license.terms" for information on usage and redistribution

* of this file, and for a DISCLAIMER OF ALL WARRANTIES.

*

*/

#ifndef _TCLINTDECLS

/* 218 */

EXTERN void TclPopStackFrame _ANSI_ARGS_((Tcl_Interp * interp));

#endif

typedef struct TclIntStubs {

int magic;

void (*tclStackFree) _ANSI_ARGS_((Tcl_Interp * interp)); /* 216 */

int (*tclPushStackFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_CallFrame ** framePtrPtr, Tcl_Namespace * namespacePtr, int isProcCallFrame)); /* 217 */

void (*tclPopStackFrame) _ANSI_ARGS_((Tcl_Interp * interp)); /* 218 */

} TclIntStubs;

#ifdef __cplusplus

#define TclPopStackFrame \

(tclIntStubsPtr->tclPopStackFrame) /* 218 */

#endif

#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */