nvi/tcl_api/tcl.c

62 tcl_fscreen(clientData, interp, argc, argv)
64 	Tcl_Interp *interp;
71 		Tcl_SetResult(interp, "Usage: viFindScreen file", TCL_STATIC);
75 	if (getscreenid(interp, &sp, NULL, argv[1]))
78 	(void)sprintf(interp->result, "%d", sp->id);
90 tcl_aline(clientData, interp, argc, argv)
92 	Tcl_Interp *interp;
101 		Tcl_SetResult(interp,
106 	if (getscreenid(interp, &sp, argv[1], NULL) ||
107 	    getint(interp, "line number", argv[2], &lno))
124 tcl_dline(clientData, interp, argc, argv)
126 	Tcl_Interp *interp;
135 		Tcl_SetResult(interp,
140 	if (getscreenid(interp, &sp, argv[1], NULL) ||
141 	    getint(interp, "line number", argv[2], &lno))
158 tcl_gline(clientData, interp, argc, argv)
160 	Tcl_Interp *interp;
171 		Tcl_SetResult(interp,
175 	if (getscreenid(interp, &sp, argv[1], NULL) ||
176 	    getint(interp, "line number", argv[2], &lno))
189 	Tcl_SetResult(interp, line, TCL_DYNAMIC);
201 tcl_iline(clientData, interp, argc, argv)
203 	Tcl_Interp *interp;
212 		Tcl_SetResult(interp,
217 	if (getscreenid(interp, &sp, argv[1], NULL) ||
218 	    getint(interp, "line number", argv[2], &lno))
235 tcl_lline(clientData, interp, argc, argv)
237 	Tcl_Interp *interp;
247 		Tcl_SetResult(interp, "Usage: viLastLine screenId", TCL_STATIC);
251 	if (getscreenid(interp, &sp, argv[1], NULL))
259 	(void)sprintf(interp->result, "%lu", (unsigned long)last);
271 tcl_sline(clientData, interp, argc, argv)
273 	Tcl_Interp *interp;
282 		Tcl_SetResult(interp,
287 	if (getscreenid(interp, &sp, argv[1], NULL) ||
288 	    getint(interp, "line number", argv[2], &lno))
306 tcl_getmark(clientData, interp, argc, argv)
308 	Tcl_Interp *interp;
319 		Tcl_SetResult(interp,
324 	if (getscreenid(interp, &sp, argv[1], NULL))
334 	Tcl_AppendElement(interp, buf);
336 	Tcl_AppendElement(interp, buf);
348 tcl_setmark(clientData, interp, argc, argv)
350 	Tcl_Interp *interp;
360 		Tcl_SetResult(interp,
365 	if (getscreenid(interp, &sp, argv[1], NULL))
367 	if (getint(interp, "line number", argv[3], &i))
370 	if (getint(interp, "column number", argv[4], &i))
389 tcl_getcursor(clientData, interp, argc, argv)
391 	Tcl_Interp *interp;
402 		Tcl_SetResult(interp,
407 	if (getscreenid(interp, &sp, argv[1], NULL))
417 	Tcl_AppendElement(interp, buf);
419 	Tcl_AppendElement(interp, buf);
431 tcl_setcursor(clientData, interp, argc, argv)
433 	Tcl_Interp *interp;
443 		Tcl_SetResult(interp,
448 	if (getscreenid(interp, &sp, argv[1], NULL))
450 	if (getint(interp, "screen id", argv[2], &i))
453 	if (getint(interp, "screen id", argv[3], &i))
471 tcl_msg(clientData, interp, argc, argv)
473 	Tcl_Interp *interp;
480 		Tcl_SetResult(interp, "Usage: viMsg screenId text", TCL_STATIC);
484 	if (getscreenid(interp, &sp, argv[1], NULL))
500 tcl_iscreen(clientData, interp, argc, argv)
502 	Tcl_Interp *interp;
511 		Tcl_SetResult(interp,
516 	if (getscreenid(interp, &sp, argv[1], NULL))
525 	(void)sprintf(interp->result, "%d", nsp->id);
537 tcl_escreen(clientData, interp, argc, argv)
539 	Tcl_Interp *interp;
548 		Tcl_SetResult(interp,
553 	if (getscreenid(interp, &sp, argv[1], NULL))
570 tcl_swscreen(clientData, interp, argc, argv)
572 	Tcl_Interp *interp;
581 		Tcl_SetResult(interp,
587 	if (getscreenid(interp, &sp, argv[1], NULL))
589 	if (getscreenid(interp, &new, argv[2], NULL))
606 tcl_map(clientData, interp, argc, argv)
608 	Tcl_Interp *interp;
618 		Tcl_SetResult(interp,
623 	if (getscreenid(interp, &sp, argv[1], NULL))
641 tcl_unmap(clientData, interp, argc, argv)
643 	Tcl_Interp *interp;
652 		Tcl_SetResult(interp,
657 	if (getscreenid(interp, &sp, argv[1], NULL))
674 tcl_opts_set(clientData, interp, argc, argv)
676 	Tcl_Interp *interp;
686 		Tcl_SetResult(interp,
691 	if (getscreenid(interp, &sp, argv[1], NULL))
713 tcl_opts_get(clientData, interp, argc, argv)
715 	Tcl_Interp *interp;
725 		Tcl_SetResult(interp,
730 	if (getscreenid(interp, &sp, argv[1], NULL))
738 	Tcl_SetResult(interp, value, TCL_DYNAMIC);
793 getscreenid(interp, spp, id, name)
794 	Tcl_Interp *interp;
801 	if (id != NULL && getint(interp, "screen id", id, &scr_no))
806 		Tcl_SetResult(interp, buf, TCL_VOLATILE);
820 getint(interp, msg, s, intp)
821 	Tcl_Interp *interp;
827 	if (Tcl_GetInt(interp, s, intp) == TCL_ERROR)
832 		Tcl_SetResult(interp, buf, TCL_VOLATILE);