Eskil

Artifact 37584855266cdeb36949dfb18ace1f834267ba3d:

• File plugins/nocase.tcl — part of check-in [35db83fb5f] at 2008-05-22 20:06:39 on branch trunk — Added plugins (user: peter size: 269)

##Eskil Plugin

# Example file for a plugin.
# Correspondning to -nocase flag.

proc PreProcess {side chi cho} {
    while {1} {
        set data [read $chi 100000]
        if {$data eq ""} break
        puts -nonewline $cho [string tolower $data]
    }
    return 0
}