[unix-history] / lib / libF77 / system_.c

/* f77 interface to system routine */

#include "f2c.h"

#ifdef KR_headers
system_(s, n) register char *s; ftnlen n;
#else
#undef abs
#include "stdlib.h"
system_(register char *s, ftnlen n)
#endif
{
char buff[1000];
register char *bp, *blast;

blast = buff + (n < 1000 ? n : 1000);

for(bp = buff ; bp<blast && *s!='\0' ; )
	*bp++ = *s++;
*bp = '\0';
return system(buff);
}
Commit	Line	Data
547779a8 WH	1	/* f77 interface to system routine */
	2
	3	#include "f2c.h"
	4
	5	#ifdef KR_headers
	6	system_(s, n) register char *s; ftnlen n;
	7	#else
	8	#undef abs
	9	#include "stdlib.h"
	10	system_(register char *s, ftnlen n)
	11	#endif
	12	{
	13	char buff[1000];
	14	register char bp, blast;
	15
	16	blast = buff + (n < 1000 ? n : 1000);
	17
	18	for(bp = buff ; bp<blast && *s!='\0' ; )
	19	bp++ = s++;
	20	*bp = '\0';
	21	return system(buff);
	22	}