Eskil

Differences From Artifact [5ccd77d109]:

• File src/plugin.tcl — part of check-in [0ac12f1aa4] at 2015-03-18 23:25:13 on branch trunk — Allow plugins to yield if Eskil is run in Tcl 8.6 or newer (user: peter size: 11766)

To Artifact [9ee6559432]:

• File src/plugin.tcl — part of check-in [398b37698c] at 2015-03-19 22:31:02 on branch trunk — Syntax check caught up with latest changes (user: peter size: 11768)

82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

    # Expose needed commands
    if {!$allow} {
        interp expose $pi fconfigure ;# ??
        interp hide $pi close
    }

    set pinfo {file 0 dir 0}
    dict set pinfo allow $allow
    if {[$pi eval info proc PreProcess] ne ""} {
        dict set pinfo file 1
    }
    if {[$pi eval info proc FileCompare] ne ""} {
        dict set pinfo dir 1
    }

|

82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

    # Expose needed commands
    if {!$allow} {
        interp expose $pi fconfigure ;# ??
        interp hide $pi close
    }

    set pinfo {file 0 dir 0}
    dict set pinfo "allow" $allow
    if {[$pi eval info proc PreProcess] ne ""} {
        dict set pinfo file 1
    }
    if {[$pi eval info proc FileCompare] ne ""} {
        dict set pinfo dir 1
    }