Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Reference the caller's namespace when defining interceptors (close [caeb6df696]). |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6839e8de1e53400ba79a0c4ee6b83e85 |
User & Date: | marc 2012-12-29 13:37:10 |
Context
2013-01-17
| ||
04:43 | Personal branch with personal .fslrc tracked. check-in: 9cd347caaa user: michael tags: ttmrichter | |
2013-01-08
| ||
14:06 | Simplify the prompt regexp (no need to escape '?' inside a disjunction). check-in: 4038632842 user: marc tags: trunk | |
2013-01-01
| ||
23:48 | merged from trunk. check-in: 38deb932f7 user: j tags: dresden | |
2012-12-29
| ||
13:37 | Reference the caller's namespace when defining interceptors (close [caeb6df696]). check-in: 6839e8de1e user: marc tags: trunk | |
13:30 | Allow user-defined interceptors to make multiple calls to Fossil via a 'fossil' proc. check-in: 9153a23747 user: marc tags: trunk | |
13:07 | Reference the caller's namespace when defining interceptors (fixes [caeb6df696]). Closed-Leaf check-in: 326a7576f0 user: marc tags: interceptor-ns-fix | |
Changes
Changes to fsl.
︙ | ︙ | |||
139 140 141 142 143 144 145 | # - If an interceptor returns an empty list, the wrapper is expected # to exit without calling Fossil, thereby fully intercepting the # query. Otherwise, it acts as a pre-processor: the returned list is # treated as a revised parameter list and will be supplied to # `fossil'. proc interceptor {command_spec body} { | | | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | # - If an interceptor returns an empty list, the wrapper is expected # to exit without calling Fossil, thereby fully intercepting the # query. Otherwise, it acts as a pre-processor: the returned list is # treated as a revised parameter list and will be supplied to # `fossil'. proc interceptor {command_spec body} { set fn [list {params} $body [uplevel 1 {namespace current}]] foreach command [triggers_for $command_spec] { dict set config::commands $command $fn } } proc intercept {params} { set command [first $params] |
︙ | ︙ |