Searched refs:tcl_interp (Results 1 – 3 of 3) sorted by relevance
| /netbsd-src/external/bsd/nvi/dist/ex/ |
| H A D | ex_tcl.c | 57 if (gp->tcl_interp == NULL && tcl_init(gp)) in ex_tcl()
74 if (Tcl_Eval(gp->tcl_interp, buf) == TCL_OK && in ex_tcl()
75 Tcl_Eval(gp->tcl_interp, cmdp->argv[0]->bp) == TCL_OK) in ex_tcl()
78 msgq(sp, M_ERR, "Tcl: %s", ((Tcl_Interp *)gp->tcl_interp)->result); in ex_tcl()
|
| /netbsd-src/external/bsd/nvi/dist/tcl_api/ |
| H A D | tcl.c | 755 gp->tcl_interp = Tcl_CreateInterp();
756 if (Tcl_Init(gp->tcl_interp) == TCL_ERROR)
760 Tcl_CreateCommand(gp->tcl_interp, name, function, \
856 Tcl_SetResult(sp->gp->tcl_interp, msg, TCL_VOLATILE);
|
| /netbsd-src/external/bsd/nvi/dist/common/ |
| H A D | gs.h | 69 void *tcl_interp; /* Tcl_Interp *: Tcl interpreter. */ member
|