Re: How to query active processes from Ada

[demer@hc17031.hcsd.ca (David Emery)]

The short answer is to send SIGNULL to the process with kill().  

Naturally this is supported by POSIX/Ada:
	
	with POSIX, POSIX_Signals, POSIX_Process_Identification;
	function Process_Exists 
	  (Pid : in Posix_Process_Identification.Process_Id) 
		return Boolean is
        begin
	   POSIX_Signals.Send_Signal
	     (Process => Pid,
	      Sig => POSIX_Signals.Signal_Null);
	   -- returns normally if Process exists.  
	   -- if process does not exist, or is not 'killable' by the
	   -- caller, raises POSIX_Error.
	   return True;
	exception
           when POSIX.POSIX_Error =>
	       return False;
	   when others =>
	        raise;
 	end Process_Exists;
	

				dave
-- 
<.sig is away on vacation>