usr/src/usr.bin/f77/libU77/system_.c

/*
char id_system[] = "@(#)system_.c       1.3";
 *
 * execute a unix command
 *
 * calling sequence:
 *      iexit = system(command)
 * where:
 *      iexit will return the exit status of the command
 *      command is a character string containing the command to be executed
 */

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


long system_(s, n)
char *s;
long n;
{
        char buf[256];
        int i;

        if (n >= sizeof buf)
                return(-(long)(errno=F_ERARG));
        for (i = 0; i < MXUNIT; flush(i++)) ;
        g_char(s, n, buf);
        return((long)system(buf));
}