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

/* f77 interface to system routine */

system_(s, n)
register char *s;
long int n;
{
char buff[1000];
register char *bp, *blast;

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

for(bp = buff ; bp<blast && *s!='\0' ; )
	*bp++ = *s++;
*bp = '\0';
system(buff);
}
Commit	Line	Data
15eea6e6 BJ	1	/* f77 interface to system routine */
	2
	3	system_(s, n)
	4	register char *s;
	5	long int n;
	6	{
	7	char buff[1000];
	8	register char bp, blast;
	9
	10	blast = buff + (n<1000 ? n : 1000L);
	11
	12	for(bp = buff ; bp<blast && *s!='\0' ; )
	13	bp++ = s++;
	14	*bp = '\0';
	15	system(buff);
	16	}