Lines Matching refs:lib

96 	foreach lib $libnames {
97 	    set type [file type $lib];			# what is it?
101 		    if {![info exists Libs($lib)]} {
102 			set Libs($lib) "";		# add it to our list
103 			if {$verbose} {puts "+ $lib";}
108 		    if {[catch {set ldest [file readlink $lib]}]} {
109 			puts stderr "Symbolic link points to nothing : $lib";
112 			if {![info exists Libs($lib)]} {
113 			    set Libs($lib) "";		# add it to our list
114 			    if {$verbose} {puts "+ $lib";}
117 			lappend Libs($ldest) "($lib)";
204 	if {[scan $line "%s => %s %s" junk1 lib junk2] == 3} {
205 	    if {$lib == "not"} {	# "not found" error
209 		lappend Libs($lib) $fname;
232     foreach lib [array names Libs] {
233 	if {$Libs($lib) == ""} {
242     foreach lib [lsort $used] {
244 	set users [lsort $Libs($lib)];
245 	puts [format "%-30s  %s" $lib $users];
249     foreach lib [lsort $unused] {
251 	set users [lsort $Libs($lib)];
252 	puts [format "%-30s  %s" $lib $users];