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: |
eed0a736d517f47b6a268bda80097626 |
| 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
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
|