ctrlc.c

Go to the documentation of this file.

#ifndef VMS

#include "sic_comm.h"
#include "controlc.h"

#include "ctrlc.h"

static void ctrlc_handler( int signum)
{
    set_ctrlc( );
    return;
}

void *CFC_API trap_ctrlc( void)
{
    signal( SIGINT, ctrlc_handler);
    sic_set_ctrlc_handled( 1);
    return ((void *)0);
}

void *CFC_API no_ctrlc( void)
{
    signal( SIGINT, SIG_IGN);
    sic_set_ctrlc_handled( 0);
    return ((void *)0);
}

#else /* VMS */

/* on fait rien c'est deja programme en fortran VMS */

#endif /* VMS */

---