Tcl Source Code

.
Returns the name of the library directory in which standard Tcl
scripts are stored.
This is actually the value of the \fBtcl_library\fR
variable and may be changed by setting \fBtcl_library\fR.
.TP
\fBinfo linkedname \fIvarname\fR
.
\fIVarname\fR must be a link variable.




Returns the name of the variable it is linked to.








.TP
\fBinfo loaded \fR?\fIinterp\fR? ?\fIpackage\fR?
.
Returns the filename loaded as part of \fIpackage\fR. If \fIpackage\fR
is not specified, returns a list describing all of the packages
that have been loaded into \fIinterp\fR with the \fBload\fR command.
Each list element is a sub-list with two elements consisting of the

.
Returns the name of the library directory in which standard Tcl
scripts are stored.
This is actually the value of the \fBtcl_library\fR
variable and may be changed by setting \fBtcl_library\fR.
.TP
\fBinfo linkedname \fIvarname\fR
.VS TIP471
Returns the name of the variable that link variable \fIvarname\fR is
ultimately linked to. This will be a fully qualified name if the variable
ultimately linked to is in a namespace (including the global namespace). Array
elements will be indicated by having
.QW \fB(\fR ,
the name of the element, and
.QW \fB)\fR
appended.
.RS
.PP
Link variables are (usually) local variables created by \fBupvar\fR,
\fBglobal\fR, \fBnamespace upvar\fR, and \fBvariable\fR.
.RE
.VE TIP471
.TP
\fBinfo loaded \fR?\fIinterp\fR? ?\fIpackage\fR?
.
Returns the filename loaded as part of \fIpackage\fR. If \fIpackage\fR
is not specified, returns a list describing all of the packages
that have been loaded into \fIinterp\fR with the \fBload\fR command.
Each list element is a sub-list with two elements consisting of the

typedef struct NamespacePathEntry NamespacePathEntry;

/*
 * Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr
 * field added at the end: in this way variables can find their namespace
 * without having to copy a pointer in their struct: they can access it via
 * their hPtr->tablePtr.


 */

typedef struct TclVarHashTable {
    Tcl_HashTable table;
    struct Namespace *nsPtr;
} TclVarHashTable;

typedef struct NamespacePathEntry NamespacePathEntry;

/*
 * Special hashtable for variables: this is just a Tcl_HashTable with an nsPtr
 * field added at the end: in this way variables can find their namespace
 * without having to copy a pointer in their struct: they can access it via
 * their hPtr->tablePtr.
 *
 * Note that arrays further extend this. See ArrayVarHashTable in tclVar.c
 */

typedef struct TclVarHashTable {
    Tcl_HashTable table;
    struct Namespace *nsPtr;
} TclVarHashTable;

	Var *arrayPtr;
	int result = TCL_OK;

	if (TclIsVarDeadHash(varPtr)) {
	    return TCL_ERROR;
	}


	arrayPtr = TclGetVarArrayPtr(varPtr);
	if (arrayPtr) {
	    result = TclGetVarName(interp, arrayPtr, objPtr);
	    Tcl_AppendToObj(objPtr, "(", 1);




	}





	objNamePtr = VarHashGetKey(varPtr);
	Tcl_AppendObjToObj(objPtr, objNamePtr);

	if (arrayPtr) {
	    Tcl_AppendToObj(objPtr, ")", 1);
	}
	return result;
    }

    /*
     * Find varPtr in compiled locals from current or upper call frames.
     */

	Var *arrayPtr;
	int result = TCL_OK;

	if (TclIsVarDeadHash(varPtr)) {
	    return TCL_ERROR;
	}

	objNamePtr = VarHashGetKey(varPtr);
	arrayPtr = TclGetVarArrayPtr(varPtr);
	if (arrayPtr) {
	    result = TclGetVarName(interp, arrayPtr, objPtr);
	    Tcl_AppendToObj(objPtr, "(", 1);
	    Tcl_AppendObjToObj(objPtr, objNamePtr);
	    Tcl_AppendToObj(objPtr, ")", 1);
	} else {
	    Tcl_Namespace *nsPtr = (Tcl_Namespace*) TclGetVarNsPtr(varPtr);

	    if (nsPtr) {
		Tcl_AppendToObj(objPtr, nsPtr->fullName, -1);
		if (nsPtr != Tcl_GetGlobalNamespace(interp)) {
		    Tcl_AppendToObj(objPtr, "::", 2);
		}


	    }

	    Tcl_AppendObjToObj(objPtr, objNamePtr);
	}
	return result;
    }

    /*
     * Find varPtr in compiled locals from current or upper call frames.
     */

    set i 1
    apply {var {
	upvar 1 $var up
	return [info linkedname up]
    }} i
} -cleanup {
    unset -nocomplain i
} -result {i}
test info-41.2 {info linkedname - valid} -body {
    proc getname {var} {
	upvar 1 $var up
	return [info linkedname up]
    }
    proc p {i} {
	return [getname i]
................................................................................
    array set a {1 one 2 two}
    apply {{var idx} {
	upvar 1 ${var}($idx) up
	return [info linkedname up]
    }} a 1
} -cleanup {
    unset -nocomplain a
} -result {a(1)}
test info-41.4 {info linkedname - no such variable} -body {
    info linkedname foo
} -returnCodes error -result {can't access "foo": no such variable}
test info-41.5 {info linkedname - not a varlink object} -setup {
    unset -nocomplain i
} -body {
    set i 5
................................................................................
    apply {{} {
	variable ok
	set other 123
	return [list [info linkedname ok] [catch {info linkedname other} msg] $msg]
    }}
} -cleanup {
    unset -nocomplain ok
} -result {ok 1 {can't access "other": variable isn't a link}}
test info-41.7 {info linkedname - chain of links} -setup {
    unset -nocomplain ok
} -body {
    apply {v {
	apply {v {
	    upvar ok foo
	    apply {v {
		upvar foo(yes) bar

    set i 1
    apply {var {
	upvar 1 $var up
	return [info linkedname up]
    }} i
} -cleanup {
    unset -nocomplain i
} -result ::i
test info-41.2 {info linkedname - valid} -body {
    proc getname {var} {
	upvar 1 $var up
	return [info linkedname up]
    }
    proc p {i} {
	return [getname i]
................................................................................
    array set a {1 one 2 two}
    apply {{var idx} {
	upvar 1 ${var}($idx) up
	return [info linkedname up]
    }} a 1
} -cleanup {
    unset -nocomplain a
} -result {::a(1)}
test info-41.4 {info linkedname - no such variable} -body {
    info linkedname foo
} -returnCodes error -result {can't access "foo": no such variable}
test info-41.5 {info linkedname - not a varlink object} -setup {
    unset -nocomplain i
} -body {
    set i 5
................................................................................
    apply {{} {
	variable ok
	set other 123
	return [list [info linkedname ok] [catch {info linkedname other} msg] $msg]
    }}
} -cleanup {
    unset -nocomplain ok
} -result {::ok 1 {can't access "other": variable isn't a link}}
test info-41.8 {info linkedname - chain of links} -setup {
    unset -nocomplain ok
} -body {
    apply {v {
	apply {v {
	    upvar ok foo
	    apply {v {
		upvar foo(yes) bar