ycl

Check-in [4f8a13f2ad]
Login

Check-in [4f8a13f2ad]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:yobj {update to use newer {ycl proc} [checkargs]}
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4f8a13f2ad8d714c2873cc67b4251cac684edd42
User & Date: pooryorick 2016-02-16 20:37:02.680
Context
2016-02-17
21:00
list {Update to use newer {ycl test}} check-in: 78f56ddbf3 user: pooryorick tags: trunk
2016-02-16
20:37
yobj {update to use newer {ycl proc} [checkargs]} check-in: 4f8a13f2ad user: pooryorick tags: trunk
18:39
daerth {Update test suite to use newer {ycl test}} check-in: 4f5b5f9fd8 user: pooryorick tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to packages/yobj/lib/yobj.tcl.
︙︙
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

			}
			default {}
		}
	}
}

proc object args {
	checkargs doc::object
	namespace eval $ns {
		namespace export {[a-z]*}
		namespace ensemble create -unknown [list apply {{self command args} {

			set cmd [namespace eval $self [list namespace which $command]]
			if {$cmd eq {}} {
				return -code error "no such command: $command"








|








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

			}
			default {}
		}
	}
}

proc object args {
	checkargs [set doc::[namespace tail [lindex [info level 0] 0]]] {*}$args
	namespace eval $ns {
		namespace export {[a-z]*}
		namespace ensemble create -unknown [list apply {{self command args} {

			set cmd [namespace eval $self [list namespace which $command]]
			if {$cmd eq {}} {
				return -code error "no such command: $command"
︙︙