Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | fixed erroneous comment block. added some comments to the config file definition as well. |
---|---|
Timelines: | family | ancestors | descendants | both | dresden |
Files: | files | file ages | folders |
SHA1: |
2ee12c9c08df6bbcd074c12d12fa9b32 |
User & Date: | j 2013-07-24 14:16:42 |
Context
2013-07-24
| ||
14:27 | redefinition of some aliases. check-in: 7b6a25c3b1 user: j tags: dresden | |
14:16 | fixed erroneous comment block. added some comments to the config file definition as well. check-in: 2ee12c9c08 user: j tags: dresden | |
13:58 | `fsl' now regenerates the config file (~/.fslrc) if it is _older_ than the file containing the exectuable of `fsl'. check-in: 29016465ca user: j tags: dresden | |
Changes
Changes to fsl.
︙ | ︙ | |||
9 10 11 12 13 14 15 | set aliases {} set filters {}; # registered filters set commands {}; # registered interceptors proc init {filename} { set myname $::argv0 if {[file exists $filename] && [file mtime $filename] > [file mtime $myname]} { | | | > | | > | | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | set aliases {} set filters {}; # registered filters set commands {}; # registered interceptors proc init {filename} { set myname $::argv0 if {[file exists $filename] && [file mtime $filename] > [file mtime $myname]} { # an existing config file is used only if it is _newer_ than the # running `fsl' file. otherwise the config file is (re)created # since it's definition in `config::defaults' might have changed. # this makes it probable that changes to this script become # automatically active for other users (as long as they don't happen # to manually modify there config files frequently ...) set conf [read [open $filename]] } else { set conf [unindent_script $config::defaults] puts "(Creating $filename)" puts [open $filename w] $conf } uplevel #0 [list namespace eval config::fslrc $conf] |
︙ | ︙ | |||
54 55 56 57 58 59 60 | # alias ? help # # filter indent help { # return "\t$line" # } set config::defaults { | | > > > > | 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | # alias ? help # # filter indent help { # return "\t$line" # } set config::defaults { # configuration file for the `Fossil SCM' wrapper script `fsl'. # this file might be modified but changes are not guaranteed # to be permanent: the file is regenerated if it is older # than the script file for `fsl' (which will happen # each time the script file itself is edited). # -- Aliases: alias . changes alias , ui alias alog {timeline -n 100000} alias d diff |
︙ | ︙ |