Lines Matching defs:struct
2 # ::struct::record --
10 # (_recorddefn) under the ::struct::record namespace. Each
30 namespace eval ::struct {}
32 namespace eval ::struct::record {
90 # ::struct::record::record --
102 proc ::struct::record::record {cmd_ args} {
110 return [uplevel 1 ::struct::record::${cmd_} $args]
112 }; # end proc ::struct::record::record
117 # ::struct::record::Define --
131 proc ::struct::record::Define {defn_ vars_ args} {
208 uplevel #0 [list interp alias {} $defn_ {} ::struct::record::Create $defn_]
212 namespace eval ::struct::record${defn_} {
225 uplevel 1 [list ::struct::record::Create $defn_ $A]
230 }; # end proc ::struct::record::Define
235 # ::struct::record::Create --
248 proc ::struct::record::Create {defn_ inst_ args} {
296 uplevel #0 [list interp alias {} ${inst_} {} ::struct::record::Cmd $inst_]
353 uplevel #0 [list interp alias {} ${inst_}.$V {} ::struct::record::Access $defn_ $inst_ $V]
373 }; # end proc ::struct::record::Create
378 # ::struct::record::Access --
393 proc ::struct::record::Access {defn_ inst_ var_ args} {
425 }; # end proc ::struct::record::Access
430 # ::struct::record::Cmd --
445 proc ::struct::record::Cmd {inst_ args} {
484 }; # end proc ::struct::record::Cmd
489 # ::struct::record::Ns --
501 proc ::struct::record::Ns {inst_} {
509 return [format "%s%s%s" "::struct::record" $ret "::"]
511 }; # end proc ::struct::record::Ns
516 # ::struct::record::Show --
535 proc ::struct::record::Show {what_ {record_ ""}} {
573 if {![info exists ::struct::record${record_}::instances]} {
576 return [lsort [set ::struct::record${record_}::instances]]
593 set v [::struct::record::Show values ${record_}.${inst}]
604 }; # end proc ::struct::record::Show
609 # ::struct::record::Delete --
623 proc ::struct::record::Delete {sub_ item_} {
684 namespace delete ::struct::record${item_}
699 }; # end proc ::struct::record::Delete
704 # ::struct::record::Exists --
718 proc ::struct::record::Exists {sub_ item_} {
744 }; # end proc ::struct::record::Exists
749 # ::struct::record::Qualify --
764 proc ::struct::record::Qualify {item_ {level_ 2}} {
778 }; # end proc ::struct::record::Qualify
783 namespace eval ::struct {
788 package provide struct::record 1.2.1