Eskil

Check-in [122f495f11]
Login

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

Overview
Comment:Only list each plugin once.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 122f495f11cc8edb26bdfde9dd1d5efe50814c85
User & Date: peter.spjuth@gmail.com 2010-06-07 14:57:59.000
Context
2010-06-23
20:31
Get DiffUtil from new location. check-in: fab6204614 user: peter.spjuth@gmail.com tags: trunk
2010-06-07
14:57
Only list each plugin once. check-in: 122f495f11 user: peter.spjuth@gmail.com tags: trunk
2010-04-28
08:10
Added some tests for new print command line options. check-in: 6f44793373 user: peter.spjuth@gmail.com tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/plugin.tcl.
︙︙
92
93
94
95
96
97
98


99
100
101

102
103
104
105
106
107
108


proc printPlugins {} {
    set dirs [PluginSearchPath]

    foreach dir $dirs {
        set files [glob -nocomplain [file join $dir *.tcl]]
        foreach file $files {


            if {![file exists $file]} continue
            if {![file isfile $file]} continue
            if {![file readable $file]} continue

            set ch [open $file r]
            set data [read $ch 100]
            close $ch
            if {[regexp {^\#\#Eskil Plugin :(.*?)(\n|$)} $data -> descr]} {
                puts "Plugin \"[file rootname [file tail $file]]\" : $descr"
            }
        }








>
>



>








92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111


proc printPlugins {} {
    set dirs [PluginSearchPath]

    foreach dir $dirs {
        set files [glob -nocomplain [file join $dir *.tcl]]
        foreach file $files {
            set file [file normalize $file]
            if {[info exists done($file)]} continue
            if {![file exists $file]} continue
            if {![file isfile $file]} continue
            if {![file readable $file]} continue
            set done($file) 1
            set ch [open $file r]
            set data [read $ch 100]
            close $ch
            if {[regexp {^\#\#Eskil Plugin :(.*?)(\n|$)} $data -> descr]} {
                puts "Plugin \"[file rootname [file tail $file]]\" : $descr"
            }
        }
︙︙