Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | `fsl' now regenerates the config file (~/.fslrc) if it is _older_ than the file containing the exectuable of `fsl'. |
|---|---|
| Timelines: | family | ancestors | descendants | both | dresden |
| Files: | files | file ages | folders |
| SHA1: |
29016465cad46302244689e3c8f54a61 |
| User & Date: | j 2013-07-24 13:58:07 |
Context
|
2013-07-24
| ||
| 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 | |
| 13:03 | further adjustment to timeline format. a further alias definition. check-in: 11ad9134d2 user: j tags: dresden | |
Changes
Changes to fsl.
1 2 3 4 5 6 7 8 9 10 11 12 13 |
#!/usr/bin/env expect
# -*-tcl-*-
#
# Copyright (c) 2012, Marc Simpson <marc@0branch.com> (ISC, see LICENSE)
# --( Aliases and Filters )---------------------------------------------
namespace eval config {
set aliases {}
set filters {}; # registered filters
set commands {}; # registered interceptors
proc init {filename} {
| > | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
#!/usr/bin/env expect
# -*-tcl-*-
#
# Copyright (c) 2012, Marc Simpson <marc@0branch.com> (ISC, see LICENSE)
# --( Aliases and Filters )---------------------------------------------
namespace eval config {
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 _older_ than the running `fsl' file.
#otherwise the config file is (re)created since it's definition might have changed.
#note that this ensures changes to this script to become automatically
#active for other users with their individual incarnations of `$filename' while
#manual adjustments to `$filename' are no longer wise...
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]
|
| ︙ | ︙ |