diff options
Diffstat (limited to 'generic/tclCompileStubs.c')
| -rw-r--r-- | generic/tclCompileStubs.c | 278 |
1 files changed, 0 insertions, 278 deletions
diff --git a/generic/tclCompileStubs.c b/generic/tclCompileStubs.c deleted file mode 100644 index 624d1c7..0000000 --- a/generic/tclCompileStubs.c +++ /dev/null @@ -1,278 +0,0 @@ -/* - * tclCompileStubs.c -- - * - * This file contains the wrapper functions for the unsupported - * tclCompile functions. - * - * Copyright (c) 1998-1999 by Scriptics Corporation. - * All rights reserved. - * - * RCS: @(#) $Id: tclCompileStubs.c,v 1.1.2.1 1999/03/05 20:18:04 stanton Exp $ - */ - -#include "tclCompile.h" - -/* - * WARNING: This file is automatically generated by the tools/genStubs.tcl - * script. Any modifications to the function declarations below should be made - * in the generic/tclInt.decls script. - */ - -/* !BEGIN!: Do not edit below this line. */ - -/* - * Exported stub functions: - */ - -/* Slot 0 */ -void -TclCleanupByteCode(codePtr) - ByteCode * codePtr; -{ - (tclCompileStubsPtr->tclCleanupByteCode)(codePtr); -} - -/* Slot 1 */ -int -TclCompileExpr(interp, string, lastChar, flags, envPtr) - Tcl_Interp * interp; - char * string; - char * lastChar; - int flags; - CompileEnv * envPtr; -{ - return (tclCompileStubsPtr->tclCompileExpr)(interp, string, lastChar, flags, envPtr); -} - -/* Slot 2 */ -int -TclCompileQuotes(interp, string, lastChar, termChar, flags, envPtr) - Tcl_Interp * interp; - char * string; - char * lastChar; - int termChar; - int flags; - CompileEnv * envPtr; -{ - return (tclCompileStubsPtr->tclCompileQuotes)(interp, string, lastChar, termChar, flags, envPtr); -} - -/* Slot 3 */ -int -TclCompileString(interp, string, lastChar, flags, envPtr) - Tcl_Interp * interp; - char * string; - char * lastChar; - int flags; - CompileEnv * envPtr; -{ - return (tclCompileStubsPtr->tclCompileString)(interp, string, lastChar, flags, envPtr); -} - -/* Slot 4 */ -int -TclCompileDollarVar(interp, string, lastChar, flags, envPtr) - Tcl_Interp * interp; - char * string; - char * lastChar; - int flags; - CompileEnv * envPtr; -{ - return (tclCompileStubsPtr->tclCompileDollarVar)(interp, string, lastChar, flags, envPtr); -} - -/* Slot 5 */ -int -TclCreateAuxData(clientData, typePtr, envPtr) - ClientData clientData; - AuxDataType * typePtr; - CompileEnv * envPtr; -{ - return (tclCompileStubsPtr->tclCreateAuxData)(clientData, typePtr, envPtr); -} - -/* Slot 6 */ -ExecEnv * -TclCreateExecEnv(interp) - Tcl_Interp * interp; -{ - return (tclCompileStubsPtr->tclCreateExecEnv)(interp); -} - -/* Slot 7 */ -void -TclDeleteExecEnv(eePtr) - ExecEnv * eePtr; -{ - (tclCompileStubsPtr->tclDeleteExecEnv)(eePtr); -} - -/* Slot 8 */ -void -TclEmitForwardJump(envPtr, jumpType, jumpFixupPtr) - CompileEnv * envPtr; - TclJumpType jumpType; - JumpFixup * jumpFixupPtr; -{ - (tclCompileStubsPtr->tclEmitForwardJump)(envPtr, jumpType, jumpFixupPtr); -} - -/* Slot 9 */ -AuxDataType * -TclGetAuxDataType(typeName) - char * typeName; -{ - return (tclCompileStubsPtr->tclGetAuxDataType)(typeName); -} - -/* Slot 10 */ -ExceptionRange * -TclGetExceptionRangeForPc(pc, catchOnly, codePtr) - unsigned char * pc; - int catchOnly; - ByteCode* codePtr; -{ - return (tclCompileStubsPtr->tclGetExceptionRangeForPc)(pc, catchOnly, codePtr); -} - -/* Slot 11 */ -InstructionDesc * -TclGetInstructionTable() -{ - return (tclCompileStubsPtr->tclGetInstructionTable)(); -} - -/* Slot 12 */ -int -TclExecuteByteCode(interp, codePtr) - Tcl_Interp * interp; - ByteCode * codePtr; -{ - return (tclCompileStubsPtr->tclExecuteByteCode)(interp, codePtr); -} - -/* Slot 13 */ -void -TclExpandCodeArray(envPtr) - CompileEnv * envPtr; -{ - (tclCompileStubsPtr->tclExpandCodeArray)(envPtr); -} - -/* Slot 14 */ -void -TclExpandJumpFixupArray(fixupArrayPtr) - JumpFixupArray * fixupArrayPtr; -{ - (tclCompileStubsPtr->tclExpandJumpFixupArray)(fixupArrayPtr); -} - -/* Slot 15 */ -void -TclFinalizeAuxDataTypeTable() -{ - (tclCompileStubsPtr->tclFinalizeAuxDataTypeTable)(); -} - -/* Slot 16 */ -int -TclFixupForwardJump(envPtr, jumpFixupPtr, jumpDist, distThreshold) - CompileEnv * envPtr; - JumpFixup * jumpFixupPtr; - int jumpDist; - int distThreshold; -{ - return (tclCompileStubsPtr->tclFixupForwardJump)(envPtr, jumpFixupPtr, jumpDist, distThreshold); -} - -/* Slot 17 */ -void -TclFreeCompileEnv(envPtr) - CompileEnv * envPtr; -{ - (tclCompileStubsPtr->tclFreeCompileEnv)(envPtr); -} - -/* Slot 18 */ -void -TclFreeJumpFixupArray(fixupArrayPtr) - JumpFixupArray * fixupArrayPtr; -{ - (tclCompileStubsPtr->tclFreeJumpFixupArray)(fixupArrayPtr); -} - -/* Slot 19 */ -void -TclInitAuxDataTypeTable() -{ - (tclCompileStubsPtr->tclInitAuxDataTypeTable)(); -} - -/* Slot 20 */ -void -TclInitByteCodeObj(objPtr, envPtr) - Tcl_Obj * objPtr; - CompileEnv * envPtr; -{ - (tclCompileStubsPtr->tclInitByteCodeObj)(objPtr, envPtr); -} - -/* Slot 21 */ -void -TclInitCompileEnv(interp, envPtr, string) - Tcl_Interp * interp; - CompileEnv * envPtr; - char * string; -{ - (tclCompileStubsPtr->tclInitCompileEnv)(interp, envPtr, string); -} - -/* Slot 22 */ -void -TclInitJumpFixupArray(fixupArrayPtr) - JumpFixupArray * fixupArrayPtr; -{ - (tclCompileStubsPtr->tclInitJumpFixupArray)(fixupArrayPtr); -} - -/* Slot 23 */ -int -TclObjIndexForString(start, length, allocStrRep, inHeap, envPtr) - char * start; - int length; - int allocStrRep; - int inHeap; - CompileEnv * envPtr; -{ - return (tclCompileStubsPtr->tclObjIndexForString)(start, length, allocStrRep, inHeap, envPtr); -} - -/* Slot 24 */ -int -TclPrintInstruction(codePtr, pc) - ByteCode* codePtr; - unsigned char * pc; -{ - return (tclCompileStubsPtr->tclPrintInstruction)(codePtr, pc); -} - -/* Slot 25 */ -void -TclPrintSource(outFile, string, maxChars) - FILE * outFile; - char * string; - int maxChars; -{ - (tclCompileStubsPtr->tclPrintSource)(outFile, string, maxChars); -} - -/* Slot 26 */ -void -TclRegisterAuxDataType(typePtr) - AuxDataType * typePtr; -{ - (tclCompileStubsPtr->tclRegisterAuxDataType)(typePtr); -} - - -/* !END!: Do not edit above this line. */ |