/macosx-10.10/tcl-105/tcl_ext/tclx/tclx/generic/ |
H A D | tclXinit.c | 41 static int Tclxcmd_Init _ANSI_ARGS_((Tcl_Interp *interp)); 53 Tclx_Init (interp) 54 Tcl_Interp *interp; 56 if (Tclx_SafeInit(interp) != TCL_OK) { 60 if ((Tcl_EvalEx(interp, initScript, -1, 62 || (TclX_LibraryInit(interp) != TCL_OK)) { 63 Tcl_AddErrorInfo(interp, "\n (in TclX_Init)"); 79 Tclx_SafeInit (interp) 80 Tcl_Interp *interp; 84 (Tcl_InitStubs(interp, "8. [all...] |
/macosx-10.10/swig-12/Lib/tcl/ |
H A D | tclinterp.i | 7 * Tcl_Interp *interp 11 * if you just need the interp value for some reason. When used, 12 * the 'interp' parameter becomes hidden in the Tcl interface--that 17 %typemap(in,numinputs=0) Tcl_Interp *interp { 18 $1 = interp;
|
/macosx-10.10/tcl-105/tcl84/tcl/unix/dltest/ |
H A D | pkge.c | 29 * Returns TCL_ERROR and leaves an error message in interp->result. 38 Pkge_Init(interp) 39 Tcl_Interp *interp; /* Interpreter in which the package is 43 if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { 46 return Tcl_Eval(interp, script);
|
H A D | pkgf.c | 22 Tcl_Interp *interp, int argc, char **argv)); 24 Tcl_Interp *interp, int argc, char **argv)); 36 * Returns TCL_ERROR and leaves an error message in interp->result. 45 Pkgf_Init(interp) 46 Tcl_Interp *interp; /* Interpreter in which the package is 50 if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { 53 return Tcl_Eval(interp, script);
|
H A D | pkgb.c | 22 Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])); 24 Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])); 45 Pkgb_SubObjCmd(dummy, interp, objc, objv) 47 Tcl_Interp *interp; /* Current interpreter. */ 54 Tcl_WrongNumArgs(interp, 1, objv, "num num"); 57 if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK) 58 || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) { 61 Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second)); 84 Pkgb_UnsafeObjCmd(dummy, interp, objc, objv) 86 Tcl_Interp *interp; /* Curren [all...] |
H A D | pkgc.c | 22 Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])); 24 Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])); 45 Pkgc_SubObjCmd(dummy, interp, objc, objv) 47 Tcl_Interp *interp; /* Current interpreter. */ 54 Tcl_WrongNumArgs(interp, 1, objv, "num num"); 57 if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK) 58 || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) { 61 Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second)); 84 Pkgc_UnsafeObjCmd(dummy, interp, objc, objv) 86 Tcl_Interp *interp; /* Curren [all...] |
H A D | pkgd.c | 23 Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])); 25 Tcl_Interp *interp, int objc, Tcl_Obj * CONST objv[])); 46 Pkgd_SubObjCmd(dummy, interp, objc, objv) 48 Tcl_Interp *interp; /* Current interpreter. */ 55 Tcl_WrongNumArgs(interp, 1, objv, "num num"); 58 if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK) 59 || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) { 62 Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second)); 85 Pkgd_UnsafeObjCmd(dummy, interp, objc, objv) 87 Tcl_Interp *interp; /* Curren [all...] |
/macosx-10.10/tcl-105/tcl_ext/tkimg/tkimg/libpng/ |
H A D | pngtcl.c | 42 Pngtcl_Init (interp) 43 Tcl_Interp *interp; /* Interpreter to initialise. */ 47 if (Tcl_InitStubs(interp, "8.3", 0) == NULL) { 50 if (Zlibtcl_InitStubs(interp, ZLIBTCL_VERSION, 1) == NULL) { 54 if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION, 81 Pngtcl_SafeInit (interp) 82 Tcl_Interp *interp; /* Interpreter to initialise. */ 84 return Pngtcl_Init(interp);
|
/macosx-10.10/tcl-105/tcl_ext/tkimg/tkimg/libjpeg/ |
H A D | jpegtcl.c | 41 Jpegtcl_Init (interp) 42 Tcl_Interp *interp; /* Interpreter to initialise. */ 46 if (Tcl_InitStubs(interp, "8.3", 0) == NULL) { 49 if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION, 76 Jpegtcl_SafeInit (interp) 77 Tcl_Interp *interp; /* Interpreter to initialise. */ 79 return Jpegtcl_Init(interp);
|
/macosx-10.10/tcl-105/tcl_ext/tkimg/tkimg/libtiff/ |
H A D | tifftcl.c | 27 extern DLLEXPORT int Tifftcl_Init(Tcl_Interp *interp); 28 extern DLLEXPORT int Tifftcl_SafeInit(Tcl_Interp *interp); 52 Tifftcl_Init (interp) 53 Tcl_Interp *interp; /* Interpreter to initialise. */ 57 if (Tcl_InitStubs(interp, "8.3", 0) == NULL) { 60 if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION, 87 Tifftcl_SafeInit (interp) 88 Tcl_Interp *interp; /* Interpreter to initialise. */ 90 return Tifftcl_Init(interp);
|
/macosx-10.10/tcl-105/tcl/tcl/unix/dltest/ |
H A D | pkge.c | 29 * Returns TCL_ERROR and leaves an error message in interp->result. 39 Tcl_Interp *interp) /* Interpreter in which the package is to be 44 if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { 47 return Tcl_Eval(interp, script); 37 Pkge_Init( Tcl_Interp *interp) argument
|
/macosx-10.10/tcl-105/tcl_ext/tdom/tdom/generic/ |
H A D | tdominit.c | 65 Tdom_Init (interp) 66 Tcl_Interp *interp; /* Interpreter to initialize. */ 70 Tcl_InitStubs(interp, "8", 0); 80 Tcl_Eval(interp, "rename unknown unknown_tdom"); 81 Tcl_CreateObjCommand(interp, "unknown", tcldom_unknownCmd, NULL, NULL ); 84 Tcl_CreateObjCommand(interp, "dom", tcldom_DomObjCmd, NULL, NULL ); 85 Tcl_CreateObjCommand(interp, "domDoc", tcldom_DocObjCmd, NULL, NULL ); 86 Tcl_CreateObjCommand(interp, "domNode", tcldom_NodeObjCmd, NULL, NULL ); 87 Tcl_CreateObjCommand(interp, "tdom", TclTdomObjCmd, NULL, NULL ); 90 Tcl_CreateObjCommand(interp, "expa [all...] |
/macosx-10.10/tcl-105/tcl_ext/tclx/tclx/unix/ |
H A D | tclXunixTest.c | 23 Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 26 Tclxtest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 60 * interp result if an error occurs. 64 Tcl_AppInit (interp) 65 Tcl_Interp *interp; 67 if (Tcl_Init (interp) == TCL_ERROR) { 71 if (Tclx_Init (interp) == TCL_ERROR) { 74 Tcl_StaticPackage (interp, "Tclx", Tclx_Init, Tclx_SafeInit); 76 if (Tcltest_Init (interp) == TCL_ERROR) { 79 Tcl_StaticPackage(interp, "Tcltes [all...] |
H A D | tclXAppInit.c | 65 * interp result if an error occurs. 70 Tcl_AppInit (Tcl_Interp *interp) 73 Tcl_AppInit (interp) 74 Tcl_Interp *interp; 77 if (Tcl_Init (interp) == TCL_ERROR) { 81 if (Tclx_Init (interp) == TCL_ERROR) { 84 Tcl_StaticPackage (interp, "Tclx", Tclx_Init, Tclx_SafeInit); 97 Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclrc", TCL_GLOBAL_ONLY); 68 Tcl_AppInit(Tcl_Interp *interp) argument
|
/macosx-10.10/tcl-105/tcl_ext/tdom/tdom/unix/ |
H A D | tclAppInit.c | 36 extern int Tdom_Init _ANSI_ARGS_((Tcl_Interp *interp)); 37 extern int Tdom_SafeInit _ANSI_ARGS_((Tcl_Interp *interp)); 58 Tcl_AppInit(interp) 59 Tcl_Interp *interp; 61 if (Tcl_Init(interp) == TCL_ERROR) { 64 if (Tdom_Init(interp) == TCL_ERROR) { 67 Tcl_StaticPackage(interp, "tdom", Tdom_Init, Tdom_SafeInit); 68 Tcl_SetVar(interp, "tcl_rcFileName", "~/.tcldomshrc", TCL_GLOBAL_ONLY);
|
/macosx-10.10/tcl-105/tcl_ext/tktable/tktable/generic/ |
H A D | tkAppInit.c | 27 EXTERN int Tktable_Init _ANSI_ARGS_((Tcl_Interp *interp)); 29 EXTERN int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 30 EXTERN int Tktest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 72 * message in interp->result if an error occurs. 81 Tcl_AppInit(interp) 82 Tcl_Interp *interp; /* Interpreter for application. */ 84 if (Tcl_Init(interp) == TCL_ERROR) { 87 if (Tk_Init(interp) == TCL_ERROR) { 90 Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL); 92 if (Tcltest_Init(interp) [all...] |
/macosx-10.10/tcl-105/tcl_ext/xotcl/xotcl/unix/ |
H A D | tclAppInit.c | 23 extern int Procbodytest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 24 extern int Procbodytest_SafeInit _ANSI_ARGS_((Tcl_Interp *interp)); 25 extern int TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 26 extern int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 28 extern int TclThread_Init _ANSI_ARGS_((Tcl_Interp *interp)); 35 extern int Tclxttest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 71 extern int TCL_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); 108 * message in the interp's result if an error occurs. 117 Tcl_AppInit(interp) 118 Tcl_Interp *interp; /* Interprete [all...] |
H A D | tkAppInit.c | 60 * message in interp->result if an error occurs. 69 Tcl_AppInit(interp) 70 Tcl_Interp *interp; /* Interpreter for application. */ 72 if (Tcl_Init(interp) == TCL_ERROR) { 75 if (Tk_Init(interp) == TCL_ERROR) { 78 if (Xotcl_Init(interp) == TCL_ERROR) { 81 Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); 82 Tcl_StaticPackage(interp, "XOTcl", Xotcl_Init, 0); 84 if (Tcl_Import(interp, Tcl_GetGlobalNamespace(interp), [all...] |
/macosx-10.10/tcl-105/tcl_ext/tclx/tclx/win/ |
H A D | tclXwinTest.c | 23 Tcltest_Init (Tcl_Interp *interp); 26 Tclxtest_Init (Tcl_Interp *interp); 55 * interp result if an error occurs. 59 Tcl_AppInit (Tcl_Interp *interp) 61 if (Tcl_Init (interp) == TCL_ERROR) { 65 if (Tclx_Init (interp) == TCL_ERROR) { 68 Tcl_StaticPackage (interp, "Tclx", Tclx_Init, Tclx_SafeInit); 70 if (Tcltest_Init (interp) == TCL_ERROR) { 73 Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, 76 if (Tclxtest_Init (interp) 57 Tcl_AppInit(Tcl_Interp *interp) argument [all...] |
H A D | tclXAppInit.c | 39 * interp result if an error occurs. 43 TclX_AppInit (Tcl_Interp *interp) 45 if (Tcl_Init (interp) == TCL_ERROR) { 48 if (Tclx_Init (interp) == TCL_ERROR) { 51 Tcl_StaticPackage (interp, "Tclx", Tclx_Init, Tclx_SafeInit); 64 Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclrc", TCL_GLOBAL_ONLY); 42 TclX_AppInit(Tcl_Interp *interp) argument
|
/macosx-10.10/tcl-105/tcl_ext/tclae/tclae/generic/ |
H A D | tclAEInit.c | 55 Tclae_Init(Tcl_Interp *interp) 64 Tcl_ResetResult(interp); 65 Tcl_AppendResult(interp, "The AppleEvent Manager is either missing or misbehaving", 71 if (Tcl_InitStubs(interp, "8.0", 0) == NULL) { 74 if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 0) == NULL) { 76 if (Tcl_PkgRequire(interp, "Tcl", "8.0", 0) == NULL) { 82 if (Tcl_PkgProvide(interp, TCLAE_NAME, TCLAE_BASIC_VERSION) != TCL_OK) { 87 Tcl_SetVar(interp, "tclAE_version", TCLAE_VERSION, TCL_GLOBAL_ONLY); 89 tclAE_macRoman_encoding = Tcl_GetEncoding(interp,"macRoman"); 93 TclaeInitEventHandlers(interp); 54 Tclae_Init(Tcl_Interp *interp) argument [all...] |
/macosx-10.10/OpenLDAP-499.27/OpenLDAP/contrib/ldaptcl/ |
H A D | tclAppInit.c | 27 EXTERN int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 73 * message in interp->result if an error occurs. 82 Tcl_AppInit(interp) 83 Tcl_Interp *interp; /* Interpreter for application. */ 85 if (Tcl_Init(interp) == TCL_ERROR) { 90 if (Itcl_Init(interp) == TCL_ERROR) { 93 Tcl_StaticPackage (interp, "Itcl", Itcl_Init, NULL); 97 if (Tcltest_Init(interp) == TCL_ERROR) { 100 Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, 105 if (Tclx_Init (interp) [all...] |
H A D | tkAppInit.c | 70 * interp->result if an error occurs. 75 Tcl_AppInit (Tcl_Interp *interp) 78 Tcl_AppInit (interp) 79 Tcl_Interp *interp; 82 if (Tcl_Init (interp) == TCL_ERROR) { 86 if (Tclx_Init(interp) == TCL_ERROR) { 89 Tcl_StaticPackage(interp, "Tclx", Tclx_Init, Tclx_SafeInit); 91 if (Tk_Init(interp) == TCL_ERROR) { 94 Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL); 96 if (Tkx_Init(interp) 73 Tcl_AppInit(Tcl_Interp *interp) argument [all...] |
/macosx-10.10/tcl-105/tk/tk/unix/ |
H A D | tkAppInit.c | 20 extern int Tktest_Init _ANSI_ARGS_((Tcl_Interp *interp)); 56 extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); 85 * the interp's result if an error occurs. 95 Tcl_Interp *interp) /* Interpreter for application. */ 97 if (Tcl_Init(interp) == TCL_ERROR) { 100 if (Tk_Init(interp) == TCL_ERROR) { 103 Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); 105 if (Tktest_Init(interp) == TCL_ERROR) { 108 Tcl_StaticPackage(interp, "Tktest", Tktest_Init, 116 * if (Mod_Init(interp) 92 Tcl_AppInit( Tcl_Interp *interp) argument [all...] |
/macosx-10.10/tcl-105/tcl_ext/tkimg/tkimg/zlib/src/ |
H A D | zlibtcl.c | 48 Tcl_Interp *interp /* Interpreter to initialise. */ 50 if (!Tcl_InitStubs(interp, "8.3", 0)) { 54 if (Tcl_PkgProvideEx(interp, PACKAGE_NAME, PACKAGE_VERSION, 82 Tcl_Interp *interp /* Interpreter to initialise. */ 84 return Zlibtcl_Init(interp);
|