Check-in [ac0207111b]

Not logged in
Tcl 2015 Conference, Manassas/VA, US, Oct 19-23
Send your abstracts to tclconference@googlegroups.com by Aug 24.

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

Overview
Comment:Added introspection/testing for location validation
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA1:ac0207111bebc1f975652c5a5111fdbd01baad11
User & Date: aku 2017-09-25 17:50:13
Context
2017-09-25
17:51
Fixes to city validation, added introspection and testing to same. check-in: 46916d9772 user: aku tags: active-on-core
17:50
Added introspection/testing for location validation check-in: ac0207111b user: aku tags: active-on-core
17:49
Fixes to tutorial dumping check-in: 9a5b3bad78 user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/location.tcl.

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
..
55
56
57
58
59
60
61










62
63
64
65
66
67
68
namespace eval ::cm {
    namespace export location
    namespace ensemble create
}
namespace eval ::cm::location {
    namespace export \
	cmd_create cmd_list cmd_select cmd_show cmd_contact \
	cmd_map cmd_staff_show cmd_map_get \
	cmd_staff_link cmd_staff_unlink known-validation \
	select label get details known-staff select-staff get-name
    namespace ensemble create

    namespace import ::cmdr::ask
    namespace import ::cmdr::color
    namespace import ::cm::city
................................................................................
    namespace import ::cmdr::table::general ; rename general table
}

# # ## ### ##### ######## ############# ######################

debug level  cm/location
debug prefix cm/location {[debug caller] | }











# # ## ### ##### ######## ############# ######################

proc ::cm::location::cmd_list {config} {
    debug.cm/location {}
    Setup
    db show-location







|







 







>
>
>
>
>
>
>
>
>
>







34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
..
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
namespace eval ::cm {
    namespace export location
    namespace ensemble create
}
namespace eval ::cm::location {
    namespace export \
	cmd_create cmd_list cmd_select cmd_show cmd_contact \
	cmd_map cmd_staff_show cmd_map_get test-known \
	cmd_staff_link cmd_staff_unlink known-validation \
	select label get details known-staff select-staff get-name
    namespace ensemble create

    namespace import ::cmdr::ask
    namespace import ::cmdr::color
    namespace import ::cm::city
................................................................................
    namespace import ::cmdr::table::general ; rename general table
}

# # ## ### ##### ######## ############# ######################

debug level  cm/location
debug prefix cm/location {[debug caller] | }

# # ## ### ##### ######## ############# ######################

proc ::cm::location::test-known {config} {
    debug.cm/location {}
    Setup
    db show-location
    util pdict [known-validation]
    return
}

# # ## ### ##### ######## ############# ######################

proc ::cm::location::cmd_list {config} {
    debug.cm/location {}
    Setup
    db show-location