Eskil

Check-in [17a8c2f764]
Login

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

Overview
Comment:Plugin must be a file
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 17a8c2f764c667e339d6d4c2dd4967ac66934a9e
User & Date: peter 2008-09-23 20:32:05.000
Context
2008-09-23
20:32
Added entryX. check-in: 68c3acf4b9 user: peter tags: trunk
20:32
Plugin must be a file check-in: 17a8c2f764 user: peter tags: trunk
19:38
Added commit for Subversion. Added log view for CVS and Subversion. check-in: b97c4ac09f user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/plugin.tcl.
︙︙
31
32
33
34
35
36
37

38
39
40
41
42
43
44

    lappend dirs [file join $::thisDir .. plugins]

    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 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








>








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

    lappend dirs [file join $::thisDir .. plugins]

    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
︙︙
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

    if {$usenew1} {
        set ::diff($top,leftFileB) $::diff($top,leftFile)
        set ::diff($top,leftFile) $out1
    } else {
        set ::diff($top,leftFileD) $out1
        #set ::diff($top,leftLabel) "$::diff($top,RevFile) $tag"
    }
    if {$usenew1} {
        set ::diff($top,rightFileB) $::diff($top,rightFile)
        set ::diff($top,rightFile) $out2
    } else {
        set ::diff($top,rightFileD) $out2
        #set ::diff($top,rightLabel) $::diff($top,RevFile)
    }
}








|








98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

    if {$usenew1} {
        set ::diff($top,leftFileB) $::diff($top,leftFile)
        set ::diff($top,leftFile) $out1
    } else {
        set ::diff($top,leftFileD) $out1
        #set ::diff($top,leftLabel) "$::diff($top,RevFile) $tag"
    }
    if {$usenew2} {
        set ::diff($top,rightFileB) $::diff($top,rightFile)
        set ::diff($top,rightFile) $out2
    } else {
        set ::diff($top,rightFileD) $out2
        #set ::diff($top,rightLabel) $::diff($top,RevFile)
    }
}