xscion.c

Go to the documentation of this file.

/*-----------------------------------------------------------------------------------*/
/* INRIA 2006 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/ 
#include "xscion.h"
/*-----------------------------------------------------------------------------------*/ 
int INXscilab=0;
/*-----------------------------------------------------------------------------------*/ 
#ifdef _MSC_VER
        extern void switch_rlgets (int i);
#endif
/*-----------------------------------------------------------------------------------*/ 
int C2F(xscion) (int *i)
{
  *i = INXscilab;
  return (0);
}
/*-----------------------------------------------------------------------------------*/ 
void SetXsciOn(void)
{
        #ifdef _MSC_VER
         switch_rlgets (1);
        #endif
        INXscilab = 1;
}
/*-----------------------------------------------------------------------------------*/ 
int getINXscilab(void)
{
        return INXscilab;
}
/*-----------------------------------------------------------------------------------*/ 

---