diff options
Diffstat (limited to 'ipl/mprogs/playev.icn')
| -rw-r--r-- | ipl/mprogs/playev.icn | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/ipl/mprogs/playev.icn b/ipl/mprogs/playev.icn deleted file mode 100644 index 7fdf595..0000000 --- a/ipl/mprogs/playev.icn +++ /dev/null @@ -1,59 +0,0 @@ -############################################################################ -# -# File: playev.icn -# -# Subject: Program to play back events -# -# Author: Ralph E. Griswold -# -# Date: August 16, 1994 -# -############################################################################ -# -# This file is in the public domain. -# -############################################################################ -# -# This program plays back events saved by recordev. Since recordev -# uses image() for recording, some information may be lost. -# -# This program is called as -# -# playev em <history -# -# where history is a file produced by recordev. -# -############################################################################ -# -# Requires: Version 9.0 MT Icon with event monitoring -# -############################################################################ -# -# Links: evinit, ivalue -# -############################################################################ - -link evinit -link ivalue - -procedure main(args) - local mask, prog - - prog := load(pop(args), args) | stop("*** cannot EM") - - variable("&eventsource", prog) := ¤t | stop("no eventsource?") - - mask := @prog # activate EM to get its mask - - while &eventcode := read() do { - &eventcode := ivalue(&eventcode) # can fail - &eventvalue := read() | break - if find(&eventcode, mask) then { - &eventvalue := ivalue(&eventvalue) # can fail - mask := event(, , prog) # pass event; get mask back - } - } - - cofail(prog) - -end |