realmain.c File Reference

#include "realmain.h"
#include "MALLOC.h"
#include "sciprint.h"
#include "xscion.h"
#include "getarg.h"
#include "inffic.h"
#include "scirun.h"
#include "sciquit.h"

Include dependency graph for realmain.c:

Go to the source code of this file.

Defines
#define	BSIZE   128
#define	PATH_MAX   1024
Functions
void C2F()	settmpdir (void)
void	sci_clear_and_exit (int n)
int C2F()	inisci (int *, int *, int *)
void	sci_usr1_signal (int n)
int	IsNoInteractiveWindow (void)
void	InitXsession (void)
void	main_sci (int argc, char **argv, char *startup, int lstartup, int memory)
static void	strip_blank (char *source)
void	realmain (int nowin, int no_startup_flag_l, char *initial_script, int initial_script_type, int memory)
void	Set_no_startup_flag (int start)
int	Get_no_startup_flag (void)
char **	create_argv (int *argc)
Variables
static int	no_startup_flag = 0

---

Define Documentation

#define BSIZE   128

Definition at line 34 of file realmain.c.

Referenced by create_argv().

#define PATH_MAX   1024

Definition at line 36 of file realmain.c.

Referenced by DoChangeDir(), InitCheckBIN(), InitCheckCOS(), InitCheckCOSF(), InitCheckDEM(), InitCheckGRAPH(), InitCheckGRAPHB(), InitCheckSAV(), InitCheckSCE(), InitCheckSCI(), InitCheckTST(), IsDirectory(), ok_prep(), realmain(), SetDir(), SetSci(), settmpdir(), XmuCvtStringToCursor(), and XmuLocatePixmapFile().

---

Function Documentation

char** create_argv

(

int *

argc

)

Definition at line 176 of file realmain.c.

References BSIZE, buf, C2F, i, malloc(), NULL, scigetarg(), sciiargc(), and strip_blank().

{
  int i;
  char **argv;
  *argc = C2F(sciiargc)() + 1;
  if ( ( argv = malloc((*argc)*sizeof(char *))) == NULL) return NULL;
  for ( i=0 ; i < *argc ; i++) 
    {
      char buf[BSIZE];
      C2F(scigetarg)(&i,buf,BSIZE);
      buf[BSIZE-1]='\0';
      strip_blank(buf);
      argv[i] = malloc((strlen(buf)+1)*sizeof(char));
      if ( argv[i] == NULL) return NULL;
      strcpy(argv[i],buf);
    }
  return argv;
}

Here is the call graph for this function:

int Get_no_startup_flag

(

void

)

Definition at line 170 of file realmain.c.

References no_startup_flag.

Referenced by TerminateCorePart1().

{
        return no_startup_flag;
}

Here is the caller graph for this function:

int C2F() inisci	(	int *	,
		int *	,
		int *
	)

void InitXsession

(

void

)

Definition at line 615 of file x_main.c.

References app_flush(), DisplayInit(), and dpy.

Referenced by realmain().

{ 
        static Display *dpy = (Display *) NULL;
        static  Widget toplevel1;
        int i=0;
        
        DisplayInit("",&dpy,&toplevel1);
        for (i=0;i<1000;i++) app_flush(); /* force to empty X event loop */
        XSync(dpy,0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int IsNoInteractiveWindow

(

void

)

Definition at line 610 of file x_main.c.

References nointeractive.

Referenced by realmain().

{
        return nointeractive;
}

Here is the caller graph for this function:

void main_sci	(	int	argc,
		char **	argv,
		char *	startup,
		int	lstartup,
		int	memory
	)

Definition at line 396 of file x_main.c.

Referenced by C2F(), and realmain().

{
  XtermWidget CreateSubWindows();
  register TScreen *screen;
  register int  pty;
  int Xsocket;
  /* Init the Toolkit. */
  realToplevel = toplevel = 
    XtAppInitialize(&app_con, "Xscilab", 
                    optionDescList, XtNumber(optionDescList), 
                    &argc, argv, fallback_resources, 
                    (ArgList) 0,(Cardinal) 0);                               
  XtGetApplicationResources(toplevel, (XtPointer) &resource,
                            application_resources,
                            XtNumber(application_resources), 
                            (ArgList) 0,(Cardinal) 0);
  XtAppAddActions(app_con, actionProcs, XtNumber(actionProcs));
  toplevel =   initColors(realToplevel);
   /* SetXsciOn();  */ /*Already done in realmain */
  xterm_name = resource.xterm_name;
  if (strcmp(xterm_name, "-") == 0) xterm_name = "xterm";
  XtSetValues (toplevel, ourTopLevelShellArgs,
               (Cardinal)  number_ourTopLevelShellArgs);
  /* Parse the rest of the command line 
   * the arguments parsed by XtAppInitialize must be the last ones 
   * and here we can check that arguments belong to options 
   * this is to be updated 
   */
  /* 
  for (argc--, argv++ ; argc > 0 ; argc--, argv++) 
    {
      if(**argv != '-') Syntax (*argv);
      switch(argv[0][1]) {
      case 'h':
        Help ();      break;
        / * NOTREACHED * /
      default:
        Syntax (*argv);
      }
    }
  */
  XawSimpleMenuAddGlobalActions (app_con);
  XtRegisterGrabAction (HandlePopupMenu, True,
                        (ButtonPressMask|ButtonReleaseMask),
                        GrabModeAsync, GrabModeAsync);
  term = CreateSubWindows(toplevel);
  screen = &term->screen;
  if (screen->savelines < 0) screen->savelines = 0;
  term->flags = 0;
  if (!screen->jumpscroll) {
    term->flags |= SMOOTHSCROLL;
    update_jumpscroll();
  }
  if (term->misc.reverseWrap) {
    term->flags |= REVERSEWRAP;
    update_reversewrap();
  }
  if (term->misc.autoWrap) {
    term->flags |= WRAPAROUND;
    update_autowrap();
  }
  if (term->misc.re_verse) {
    term->flags |= REVERSE_VIDEO;
    update_reversevideo();
  }
  
  term->initflags = term->flags;
  
  if (term->misc.appcursorDefault) {
    term->keyboard.flags |= CURSOR_APL;
    update_appcursor();
  }
  
  if (term->misc.appkeypadDefault) {
    term->keyboard.flags |= KYPD_APL;
    update_appkeypad();
  }
  
  /* open a terminal for client */
  screen->arrow = make_colored_cursor (XC_left_ptr, 
                                       screen->mousecolor,
                                       screen->mousecolorback);
  /* avoid double MapWindow requests */
  XtSetMappedWhenManaged( XtParent(term), False );
  wm_delete_window = XInternAtom(XtDisplay(realToplevel),"WM_DELETE_WINDOW",False);
  VTInit1(realToplevel);
  Xsocket = ConnectionNumber(screen->display);
  pty = screen->respond;
  pty_mask = 1 << pty;
  X_mask = 1 << Xsocket;
  Select_mask = pty_mask | X_mask;
  max_plus1 = (pty < Xsocket) ? (1 + Xsocket) : (1 + pty); 
  XSetErrorHandler((XErrorHandler)xerror);
  XSetIOErrorHandler((XIOErrorHandler)xioerror);
  /* initialize xterm and run scilab  */
  VTRun(startup,lstartup,memory);

}

Here is the caller graph for this function:

void realmain	(	int	nowin,
		int	no_startup_flag_l,
		char *	initial_script,
		int	initial_script_type,
		int	memory
	)

Definition at line 39 of file realmain.c.

References C2F, create_argv(), ExceptionMessage(), FREE, get_sci_data_strings(), ierr, inisci(), InitXsession(), IsNoInteractiveWindow(), main_sci(), MALLOC, NULL, PATH_MAX, sci_clear_and_exit(), sci_exit(), sci_usr1_signal(), sciquit(), scirun(), Set_no_startup_flag(), settmpdir(), SetXsciOn(), SIGHUP, and SIGQUIT.

{
  static int ini=-1;
  int ierr=0;
  char *startup=(char*)MALLOC(sizeof(char)*PATH_MAX+1);
          //[256];

  Set_no_startup_flag(no_startup_flag_l);

  /* create temp directory */
  C2F(settmpdir)();
  /* signals */
  #ifdef ENABLESIG
  signal(SIGINT,sci_clear_and_exit);
  #ifdef SIGBUS
  signal(SIGBUS,sci_clear_and_exit);
  #endif
  signal(SIGSEGV,sci_clear_and_exit);
  #if SIGQUIT
  signal(SIGQUIT,sci_clear_and_exit);
  #endif
  #ifdef SIGHUP
  signal(SIGHUP,sci_clear_and_exit);
  #endif
  #ifdef SIGUSR1
  signal(SIGUSR1,sci_usr1_signal);
  #endif

  #ifdef _MSC_VER
  signal(SIGILL,sci_clear_and_exit);
  signal(SIGFPE,sci_clear_and_exit);
  signal(SIGTERM,sci_clear_and_exit);
  signal(SIGBREAK,sci_clear_and_exit);
  signal(SIGABRT,sci_clear_and_exit);
  #endif
  #endif

  /*  prepare startup script  */

  if ( no_startup_flag_l == 0) 
  {
        /* execute a startup */
    if ( initial_script != NULL ) switch ( initial_script_type ) 
        {
                case 0 : 
                        sprintf(startup,"%s;exec('%s',-1)",get_sci_data_strings(1),initial_script);
                break;
                case 1 : 
                        sprintf(startup,"%s;%s;",get_sci_data_strings(1),initial_script);
                break;
        }
    else sprintf(startup,"%s;",get_sci_data_strings(1));
  }
  else 
  {
        /* No startup but maybe an initial script  */
    if ( initial_script != NULL ) switch ( initial_script_type ) 
        {
            case 0 : 
              sprintf(startup,"exec('%s',-1)",initial_script); break;
            case 1 : 
              sprintf(startup,"%s;",initial_script);   break;
        }
    else sprintf(startup," ");
  }

  #ifndef _MSC_VER
  if ( nowin == 0 ) 
    {
      int argc=0;
      char **argv=NULL;

      argv = create_argv(&argc);

      /* we are in window mode */
      SetXsciOn();
      main_sci(argc,argv,startup,strlen(startup),memory);
    }
  else 
    {
        if (! IsNoInteractiveWindow() )
        {
                InitXsession();
        }
      /* initialize scilab interp  */
      C2F(inisci)(&ini, &memory, &ierr);
      if (ierr > 0) sci_exit(1) ;
      /* execute the initial script and enter scilab */ 
      C2F(scirun)(startup,strlen(startup));
    }
  #else
        /* initialize scilab interp  */
        C2F(inisci)(&ini, &memory, &ierr);
        if (ierr > 0) sci_exit(1) ;

        /* execute the initial script and enter scilab */ 
        #ifndef _DEBUG
        _try
        {
                C2F(scirun)(startup,strlen(startup));
        }
        _except (EXCEPTION_EXECUTE_HANDLER) 
        {
                Rerun:
                {
                        ExceptionMessage(GetExceptionCode(),NULL);
                }
                _try
                {
                        C2F(scirun)("",strlen(""));
                }
                _except (EXCEPTION_EXECUTE_HANDLER) 
                {
                        goto Rerun;
                }

        }
        #else
                C2F(scirun)(startup,strlen(startup));
        #endif
  #endif
  FREE(startup);
  /* cleaning */
  C2F(sciquit)();
}

Here is the call graph for this function:

void sci_clear_and_exit

(

int

n

)

Definition at line 534 of file x_main.c.

References C2F, and sciquit().

Referenced by Cleanup(), DeleteWindow(), Do_Kill(), realmain(), test_quit(), VTRealize(), and xioerror().

{
   C2F(sciquit)();
}

Here is the call graph for this function:

Here is the caller graph for this function:

void sci_usr1_signal

(

int

n

)

usr1 signal : used to transmit a Control C to scilab

Definition at line 544 of file x_main.c.

References controlC_handler().

Referenced by realmain().

{
   controlC_handler(n);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void Set_no_startup_flag

(

int

start

)

Definition at line 165 of file realmain.c.

References no_startup_flag.

Referenced by realmain().

{
        no_startup_flag=start;
}

Here is the caller graph for this function:

void C2F() settmpdir

(

void

)

creates a tmp dir for a scilab session and fixes the TMPDIR env variable

Definition at line 38 of file tmpdir.c.

References buf, CreateDir(), FALSE, first, getpid(), NULL, PATH_MAX, putenv, and tmp_dir.

{
#ifdef _MSC_VER
        #define PATH_MAX 1024
        char TmpDirDefault[PATH_MAX];
#endif
  static int first =0;
  if ( first == 0 ) 
    {
      first++;
#ifdef _MSC_VER 
          if (!GetTempPath(PATH_MAX,TmpDirDefault))
          {
                  MessageBox(NULL,"Don''t find Windows temporary directory","Error",MB_ICONERROR);
                  exit(1);
          }
          else
          {
                  sprintf(tmp_dir,"%sSCI_TMP_%d_",TmpDirDefault,(int) _getpid());
          }

          if ( CreateDirectory(tmp_dir,NULL)==FALSE)
      {
                DWORD attribs=GetFileAttributes (tmp_dir); 

                if (attribs & FILE_ATTRIBUTE_DIRECTORY)
                {
                  // Repertoire existant
                }
                else
                {
                  #ifdef _DEBUG
                  char MsgErr[1024];
                  wsprintf(MsgErr,"Impossible to create : %s",tmp_dir);
                  MessageBox(NULL,MsgErr,"Error",MB_ICONERROR);
                  exit(1);
                  #else
                  GetTempPath(PATH_MAX,TmpDirDefault);
                  sprintf(tmp_dir,"%s",TmpDirDefault);
                  tmp_dir[strlen(tmp_dir)-1]='\0'; /* Remove last \ */
                  #endif
                }
  }
#else 
  sprintf(tmp_dir,"/tmp/SD_%d_",(int) getpid());
  CreateDir(tmp_dir) ;
#endif 
  sprintf(buf,"TMPDIR=%s",tmp_dir);
  putenv(buf);
    }
}

Here is the call graph for this function:

static void strip_blank

(

char *

source

)

[static]

Definition at line 196 of file realmain.c.

References p.

Referenced by create_argv().

{
  char *p;
  p = source;
  /* look for end of string */
  while(*p != '\0') p++;
  while(p != source)
  {
    p--;
    if(*p != ' ') break;
    *p = '\0';
  }
}

Here is the caller graph for this function:

---

Variable Documentation

int no_startup_flag = 0 [static]

Definition at line 32 of file realmain.c.

Referenced by Get_no_startup_flag(), and Set_no_startup_flag().

---