fork.c

Go to the documentation of this file.

#include <stdlib.h>
#include <signal.h>
#ifndef WIN32
#include <unistd.h>
#endif /* WIN32 */

#include "cfc.h"

/* Define Fortran names */
#define create_mosaic CFC_EXPORT_NAME( create_mosaic)
#define wake_mosaic CFC_EXPORT_NAME( wake_mosaic)
#define kill_mosaic CFC_EXPORT_NAME( kill_mosaic)
#define search_mosaic CFC_EXPORT_NAME( search_mosaic)

int CFC_API create_mosaic( int *mosaic, CFC_FzString home)
{
        int pid = 0;

#ifndef WIN32
        if ((pid = fork( )) == 0) {
                execl( "/usr/local/bin/mosaic", "mosaic", "-home", CFC_fz2c_string( home), NULL);
                exit( 127);
        }
#endif
        *mosaic = pid;
        return 0;                                       /* return statement needed (DB) */
}

int CFC_API wake_mosaic( int *mosaic)
{
#ifndef WIN32
        return kill( *mosaic, SIGUSR1);
#else
    return 1;
#endif
}

int CFC_API kill_mosaic( int *mosaic)
{
#ifndef WIN32
        return kill( *mosaic, SIGKILL);
#else
    return 1;
#endif
}

int CFC_API search_mosaic( int *task)
{
#ifndef WIN32
        return kill( *task, 0);
#else
    return 1;
#endif
}

---