Version 0 of How Expect sees function keys

Updated 2002-06-20 15:36:14

Run this:

    puts "Type any characters, then <Return>."

    expect {
        ? {
            set result $expect_out(0,string)
        if [string compare \n $result] {
                scan $result %c value
                puts "You just typed '$result' ($value)."
        }
        exp_continue
        }
    }