Fossil Wrapper

Check-in [8958476da0]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fixed typo. minor cosmetics.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: 8958476da09d3756b530ce80d92544a3b0e977f7
User & Date: j 2013-07-28 16:09:38
Context
2013-07-28
18:20
simplied `computeRevnums'. check-in: d9327358eb user: j tags: dresden
16:09
fixed typo. minor cosmetics. check-in: 8958476da0 user: j tags: dresden
14:17
move `dbglvl' to the `config' namespace. check-in: 5b283d6948 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
# -*-tcl-*-
#
# Copyright (c) 2012, Marc Simpson <marc@0branch.com> (ISC, see LICENSE)

# --( Aliases and Filters )---------------------------------------------

namespace eval config {
    set dbglvl 0;               # debug level

    set aliases {}
    set filters {};             # registered filters
    set commands {};            # registered interceptors

    proc init {filename} {
        set myname $::argv0
................................................................................
          # if yes, don't unwrap (but it's still filtered 
          # through `fancy_timeline'. think ...)
          if {!$catmode} {
             set lines [unwrapTimeline $lines]
          }
       }

       if {$config::dbglvl == 1} {puts "*** filter chain: $chain"}

       foreach line $lines {
          if {$config::dbglvl > 2} {
             puts "IN: >$line<"
             puts -nonewline "OU: >"
             filter_with $chain "$line"
             puts "<"







|







 







|







2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
# -*-tcl-*-
#
# Copyright (c) 2012, Marc Simpson <marc@0branch.com> (ISC, see LICENSE)

# --( Aliases and Filters )---------------------------------------------

namespace eval config {
    variable dbglvl 0;               # debug level

    set aliases {}
    set filters {};             # registered filters
    set commands {};            # registered interceptors

    proc init {filename} {
        set myname $::argv0
................................................................................
          # if yes, don't unwrap (but it's still filtered 
          # through `fancy_timeline'. think ...)
          if {!$catmode} {
             set lines [unwrapTimeline $lines]
          }
       }

       if {$config::dbglvl > 1} {puts "*** filter chain: $chain"}

       foreach line $lines {
          if {$config::dbglvl > 2} {
             puts "IN: >$line<"
             puts -nonewline "OU: >"
             filter_with $chain "$line"
             puts "<"