[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / os9gs / getpidf.c

/*
 * $Id$
 *
 * $Log$
 * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
 * Kernlib
 *
 */
/*>    ROUTINE GETPIDF (IPID)
  CERN PROGLIB# Z265    GETPIDF         .VERSION KERNOS9  1.01  940727
  ORIG. 22/02/91, JZ
  Fortran interface routine to _os_id (). 
  Replaces call to getpid for OS-9 systems.
  MOD.  27/07/94, MM
*/

#include <process.h>
#include <types.h>

void getpidf_(int *pid)
{
      process_id      proc_id;
      u_int16         priority;
      u_int16         age;
      int32           schedule;
      u_int16         group;
      u_int16         user;

      error_code      err;

      err = _os_id (&proc_id, &priority, &age, &schedule, &group, &user);
      *pid = proc_id;
      return;
}
/*> END <----------------------------------------------------------*/
Commit	Line	Data
fe4da5cc	1	/*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:31 mclareni
	6	* Kernlib
	7	*
	8	*/
	9	/*> ROUTINE GETPIDF (IPID)
	10	CERN PROGLIB# Z265 GETPIDF .VERSION KERNOS9 1.01 940727
	11	ORIG. 22/02/91, JZ
	12	Fortran interface routine to _os_id ().
	13	Replaces call to getpid for OS-9 systems.
	14	MOD. 27/07/94, MM
	15	*/
	16
	17	#include <process.h>
	18	#include <types.h>
	19
	20	void getpidf_(int *pid)
	21	{
	22	process_id proc_id;
	23	u_int16 priority;
	24	u_int16 age;
	25	int32 schedule;
	26	u_int16 group;
	27	u_int16 user;
	28
	29	error_code err;
	30
	31	err = _os_id (&proc_id, &priority, &age, &schedule, &group, &user);
	32	*pid = proc_id;
	33	return;
	34	}
	35	/> END <----------------------------------------------------------/