Eskil

Check-in [ad0a47e0b1]
Login

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

Overview
Comment:Polish
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ad0a47e0b1094cd34d700f8114f3517ae2111f4f
User & Date: peter 2009-11-02 20:55:45.000
Context
2010-02-13
21:33
Added a proc to support git add check-in: 87ace8d1da user: peter tags: trunk
2009-11-02
20:55
Polish check-in: ad0a47e0b1 user: peter tags: trunk
20:52
Detect and display annotation in patches. E.g. when using -p with diff. check-in: 9313711f6a 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
46
47
48
49
50


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

    foreach dir $dirs {

        set files [list [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
            set ch [open $file r]
            set data [read $ch 20]
            close $ch
            if {[string match "##Eskil Plugin*" $data]} {
                set src $file
                break








>
|


|
|








32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51


# 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
            set ch [open $file r]
            set data [read $ch 20]
            close $ch
            if {[string match "##Eskil Plugin*" $data]} {
                set src $file
                break
︙︙