inter.c File Reference

#include <strings.h>
#include "x_ptyxP.h"
#include "x_data.h"
#include "machine.h"
#include "All-extern-x.h"
#include "All-extern.h"
#include "xscion.h"
#include "TclEvents.h"
#include "dynamic_menus.h"
#include <X11/Xlib.h>
#include <X11/Xatom.h>
#include <X11/Xutil.h>
#include <X11/cursorfont.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Shell.h>
#include <X11/Xos.h>
#include <ctype.h>
#include <errno.h>
#include <stdio.h>
#include "inter.h"
#include <sys/select.h>
#include <stdlib.h>
#include "Os_specific.h"
#include "Xscilab.ad.h"

Include dependency graph for inter.c:

Go to the source code of this file.

Defines
#define	LF   0x000a
#define	MAXBUFFSIZE   256
Functions
int Scierror	__PARAMS ((int iv, char *fmt,...))
int Xscilab	__PARAMS ((Display **dpy, Widget *topwid))
void xevents1	__PARAMS ((void))
int	GetWITH_GUI (void)
int	IsClick_menu (void)
void	Click_menu (int n)
int	charfromclick (void)
int	IntoEmacs (void)
int C2F()	checkevts (int *i)
static void	basic_scilab_mask (Display **dpy)
void	sci_tk_activate (void)
void	DisplayInit (char *string, Display **dpy, Widget *toplevel)
int	Xorgetchar (int interrupt)
int C2F()	sxevents ()
static void	str_to_xterm (char *string, int nbytes)
static void	str_to_xterm_nw (char *string, int nbytes)
void	write_scilab (char *s)
Variables
static int	ClickMenu = 0
static char	buffstring [MAXBUFFSIZE]
static int	lenbuffstring
static int	posinbuff = 0
static fd_set	Select_mask_ref
static fd_set	select_mask
static fd_set	Write_mask_ref
static fd_set	write_mask
static int	inter_max_plus1 = 0
Display *	the_dpy = (Display *) NULL
int	BasicScilab = 1
XtAppContext	app_con
static int	intoemacs = 0
static String	bgfallback_resources []
static XtActionsRec	actionProcs []
static int	Xsocket = 0
static int	fd_in = 0
static int	fd_out = 0
static int	fd_err = 0

---

Define Documentation

#define LF   0x000a

Definition at line 57 of file inter.c.

#define MAXBUFFSIZE   256

Definition at line 58 of file inter.c.

Referenced by str_to_xterm_nw().

---

Function Documentation

void xevents1 __PARAMS

(

(void)

)

int Xscilab __PARAMS

(

(Display **dpy, Widget *topwid)

)

int Scierror __PARAMS

(

(int iv, char *fmt,...)

)

hpux uses time.h instead of select.h

static void basic_scilab_mask

(

Display **

dpy

)

[static]

Definition at line 178 of file inter.c.

References fd_err, fd_in, fd_out, Max, and XTKsocket.

Referenced by DisplayInit(), and sci_tk_activate().

{
  Xsocket = ConnectionNumber(*dpy);
  fd_in = fileno(stdin) ;
  fd_out = fileno(stdout);
  fd_err = fileno(stderr);

  FD_ZERO(&Select_mask_ref);
  FD_SET(fd_in , &Select_mask_ref);
  FD_SET(Xsocket, &Select_mask_ref);
#ifdef WITH_TK 
  if ( XTKsocket != 0 ) FD_SET(XTKsocket, &Select_mask_ref);
#endif 
  FD_ZERO(&Write_mask_ref);
  /* the two next FD_SET causes select not to wait 
   * 
   */
  /* FD_SET(fd_out,&Write_mask_ref);
     FD_SET(fd_err,&Write_mask_ref);*/

  inter_max_plus1 = Max(fd_in,Xsocket);      
  inter_max_plus1 = Max(fd_out,inter_max_plus1);
  inter_max_plus1 = Max(fd_err,inter_max_plus1);
#ifdef WITH_TK 
  inter_max_plus1 = Max(XTKsocket,inter_max_plus1);
#endif 
  inter_max_plus1++;
}  

Here is the caller graph for this function:

int charfromclick

(

void

)

Definition at line 383 of file inter.c.

Referenced by Xorgetchar().

{
  if (posinbuff==lenbuffstring-1)
    {
      ClickMenu=0;
    }
  if (posinbuff==lenbuffstring)
    return(9999);
  else
    return(buffstring[posinbuff++]);
}

Here is the caller graph for this function:

int C2F() checkevts

(

int *

i

)

Definition at line 91 of file inter.c.

References getINXscilab(), i, and Max.

{
  *i= Max(getINXscilab(),1-BasicScilab);
  return(0);
}

Here is the call graph for this function:

void Click_menu

(

int

n

)

Definition at line 377 of file inter.c.

Referenced by str_to_xterm_nw().

{
  ClickMenu=n;
  return;
}

Here is the caller graph for this function:

void DisplayInit	(	char *	string,
		Display **	dpy,
		Widget *	toplevel
	)

Definition at line 139 of file inter.c.

References basic_scilab_mask(), count, IntoEmacs(), NULL, optionDescList, and Xscilab().

Referenced by ChangeBandF(), CreatePopupWindow(), GetChilds(), GetFileWindow(), GetScreenDPI(), initgraphic(), InitXsession(), sci_tk_activate(), ShellFormCreate(), and ShellFormCreateOld().

{
  static XrmOptionDescRec *optionDescList = NULL;
  static Display *dpy1;
  static Widget toplevel1;
  static int count=0;
  int argc=0;
  char *argv = 0;
  if ( count > 0) 
    {
      *dpy=dpy1;
      *toplevel=toplevel1;
      return;
    }
  count++;
  Xscilab(dpy,toplevel);
  if ( *toplevel != (Widget) NULL)
    {
      toplevel1 = *toplevel;
      dpy1 = *dpy;
    }
  else
    {
      *toplevel=toplevel1=XtAppInitialize (&app_con,"Xscilab",optionDescList,
                                           0,&argc, (String *)argv,
                                           bgfallback_resources,(ArgList) NULL,(Cardinal) 0);
      XtAppAddActions(app_con, actionProcs, XtNumber(actionProcs));
      the_dpy = *dpy=dpy1=XtDisplay(toplevel1);
      BasicScilab = 0;
      basic_scilab_mask(dpy);
      intoemacs=IntoEmacs();
    }
  XSync(dpy1,0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int GetWITH_GUI

(

void

)

TODO : comment

Returns:

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

{
        return WITH_GUI;
}

int IntoEmacs

(

void

)

Definition at line 85 of file inter.c.

References getenv().

Referenced by DisplayInit().

{
  return(strcmp(getenv("TERM"),"dumb")==0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int IsClick_menu

(

void

)

Definition at line 372 of file inter.c.

Referenced by Xorgetchar().

{
  return(ClickMenu);
}

Here is the caller graph for this function:

void sci_tk_activate

(

void

)

Definition at line 128 of file inter.c.

References basic_scilab_mask(), DisplayInit(), dpy, NULL, and toplevel.

{
  Display *dpy = (Display *) NULL;
  Widget toplevel = (Widget) NULL;
  /*Cout("You have started Scilab in a mode in which TK is not initialized.\n");
    Cout("Trying to initialize \n");*/
  DisplayInit("",&dpy,&toplevel);
  BasicScilab = 0;
  basic_scilab_mask(&dpy);
}

Here is the call graph for this function:

static void str_to_xterm	(	char *	string,
		int	nbytes
	)			[static]

Definition at line 335 of file inter.c.

References _XtermWidgetRec::screen, StringInput(), and term.

Referenced by write_scilab().

{
  register TScreen *screen = &term->screen;
  StringInput(screen,string,strlen(string));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void str_to_xterm_nw	(	char *	string,
		int	nbytes
	)			[static]

Definition at line 344 of file inter.c.

References Click_menu(), and MAXBUFFSIZE.

Referenced by write_scilab().

{
  posinbuff=0;
  if (nbytes>MAXBUFFSIZE-1)
    {
      Scierror(1020,"%s\n", "The menu  name is too long  to be strored");
      return;
    }
  sprintf(buffstring,string);
  buffstring[nbytes]='\n';
  lenbuffstring=nbytes+1;
  Click_menu(1);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() sxevents

(

)

Definition at line 302 of file inter.c.

References BasicScilab, flushTKEvents(), getINXscilab(), GetWITH_GUI(), NULL, TextMessage1(), xevents1(), and XTKsocket.

{
        if ( GetWITH_GUI() )
        {
                  if (getINXscilab()==1) 
    {
      xevents1();
    }
  else 
    {
      XEvent event;
      if (BasicScilab) return(0);
      if ( the_dpy == (Display *) NULL)  return(0);
#ifdef WITH_TK 
      if ( XTKsocket != 0 ) flushTKEvents();
#endif 
      if (!XPending (the_dpy))
        /* protect against events/errors being swallowed by us or Xlib */
        return(0);
      do {
        XNextEvent (the_dpy, &event);
        XtDispatchEvent(&event);
      } while (QLength(the_dpy) > 0);
    }
        }
        
  return(0);
}

Here is the call graph for this function:

void write_scilab

(

char *

s

)

Definition at line 360 of file inter.c.

References C2F, i, str_to_xterm(), str_to_xterm_nw(), and xscion().

{
  int  i;
  C2F(xscion)(&i);
  if (i==1)
    str_to_xterm(s,strlen(s));
  else
    str_to_xterm_nw(s,strlen(s));
  /*            printf(" asynchronous actions are not supported with -nw option\n");*/
}

Here is the call graph for this function:

int Xorgetchar

(

int

interrupt

)

Definition at line 224 of file inter.c.

References C2F, charfromclick(), errno, fd_err, fd_in, fd_out, flushTKEvents(), i, IsClick_menu(), ismenu(), LF, NULL, Scistring(), sxevents(), and XTKsocket.

Referenced by GetCharOrEvent().

{
  register int i;
  static struct timeval select_timeout;
  static int state = 0;
  if ( BasicScilab) return(getchar());
  for( ; ; ) {
    XFlush(the_dpy); /* always flush writes before waiting */
    fflush(stdout); 
    fflush(stderr); 
#ifdef WITH_TK 
    flushTKEvents();
#endif 
    /* Initialize masks  */
    select_mask = Select_mask_ref;
    write_mask  = Write_mask_ref;

    select_timeout.tv_sec = 0;
    select_timeout.tv_usec = 10;
    i = select(inter_max_plus1, &select_mask, &write_mask, (fd_set *)NULL, &select_timeout);
    if (i < 0) {
      if (errno != EINTR)
        { 
          Scistring("Error\n");
          exit(0);
          continue;
        }
    } 

    /* if there's something to output */
    if ( FD_ISSET(fd_out,&write_mask)) { 
      fflush(stdout); 
    }
    if ( FD_ISSET(fd_err,&write_mask)) { 
      fflush(stderr); 
    }

#ifdef WITH_TK 
    if ( XTKsocket != 0 && FD_ISSET(XTKsocket,&select_mask )) { 
      flushTKEvents();
    }
#endif 

    /* if there's something to read */
    if (FD_ISSET(fd_in,&select_mask) || IsClick_menu()) 
      state=1;
    else
      if (QLength(the_dpy) ||  FD_ISSET(Xsocket,&select_mask ) ||!(intoemacs))
        state=0;

    if (state) {
      if(IsClick_menu())
        i=charfromclick();
      else
        i=getchar();
      if (i==LF) state=0;
      return(i);
    }
        
    C2F(sxevents)();
    if (interrupt&&(C2F(ismenu)()==1)) return(-1);

  }


}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

XtActionsRec actionProcs[] [static]

Initial value:

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

Definition at line 110 of file inter.c.

Referenced by main().

XtAppContext app_con

Definition at line 76 of file inter.c.

int BasicScilab = 1

Definition at line 75 of file inter.c.

Referenced by sxevents().

String bgfallback_resources[] [static]

Initial value:

 {

  NULL,
}

Definition at line 99 of file inter.c.

char buffstring[MAXBUFFSIZE] [static]

Definition at line 60 of file inter.c.

int ClickMenu = 0 [static]

Definition at line 59 of file inter.c.

int fd_err = 0 [static]

Definition at line 176 of file inter.c.

Referenced by basic_scilab_mask(), and Xorgetchar().

int fd_in = 0 [static]

Definition at line 176 of file inter.c.

Referenced by basic_scilab_mask(), and Xorgetchar().

int fd_out = 0 [static]

Definition at line 176 of file inter.c.

Referenced by basic_scilab_mask(), and Xorgetchar().

int inter_max_plus1 = 0 [static]

Definition at line 73 of file inter.c.

int intoemacs = 0 [static]

Definition at line 82 of file inter.c.

int lenbuffstring [static]

Definition at line 61 of file inter.c.

int posinbuff = 0 [static]

Definition at line 62 of file inter.c.

fd_set select_mask [static]

Definition at line 72 of file inter.c.

fd_set Select_mask_ref [static]

Definition at line 72 of file inter.c.

Display* the_dpy = (Display *) NULL

Definition at line 74 of file inter.c.

fd_set write_mask [static]

Definition at line 72 of file inter.c.

fd_set Write_mask_ref [static]

Definition at line 72 of file inter.c.

int Xsocket = 0 [static]

Definition at line 176 of file inter.c.

Referenced by main_sci().

---