Fossil Wrapper

Check-in [29016465ca]
Login

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: 29016465cad46302244689e3c8f54a6122a331d2
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

1
2
3
4
5
6
7
8
9
10
11
12
13

14





15
16
17
18
19
20
21
#!/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} {

        if {[file exists $filename]} {





            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]













>
|
>
>
>
>
>







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]