Actions.c File Reference

#include <stdio.h>
#include <string.h>
#include "math_graphics.h"
#include "GetProperty.h"
#include "SetProperty.h"
#include "DrawObjects.h"
#include "Xcall1.h"
#include "WindowList.h"
#include "MALLOC.h"
#include "sciprint.h"
#include "periScreen.h"

Include dependency graph for Actions.c:

Go to the source code of this file.

Typedefs
typedef int Scig_handler	__PARAMS ((int))
Functions
int sciSwitchWindow	__PARAMS ((int *winnum))
void sciGetIdFigure	__PARAMS ((int *vect, int *id, int *iflag))
int C2F()	syncexec (char *str, int *ns, int *ierr, int *seq, long int str_len)
int	WithBackingStore ()
int	I3dRotation (void)
void	reset_scig_handler (void)
int	scig_handler_none (int win_num)
void	scig_replay (integer win_num)
void	scig_erase (integer win_num)
int	scig_2dzoom (integer win_num)
void	scig_unzoom (integer win_num)
int	scig_3drot (integer win_num)
void	scig_sel (integer win_num)
void	scig_loadsg (int win_num, char *filename)
void	scig_savesg (int win_num, char *filename)
void	scig_expose (integer win_num)
void	scig_resize (integer win_num)
void	scig_raise (integer win_num)
Variables
int	xinitxend_flag
static int	scig_buzy = 0
Scig_handler	scig_handler = scig_handler_none

---

Typedef Documentation

typedef int Scig_handler __PARAMS((int))

Definition at line 45 of file Actions.c.

---

Function Documentation

void sciGetIdFigure __PARAMS

(

(int *vect, int *id, int *iflag)

)

int sciSwitchWindow __PARAMS

(

(int *winnum)

)

int I3dRotation

(

void

)

Definition at line 631 of file Plo3d.c.

References Abs, wcscalelist::alpha, sciSubWindow::axes, wcscalelist::bbox1, C2F, CheckClickedSubwin(), Cscale, sciSubWindow::cube_scaling, dbox(), dr(), dr1(), echelle2d(), AXES::flag, sciSubWindow::FRect, wcscalelist::frect, int, sciSubWindow::is3d, L, long, wcscalelist::metric3d, NULL, Obj_RedrawNewAngle(), PD0, pFIGURE_FEATURE, PI0, tagSons::pnext, tagSons::pointobj, pSUBWIN_FEATURE, ReleaseWinHdc(), SCI_SUBWIN, sciGetCurrentFigure(), sciGetCurrentSubWin(), sciGetEntityType(), sciGetLastSons(), sciGetSons(), SciMouseCapture(), SciMouseRelease(), sciRedrawFigure(), sciSetSelectedSubWin(), SetWinhdc(), wcscalelist::theta, TRUE, wininfo(), x, xr, y, and yr.

Referenced by scig_3drot().

{
  integer pixmode,alumode,verbose=0,narg_,ww;
  double xx,yy;
  double theta0,alpha0;
  static int one=1;

  static integer modes[]={1,0};/* for xgemouse only get mouse mouvement*/ 
  sciSons *psonstmp;
  sciPointObj *psubwin, *tmpsubwin;
  sciPointObj *pold = NULL;
  /*  sciPointObj *psurface; */
  integer xr, yr;


  integer ibutton,in,iwait=0,istr=0;
  integer verbose_=0,ww_;
  double x0,yy0,x,y,xl,yl ;

  C2F(dr1)("xget","window",&verbose,&ww,&narg_,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);

  C2F(dr)("xget","pixmap",&verbose,&pixmode,&narg_,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xget","alufunction",&verbose,&alumode,&narg_,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);


#ifdef _MSC_VER
  SetWinhdc();
  SciMouseCapture();  
#endif
  C2F(dr)("xclick","one",&ibutton,&xr,&yr,&iwait,&istr,PI0,PD0,PD0,PD0,PD0,0L,0L);
#ifdef _MSC_VER
  ReleaseWinHdc();
  SciMouseRelease();
#endif
  theta=Cscale.theta ;
  alpha=Cscale.alpha ;
  theta0=theta;
  alpha0=alpha;

  ibutton=-1;
  tmpsubwin = sciGetCurrentSubWin() ;   
  if ( pFIGURE_FEATURE(sciGetCurrentFigure())->rotstyle == 0)    
  {
    psubwin = CheckClickedSubwin(xr,yr);
    if( psubwin != NULL )
    {
      sciSubWindow * ppSubWin = pSUBWIN_FEATURE(psubwin) ;
      sciSetSelectedSubWin (psubwin);

      theta0 = ppSubWin-> theta; 
      alpha0 = ppSubWin-> alpha;
      ppSubWin->is3d = TRUE;
      Cscale.metric3d = (long)(ppSubWin->axes.flag[1]+1)/2; 

      /* Modif. HERE F.Leray 24.05.04 : we take advantage of update_specification_bounds and update_3dbounds previous call */
      /* brect variable should not exist any more.*/
      Cscale.bbox1[0] = ppSubWin->FRect[0]; 
      Cscale.bbox1[1] = ppSubWin->FRect[2];
      Cscale.bbox1[2] = ppSubWin->FRect[1];
      Cscale.bbox1[3] = ppSubWin->FRect[3];
      Cscale.bbox1[4] = ppSubWin->FRect[4];
      Cscale.bbox1[5] = ppSubWin->FRect[5];

      if( ppSubWin->cube_scaling )
      {
        Cscale.bbox1[0] =  0.; 
        Cscale.bbox1[1] =  1.;
        Cscale.bbox1[2] =  0.;
        Cscale.bbox1[3] =  1.;
        Cscale.bbox1[4] =  0.;
        Cscale.bbox1[5] =  1.;
      }
    }
    else
    {
      wininfo("No 3d object selected");
      return 0;
    }
  }
  else
  {                  
    psonstmp = sciGetLastSons (sciGetCurrentFigure());  
    while (psonstmp != (sciSons *) NULL)
    {  
      if(sciGetEntityType (psonstmp->pointobj) == SCI_SUBWIN) 
        break;   
      psonstmp = psonstmp->pnext;
    } 
    sciSetSelectedSubWin (psonstmp->pointobj);
  } 
  xx=1.0/Abs(Cscale.frect[0]-Cscale.frect[2]);
  yy=1.0/Abs(Cscale.frect[1]-Cscale.frect[3]);

  C2F(echelle2d)(&x0,&yy0,&xr,&yr,&one,&one,"i2f",3L);
  x0=(x0-Cscale.frect[0])*xx;
  yy0=(yy0-Cscale.frect[1])*yy;
  x=x0;y=yy0;

#ifdef _MSC_VER
  SetWinhdc();
  SciMouseCapture();
#endif

  if ( pixmode == 0 ) C2F(dr1)("xset","alufunction",(in=6,&in),PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);

  while ( ibutton == -1 ) 
  {
    /* dessin d'un rectangle */
    theta= ((int)(theta0 - 180.0*(x-x0)) % 360);
    alpha= ((int)(alpha0 + 180.0*(y-yy0)) % 360);
    wininfo("alpha=%.1f,theta=%.1f",alpha,theta); 
    if ( pixmode == 1) C2F(dr1)("xset","wwpc",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    dbox();
    if ( pixmode == 1) C2F(dr1)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    C2F(dr1)("xgetmouse","one",&ibutton,&iwait,PI0,PI0,modes,PI0,&xl, &yl,PD0,PD0,0L,0L);
    if (ibutton==-100) return 1;/* window has been closed */
    /* effacement du rectangle */
    dbox();
    xx=1.0/Abs(Cscale.frect[0]-Cscale.frect[2]);
    yy=1.0/Abs(Cscale.frect[1]-Cscale.frect[3]);
    x=(xl-Cscale.frect[0])*xx;
    y=(yl-Cscale.frect[1])*yy;
  }
  if ( pixmode == 0) C2F(dr1)("xset","alufunction",(in=3,&in),PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr1)("xget","window",&verbose_,&ww_,&narg_,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
#ifdef _MSC_VER
  ReleaseWinHdc();
  SciMouseRelease();
#endif

  if (pFIGURE_FEATURE((sciPointObj *)sciGetCurrentFigure())->rotstyle == 0){
    pold = sciGetCurrentSubWin();
    sciSetSelectedSubWin(psubwin);
    Obj_RedrawNewAngle(psubwin,theta,alpha);
    sciSetSelectedSubWin(pold);
  }
  else
  { 
    psonstmp = sciGetSons (sciGetCurrentFigure());  
    while (psonstmp != (sciSons *) NULL)        
    {  
      if(sciGetEntityType (psonstmp->pointobj) == SCI_SUBWIN){
        pold = sciGetCurrentSubWin();
        sciSetSelectedSubWin(psonstmp->pointobj);
        Obj_RedrawNewAngle(psonstmp->pointobj,theta,alpha);
        sciSetSelectedSubWin(pold);
      }
      psonstmp = psonstmp->pnext;
    } 
  }
  sciRedrawFigure(); 
  wininfo("alpha=%.1f,theta=%.1f",alpha,theta); 
  sciSetSelectedSubWin (tmpsubwin);
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void reset_scig_handler

(

void

)

int scig_2dzoom

(

integer

win_num

)

2D Zoom

Definition at line 129 of file Actions.c.

References C2F, cur, dr(), GetDriver1(), L, na, name, PD0, PI0, and zoom().

Referenced by ON_WND_GRAPH_WM_COMMAND(), SendGraphMacro(), and Zoom().

{
  char name[4];
  int ret;
  integer verb=0,cur,na;

  if ( scig_buzy  == 1 ) return 0; ;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);

  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  ret=zoom();
  if (cur != win_num)
          C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);

  scig_buzy = 0;
  return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int scig_3drot

(

integer

win_num

)

3d rotation function

Definition at line 166 of file Actions.c.

References C2F, cur, dr(), GetDriver1(), I3dRotation(), L, na, name, PD0, and PI0.

Referenced by ON_WND_GRAPH_WM_COMMAND(), Rot3D(), and SendGraphMacro().

{
  integer verb=0,cur,na,ret;
  char name[4];
  if ( scig_buzy  == 1 ) return 0;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);

  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  ret=I3dRotation();
  if (cur != win_num)
        C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
  return ret;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_erase

(

integer

win_num

)

clear window

Definition at line 108 of file Actions.c.

References C2F, cur, dr(), GetDriver(), GetDriver1(), L, na, name, PD0, PI0, sciXbasc(), and SetDriver().

Referenced by C2F(), Efface(), and SendGraphMacro().

{
  integer verb=0,cur,na;
  char name[4];
  if ( scig_buzy  == 1 ) return ;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  if ( (GetDriver()) !='R') 
    C2F(SetDriver)("Rec",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  sciXbasc() ;
  C2F(dr)("xclear","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xstart","v",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_expose

(

integer

win_num

)

Definition at line 248 of file Actions.c.

References C2F, cur, dr(), GetDriver(), GetDriver1(), L, na, name, PD0, PI0, sciRedrawFigure(), SetDriver(), and WithBackingStore().

Referenced by EventProc1().

{
  integer verb=0,cur,pix,na,backing;
  char name[4];
  if ( scig_buzy  == 1 ) return ;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xget","pixmap",&verb,&pix,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  

#if defined(_MSC_VER)
  backing = 0;
#else
  backing = WithBackingStore();
#endif
  if (backing) 
  {
    /* only used whith X11 were pixmap mode can be used for backing store 
    * we are here in a case where the pixmap is used for backing store 
    */
    C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);    
  }
  else 
  {
    if (pix == 0) 
    {
      if ( (GetDriver()) != 'R') 
        C2F(SetDriver)("Rec",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
      C2F(dr)("xclear","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
      sciRedrawFigure();
      C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    }
    else
    {
      C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);    
    }
  }
  C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int scig_handler_none

(

int

win_num

)

Definition at line 55 of file Actions.c.

                                   {
        return win_num;
};

void scig_loadsg	(	int	win_num,
		char *	filename
	)

Reload a saved graphic

Definition at line 195 of file Actions.c.

References C2F, cur, dr(), FREE, L, MALLOC, NULL, PD0, PI0, sciprint(), and syncexec().

Referenced by SendGraphMacro().

{
  integer verb = 0 ;
  int cur = 0 ;
  int narg = 0 ;
  int ierr = 0 ;
  int seq = 1 ;
  char * macroCall = NULL ;
  /* the sting is "xload('(1)')" where (1) is filemame */
  /* Consequently we have 9 fixed character and two variable strings. */
  int macroCallLength = 9 + strlen(filename) ;

  if ( scig_buzy  == 1 ) { return ; }
  scig_buzy  = 1 ;

  C2F(dr)("xget","window",&verb,&cur,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  
  macroCall = MALLOC( (macroCallLength+1) * sizeof(char) ) ; /* +1 for the \0 terminating character */
  sprintf(macroCall,"xload('%s')",filename);

  C2F(syncexec)(macroCall,&macroCallLength,&ierr,&seq, macroCallLength );

  FREE( macroCall ) ;
  if(ierr != 0) { sciprint("Wrong plot file : %s\r\n",filename) ; }

  C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_raise

(

integer

win_num

)

Definition at line 326 of file Actions.c.

References C2F, cur, dr(), iflag, L, n, na, PD0, PI0, sciGetIdFigure(), and sciSwitchWindow().

Referenced by SendCountRaise().

{

  int cur,n,na,verb=0,iflag=0;

  sciGetIdFigure (PI0,&n,&iflag);
  if ( n > 0 )
  {
    C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    if (win_num != cur) 
    {
      C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
      sciSwitchWindow(&win_num);
      C2F(dr)("xselect","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
      C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    }
    else
    {
      C2F(dr)("xselect","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    }
  }
  else
  { 
    C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
    sciSwitchWindow(&win_num);
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_replay

(

integer

win_num

)

Basic Replay : redraw recorded graphics

Definition at line 66 of file Actions.c.

References C2F, cur, dr(), GetDriver(), GetDriver1(), L, na, name, PD0, PI0, sciRedrawFigure(), SetDriver(), and WithBackingStore().

Referenced by SendGraphMacro().

{
  /* Modification Allan CORNET Mai 2004 */
  integer verb=0,cur,pix,na,backing;
  char name[4];
  if ( scig_buzy  == 1 ) return ;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xget","pixmap",&verb,&pix,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  

#if defined(_MSC_VER)
  backing = 0;
#else
  backing = WithBackingStore();
#endif
  if (backing) 
    {
      C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);    
    }
  else 
    {
      if (pix == 0) 
        {
          if ( (GetDriver()) != 'R') C2F(SetDriver)("Rec",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
          C2F(dr)("xclear","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
          sciRedrawFigure();
          C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
        }
      else
        {
          C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);    
        }
    }

  C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_resize

(

integer

win_num

)

Redraw graphic window win_num after resizing

Definition at line 295 of file Actions.c.

References C2F, CPixmapResize1(), cur, dr(), GetDriver(), GetDriver1(), L, na, name, PD0, PI0, sciRedrawFigure(), SetDriver(), and WithBackingStore().

Referenced by EventProc1().

{
  integer verb=0,cur,na,pix,backing;
  char name[4];
  if ( scig_buzy  == 1 ) return ;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  if ( (GetDriver()) !='R') 
    C2F(SetDriver)("Rec",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xget","pixmap",&verb,&pix,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  CPixmapResize1();
  C2F(dr)("xclear","v",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);    
#if defined(_MSC_VER)
  backing = 0;
#else
  backing = WithBackingStore();
#endif
  sciRedrawFigure();
  if (backing && pix!=1 ) C2F(dr)("xset","wshow",PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);

  C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_savesg	(	int	win_num,
		char *	filename
	)

Definition at line 225 of file Actions.c.

References C2F, FREE, GET_NB_DIGITS, MALLOC, NULL, and syncexec().

Referenced by SendGraphMacro().

{
  integer ierr ;
  integer seq = 1 ;
  char * macroCall = NULL ;

  /* the sting is "xsave('(1)',(2))" where (1) is filemame and (2) the string */
  /* corresponding of win_num. Consequently we have 10 fixed character and two variable strings. */
  int macroCallLength = 10 + strlen(filename) + GET_NB_DIGITS(win_num) ;

  macroCall = MALLOC( (macroCallLength+1) * sizeof(char) ) ; /* +1 for the \0 terminating character */

  sprintf( macroCall, "xsave('%s',%d)", filename, win_num ) ; /* call xsave macro */
  C2F(syncexec)(macroCall,&macroCallLength,&ierr,&seq, macroCallLength );
  FREE( macroCall ) ;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_sel

(

integer

win_num

)

graphic Window selection

Definition at line 184 of file Actions.c.

References C2F, dr(), GetDriver(), L, PD0, PI0, sciSwitchWindow(), and v.

Referenced by Select(), SendCountSet(), SendGraphMacro(), and SetCurrentFigureWindows().

{
  char c ;
  int v=1;
  if ((c=GetDriver())=='R' || c == 'X' || c == 'W')
    {
      C2F(dr)("xset","window",&win_num,&v,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
      sciSwitchWindow(&win_num) ;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void scig_unzoom

(

integer

win_num

)

Unzoom function

Definition at line 150 of file Actions.c.

References C2F, cur, dr(), GetDriver1(), L, na, name, PD0, PI0, and unzoom().

Referenced by ON_WND_GRAPH_WM_COMMAND(), SendGraphMacro(), and UnZoom().

{
  integer verb=0,cur,na;
  char name[4];
  if ( scig_buzy  == 1 ) return ;
  scig_buzy =1;
  GetDriver1(name,PI0,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0);
  C2F(dr)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);  
  C2F(dr)("xset","window",&win_num,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  unzoom();
  if (cur != win_num)
        C2F(dr)("xset","window",&cur,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  C2F(dr)("xsetdr",name, PI0, PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
  scig_buzy = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() syncexec	(	char *	str,
		int *	ns,
		int *	ierr,
		int *	seq,
		long int	str_len
	)

Definition at line 1525 of file parse.c.

{

  /* Local variables */
  int Pts, Tops;
  extern int C2F(iset)();
  extern int C2F(callinterf)(), C2F(ref2val)();
  static int iflagint;
  static int k;
  static int ir;

  static int *Ids  = C2F(recu).ids-nsiz-1;
  static int *Rstk = C2F(recu).rstk-1;
  static int *Lstk = C2F(vstk).lstk-1;
  static int *Infstk  = C2F(vstk).infstk-1;

  Pt = max(Pt,0);Pts=Pt;
  Top = max(Top,0);Tops=Top;
  C2F(basbrk).interruptible = *seq != 0;
  C2F(bexec)(str, ns, ierr, (*ns));
  if (*ierr != 0) {
    goto L9998;
  }
  /* + */
  if (Eptover(1)) {
    goto L9998;
  }
  Ids[1 + Pt * nsiz] = Lhs;
  Ids[2 + Pt * nsiz] = Rhs;
  Ids[3 + Pt * nsiz] = C2F(com).sym;
  Rstk[Pt] = 1002;
  ++C2F(recu).niv;
  C2F(com).fun = 0;
  C2F(recu).icall = 5;

  /* code translated from callinterf.h */
 L60:

   C2F(parse)();
  if (C2F(iop).err > 0) {
    goto L9999;
  }

  if (C2F(com).fun == 99) {
    C2F(com).fun = 0;
    goto L200;
  }

  if (Rstk[Pt] / 100 == 9) {
    ir = Rstk[Pt] - 900;
    if (ir == 1) {
      /* back to matsys */
      k = 13;
    } else if (ir >= 2 && ir <= 9) {
      /* back to matio */
      k = 5;
    } else if (ir == 10) {
      /* end of overloaded function */
      goto L96;
    } else if (ir > 40) {
      /* back to gw_user2 */
      k = 24;
    } else if (ir > 20) {
      /* back to gw_user */
      k = 14;
    } else {
      goto L89;
    }
    iflagint = 0;
    goto L95;
  }

 L89:
  if (Top < Rhs) {
    SciError(22);
    goto L9999;
  }
  if (Top - Rhs + Lhs + 1 >= C2F(vstk).bot) {
    SciError(18);
    goto L9999;
  }
  goto L91;

 L90:
  if (C2F(iop).err > 0) {
    goto L9999;
  }
 L91:
  k = C2F(com).fun;
  C2F(com).fun = 0;
  if (k == C2F(recu).krec) {
    C2F(recu).krec = -1;
    SciError(22);
    goto L9999;
  }
  C2F(recu).krec = -1;
  if (k == 0) {
    goto L60;
  }
 L95:
  if (! C2F(allowptr)(&k)) {
    C2F(ref2val)();
  }
  C2F(recu).krec = k;
  C2F(callinterf)(&k, &iflagint);
  /*      if (k.eq.krec) krec=99999 */
  C2F(recu).krec = -1;
  if (C2F(com).fun >= 0) {
    if (Top - Lhs + 1 > 0) {
      C2F(iset)(&Rhs, &c__0, &Infstk[Top - Lhs+1], &c__1);
    }
    goto L90;
  }
  /*     called interface ask for a scilab function to perform the function (fun=-1) */
  /*     the function name is given in ids(1,pt+1) */
  C2F(ref2val)();
  C2F(com).fun = 0;
  C2F(funs)(&Ids[1 + (Pt + 1) * nsiz]);
  if (C2F(iop).err > 0) {
    goto L9999;
  }
  if (C2F(com).fun > 0) {
    goto L91;
  }
  if (C2F(com).fin == 0) {
    SciError(246);
    if (C2F(iop).err > 0) {
      goto L9999;
    }
    goto L90;
  }
  ++Pt;
  C2F(com).fin = Lstk[C2F(com).fin];
  Rstk[Pt] = 910;
  C2F(recu).icall = 5;
  C2F(com).fun = 0;
  /*     *call*  macro */
  goto L60;
 L96:
  --Pt;
  goto L90;
  /* End of callinterf.h code */

 L200:
  Lhs = Ids[1 + Pt * nsiz];
  Rhs = Ids[2 + Pt * nsiz];
  C2F(com).sym = Ids[3 + Pt * nsiz];
  --Pt;
  --Top;
  /* + */
  --C2F(recu).niv;
  *ierr = 0;
  C2F(recu).icall = 0;
  C2F(com).fin = 3;
  C2F(basbrk).interruptible = TRUE_;
  return 0;
 L9998:
  *ierr = 1;
  Pt=Pts;Top=Tops;
  C2F(basbrk).interruptible = TRUE_;

  return 0;
 L9999:
  /* Err == 9999999 arises if abort has been used to terminate the callback execution */
  if (Err != 9999999) *ierr = 1;
  --Top;
  --C2F(recu).niv;
  Pt=Pts;Top=Tops;
  C2F(basbrk).interruptible = TRUE_;
  return 0;
} /* syncexec */

int WithBackingStore

(

)

Definition at line 294 of file periX11.c.

References BCG::Cdrawable, and ScilabXgc.

Referenced by scig_expose(), scig_replay(), and scig_resize().

{
  return (ScilabXgc->Cdrawable != (Drawable) 0) ;
}

Here is the caller graph for this function:

---

Variable Documentation

int scig_buzy = 0 [static]

Definition at line 41 of file Actions.c.

Scig_handler scig_handler = scig_handler_none

Definition at line 59 of file Actions.c.

int xinitxend_flag

---