system_.c File Reference

#include "f2c.h"
#include "stdlib.h"

Include dependency graph for system_.c:

Go to the source code of this file.

Functions
char *	F77_aloc (ftnlen, char *)
integer	system_ (register char *s, ftnlen n)

---

Function Documentation

char* F77_aloc	(	ftnlen	,
		char *
	)

Definition at line 29 of file F77_aloc.c.

References exit_(), int, malloc(), and memfailure.

Referenced by getenv_(), s_cat(), and system_().

{
        char *rv;
        unsigned int uLen = (unsigned int) Len; /* for K&R C */

        if (!(rv = (char*)malloc(uLen))) {
                fprintf(stderr, "malloc(%u) failure in %s\n",
                        uLen, whence);
                exit_(&memfailure);
                }
        return rv;
        }

Here is the call graph for this function:

Here is the caller graph for this function:

integer system_	(	register char *	s,
		ftnlen	n
	)

Definition at line 21 of file system_.c.

References F77_aloc(), and free().

{
        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;
        }

Here is the call graph for this function:

---