2 * Copyright (c) 1992, 1993, 1994
3 * The Regents of the University of California. All rights reserved.
4 * Copyright (c) 1992, 1993, 1994, 1995, 1996
5 * Keith Bostic. All rights reserved.
7 * George V. Neville-Neil. All rights reserved.
9 * See the LICENSE file for redistribution information.
15 static const char sccsid
[] = "$Id: ex_tcl.c,v 8.11 2001/06/25 15:19:21 skimo Exp $ (Berkeley) $Date: 2001/06/25 15:19:21 $";
18 #include <sys/types.h>
19 #include <sys/queue.h>
21 #include <bitstring.h>
28 #include "../common/common.h"
30 #ifdef HAVE_TCL_INTERP
35 * ex_tcl -- :[line [,line]] tcl [command]
36 * Run a command through the tcl interpreter.
38 * PUBLIC: int ex_tcl __P((SCR*, EXCMD *));
41 ex_tcl(SCR
*sp
, EXCMD
*cmdp
)
43 #ifdef HAVE_TCL_INTERP
49 /* Initialize the interpreter. */
51 if (gp
->tcl_interp
== NULL
&& tcl_init(gp
))
54 /* Skip leading white space. */
56 for (p
= cmdp
->argv
[0]->bp
,
57 len
= cmdp
->argv
[0]->len
; len
> 0; --len
, ++p
)
60 if (cmdp
->argc
== 0 || len
== 0) {
61 ex_emsg(sp
, cmdp
->cmd
->usage
, EXM_USAGE
);
65 (void)snprintf(buf
, sizeof(buf
),
66 "set viScreenId %d\nset viStartLine %lu\nset viStopLine %lu",
67 sp
->id
, cmdp
->addr1
.lno
, cmdp
->addr2
.lno
);
68 if (Tcl_Eval(gp
->tcl_interp
, buf
) == TCL_OK
&&
69 Tcl_Eval(gp
->tcl_interp
, cmdp
->argv
[0]->bp
) == TCL_OK
)
72 msgq(sp
, M_ERR
, "Tcl: %s", ((Tcl_Interp
*)gp
->tcl_interp
)->result
);
75 msgq(sp
, M_ERR
, "302|Vi was not loaded with a Tcl interpreter");
77 #endif /* HAVE_TCL_INTERP */