callinterf.c File Reference

#include <setjmp.h>
#include <stdio.h>
#include <ctype.h>
#include <signal.h>
#include "machine.h"
#include "sciprint.h"
#include "Scierror.h"
#include "csignal.h"
#include "addinter.h"
#include "Os_specific.h"
#include "callinterf.h"

Include dependency graph for callinterf.c:

Go to the source code of this file.

Data Structures
struct	OpTab
Functions
int	C2F (error)
void C2F()	NoPvm (void)
void C2F()	Nogw_scicos (void)
void C2F()	Nogw_cscicos (void)
void C2F()	Nogw_slicot (void)
int C2F()	callinterf (int *k, int *iflagint)
static void	sci_sigint_addinter (int n)
int Blas_contents	__PARAMS ((int))
int	ForceLink (void)
void	errjump (int n)
Variables
static jmp_buf	jmp_env
static int	sig_ok = 0

---

Function Documentation

int Blas_contents __PARAMS

(

(int)

)

int C2F

(

error

)

Definition at line 21 of file callinterf.c.

References C2F, error, and sciprint().

{
  sciprint("TclSci interface not loaded \n");
  C2F(error)(&c_local_interf);
  return;
}

Here is the call graph for this function:

int C2F() callinterf	(	int *	k,
		int *	iflagint
	)

Definition at line 91 of file callinterf.c.

References C2F, controlC_handler(), count, DynInterfStart, Interfaces, jmp_env, sci_sigint_addinter(), sig_ok, and userlk().

Referenced by scibuiltin(), scifunction(), scirun(), and syncexec().

{
  int returned_from_longjump ;
  static int count = 0;
  if ( count == 0) 
    {
      if (sig_ok) signal(SIGINT,sci_sigint_addinter);
      if (( returned_from_longjump = setjmp(jmp_env)) != 0 )
        {
          if (sig_ok) signal(SIGINT, controlC_handler);
          Scierror(999,"SIGSTP: aborting current computation\r\n");
          count = 0;
          return 0;
        }
    }
  count++;
  if (*k > DynInterfStart) 
    C2F(userlk)(k);
  else
    (*(Interfaces[*k-1].fonc))();
  count--;
  if (count == 0) { 
    if (sig_ok) signal(SIGINT, controlC_handler);
  }
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void errjump

(

int

n

)

Definition at line 163 of file callinterf.c.

References jmp_env.

Referenced by mexerrmsgtxt(), mexErrMsgTxt(), mexEvalString(), and sci_sigint_addinter().

{
  longjmp(jmp_env,-1); 
}

Here is the caller graph for this function:

int ForceLink

(

void

)

Definition at line 143 of file callinterf.c.

{
        /*  
                commented for test purpose by Sylvestre (no sure it is mandatory
Blas_contents(0);
  Lapack_contents(0);
  Calelm_contents(0);
  Sun_contents(0);
  System2_contents(0);
  System_contents(0);
  Intersci_contents(0);
  Sparse_contents(0);*/
  return 0;
}

void C2F() Nogw_cscicos

(

void

)

Definition at line 60 of file callinterf.c.

References C2F, error, and sciprint().

{
        sciprint("scicos interfaces not loaded \n");
        C2F(error)(&c_local_interf);
        return;
}

Here is the call graph for this function:

void C2F() Nogw_scicos

(

void

)

Definition at line 53 of file callinterf.c.

References C2F, error, and sciprint().

{
        sciprint("scicos interfaces not loaded \n");
        C2F(error)(&c_local_interf);
        return;
}

Here is the call graph for this function:

void C2F() Nogw_slicot

(

void

)

Definition at line 68 of file callinterf.c.

References C2F, error, and sciprint().

{
        sciprint("Slicot interfaces not loaded \n");
        C2F(error)(&c_local_interf);
        return;
}

Here is the call graph for this function:

void C2F() NoPvm

(

void

)

Definition at line 46 of file callinterf.c.

References C2F, error, and sciprint().

{
  sciprint("pvm interface not loaded \n");
  C2F(error)(&c_local_interf);
  return;
}

Here is the call graph for this function:

static void sci_sigint_addinter

(

int

n

)

[static]

Definition at line 118 of file callinterf.c.

References errjump(), and sciprint().

Referenced by callinterf().

{
  int c;
  sciprint("Trying to stop scilab in the middle of an interface\n");
  sciprint("Do you really want to abort computation (y n  ?) ");
  c = getchar();
  if ( c == 'y' ) errjump(n);
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

jmp_buf jmp_env [static]

Definition at line 19 of file callinterf.c.

Referenced by callinterf(), and errjump().

int sig_ok = 0 [static]

Definition at line 89 of file callinterf.c.

Referenced by callinterf().

---