ftp.cs.arizona.edu/ftp.cs.arizona.edu.tar/ftp.cs.arizona.edu/icon/historic/v941.tgz/icon.v941src.tar/icon.v941src/ipl/packs/idol/sinvktst.iol

Text File | 2000-07-29 | 239b | 14 lines

class sinvbuffer : strinvokable()
  method forward_char()
    write("success")
  end
  method eval(s,args[])
    suspend self$strinvokable.eval(map(s,"-","_"))
  end
end

procedure main()
  x := sinvbuffer()
  x $ eval("forward-char")
end