vim-55/src/if_tcl.c

324     char    *varname = NULL;
330 	    varname = Tcl_GetStringFromObj(objv[2], NULL);
338 	    if (varname)
340 		if (Tcl_SetVar(interp, varname, Tcl_GetStringResult(interp), 0) == NULL)
1700     char varname[VARNAME_SIZE];	/* must be writeable */
1703     strcpy(varname, VAR_RANGE1);
1704     Tcl_UpdateLinkedVar(tclinfo.interp, varname);
1705     strcpy(varname, VAR_RANGE2);
1706     Tcl_UpdateLinkedVar(tclinfo.interp, varname);
1707     strcpy(varname, VAR_RANGE3);
1708     Tcl_UpdateLinkedVar(tclinfo.interp, varname);
1710     strcpy(varname, VAR_LBASE);
1711     Tcl_UpdateLinkedVar(tclinfo.interp, varname);
1715     strcpy(varname, VAR_CURBUF);
1716     Tcl_UpdateLinkedVar(tclinfo.interp, varname);
1720     strcpy(varname, VAR_CURWIN);
1721     Tcl_UpdateLinkedVar(tclinfo.interp, varname);
1729     char varname[VARNAME_SIZE];	/* Tcl_LinkVar requires writeable varname */
1791 	strcpy(varname, VAR_LBASE);
1792 	Tcl_LinkVar(interp, varname, (char *)&tclinfo.lbase, TCL_LINK_INT);
1796 	strcpy(varname, VAR_RANGE1);
1797 	Tcl_LinkVar(interp, varname, (char *)&tclinfo.range_start, TCL_LINK_INT|TCL_LINK_READ_ONLY);
1798 	strcpy(varname, VAR_RANGE2);
1799 	Tcl_LinkVar(interp, varname, (char *)&tclinfo.range_start, TCL_LINK_INT|TCL_LINK_READ_ONLY);
1801 	strcpy(varname, VAR_RANGE3);
1802 	Tcl_LinkVar(interp, varname, (char *)&tclinfo.range_end, TCL_LINK_INT|TCL_LINK_READ_ONLY);
1809 	strcpy(varname, VAR_CURBUF);
1810 	Tcl_LinkVar(interp, varname, (char *)&tclinfo.curbuf, TCL_LINK_STRING|TCL_LINK_READ_ONLY);
1813 	strcpy(varname, VAR_CURWIN);
1814 	Tcl_LinkVar(interp, varname, (char *)&tclinfo.curwin, TCL_LINK_STRING|TCL_LINK_READ_ONLY);