File: spelltest.tcl

package info (click to toggle)
ts 9902p1-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 2,252 kB
  • ctags: 1,271
  • sloc: tcl: 5,638; sh: 129; makefile: 40
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"