Eskil

Check-in [2ef67553ab]
Login

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

Overview
Comment:Normalize searchpath to find plugins in VFS.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2ef67553ab817bc54b6b25516fd0534c7d630a24
User & Date: peter.spjuth@gmail.com 2011-10-14 23:51:50.000
Context
2011-10-14
23:57
Added procedure editor. check-in: 7abe7c695a user: peter.spjuth@gmail.com tags: trunk
23:51
Normalize searchpath to find plugins in VFS. check-in: 2ef67553ab user: peter.spjuth@gmail.com tags: trunk
2011-10-05
10:28
Respect block parse setting when showing patch. check-in: 48fa641c5b user: peter.spjuth@gmail.com tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/plugin.tcl.
︙︙
90
91
92
93
94
95
96

97
98
99
100
101
102
103

    close $ch
}

proc listPlugins {} {
    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








>








90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

    close $ch
}

proc listPlugins {} {
    set dirs [PluginSearchPath]

    foreach dir $dirs {
        set dir [file normalize $dir]
        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
︙︙