Eskil

Check-in [4ae4ce2820]
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 | version-2.6
Files: files | file ages | folders
SHA1: 4ae4ce2820cfe5e2b8475fd041fd03c209ecc129
User & Date: peter 2011-10-30 02:41:50.307
Context
2011-10-30
20:33
Link back to main page check-in: a1dc1668d2 user: peter tags: trunk
02:41
Normalize searchpath to find plugins in VFS check-in: 4ae4ce2820 user: peter tags: trunk, version-2.6
02:40
Pruned bad link check-in: 49e649cd9f user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/plugin.tcl.
︙︙
32
33
34
35
36
37
38

39
40
41
42
43
44
45


# Locate plugin source
proc LocatePlugin {plugin} {
    set src ""
    set dirs [PluginSearchPath]

    foreach dir $dirs {

        set files {}
        lappend files [file join $dir $plugin]
        lappend files [file join $dir $plugin.tcl]
        foreach file $files {
            if {![file exists   $file]} continue
            if {![file isfile   $file]} continue
            if {![file readable $file]} continue








>








32
33
34
35
36
37
38
39
40
41
42
43
44
45
46


# Locate plugin source
proc LocatePlugin {plugin} {
    set src ""
    set dirs [PluginSearchPath]

    foreach dir $dirs {
        set dir [file normalize $dir]
        set files {}
        lappend files [file join $dir $plugin]
        lappend files [file join $dir $plugin.tcl]
        foreach file $files {
            if {![file exists   $file]} continue
            if {![file isfile   $file]} continue
            if {![file readable $file]} continue
︙︙