x_main.c File Reference

#include <pwd.h>
#include <ctype.h>
#include <sys/ioctl.h>
#include <sys/stat.h>
#include <string.h>
#include <stdio.h>
#include <errno.h>
#include "x_ptyxP.h"
#include "x_data.h"
#include "x_error.h"
#include "x_menu.h"
#include <X11/StringDefs.h>
#include <X11/Shell.h>
#include <X11/Xaw3d/Form.h>
#include <X11/Xos.h>
#include <X11/cursorfont.h>
#include <X11/Xaw3d/SimpleMenu.h>
#include "machine.h"
#include "math.h"
#include "version.h"
#include "realmain.h"
#include "scimem.h"
#include "getarg.h"
#include "DestroyObjects.h"
#include "periScreen.h"
#include "All-extern-x.h"
#include "All-extern.h"
#include <sys/resource.h>
#include <sys/param.h>
#include <unistd.h>
#include <stdlib.h>
#include "Xscilab.ad.h"

Include dependency graph for x_main.c:

Go to the source code of this file.

Data Structures
struct	_resource
struct	_color
struct	_options
Defines
#define	MIN_STACKSIZE   180000
#define	offset(field)   XtOffsetOf(struct _resource, field)
#define	ADDTOPLEVEL(NAME)
Functions
void	controlC_handler (int n)
void	sci_clear_and_exit (int)
char *	strindex (register char *s1, register char *s2)
void	do_hangup (void)
void	do_kill (Widget gw, caddr_t closure, caddr_t data)
void	sci_usr1_signal (int n)
char **	create_argv (int *argc)
void	settexmacs (void)
void	SetWITH_GUI (BOOL)
int	IsNoInteractiveWindow (void)
void	sci_sig_tstp (int n)
int	IsConsoleMode (void)
void	InitXsession (void)
void C2F()	mainscic (void)
void	DeleteWindow (Widget w, XEvent *event, String *params, Cardinal *num_params)
void	KeyboardMapping (Widget w, XEvent *event, String *params, Cardinal *num_params)
int	Xscilab (Display **dpy, Widget *topwid)
Widget	initColors (Widget realToplevel_w)
void	main_sci (int argc, char **argv, char *startup, int lstartup, int memory)
int	GetBytesAvailable (int fd)
int	kill_process_group (int pid, int sig)
static void	Syntax (char *badOption)
Variables
char *	ProgramName
int	sci_show_banner = 1
static int	no_window = 0
static int	nointeractive = 0
Boolean	sunFunctionKeys = False
static struct _resource	resource
XtResource	application_resources []
XtResource	app_colors []
static char *	fallback_resources []
static XrmOptionDescRec	optionDescList []
static struct _options	options []
WidgetClass	xtermWidgetClass
Arg	ourTopLevelShellArgs []
int	number_ourTopLevelShellArgs = 2
XtAppContext	app_con
Widget	toplevel = (Widget) NULL
Widget	realToplevel = (Widget) NULL
static XtActionsRec	actionProcs []
Atom	wm_delete_window

---

Define Documentation

#define ADDTOPLEVEL

(

NAME

)

Value:

toplevel_w = XtCreateManagedWidget(NAME,formWidgetClass, \
                                         realToplevel_w,(ArgList)0 ,(Cardinal)0);

initColors: To allow resources to be specified separately for color and mono displays, we add a dummy Form widget below realToplevel in appropriate circumstances.

Definition at line 329 of file x_main.c.

Referenced by initColors().

#define MIN_STACKSIZE   180000

mainsci.f directly call this function thus this is the real main for scilab Copyright Inria/Enpc

Definition at line 114 of file x_main.c.

#define offset

(

field

)

XtOffsetOf(struct _resource, field)

Definition at line 197 of file x_main.c.

---

Function Documentation

void controlC_handler

(

int

n

)

TODO : comment

Parameters:

sig

Definition at line 8 of file csignal.c.

References C2F, j, and sigbas().

Referenced by callinterf(), csignal(), and sci_usr1_signal().

{
  int j = SIGINT;
  C2F(sigbas)(&j);
}

Here is the call graph for this function:

Here is the caller graph for this function:

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:

void DeleteWindow	(	Widget	w,
		XEvent *	event,
		String *	params,
		Cardinal *	num_params
	)

DeleteWindow(): Action proc to implement ICCCM delete_window.

Definition at line 280 of file x_main.c.

References sci_clear_and_exit().

{
 sci_clear_and_exit(0); 
}

Here is the call graph for this function:

void do_hangup

(

void

)

void do_kill	(	Widget	gw,
		caddr_t	closure,
		caddr_t	data
	)

Definition at line 305 of file x_menu.c.

References handle_send_signal().

{
    handle_send_signal (gw, SIGKILL);
}

Here is the call graph for this function:

int GetBytesAvailable

(

int

fd

)

Definition at line 519 of file x_main.c.

Referenced by Bell(), and Xputchar().

{
#ifdef FIONREAD
    static long arg;
    ioctl (fd, FIONREAD, (char *) &arg);
    return (int) arg;
#else
    struct pollfd pollfds[1];
    pollfds[0].fd = fd;
    pollfds[0].events = POLLIN;
    return poll (pollfds, 1, 0);
#endif
}

Here is the caller graph for this function:

Widget initColors

(

Widget

realToplevel_w

)

Definition at line 335 of file x_main.c.

References ADDTOPLEVEL, C2F, resource, setcolordef(), visual, _resource::visualType, and xscion().

Referenced by AddNewWin(), main_sci(), and ShellFormCreate().

{
  int i;
  Widget toplevel_w ;
  Screen *Xscreen;
  Visual *visual;
  /* The default is no extra widget (ie. mono) */
  toplevel_w = realToplevel_w;
  Xscreen = XtScreen(realToplevel_w);
  C2F(xscion)(&i);/* is it a scilab -nw */
  if ( i != 0 ) 
    {
      /* If we are using a scilab -nw 
       *  resource.visualType == NULL
       *
       * See if the user has specified a type */
      if (strcmp(resource.visualType,"mono") == 0) {
        /* Ton van Overbeek patch 22/08/00 */
        return toplevel_w;
      } else if (strcmp(resource.visualType,"color") == 0) {
        ADDTOPLEVEL("color");
        /* Ton van Overbeek patch 22/08/00 */
        return toplevel_w;
      } else if (strcmp(resource.visualType,"gray") == 0) {
        ADDTOPLEVEL("gray");
        /* Ton van Overbeek patch 22/08/00 */
        return toplevel_w;
      }
    }
  /* Otherwise we try to figure it out */
  if ((visual=XDefaultVisualOfScreen(Xscreen)) == NULL) {
    fprintf(stderr,"Scilab: can't get info about visual!\n");
    return toplevel_w;
  }
  if (visual->map_entries > 2) {
    switch (visual->class) {
    case StaticColor:
    case PseudoColor:
    case TrueColor:
    case DirectColor:
      ADDTOPLEVEL("color");
      setcolordef(1) ;
      break;
    case StaticGray:
    case GrayScale:
      ADDTOPLEVEL("gray");
      setcolordef(0) ;
      break;
    default:
      setcolordef(0) ;
      toplevel_w = realToplevel_w;
    }
  } else {
      setcolordef(0) ;
      toplevel_w = realToplevel_w;
  }
  /* Ton van Overbeek patch 22/08/00 */
  return toplevel_w;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void InitXsession

(

void

)

int IsConsoleMode

(

void

)

V.C 04/2004 Function used to know if we are in window mode (returned value is 1) or in console mode (returned value is 0)

Definition at line 132 of file WinConsole.c.

{
        return (int)(!WindowMode);
}

int IsNoInteractiveWindow

(

void

)

Definition at line 609 of file winmain.c.

References nointeractive.

{
        return nointeractive;
}

void KeyboardMapping	(	Widget	w,
		XEvent *	event,
		String *	params,
		Cardinal *	num_params
	)

Definition at line 289 of file x_main.c.

{
    switch (event->type) {
       case MappingNotify:
          XRefreshKeyboardMapping(&event->xmapping);
          break;
    }
}

int kill_process_group	(	int	pid,
		int	sig
	)

Utility function to try to hide system differences from everybody who used to call killpg()

Definition at line 564 of file x_main.c.

Referenced by Cleanup(), and handle_send_signal().

{
    return kill (-pid, sig);
}

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.

References _Misc::appcursorDefault, _Misc::appkeypadDefault, TScreen::arrow, _Misc::autoWrap, CreateSubWindows(), CURSOR_APL, TScreen::display, _XtermWidgetRec::flags, TKeyboard::flags, HandlePopupMenu(), initColors(), _XtermWidgetRec::initflags, TScreen::jumpscroll, _XtermWidgetRec::keyboard, KYPD_APL, make_colored_cursor(), max_plus1, _XtermWidgetRec::misc, TScreen::mousecolor, TScreen::mousecolorback, pty_mask, _Misc::re_verse, resource, TScreen::respond, REVERSE_VIDEO, _Misc::reverseWrap, REVERSEWRAP, TScreen::savelines, _XtermWidgetRec::screen, Select_mask, SMOOTHSCROLL, term, update_appcursor, update_appkeypad, update_autowrap, update_jumpscroll, update_reversevideo, update_reversewrap, VTInit1(), VTRun(), WRAPAROUND, X_mask, XawSimpleMenuAddGlobalActions(), xerror(), xioerror(), Xsocket, and xterm_name.

{
  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 call graph for this function:

void C2F() mainscic

(

void

)

void sci_clear_and_exit

(

int

)

Definition at line 108 of file wtloop.c.

References C2F, Message(), MSG_ERROR20, MSG_ERROR59, MSG_ERROR60, MSG_ERROR61, MSG_ERROR62, MSG_ERROR63, MSG_ERROR64, MSG_ERROR65, MSG_ERROR66, NULL, and sciquit().

{
#ifdef _DEBUG
  char Message[256];
  switch (n)
  {
          case SIGINT:
                  wsprintf(Message,MSG_ERROR59);
                  break;
          case SIGILL:
                  wsprintf(Message,MSG_ERROR60);
                  break;
          case SIGFPE:
                  wsprintf(Message,MSG_ERROR61);
                  break;
          case SIGSEGV:
                  wsprintf(Message,MSG_ERROR62);
                  break;
          case SIGTERM:
                  wsprintf(Message,MSG_ERROR63);
                  break;
          case SIGBREAK:
                  wsprintf(Message,MSG_ERROR64);
                  break;
          case SIGABRT:
                  wsprintf(Message,MSG_ERROR65);
                  break;
          default:
                  wsprintf(Message,MSG_ERROR66);
                  break;
  }
  MessageBox(NULL,Message,MSG_ERROR20,MB_ICONWARNING);
#else
  /*MessageBox(NULL,MSG_WARNING30,MSG_WARNING22,MB_ICONWARNING);*/
#endif
  C2F(sciquit)();
}

Here is the call graph for this function:

void sci_sig_tstp

(

int

n

)

Ctrl-Z : stops the current computation or the current interface call

Definition at line 159 of file wtloop.c.

References MSG_ERROR67.

{
  Scierror(999,MSG_ERROR67);
}

void sci_usr1_signal

(

int

n

)

usr1 signal : used to transmit a Control C to scilab

Definition at line 150 of file wtloop.c.

References controlC_handler().

{
  controlC_handler(n);
}

Here is the call graph for this function:

void settexmacs

(

void

)

Definition at line 24 of file texmacs.c.

References texmacs_mode.

Referenced by Console_Main().

                  {
  texmacs_mode=1;
}

Here is the caller graph for this function:

void SetWITH_GUI

(

BOOL

)

Definition at line 292 of file inisci-c.c.

References FALSE, TRUE, and WITH_GUI.

{
        if ( (ON == FALSE) || (ON == TRUE) ) WITH_GUI=ON;
}

char* strindex	(	register char *	s1,
		register char *	s2
	)

Referenced by getString().

Here is the caller graph for this function:

static void Syntax

(

char *

badOption

)

[static]

Syntax

Definition at line 575 of file x_main.c.

References len, _options::opt, options, and ProgramName.

{
  struct _options *opt;
  int col;

  fprintf (stderr, "%s:  bad command line option \"%s\"\r\n\n",
           ProgramName, badOption);

  fprintf (stderr, "usage:  %s", ProgramName);
  col = 8 + strlen(ProgramName);
  for (opt = options; opt->opt; opt++) {
    int len = 3 + strlen(opt->opt);      /* space [ string ] */
    if (col + len > 79) {
      fprintf (stderr, "\r\n   ");  /* 3 spaces */
      col = 3;
    }
    fprintf (stderr, " [%s]", opt->opt);
    col += len;
  }

  fprintf (stderr, "\r\n\nType %s -help for a full description.\r\n\n",
           ProgramName);
  exit (1);
}

int Xscilab	(	Display **	dpy,
		Widget *	topwid
	)

used by scilab to know the dpy and toplevel

Definition at line 312 of file x_main.c.

Referenced by DisplayInit().

{
  *topwid=toplevel;
  if ( toplevel != (Widget) NULL) *dpy=XtDisplay(toplevel);
  return(1);
}

Here is the caller graph for this function:

---

Variable Documentation

XtActionsRec actionProcs[] [static]

Initial value:

 {
  {"DeleteWindow", DeleteWindow},
  {"SGDeleteWindow", SGDeleteWindow},
  {"KeyboardMapping", KeyboardMapping}
}

Definition at line 302 of file x_main.c.

XtResource app_colors[]

Initial value:

 {
  {"xscilab.color*Command.background", "Xscilab*Command.Background", 
     XtRString, sizeof(String),
     XtOffsetOf(struct _color, c1), NULL,NULL}
}

colors;

Definition at line 226 of file x_main.c.

XtAppContext app_con

Definition at line 272 of file x_main.c.

XtResource application_resources[]

Initial value:

 {
    {"noWindow", "NoWindow", XtRBoolean, sizeof(Boolean),
        offset(noWindow), XtRString, "false"},
    {"noStartup", "NoStartup",XtRBoolean, sizeof(Boolean),
        offset(noStartup), XtRString, "false"},
    {"termName", "TermName", XtRString, sizeof(char *),
        offset(term_name), XtRString, (caddr_t) NULL},
    {"name", "Name", XtRString, sizeof(char *),
        offset(xterm_name), XtRString, "xterm"},
    {"iconGeometry", "IconGeometry", XtRString, sizeof(char *),
        offset(icon_geometry), XtRString, (caddr_t) NULL},
    {XtNtitle, XtCTitle, XtRString, sizeof(char *),
        offset(title), XtRString, SCI_VERSION_STRING},
    {XtNiconName, XtCIconName, XtRString, sizeof(char *),
        offset(icon_name), XtRString, SCI_VERSION_STRING},
    {"ttyModes", "TtyModes", XtRString, sizeof(char *),
        offset(tty_modes), XtRString, (caddr_t) NULL},
    {"useInsertMode", "UseInsertMode", XtRBoolean, sizeof (Boolean),
        offset(useInsertMode), XtRString, "false"},
    {"visualType", "VisualType", XtRString, sizeof(String),
        offset(visualType), XtRImmediate, (XtPointer)"" }
}

Definition at line 199 of file x_main.c.

char* fallback_resources[] [static]

Initial value:

 {

    NULL
}

Definition at line 232 of file x_main.c.

int no_window = 0 [static]

Definition at line 116 of file x_main.c.

Referenced by IsConsoleMode().

int nointeractive = 0 [static]

Definition at line 117 of file x_main.c.

int number_ourTopLevelShellArgs = 2

Definition at line 270 of file x_main.c.

XrmOptionDescRec optionDescList[] [static]

Initial value:

 {
{"-geometry",   "*vtsci.geometry",XrmoptionSepArg,      (caddr_t) NULL},
{"-tm",         "*ttyModes",  XrmoptionSepArg,  (caddr_t) NULL},
{"-tn",         "*termName",  XrmoptionSepArg,  (caddr_t) NULL},
{"-nw",         "*noWindow",  XrmoptionNoArg,   (caddr_t) "on"},
{"-nwni",               "*noWindow",  XrmoptionNoArg,   (caddr_t) "on"},
{"-ns",         "*noStartup", XrmoptionNoArg,   (caddr_t) "on"},
}

Definition at line 240 of file x_main.c.

Referenced by DisplayInit().

struct _options options[] [static]

Arg ourTopLevelShellArgs[]

Initial value:

 {
  { XtNallowShellResize, (XtArgVal) TRUE },     
  { XtNinput, (XtArgVal) TRUE },
}

Definition at line 266 of file x_main.c.

char* ProgramName

Definition at line 94 of file x_main.c.

Referenced by set_character_class(), and Syntax().

Widget realToplevel = (Widget) NULL

Definition at line 274 of file x_main.c.

Referenced by set_scilab_icon().

struct _resource resource [static]

Referenced by initColors(), and main_sci().

int sci_show_banner = 1

Definition at line 115 of file x_main.c.

Referenced by banier(), Console_Main(), and Windows_Main().

Boolean sunFunctionKeys = False

Definition at line 180 of file x_main.c.

Referenced by Input().

Widget toplevel = (Widget) NULL

Definition at line 273 of file x_main.c.

Atom wm_delete_window

Definition at line 321 of file x_main.c.

WidgetClass xtermWidgetClass

Definition at line 505 of file x_charproc.c.

---