Tcl库函数

75...................................................................54................................................................33...........................................22TCL......................................21..............................................................119TCL....................................................108.........................................................97Hash..........................................................76TCL.......................................................TCL----------------------------------------------------------------------------------------------------------------------------------------------------112TCL()TCLTCLTCLTCLTCLTCLC\C++TCLTCLTCL11.Tcl_InitintTcl_Init(Tcl_Interp*interp)interpTCLTcl_InitTcl_InitTCLTCLTCLTcl_CreateInterpTcl_MainTCL2.Tcl_MainvoidTcl_Main(intargc,char**argv,Tcl_AppInitProc*appInitProc)C\C++mainmainTcl_InitTcl_MainappInitProcTCLTCLappInitProcTCL2TCLTCLTCLTCLTCLTCLTCLTCLTCLTCL1.Tcl_CreateInterpTcl_Interp*Tcl_CreateInterp(void)TCL----------------------------------------------------------------------------------------------------------------------------------------------------212TCL2.Tcl_DeleteInterpvoidTcl_DeleteInterp(Tcl_Interp*interp)TCL3.Tcl_EvalintTcl_Eval(Tcl_Interp*interpchar*script)interpscriptinterp-resultTCL_OKTCL_ERRORTCL_BREAKbreakTCL_CONTINUEconitinueTCL_RETURNreturnintTCLTCL_OKTCL_ERROR4.Tcl_EvalFileintTcl_EvalFile(Tcl_Interp*interp,char*fileName)interpfileNameinterp-result5.Tcl_GlobalEvalintTcl_GlobalEval(Tcl_Interp*interp,char*script)interpscriptinterp-result6.Tcl_VarEvalintTcl_VarEval(Tcl_Interp*interp,char*string,char*string,...(char*)NULL)NULLinterpinterp-result3TCLTCLC\C++TCLTCLC\C++TCLTCLC\C++TCL----------------------------------------------------------------------------------------------------------------------------------------------------312TCLC\C++Tcl_EvalTCLTCLC\C++TCLinterp-resultTCL1.Tcl_CreateCommandvoidTcl_CreateCommand(Tcl_Interp*interp,char*cmdName,Tcl_CmdProc*cmdProc,ClientDataclientData,Tcl_CmdDeleteProc*deleteProc)interpTCLTCLC\C++tcl.hTcl_CmdProctypedefintTcl_CmdProc(ClientDataclientData,Tcl_Interp*interp,intargc,char*argv[]);typedefvoid*ClientData;C\C++void()TCL_OKTCL_ERRORTCL_BREAKTCL_CONTINUETCL_RETURN2.Tcl_DeleteCommandintTcl_DeleteCommand(Tcl_Interp*interp,char*cmdName)C\C++TCLinterp-resultsprintfinterp-result200TCL3.Tcl_SetResultTcl_SetResult(Tcl_Interp*interp,char*string,Tcl_FreeProc*freeProc)TCLtypedefvoid(Tcl_FreeProc)(char*blockPtr)TCL_STATICstringTcl_SetResultinterp-resultTCL_VOLATITLEstringTcl_SetResultinterp-resultstringTCL----------------------------------------------------------------------------------------------------------------------------------------------------412TCL_DYNAMICstringmallocTCL:Tcl_SetResultinterp-freeprocfreeTcl_FreeProcstringTCL4.Tcl_AppendResultTcl_AppendResult(Tcl_Interp*interp,char*string,char*string,...(char*)NULL)NULLstringinterp-result5.Tcl_AppendElementTcl_AppendElement(Tcl_Interp*interp,char*string)stringinterp-result6.Tcl_ResetResultTcl_ResetResult(Tcl_Interp*interp)interp-result4TCLC\C++argcargvTCLTCLC\C++argcargv1.Tcl_GetIntintTcl_GetInt(Tcl_Interp*interp,char*string,int*intPtr)string*intPtrTCL_OKTCL_ERRORinterp-result2.Tcl_GetDoubleintTcl_GetDouble(Tcl_Interp*interp,char*string,double*doublePtr)string*doublePtrTCL_OKTCL_ERRORinterp-result3.Tcl_GetBooleanintTcl_GetBoolean(Tcl_Interp*interp,char*string,int*intPtr)TCL----------------------------------------------------------------------------------------------------------------------------------------------------512stringBOOL0\1*intPtrTCL_OKTCL_ERRORinterp-result4.Tcl_ExprStringintTcl_ExprString(Tcl_Interp*interp,char*string)stringTCL_OKinterp-resultTCL_ERRORinterp-result5.Tcl_ExprLongintTcl_ExprLong(Tcl_Interp*interp,char*string,long*longPtr)Tcl_ExprString*longPtr6.Tcl_ExprDoubleintTcl_ExprDouble(Tcl_Interp*interp,char*string,double*doublePtr)Tcl_ExprString*doublePtr7.Tcl_ExprBooleanintTcl_ExprBoolean(Tcl_Interp*interp,char*string,int*intPtr)Tcl_ExprString0\1*intPtrBOOL8.Tcl_SplitListintTcl_SplitList(Tcl_Interp*interp,char*list,int*argcPtr,char***argvPtr)listTCL_OK*argcPtrargvPtrTCL_ERRORinterp-result9.Tcl_Mergechar*Tcl_Merge(intargc,char**argv)Tcl_SplitListTCL5TCL----------------------------------------------------------------------------------------------------------------------------------------------------612TCLC\C++TCLTCLTCLTCL()TCLTCL()TCLTCLTCL6TCLCTCL1.Tcl_SetVarchar*Tcl_SetVar(Tcl_Interp*interp,char*varName,char*newValue,intflags)varNamenewValueNULLflags|TCL_GLOBAL_ONLYvarNameTCL_LEAVE_ERR_MSGinterp-resultTCL_APPEND_VALUEnewValueTCL_LIST_ELEMENTnewValuevarName,a(b)ab2.Tcl_SetVar2char*Tcl_SetVar2(Tcl_Interp*interp,char*name1,char*name2,char*newValue,intflags)Tcl_SetVarname2NULLTcl_SetVarname2name1a(b)name1name2Tcl_SetVarTcl_SetVarTcl_SetVar23.Tcl_GetVarchar*Tcl_GetVar(Tcl_Interp*interp,char*varName,intflags)varNameTcl_SetVarflagsTCL_GLOBAL_ONLYTCL_LEAVE_ERR_M