mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-22 01:40:03 +08:00
4d85a6fea6
* libF77/*: Delete KR_headers cruft. * libI77/*: Likewise. * libU77/*: Likewise. From-SVN: r54132
30 lines
477 B
C
30 lines
477 B
C
/* f77 interface to system routine */
|
|
|
|
#include "f2c.h"
|
|
|
|
#undef abs
|
|
#undef min
|
|
#undef max
|
|
#include <stdlib.h>
|
|
extern char *F77_aloc(ftnlen, char*);
|
|
|
|
integer
|
|
G77_system_0 (register char *s, ftnlen n)
|
|
{
|
|
char buff0[256], *buff;
|
|
register char *bp, *blast;
|
|
integer rv;
|
|
|
|
buff = bp = n < sizeof(buff0)
|
|
? buff0 : F77_aloc(n+1, "system_");
|
|
blast = bp + n;
|
|
|
|
while(bp < blast && *s)
|
|
*bp++ = *s++;
|
|
*bp = 0;
|
|
rv = system(buff);
|
|
if (buff != buff0)
|
|
free(buff);
|
|
return rv;
|
|
}
|