Lines Matching defs:exists
352 " if {[info exists tcl_library]} {\n"
356 " if {[info exists env(TCL_LIBRARY)] && ($env(TCL_LIBRARY) ne {})} {\n"
363 " if {[info exists tclDefaultLibrary]} {\n"
378 " if {[info exists tcl_libPath]\n"
391 " if {[file exists $tclfile]} {\n"
567 "delete", "eval", "exists", "expose",
749 int exists;
752 exists = 1;
759 exists = 0;
761 Tcl_SetObjResult(interp, Tcl_NewBooleanObj(exists));
1468 * Make an entry in the alias table. If it already exists, retry.
1673 * interpreter. One such command exists for each alias. When invoked,
2004 * interpreter, or NULL if no interpreter known by that name exists.
2154 "\" already exists, cannot create", NULL);
2236 * be evaluated. One such command exists for each slave interpreter.