Subversion Repositories or1k

#!../expect -f
# simulate a dvorak keyboard
# Actually just the lowercase letters are mapped to show the basic idea.
# Really, uppercase and control should probably be mapped too.
# But this isn't really what expect is all about.  It just demonstrates
# the mapping ability of 'interact'.

proc rot {} {
        interact {
                q {send '}  w {send ,}  e {send .}  r {send p}
                t {send y}  y {send f}  u {send g}  i {send c}
                o {send r}  p {send l}  s {send o}  d {send e}
                f {send u}  g {send i}  h {send d}  j {send h}
                k {send t}  l {send n}  \; {send s}  ' {send -- -}
                z {send \;}  x {send q}  c {send j}  v {send k}
                b {send x}  n {send b}  , {send w}  . {send v}
                / {send z}  ~q {return} ~d {} ~e {}
                -o eof exit
        }
}

log_user 0
spawn $env(SHELL)
log_user 1
send_user "~d for dvorak input\n"
send_user "~q for qwerty input (default)\n"
send_user "~e for expect interpreter\n"
send_user "Enter ~ sequences using qwerty keys\n"
interact ~d rot ~q {} ~e