1Exception: module{ 2 3 PATH: con "/dis/lib/exception.dis"; 4 5 # returns the last exception in the form pc, module, exception 6 # on the process with the given pid (-1 gives current process) 7 # returns (0, nil, nil) if no exception 8 getexc: fn(pid: int): (int, string, string); 9 10 NOTIFYLEADER, PROPAGATE: con iota; 11 12 # set the exception mode(NOTIFYLEADER or PROPAGATE) 13 # on the current process 14 # it is assumed that the process is a group leader (see Sys->NEWPGRP) 15 # returns -1 on failure, 0 on success 16 setexcmode: fn(mode: int): int; 17 18}; 19