module wake (main = wake)=
begin

!	Wakes up a process has been put to sleep via the $suspnd system
!	service.  The pid of the target process is obtained via GET_PID.
!
!	R.J. FitzPatrick		July 1979
!	Smithsonian Astrophysical Observatory, Cambridge MA
!
library 'SYS$LIBRARY:STARLET.L32';

own
	status: long,
	pid: long;

external routine
	get_pid;

global routine wake (start_add, cli_callback) =
    begin
	status = get_pid (.cli_callback, pid) ;
	if .status neq ss$_normal then return .status;
	if .pid eql 0 then return ss$_nonexpr;
	$resume( pidadr=pid )
    end;
end
eludom