Re: Pragma's for Ada ????

[emery@mitre-bedford.arpa (David Emery)]

System.System_Name is NOT the same as host ID.  For instance,
System.System_Name on my Sparc is "sun_4_unix", and the host_id is
55433bc7.  System.System_Name is generally the 'architecture' or
computer name, while Hostid is a per-machine unique identifier (sort
of a serial number.)

On a Sun/Sparc, the following should do the trick:

	function hostid
	    return string
	is
	  type C_int is new integer;
		-- assuming Standard.integer is the same as C's int.
	  function gethostid return C_int;
	  pragma interface (C, gethostid);
	
	  id : C_int;
	begin
	  id := gethostid;
	  return c_int'image(id);
	end hostid;

Here's the man page entry for gethostid from Sun/SPARC:	

	NAME
	     gethostid - get unique identifier of current host
	
	SYNOPSIS
	     gethostid()
	
	DESCRIPTION
	     gethostid() returns the 32-bit identifier  for  the  current
	     host,  which  should  be  unique across all hosts.  On a Sun
	     workstation, this number is taken from the  CPU  board's  ID
	     PROM.
	
	SEE ALSO
	     hostid(1)