[unix-history] / usr / src / usr.bin / f77 / libU77 / fork_.c

/*
char id_fork[] = "@(#)fork_.c	1.1";
 *
 * fork a copy of this process
 *
 * calling sequence:
 *	integer fork
 *	ierror = fork()
 * where:
 *	ierror will be	- child pid if parent and successful
 *			- 0 if child
 *			- -errno if unsuccessful
 */

#include	"../libI77/fiodefs.h"

extern int errno;

long fork_()
{
	long i;

	for (i = 0; i < MXUNIT; i++)
		flush_(&i);
	i = (long)fork();
	if (i < 0)
		return((long)(-errno));
	return(i);
}
Commit	Line	Data
a918866c DW	1	/*
	2	char id_fork[] = "@(#)fork_.c 1.1";
	3	*
	4	* fork a copy of this process
	5	*
	6	* calling sequence:
	7	* integer fork
	8	* ierror = fork()
	9	* where:
	10	* ierror will be - child pid if parent and successful
	11	* - 0 if child
	12	* - -errno if unsuccessful
	13	*/
	14
	15	#include "../libI77/fiodefs.h"
	16
	17	extern int errno;
	18
	19	long fork_()
	20	{
	21	long i;
	22
	23	for (i = 0; i < MXUNIT; i++)
	24	flush_(&i);
	25	i = (long)fork();
	26	if (i < 0)
	27	return((long)(-errno));
	28	return(i);
	29	}