Eskil

Check-in [4971802210]
Login

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

Overview
Comment:Dump plugin with indentation intact
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 4971802210d31abfa90144fc54a5a4be1d07a1a92c00705affddf2837b9bc426
User & Date: peter 2019-11-06 23:07:50
Context
2019-11-09
00:08
List links better in dir diff check-in: 8e962c7fd6 user: peter tags: trunk
2019-11-06
23:07
Dump plugin with indentation intact check-in: 4971802210 user: peter tags: trunk
2019-10-03
22:51
Handle -review in fossil subdir. check-in: 645d0fe1df user: peter tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/plugin.tcl.

125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
    if {$src eq ""} {
        printPlugins
        return
    }
    set ch [open $src]
    set lines [split [read $ch] \n]
    foreach line $lines {
        set line [string trim $line]
        if {$short} {
            if {![string match "#*" $line]} {
                break
            }
        }
        puts $line
    }
    close $ch
}







|

|







125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
    if {$src eq ""} {
        printPlugins
        return
    }
    set ch [open $src]
    set lines [split [read $ch] \n]
    foreach line $lines {
        set lineT [string trim $line]
        if {$short} {
            if {![string match "#*" $lineT]} {
                break
            }
        }
        puts $line
    }
    close $ch
}