/*!
 * \file gis/system.c
 *
 * \brief GIS Library - Command execution functions.
 *
 * (C) 2001-2009 by the GRASS Development Team
 *
 * This program is free software under the GNU General Public License
 * (>=v2). Read the file COPYING that comes with GRASS for details.
 *
 * \author Original author CERL
 */

#include <grass/config.h>
#include <stdlib.h>
#include <unistd.h>
#include <signal.h>
#include <stdio.h>
#include <sys/types.h>
#ifndef __MINGW32__
#include <sys/wait.h>
#endif
#include <grass/gis.h>
#include <grass/glocale.h>


/*!
 * \brief Run a shell level command.
 *
 * This is essentially the UNIX <i>system()</i> call, except for the 
 * signal handling. During the call, user generated signals (intr, quit)
 * for the parent are ignored, but allowed for the child. Parent
 * signals are reset upon completion.<br>
 *
 * This routine is useful for menu type programs that need to run
 * external commands and allow these commands to be interrupted by
 * the user without killing the menu itself.<br>
 *
 * <b>Note:</b> if you want the signal settings to be the same for the
 * parent and the command being run, set them yourself and use
 * the UNIX <i>system()</i> call instead.
 *
 * \param command
 *
 * \return -1 on error
 * \return status on success
 */
int G_system(const char *command)
{
    int status;

#ifndef __MINGW32__
    int pid, w;
#endif
    RETSIGTYPE(*sigint) ();
#ifdef SIGQUIT
    RETSIGTYPE(*sigquit) ();
#endif

    sigint = signal(SIGINT, SIG_IGN);
#ifdef SIGQUIT
    sigquit = signal(SIGQUIT, SIG_IGN);
#endif

    fflush(stdout);
    fflush(stderr);

#ifdef __MINGW32__
    signal(SIGINT, SIG_DFL);
    _spawnlp(P_WAIT, "cmd.exe", "cmd.exe", "/c", command, NULL);
    status = 0;
#else
    if ((pid = fork()) == 0) {
	signal(SIGINT, SIG_DFL);
	signal(SIGQUIT, SIG_DFL);

	execl("/bin/sh", "sh", "-c", command, NULL);
	_exit(127);
    }

    if (pid < 0) {
	G_warning(_("Unable to create a new process!"));
	status = -1;
    }
    else {
	while ((w = wait(&status)) != pid && w != -1) ;

	if (w == -1)
	    status = -1;
    }

#endif

    signal(SIGINT, sigint);
#ifdef SIGQUIT
    signal(SIGQUIT, sigquit);
#endif

    return (status);
}