Artifact 6c7767e59b8ba2860431308b132ca8581c6b55c4:
- Executable file examples/examplep — part of check-in [e756a91488] at 2013-04-04 05:00:48 on branch trunk — Second charge of renaming "xo" to "cmdr". Plus tweak to processing of optional list arguments, preventing ahead-processing of options. They are made part of the splat. (user: aku size: 342)
#!/usr/bin/env tclsh # -*- tcl -*- package require Tcl 8.5 package require cmdr cmdr create cmdline cmdline { private scissors { state state XXX option option YYY option debug DDD { undocumented } input alpha AAA input beta BBB { optional } input gamma CCC { list } } ::cut } [cmdline lookup scissors] interact exit