From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 17:07:39 +0000 Subject: 20060303a --- appl/acme/exec.m | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 appl/acme/exec.m (limited to 'appl/acme/exec.m') diff --git a/appl/acme/exec.m b/appl/acme/exec.m new file mode 100644 index 00000000..9a93e24c --- /dev/null +++ b/appl/acme/exec.m @@ -0,0 +1,19 @@ +Exec : module { + PATH : con "/dis/acme/exec.dis"; + + snarfbuf : ref Bufferm->Buffer; + + init : fn(mods : ref Dat->Mods); + + fontx : fn(et : ref Textm->Text, t : ref Textm->Text, argt : ref Textm->Text, arg : string, narg : int); + get : fn(et, t, argt : ref Textm->Text, flag1 : int, arg : string, narg : int); + put : fn(et, argt : ref Textm->Text, arg : string, narg : int); + cut : fn(et, t : ref Textm->Text, flag1, flag2 : int); + paste : fn(et, t : ref Textm->Text, flag1 : int, flag2: int); + + getarg : fn(t : ref Textm->Text, m : int, n : int) : (string, string, int); + execute : fn(t : ref Textm->Text, aq0, aq1, external : int, argt : ref Textm->Text); + run : fn(w : ref Windowm->Window, s : string, rdir : string, ndir : int, newns : int, argaddr : string, arg : string, ise: int); + undo: fn(t: ref Textm->Text, flag: int); + putfile: fn(f: ref Filem->File, q0: int, q1: int, r: string); +}; \ No newline at end of file -- cgit v1.2.3