cmdr
Check-in [eed0a736d5]
Not logged in

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

Overview
Comment:history - Added help for the entire ensemble. Version bumped to 0.2.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:eed0a736d517f47b6a268bda8009762669d8c2ae
User & Date: andreask 2015-11-03 17:27:51
Original Comment: cmdr::history - Added help for the entire ensemble. Version bumped to 0.2.
Context
2015-11-04
22:37
Prep work for an 1.2 release. Draft list of changes since 1.1 check-in: 76b7d37836 user: andreask tags: trunk
2015-11-03
17:27
history - Added help for the entire ensemble. Version bumped to 0.2. check-in: eed0a736d5 user: andreask tags: trunk
2015-07-15
23:31
Extended v-type "time" to accept positive integers as seconds in epoch, above iso8601 timestamps. Bumped to version 1.1 check-in: 1f24482658 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to history.tcl.

84
85
86
87
88
89
90

91
92
93






94
95
96
97
98
99
100
...
415
416
417
418
419
420
421
422
423
    debug.cmdr/history {}
    # cmdr shandler to use.
    # The actor is the officer to extend.

    # (***) Detect recursive entry through the extend statements
    # below. Use this to make 'history list' the default of the whole
    # history officer. And, of course, prevent infinite recursion.


    if {[$actor name] eq "history"} {
	$actor learn {default list}






	return
    }

    # (1) Intercept dispatch and record all user commands.
    #
    # Note how this is NOT attached to the history officer itself.
    # Execution of history management commands is not recorded in the
................................................................................
    } else {
	return "Keep $limit entries"
    }
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::history 0.1
return







>


|
>
>
>
>
>
>







 







|

84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
...
422
423
424
425
426
427
428
429
430
    debug.cmdr/history {}
    # cmdr shandler to use.
    # The actor is the officer to extend.

    # (***) Detect recursive entry through the extend statements
    # below. Use this to make 'history list' the default of the whole
    # history officer. And, of course, prevent infinite recursion.
    # Lastly, not leastly, add help describing the entire ensemble.

    if {[$actor name] eq "history"} {
	$actor learn {
	    default list
	    #section Introspection {Command history}
	    description {
		Manage the command history.
	    }
	}
	return
    }

    # (1) Intercept dispatch and record all user commands.
    #
    # Note how this is NOT attached to the history officer itself.
    # Execution of history management commands is not recorded in the
................................................................................
    } else {
	return "Keep $limit entries"
    }
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::history 0.2
return