realmain.h File Reference

#include <signal.h>
#include <stdio.h>
#include <string.h>
#include "machine.h"
#include "stack-c.h"
#include "version.h"

Include dependency graph for realmain.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
void	realmain (int nowin, int no_startup_flag, char *initial_script, int initial_script_type, int memory)
int	Get_no_startup_flag (void)
void	Set_no_startup_flag (int start)
char **	create_argv (int *argc)

---

Function Documentation

char** create_argv

(

int *

argc

)

Definition at line 176 of file realmain.c.

Referenced by realmain().

{
  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 caller 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:

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

Definition at line 39 of file realmain.c.

Referenced by sci_windows_main().

{
  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 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:

---