4.4BSD/usr/src/usr.bin/f77/libF77/CCI/system_.c

Compare this file to the similar file:
Show the results in this format: 

/*-
 * Copyright (c) 1991 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Computer Consoles Inc.
 *
 * This module is believed to contain source code proprietary to AT&T.
 * Use and redistribution is subject to the Berkeley Software License
 * Agreement and your Software Agreement with AT&T (Western Electric).
 */

#ifndef lint
static char sccsid[] = "@(#)system_.c	5.2 (Berkeley) 4/12/91";
#endif /* not lint */

/* f77 interface to system routine */

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

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

for(bp = buff ; bp<blast && *s!='\0' ; )
	*bp++ = *s++;
*bp = '\0';
system(buff);
}