From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 20:52:35 +0000 Subject: 20060303-partial --- module/exception.m | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 module/exception.m (limited to 'module/exception.m') diff --git a/module/exception.m b/module/exception.m new file mode 100644 index 00000000..c5cf01ed --- /dev/null +++ b/module/exception.m @@ -0,0 +1,18 @@ +Exception: module{ + + PATH: con "/dis/lib/exception.dis"; + + # returns the last exception in the form pc, module, exception + # on the process with the given pid (-1 gives current process) + # returns (0, nil, nil) if no exception + getexc: fn(pid: int): (int, string, string); + + NOTIFYLEADER, PROPAGATE: con iota; + + # set the exception mode(NOTIFYLEADER or PROPAGATE) + # on the current process + # it is assumed that the process is a group leader (see Sys->NEWPGRP) + # returns -1 on failure, 0 on success + setexcmode: fn(mode: int): int; + +}; -- cgit v1.2.3