Eskil

Differences From Artifact [10b757a3bf]:

• File src/plugin.tcl — part of check-in [f867bb4b2d] at 2018-05-13 06:45:23 on branch trunk — Use feature from psballoon to cleanup (user: peter size: 22367)

To Artifact [cf374614a0]:

• File src/plugin.tcl — part of check-in [4971802210] at 2019-11-06 23:07:50 on branch trunk — Dump plugin with indentation intact (user: peter size: 22369)

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
}