File: spelltest.tcl

package info (click to toggle)
ts 9804-2
  • links: PTS
  • area: main
  • in suites: slink
  • size: 2,152 kB
  • ctags: 1,248
  • sloc: tcl: 4,806; makefile: 39; sh: 1
file content (13 lines) | stat: -rw-r--r-- 305 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
proc Read {pipe} {
  if {[gets $pipe line] < 0} {
    close $pipe
    puts "## Ready ##"
    return
  }
  puts $line
}

set pipe [open "|ispell -t -d deutsch -T latin1 -a" r+]
fconfigure $pipe -blocking 0 -buffering line
fileevent $pipe readable "Read $pipe"
puts $pipe "Ich und Du Hello, abc Mausefalle"