/*
		    Language Independent Library

	    Copyright 1983-2004 Green Hills Software,Inc.

 *  This program is the property of Green Hills Software, Inc,
 *  its contents are proprietary information and no part of it
 *  is to be disclosed to anyone except employees of Green Hills
 *  Software, Inc., or as agreed in writing signed by the President
 *  of Green Hills Software, Inc.
*/
/* ind_syst.c: ANSI system() facility. */

#include "indos.h"

/* If an external ANSI-compliant libc.a is available, it will have system() */
#if !defined(LIBCISANSI)

/******************************************************************************/
/*  int system(const char *string)					      */
/*  Execute the command pointed to by "string" as if it had been typed in at  */
/*  the terminal.							      */
/*  Return the status returned by the process.  A status of 0 is returned if  */
/*  the operation succeeds.  The operation is system implementation dependent */
/*  It may have no effect.						      */
/******************************************************************************/
int system(const char *string) {
#if defined(ANYUNIX) || defined(MSW)
# if defined(ANYBSD)
#  define fork vfork
# endif
/* Under unix there is a system function which is almost right but not quite */
    extern int fork();
    int status, pid;

    if (string == NULL)        /* indicate that we can do the system function */
	return(1);
/* probably should protect parent by ignoring SIGINT, ... */
    if ((pid = fork()) == -1)
	return(EXIT_FAILURE);
    else if (pid == 0) {               /* in the child */
	extern char **environ;
	char *argv[4];
	argv[0] = "sh";
	argv[1] = "-c";
	argv[2] = (char *) string;
	argv[3] = 0;
#ifdef MSW
	execve("~bin/sh", argv, environ);
#else
	execve("/bin/sh", argv, environ);
#endif
	_Exit(EXIT_FAILURE);
    }
    /* wait can return -1, return an error */
    while (wait(&status) != pid);
    return(status);
#elif defined(EMBEDDED)
#pragma ghs nowarning 1547	/* Syscall prototypes might not match */
    return (string) ? __ghs_syscall(SYSCALL_SYSTEM, string) : (1);
#pragma ghs endnowarning 1547
#else
    /* If no other implementation provided, minimal compliance */
    return(0);                      /* no system access */
#endif
}
#endif /* !LIBCISANSI */