Searched defs:interp (Results 1 - 25 of 45) sorted by relevance

12

/ast/src/lib/libtksh/src/
H A DtclMain.c4 static Tcl_Interp *interp; /* Interpreter for application. */ variable
20 interp = Tcl_CreateInterp();
22 Tcl_InitMemory(interp);
23 Tcl_CreateCommand(interp, "checkmem", CheckmemCmd, (ClientData) 0,
40 Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY);
43 Tcl_SetVar(interp, "argc", buffer, TCL_GLOBAL_ONLY);
44 Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
52 Tcl_SetVar(interp, "tcl_interactive",
59 if ((*appInitProc)(interp) != TCL_OK) {
64 Tcl_Write(errChannel, interp
102 Tcl_AppInit(Tcl_Interp *interp) argument
[all...]
H A Dbasic.c35 static void DeleteInterpProc _ANSI_ARGS_((Tcl_Interp *interp));
77 {"interp", Tcl_InterpCmd},
254 * When Tcl_DeleteInterp is invoked to delete interp,
262 Tcl_CallWhenDeleted(interp, proc, clientData)
263 Tcl_Interp *interp; /* Interpreter to watch. */
268 Interp *iPtr = (Interp *) interp;
310 Tcl_DontCallWhenDeleted(interp, proc, clientData)
311 Tcl_Interp *interp; /* Interpreter to watch. */
316 Interp *iPtr = (Interp *) interp;
358 Tcl_SetAssocData(interp, nam
875 Tcl_Interp *interp; local
[all...]
H A Dcommands.c6 int Tksh_LindexCmd(clientData, interp, argc, argv)
8 Tcl_Interp *interp;
15 interp->result = "wrong # args";
18 if (Tcl_GetInt(interp, argv[2], &index) != TCL_OK) {
21 if (Tcl_SplitList(interp, argv[1], &listArgc,
26 Tcl_SetResult(interp, listArgv[index],
52 Tksh_LlengthCmd(dummy, interp, argc, argv)
54 Tcl_Interp *interp; /* Current interpreter. */
63 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
68 if (Tcl_SplitList(interp, arg
148 Tcl_Interp *interp = (Tcl_Interp *)context->ptr; local
[all...]
H A Ddebug.c22 void __dprintfInterp(Tcl_Interp *interp) argument
24 debugInterp = (Interp *) interp;
H A Dtclproc.c10 Tcl_Interp *interp, int argc, char **argv));
32 Tcl_ProcCmd(dummy, interp, argc, argv)
34 Tcl_Interp *interp; /* Current interpreter. */
38 register Interp *iPtr = (Interp *) interp;
47 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
64 result = Tcl_SplitList(interp, argv[2], &argCount, &argArray);
77 result = Tcl_SplitList(interp, argArray[i], &fieldCount,
84 Tcl_AppendResult(interp,
92 Tcl_AppendResult(interp, "procedure \"", argv[1],
123 Tcl_CreateCommand(interp, TkshMapNam
186 Tcl_Interp *interp; member in struct:InterpProcArgs
283 Tcl_Interp *interp = iargs->interp; local
[all...]
H A Deval.c19 Interp *interp = (Interp *) commandData->interp; local
21 interp->shbltin = context;
22 Tcl_ResetResult(commandData->interp);
26 oldInterpType = interp->interpType;
27 /* oldListMode = TkshSetListMode(interp->interpType); */
29 interp->interpType = commandType & INTERP_MASK;
31 commandData->interp, argc, argv);
32 interp->interpType = oldInterpType;
35 if (interp
71 Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc) argument
121 Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command) argument
127 Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName) argument
156 Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, Tcl_CmdInfo *infoPtr) argument
180 Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, Tcl_CmdInfo *infoPtr) argument
195 Tksh_SetCommandType(Tcl_Interp *interp, char *cmdName, int tp) argument
228 Tksh_Eval(Tcl_Interp *interp, char *command, int flag) argument
267 Tcl_Eval(Tcl_Interp *interp, char *cmd) argument
296 Tcl_TclEvalFile(Tcl_Interp *interp, char *fileName) argument
348 Tcl_EvalFile(Tcl_Interp *interp, char *fileName) argument
374 Tcl_GlobalEval(Tcl_Interp *interp, char *cmd) argument
391 Tcl_GlobalEval(Tcl_Interp *interp, char *cmd) argument
405 Tksh_GlobalEval(Tcl_Interp *interp, char *cmd, int interpType) argument
428 Tcl_RecordAndEval(Tcl_Interp *interp, char *script, int flags) argument
[all...]
H A Dfilecmd.c11 char * GetOpenMode _ANSI_ARGS_((Tcl_Interp *interp,
13 static int StoreStatData _ANSI_ARGS_((Tcl_Interp *interp,
36 Tcl_FileCmd1(dummy, interp, argc, argv)
38 Tcl_Interp *interp; /* Current interpreter. */
51 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
63 fileName = Tcl_TildeSubst(interp, argv[2], &buffer);
72 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
79 interp->result = ".";
81 interp->result = "/";
84 Tcl_SetResult(interp, fileNam
679 Tksh_CreatePipeline(Tcl_Interp *interp, int argc, char *argv[], Tcl_DString *buffer) argument
827 TclCreatePipeline(Tcl_Interp *interp, int argc, char *argv[], int **pidPtr, Tcl_File *inPipePtr, Tcl_File *outPipePtr) argument
[all...]
H A Dinit.c16 char *toName; /* Name to be stored as in ksh interp */
53 void TclSetupEnv(Tcl_Interp *interp) argument
55 interp = interp;
58 void TclPlatformInit(Tcl_Interp *interp) argument
66 Tcl_SetVar(interp, "tcl_pkgPath", pkgPath, TCL_GLOBAL_ONLY);
67 Tcl_SetVar2(interp,"tcl_platform", "platform", "unix", TCL_GLOBAL_ONLY);
68 Tcl_SetVar2(interp,"tcl_platform", "os", "", TCL_GLOBAL_ONLY);
69 Tcl_SetVar2(interp,"tcl_platform", "osVersion", "", TCL_GLOBAL_ONLY);
70 Tcl_SetVar2(interp,"tcl_platfor
73 TkshCreateInterp(Tcl_Interp *interp, void *data) argument
126 TestCommand(ClientData data, Tcl_Interp *interp, int artc, char *argv[]) argument
163 Tcl_Init(Tcl_Interp *interp) argument
[all...]
H A Dlist.c26 EXTERN int Tcl_TclSplitList _ANSI_ARGS_((Tcl_Interp *interp,
74 char *Tksh_ConvertList(Tcl_Interp *interp, char *list, int toMode) argument
82 if (Tcl_SplitList(interp, list, &argc, &argv) == TCL_OK)
91 int Tcl_SplitList(Tcl_Interp *interp, char *list, int *argcPtr, char ***argvPtr) argument
101 return Tcl_TclSplitList(interp, list, argcPtr, argvPtr);
237 Tcl_RegExpMatch(interp, string, pattern)
238 Tcl_Interp *interp; /* Used for error reporting. */
247 Tcl_ResetResult(interp);
248 Tcl_AppendResult(interp, "error while matching regular expression: ",
268 Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, cha
[all...]
/ast/src/lib/libtk/generic/
H A DtkMain.c51 static Tcl_Interp *interp; /* Interpreter for this application. */ variable
64 static void Prompt _ANSI_ARGS_((Tcl_Interp *interp, int partial));
104 interp = Tcl_CreateInterp();
106 Tcl_InitMemory(interp);
136 Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY);
139 Tcl_SetVar(interp, "argc", buf, TCL_GLOBAL_ONLY);
140 Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
159 Tcl_SetVar(interp, "tcl_interactive",
166 if ((*appInitProc)(interp) != TCL_OK) {
171 Tcl_Write(errChannel, interp
[all...]
H A DtkConsole.c26 Tcl_Interp *interp; /* Interpreter to send console commands. */ member in struct:ConsoleInfo
36 Tcl_Interp *interp, int argc, char **argv));
41 Tcl_Interp *interp, int argc, char **argv));
48 Tcl_Interp *interp));
142 TkConsoleInit(interp)
143 Tcl_Interp *interp; /* Interpreter to use for prompting. */
147 Tk_Window mainWindow = Tk_MainWindow(interp);
169 gStdoutInterp = interp;
172 * Add console commands to the interp
175 info->interp
[all...]
H A DtkSelect.h81 Tcl_Interp *interp; /* Interpreter for error reporting. */ member in struct:TkSelRetrievalInfo
87 int (*proc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp,
176 extern int TkSelGetSelection _ANSI_ARGS_((Tcl_Interp *interp,
H A DtkSquare.c31 Tcl_Interp *interp; /* Interpreter associated with widget. */ member in struct:__anon418
89 Tcl_Interp *interp, int argc, char **argv));
92 static int SquareConfigure _ANSI_ARGS_((Tcl_Interp *interp,
122 SquareCmd(clientData, interp, argc, argv)
125 Tcl_Interp *interp; /* Current interpreter. */
134 Tcl_AppendResult(interp, "wrong # args: should be \"",
139 tkwin = Tk_CreateWindowFromPath(interp, main, argv[1], (char *) NULL);
152 squarePtr->interp = interp;
153 squarePtr->widgetCmd = Tcl_CreateCommand(interp,
[all...]
H A DtkEvent.c420 Tcl_Interp *interp = (Tcl_Interp *) NULL;
537 interp = winPtr->mainPtr->interp;
538 Tcl_Preserve((ClientData) interp);
548 Tcl_Release((ClientData) interp);
567 Tcl_Release((ClientData) interp);
686 if (interp != (Tcl_Interp *) NULL) {
687 Tcl_Release((ClientData) interp);
415 Tcl_Interp *interp = (Tcl_Interp *) NULL; local
H A DtkFrame.c34 Tcl_Interp *interp; /* Interpreter associated with widget. Used member in struct:__anon399
153 static int ConfigureFrame _ANSI_ARGS_((Tcl_Interp *interp,
163 Tcl_Interp *interp, int argc, char **argv));
187 Tk_FrameCmd(clientData, interp, argc, argv)
190 Tcl_Interp *interp; /* Current interpreter. */
194 return TkCreateFrame(clientData, interp, argc, argv, 0, (char *) NULL);
198 Tk_ToplevelCmd(clientData, interp, argc, argv)
201 Tcl_Interp *interp; /* Current interpreter. */
205 return TkCreateFrame(clientData, interp, argc, argv, 1, (char *) NULL);
229 TkCreateFrame(clientData, interp, arg
[all...]
H A DtkMessage.c33 Tcl_Interp *interp; /* Interpreter associated with message. */ member in struct:__anon411
173 Tcl_Interp *interp, char *name1, char *name2,
176 Tcl_Interp *interp, int argc, char **argv));
178 static int ConfigureMessage _ANSI_ARGS_((Tcl_Interp *interp,
204 Tk_MessageCmd(clientData, interp, argc, argv)
207 Tcl_Interp *interp; /* Current interpreter. */
216 Tcl_AppendResult(interp, "wrong # args: should be \"",
221 new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
229 msgPtr->interp = interp;
[all...]
H A DtkSelect.c27 Tcl_Interp *interp; /* Interpreter in which to invoke command. */ member in struct:__anon417
41 Tcl_Interp *interp; /* Interpreter in which to invoke command. */ member in struct:LostCommand
63 Tcl_Interp *interp, char *portion));
439 * then an error message is left in interp->result.
449 * proc(clientData, interp, portion)
451 * Tcl_Interp *interp;
456 * The interp and clientData arguments to proc will be the
465 * TCL_ERROR and leave an error message in interp->result; the
472 Tk_GetSelection(interp, tkwin, selection, target, proc, clientData)
473 Tcl_Interp *interp; /* Interprete
1124 Tcl_Interp *interp; local
1307 Tcl_Interp *interp; local
[all...]
H A DtkCanvas.h37 Tcl_Interp *interp; /* Interpreter associated with canvas. */ member in struct:TkCanvas
255 Tcl_Interp *interp, int argc, char **argv));
H A DtkImgBmap.c25 Tcl_Interp *interp; /* Interpreter for application that is member in struct:BitmapMaster
79 static int ImgBmapCreate _ANSI_ARGS_((Tcl_Interp *interp,
150 Tcl_Interp *interp, int argc, char **argv));
180 ImgBmapCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
181 Tcl_Interp *interp; /* Interpreter for application containing
197 masterPtr->interp = interp;
198 masterPtr->imageCmd = Tcl_CreateCommand(interp, name, ImgBmapCmd,
230 * an error message is left in masterPtr->interp->result.
251 if (Tk_ConfigureWidget(masterPtr->interp, Tk_MainWindo
[all...]
H A DtkMenubutton.c32 Tcl_Interp *interp; /* Interpreter associated with menubutton. */ member in struct:__anon410
283 ClientData clientData, Tcl_Interp *interp,
286 Tcl_Interp *interp, int argc, char **argv));
287 static int ConfigureMenuButton _ANSI_ARGS_((Tcl_Interp *interp,
313 Tk_MenubuttonCmd(clientData, interp, argc, argv)
316 Tcl_Interp *interp; /* Current interpreter. */
325 Tcl_AppendResult(interp, "wrong # args: should be \"",
334 new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
346 mbPtr->interp = interp;
[all...]
H A DtkScrollbar.c34 Tcl_Interp *interp; /* Interpreter associated with scrollbar. */ member in struct:__anon416
248 static int ConfigureScrollbar _ANSI_ARGS_((Tcl_Interp *interp,
283 Tk_ScrollbarCmd(clientData, interp, argc, argv)
286 Tcl_Interp *interp; /* Current interpreter. */
295 Tcl_AppendResult(interp, "wrong # args: should be \"",
300 new = Tk_CreateWindowFromPath(interp, tkwin, argv[1], (char *) NULL);
314 scrollPtr->interp = interp;
315 scrollPtr->widgetCmd = Tcl_CreateCommand(interp,
356 if (ConfigureScrollbar(interp, scrollPt
[all...]
/ast/src/lib/libast/sfio/
H A Dsfpopen.c50 reg char *s, *cmd, **argv, **p, *interp; local
54 if(!(interp = getenv("SHELL")) || !interp[0])
55 interp = "/bin/sh";
57 if(strcmp(interp,"/bin/sh") != 0 && strcmp(interp,"/bin/ksh") != 0 )
58 { if(access(interp,X_OK) == 0)
60 else interp = "/bin/sh";
124 for(s = interp+strlen(interp)
[all...]
/ast/src/lib/libtksh/tcl/
H A DtclLink.c28 Tcl_Interp *interp; /* Interpreter containing Tcl variable. */ member in struct:Link
62 Tcl_Interp *interp, char *name1, char *name2,
78 * if an error occurred (interp->result is also set after errors).
89 Tcl_LinkVar(interp, varName, addr, type)
90 Tcl_Interp *interp; /* Interpreter in which varName exists. */
91 char *varName; /* Name of a global variable in interp. */
103 linkPtr->interp = interp;
113 if (Tcl_SetVar(interp, varName, StringValue(linkPtr, buffer),
119 code = Tcl_TraceVar(interp, varNam
[all...]
H A DtclIOCmd.c29 Tcl_Interp *interp; /* Interpreter in which to run it. */ member in struct:AcceptCallback
38 static void RegisterTcpServerInterpCleanup _ANSI_ARGS_((Tcl_Interp *interp,
41 ClientData clientData, Tcl_Interp *interp));
44 Tcl_Interp *interp, AcceptCallback *acceptCallbackPtr));
66 Tcl_PutsCmd(clientData, interp, argc, argv)
68 Tcl_Interp *interp; /* Current interpreter. */
86 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
98 Tcl_AppendResult(interp, "bad argument \"", argv[i+2],
110 chan = Tcl_GetChannel(interp, channelId, &mode);
115 Tcl_AppendResult(interp, "channe
[all...]
/ast/src/cmd/tksh/
H A DtkMain.c53 static Tcl_Interp *interp; /* Interpreter for this application. */ variable
66 static void Prompt _ANSI_ARGS_((Tcl_Interp *interp, int partial));
109 interp = Tcl_CreateInterp();
111 Tcl_InitMemory(interp);
141 Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY);
144 Tcl_SetVar(interp, "argc", buf, TCL_GLOBAL_ONLY);
145 Tcl_SetVar(interp, "argv0", (fileName != NULL) ? fileName : argv[0],
164 Tcl_SetVar(interp, "tcl_interactive",
171 if ((*appInitProc)(interp) != TCL_OK) {
176 Tcl_Write(errChannel, interp
499 bindsetup(Tcl_Interp *interp) argument
513 Tcl_Interp *interp = (Tcl_Interp *)context->ptr; local
[all...]

Completed in 44 milliseconds

12