tisTrace
Check-in [2b4a40238b]
Not logged in

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

Overview
Comment:More tweaking related to fossil and markdown.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2b4a40238b2d1f30b3fa573ee1017bdede170726
User & Date: jima 2015-11-06 17:31:29
Context
2015-11-06
17:43
More markdown testing. check-in: 37bc0b181a user: jima tags: trunk
17:31
More tweaking related to fossil and markdown. check-in: 2b4a40238b user: jima tags: trunk
17:30
More tweaking for fossil to show nice html with my markdown. check-in: 3a7e1fffa7 user: jima tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/doc/trace.tcl.md.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
..
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
..
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
..
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
..
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
...
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
# Trace.

    namespace eval ::tis {

    namespace eval trace {

<!-- {

## Proc Really.

This is the **proc** that gets invoked to really do the tracing.

Arguments:

................................................................................

* Prints to the screen.

Notes:

* It will decorate the message a bit.

} -->

    proc Really {msg} {
        set level [expr {[info level]-1}]
        set decoLen [string length $msg]
        if {$decoLen >= 68} {
            set decoLen 68
        }
................................................................................
        puts $msg
        puts [string repeat "-" $decoLen]
        return
    }

----

<!-- {

## Proc on.

Activates the **invokations** to **proc** *do*.

Arguments:

................................................................................

* Empty.

Side effects:

* Defines the **proc** *::tis::trace::do*.

} -->

    proc on {} {
        proc ::tis::trace::do {args} {
            return [::tis::trace::Really {*}$args]
        }
        return
    }

----

<!-- {

## Proc off.

Deactivates the **invokations** to **proc** *do*.

Arguments:

................................................................................

* Empty.

Side effects:

* Defines the **proc** *::tis::trace::do*.

} -->

    proc off {} {
        proc ::tis::trace::do {args} {}
        return
    }

----

<!-- {

## Proc boot.

Sets up the tracing subsystem in **tis**.

Arguments:

................................................................................
* Deactivates **invokations** to *::tis::trace::do*.
* Defines *yes* (trace) and *no* (no trace) **procs**.

Notes:

* This gets invoked when loading the package.

} -->

    proc boot {} {
        off
        proc ::tis::trace::yes {args} {
            return [::tis::trace::Really {*}$args]
        }
        proc ::tis::trace::no {args} {}






|







 







|







 







|







 







|










|







 







|








|







 







|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
..
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
..
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
..
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
..
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
...
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
# Trace.

    namespace eval ::tis {

    namespace eval trace {

<!-- { -->

## Proc Really.

This is the **proc** that gets invoked to really do the tracing.

Arguments:

................................................................................

* Prints to the screen.

Notes:

* It will decorate the message a bit.

<!-- } -->

    proc Really {msg} {
        set level [expr {[info level]-1}]
        set decoLen [string length $msg]
        if {$decoLen >= 68} {
            set decoLen 68
        }
................................................................................
        puts $msg
        puts [string repeat "-" $decoLen]
        return
    }

----

<!-- { -->

## Proc on.

Activates the **invokations** to **proc** *do*.

Arguments:

................................................................................

* Empty.

Side effects:

* Defines the **proc** *::tis::trace::do*.

<!-- } -->

    proc on {} {
        proc ::tis::trace::do {args} {
            return [::tis::trace::Really {*}$args]
        }
        return
    }

----

<!-- { -->

## Proc off.

Deactivates the **invokations** to **proc** *do*.

Arguments:

................................................................................

* Empty.

Side effects:

* Defines the **proc** *::tis::trace::do*.

<!-- } -->

    proc off {} {
        proc ::tis::trace::do {args} {}
        return
    }

----

<!-- { -->

## Proc boot.

Sets up the tracing subsystem in **tis**.

Arguments:

................................................................................
* Deactivates **invokations** to *::tis::trace::do*.
* Defines *yes* (trace) and *no* (no trace) **procs**.

Notes:

* This gets invoked when loading the package.

<!-- } -->

    proc boot {} {
        off
        proc ::tis::trace::yes {args} {
            return [::tis::trace::Really {*}$args]
        }
        proc ::tis::trace::no {args} {}

Deleted generic/trace.tcl.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
# Trace.

    namespace eval ::tis {

    namespace eval trace {

<!-- { -->

## Proc Really.

This is the **proc** that gets invoked to really do the tracing.

Arguments:

* **msg** - Message to be sent to screen.

Returns:

* Empty.

Side effects:

* Prints to the screen.

Notes:

* It will decorate the message a bit.

<!-- } -->

    proc Really {msg} {
        set level [expr {[info level]-1}]
        set decoLen [string length $msg]
        if {$decoLen >= 68} {
            set decoLen 68
        }
        puts [string repeat "+" $decoLen]
        puts "LEVEL = $level"
        puts $msg
        puts [string repeat "-" $decoLen]
        return
    }

----

<!-- { -->

## Proc on.

Activates the **invokations** to **proc** *do*.

Arguments:

* None.

Returns:

* Empty.

Side effects:

* Defines the **proc** *::tis::trace::do*.

<!-- } -->

    proc on {} {
        proc ::tis::trace::do {args} {
            return [::tis::trace::Really {*}$args]
        }
        return
    }

----

<!-- { -->

## Proc off.

Deactivates the **invokations** to **proc** *do*.

Arguments:

* None.

Returns:

* Empty.

Side effects:

* Defines the **proc** *::tis::trace::do*.

<!-- } -->

    proc off {} {
        proc ::tis::trace::do {args} {}
        return
    }

----

<!-- { -->

## Proc boot.

Sets up the tracing subsystem in **tis**.

Arguments:

* None.

Returns:

* Empty.

Side effects:

* Deactivates **invokations** to *::tis::trace::do*.
* Defines *yes* (trace) and *no* (no trace) **procs**.

Notes:

* This gets invoked when loading the package.

<!-- } -->

    proc boot {} {
        off
        proc ::tis::trace::yes {args} {
            return [::tis::trace::Really {*}$args]
        }
        proc ::tis::trace::no {args} {}
        return
    }

----

    }

    }
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<