GetCommandArg.h File Reference

#include "stack-c.h"
#include "machine.h"

Include dependency graph for GetCommandArg.h:

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

Go to the source code of this file.

Defines
#define	sciGetStyle(fname, pos, n1, opts, style)   { if ( get_style_arg(fname,pos,n1,opts,style) == 0) { return 0 ; } }
#define	GetRect(fname, pos, opts, rect)   { if ( get_rect_arg(fname,pos,opts,rect) == 0) { return 0 ; } }
#define	GetStrf(fname, pos, opts, strf)   { if ( get_strf_arg(fname,pos,opts,strf) == 0) { return 0 ; } }
#define	GetLegend(fname, pos, opts, legend)   { if ( get_legend_arg(fname,pos,opts,legend) == 0) { return 0 ; } }
#define	GetLabels(fname, pos, opts, labels)   { if ( get_labels_arg(fname,pos,opts,labels) == 0) { return 0 ; } }
#define	GetNax(pos, opts, nax, flagNax)   { if ( get_nax_arg(pos,opts,nax,flagNax)==0 ) { return 0 ; } }
#define	GetZminmax(fname, pos, opts, zminmax)   { if ( get_zminmax_arg(fname,pos,opts,zminmax) == 0) { return 0 ; } }
#define	GetColminmax(fname, pos, opts, colminmax)   { if ( get_colminmax_arg(fname,pos,opts,colminmax)==0 ) { return 0 ; } }
#define	GetColOut(fname, pos, opts, colout)   { if ( get_colout_arg(fname,pos,opts,colout)==0 ) { return 0 ; } }
#define	GetWithMesh(fname, pos, opts, withMesh)   { if ( get_with_mesh_arg(fname,pos,opts,withMesh)==0 ) { return 0 ; } }
#define	GetLogflags(fname, pos, opts, logFlags)   { if ( get_logflags_arg(fname,pos,opts,logFlags) == 0) { return 0 ; } }
#define	GetOptionalDoubleArg(fname, pos, name, value, sz, opts)   { if ( get_optional_double_arg(fname,pos,name,value,sz,opts) == 0) { return 0 ; } }
#define	GetOptionalIntArg(fname, pos, name, value, sz, opts)   { if ( get_optional_int_arg(fname,pos,name,value,sz,opts) == 0) { return 0 ; } }
Functions
int	get_style_arg (char *fname, int pos, int n1, rhs_opts opts[], int **style)
int	get_rect_arg (char *fname, int pos, rhs_opts opts[], double **rect)
int	get_strf_arg (char *fname, int pos, rhs_opts opts[], char **strf)
int	get_legend_arg (char *fname, int pos, rhs_opts opts[], char **legend)
int	get_labels_arg (char *fname, int pos, rhs_opts opts[], char **labels)
int	get_nax_arg (int pos, rhs_opts opts[], int **nax, BOOL *flagNax)
int	get_zminmax_arg (char *fname, int pos, rhs_opts opts[], double **zminmax)
int	get_colminmax_arg (char *fname, int pos, rhs_opts opts[], int **colminmax)
int	get_colout_arg (char *fname, int pos, rhs_opts opts[], int **colout)
int	get_with_mesh_arg (char *fname, int pos, rhs_opts opts[], BOOL *withMesh)
int	get_logflags_arg (char *fname, int pos, rhs_opts opts[], char **logFlags)
int	get_optional_double_arg (char *fname, int pos, char *name, double **value, int sz, rhs_opts opts[])
int	get_optional_int_arg (char *fname, int pos, char *name, int **value, int sz, rhs_opts opts[])

---

Define Documentation

#define GetColminmax	(	fname,
		pos,
		opts,
		colminmax		)	{ if ( get_colminmax_arg(fname,pos,opts,colminmax)==0 ) { return 0 ; } }

Definition at line 37 of file GetCommandArg.h.

Referenced by sci_fec().

#define GetColOut	(	fname,
		pos,
		opts,
		colout		)	{ if ( get_colout_arg(fname,pos,opts,colout)==0 ) { return 0 ; } }

Definition at line 38 of file GetCommandArg.h.

Referenced by sci_fec().

#define GetLabels	(	fname,
		pos,
		opts,
		labels		)	{ if ( get_labels_arg(fname,pos,opts,labels) == 0) { return 0 ; } }

Definition at line 34 of file GetCommandArg.h.

Referenced by sci_param3d(), sci_param3d1(), and sci_plot3d().

#define GetLegend	(	fname,
		pos,
		opts,
		legend		)	{ if ( get_legend_arg(fname,pos,opts,legend) == 0) { return 0 ; } }

Definition at line 33 of file GetCommandArg.h.

Referenced by sci_fec(), sci_plot2d(), and sci_plot2d1_G().

#define GetLogflags	(	fname,
		pos,
		opts,
		logFlags		)	{ if ( get_logflags_arg(fname,pos,opts,logFlags) == 0) { return 0 ; } }

Definition at line 40 of file GetCommandArg.h.

Referenced by sci_plot2d(), and sci_plot2d1_G().

#define GetNax	(	pos,
		opts,
		nax,
		flagNax		)	{ if ( get_nax_arg(pos,opts,nax,flagNax)==0 ) { return 0 ; } }

Definition at line 35 of file GetCommandArg.h.

Referenced by sci_fec(), sci_grayplot(), sci_matplot(), sci_plot2d(), and sci_plot2d1_G().

#define GetOptionalDoubleArg	(	fname,
		pos,
		name,
		value,
		sz,
		opts		)	{ if ( get_optional_double_arg(fname,pos,name,value,sz,opts) == 0) { return 0 ; } }

Definition at line 41 of file GetCommandArg.h.

Referenced by sci_champ_G(), sci_param3d(), sci_param3d1(), and sci_plot3d().

#define GetOptionalIntArg	(	fname,
		pos,
		name,
		value,
		sz,
		opts		)	{ if ( get_optional_int_arg(fname,pos,name,value,sz,opts) == 0) { return 0 ; } }

Definition at line 42 of file GetCommandArg.h.

Referenced by sci_grayplot(), sci_matplot(), sci_param3d(), sci_param3d1(), sci_plot2d(), sci_plot2d1_G(), and sci_plot3d().

#define GetRect	(	fname,
		pos,
		opts,
		rect		)	{ if ( get_rect_arg(fname,pos,opts,rect) == 0) { return 0 ; } }

Definition at line 31 of file GetCommandArg.h.

Referenced by sci_champ_G(), sci_fec(), sci_grayplot(), sci_matplot(), sci_plot2d(), and sci_plot2d1_G().

#define GetStrf	(	fname,
		pos,
		opts,
		strf		)	{ if ( get_strf_arg(fname,pos,opts,strf) == 0) { return 0 ; } }

Definition at line 32 of file GetCommandArg.h.

Referenced by sci_champ_G(), sci_fec(), sci_grayplot(), sci_matplot(), sci_plot2d(), and sci_plot2d1_G().

#define GetWithMesh	(	fname,
		pos,
		opts,
		withMesh		)	{ if ( get_with_mesh_arg(fname,pos,opts,withMesh)==0 ) { return 0 ; } }

Definition at line 39 of file GetCommandArg.h.

Referenced by sci_fec().

#define GetZminmax	(	fname,
		pos,
		opts,
		zminmax		)	{ if ( get_zminmax_arg(fname,pos,opts,zminmax) == 0) { return 0 ; } }

Definition at line 36 of file GetCommandArg.h.

Referenced by sci_fec().

#define sciGetStyle	(	fname,
		pos,
		n1,
		opts,
		style		)	{ if ( get_style_arg(fname,pos,n1,opts,style) == 0) { return 0 ; } }

Definition at line 30 of file GetCommandArg.h.

Referenced by sci_plot2d(), and sci_plot2d1_G().

---

Function Documentation

int get_colminmax_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		int **	colminmax
	)

Definition at line 362 of file GetCommandArg.c.

References CheckLength, FindOpt, FirstOpt, getDefColMinMax(), GetRhsVar, istk, l, m, n, setDefColMinMax(), and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    {
      if (VarType(pos)) 
        {
          GetRhsVar(pos, "i", &m, &n, &l);
          CheckLength(pos,m*n,2);
          *colminmax=istk(l);
        }
      else
        {
    int zeros[2] = { 0, 0 } ;
    setDefColMinMax( zeros ) ;
          *colminmax = getDefColMinMax() ;
        }
    }
  else if ((kopt=FindOpt("colminmax",opts))) 
    {
      GetRhsVar(kopt, "i", &m, &n, &l);
      CheckLength(kopt,m*n,2);
      *colminmax=istk(l);
    }
  else 
    {
      int zeros[2] = { 0, 0 } ;
      setDefColMinMax( zeros ) ;
      *colminmax = getDefColMinMax() ;
    } 
  return 1;
}

Here is the call graph for this function:

int get_colout_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		int **	colout
	)

Definition at line 399 of file GetCommandArg.c.

References CheckLength, FindOpt, FirstOpt, getDefColOut(), GetRhsVar, istk, l, m, n, setDefColOut(), and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    {
      if (VarType(pos)) 
        {
          GetRhsVar(pos, "i", &m, &n, &l);
          CheckLength(pos,m*n,2);
          *colout = istk(l);
        }
      else
        {
    int newDefCO[2] = { -1, -1 } ;
    setDefColOut( newDefCO ) ;
          *colout = getDefColOut() ;
        }
    }
  else if ((kopt=FindOpt("colout",opts))) 
    {
      GetRhsVar(kopt, "i", &m, &n, &l);
      CheckLength(kopt,m*n,2);
      *colout=istk(l);
    }
  else 
    {
      int newDefCO[2] = { -1, -1 } ;
      setDefColOut( newDefCO ) ;
      *colout = getDefColOut() ;
    } 
  return 1;
}

Here is the call graph for this function:

int get_labels_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		char **	labels
	)

retrieve the labels from the command line and store them into Legend

Definition at line 226 of file GetCommandArg.c.

References cstk, FindOpt, FirstOpt, getDefLegend(), GetRhsVar, l, m, n, NULL, sciGetCurrentSubWin(), sciGetLegendDefined(), and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
  { 
    if (VarType(pos)) {
      GetRhsVar(pos, "c", &m, &n, &l);
      *labels = cstk(l); 
    }
    else
    {

      /* jb silvy 03/2006 */
      /* do not change the legend if one already exists */
      sciPointObj * pSubWin = sciGetCurrentSubWin() ;
      if ( sciGetLegendDefined( pSubWin ) )
      {
        *labels = NULL ;
      }
      else
      {
        *labels = getDefLegend() ;
      }
    }
  }
  else if ((kopt=FindOpt("leg",opts)))
  {
    GetRhsVar(kopt, "c", &m, &n, &l);
    *labels = cstk(l); 
  }
  else
  {

    /* jb silvy 03/2006 */
    /* do not change the legend if one already exists */
    sciPointObj * pSubWin = sciGetCurrentSubWin() ;
    if ( sciGetLegendDefined( pSubWin ) )
    {
      *labels = NULL ;
    }
    else
    {
      *labels = getDefLegend() ;
    }
  }
  return 1;
}

Here is the call graph for this function:

int get_legend_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		char **	legend
	)

Definition at line 197 of file GetCommandArg.c.

References cstk, FindOpt, FirstOpt, getDefLegend(), GetRhsVar, l, m, n, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    { 
      if (VarType(pos)) {
        GetRhsVar(pos, "c", &m, &n, &l);
        *legend = cstk(l); 
      }
      else
        {
          *legend = getDefLegend() ;
        }
    }
  else if ((kopt=FindOpt("leg",opts))) {
    GetRhsVar(kopt, "c", &m, &n, &l);
    *legend = cstk(l); 
  }
  else
    {
      *legend = getDefLegend() ;
    }
  return 1;
}

Here is the call graph for this function:

int get_logflags_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		char **	logFlags
	)

Definition at line 470 of file GetCommandArg.c.

References cstk, Err, Error, FindOpt, FirstOpt, getDefLogFlags(), GetRhsVar, l, logFlagsCpy, m, n, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;
  
  if (pos < first_opt) /* regular argument  */
  { 
    if (VarType(pos))
    {
            GetRhsVar(pos, "c", &m, &n, &l);
            if ((m * n != 2)&&(m * n != 3))
      {
              Scierror(999,"%s: logflag has wrong size (%d), expected 2 or 3\r\n",fname,m*n);
              return 0;
            }
            if (m * n == 2)
      {
              if ((*cstk(l)!='l'&&*cstk(l)!='n')||(*cstk(l+1)!='l'&&*cstk(l+1)!='n'))
        {
                Err=pos;
                Error(116);
                return 0;
              }
              logFlagsCpy[0]='g';
        logFlagsCpy[1]=*cstk(l);
        logFlagsCpy[2]=*cstk(l+1) ;
        *logFlags = logFlagsCpy ;
      }
            else 
      {
              if (((*cstk(l)!='g')&&(*cstk(l)!='e')&&(*cstk(l)!='o')) || 
                  (*cstk(l+1)!='l'&&*cstk(l+1)!='n') || 
                  (*cstk(l+2)!='l'&&*cstk(l+2)!='n'))
        {
                Err=pos;
                Error(116);
                return 0;
              }
        *logFlags = cstk(l) ;  
      }
      
    }
    else /* zero type argument --> default value */
          {
      *logFlags = getDefLogFlags() ;
          }
  }
  else if ((kopt=FindOpt("logflag",opts)))
  { /* named argument: style=value */
    GetRhsVar(kopt,"c", &m, &n, &l);
    if ((m * n != 2)&&(m * n != 3))
    {
      Scierror(999,"%s: logflag has wrong size (%d), expected 2 or 3\r\n",fname,m * n);
      return 0;
    }
    if (m * n == 2)
    {
      if ((*cstk(l)!='l'&&*cstk(l)!='n')||(*cstk(l+1)!='l'&&*cstk(l+1)!='n'))
      {
              Err=kopt;
              Error(116);
              return 0;
      }
      logFlagsCpy[0]='g';
      logFlagsCpy[1]=*cstk(l);
      logFlagsCpy[2]=*cstk(l+1) ;
      *logFlags = logFlagsCpy ;
    }
    else
    {
      if (((*cstk(l)!='g')&&(*cstk(l)!='e')&&(*cstk(l)!='o')) || 
                 (*cstk(l+1)!='l'&&*cstk(l+1)!='n') || 
                 (*cstk(l+2)!='l'&&*cstk(l+2)!='n'))
      {
              Err=kopt;
              Error(116);
              return 0;
      }
      
      *logFlags = cstk(l) ;
    }
  }
  else /* unspecified argument --> default value */
  {
    *logFlags = getDefLogFlags() ;
  }
  return 1;
}

Here is the call graph for this function:

int get_nax_arg	(	int	pos,
		rhs_opts	opts[],
		int **	nax,
		BOOL *	flagNax
	)

Definition at line 276 of file GetCommandArg.c.

References CheckLength, FALSE, FindOpt, FirstOpt, getDefNax(), GetRhsVar, i, istk, l, m, Max, n, TRUE, and VarType.

{
  int i,m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt)
  {
    if (VarType(pos))
    {
      GetRhsVar(pos, "i", &m, &n, &l);
      CheckLength(pos,m*n,4);
      for (i = 0 ; i < 4; ++i)
      {
        *istk(l+i) = Max((integer) *istk(l+i),0); /*POLPOTH09042001*/
      }
      *nax=istk(l);
      *flagNax = TRUE;
    }
    else  
    {
            *nax = getDefNax() ;
            *flagNax = FALSE;
    }
  }
  else if ((kopt=FindOpt("nax",opts)))
  {
    GetRhsVar(kopt, "i", &m, &n, &l);
    CheckLength(kopt,m*n,4);
    for (i = 0 ; i < 4; ++i)
    {
      *istk(l+i) = Max((integer) *istk(l+i),0); /*POLPOTH09042001*/
    }
    *nax=istk(l);
    *flagNax = TRUE;
  }
  else 
  {
    *nax = getDefNax() ;
    *flagNax = FALSE;
  } 
  return 1;
}

Here is the call graph for this function:

int get_optional_double_arg	(	char *	fname,
		int	pos,
		char *	name,
		double **	value,
		int	sz,
		rhs_opts	opts[]
	)

Definition at line 558 of file GetCommandArg.c.

References CheckLength, FindOpt, FirstOpt, GetRhsVar, l, m, n, stk, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    { 
      if (VarType(pos)) {
        GetRhsVar(pos, "d", &m, &n, &l);
        CheckLength(pos,m*n,sz)
          *value = stk(l);
      }
    }
  else if ((kopt=FindOpt(name,opts))) {
    GetRhsVar(kopt,"d", &m, &n, &l);
    CheckLength(kopt,m*n,sz)
      *value = stk(l);
  }
  return 1;
}

int get_optional_int_arg	(	char *	fname,
		int	pos,
		char *	name,
		int **	value,
		int	sz,
		rhs_opts	opts[]
	)

Definition at line 583 of file GetCommandArg.c.

References CheckLength, FindOpt, FirstOpt, GetRhsVar, istk, l, m, n, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    { 
      if (VarType(pos)) {
        GetRhsVar(pos, "i", &m, &n, &l);
        CheckLength(pos,m*n,sz)
          *value = istk(l);
      }
    }
  else if ((kopt=FindOpt(name,opts))) {
    GetRhsVar(kopt,"i", &m, &n, &l);
    CheckLength(kopt,m*n,sz)
      *value = istk(l);
  }
  return 1;
}

int get_rect_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		double **	rect
	)

Definition at line 99 of file GetCommandArg.c.

References FindOpt, finite(), FirstOpt, getDefRect(), GetRhsVar, i, l, m, n, setDefRect(), stk, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt,i;

  if (pos < first_opt) 
    { 
      if (VarType(pos)) {
        GetRhsVar(pos, "d", &m, &n, &l);
        if (m * n != 4) { 
          Scierror(999,"%s: rect has wrong size (%d), 4 expected \r\n",fname,m*n); 
          return 0;
        }
        *rect = stk(l);
        
        for(i=0;i<4;i++)
          if(finite((*rect)[i]) == 0){
            Scierror(999,"%s: rect has Nan or Inf values, 4 finite values expected \r\n",fname,m*n); 
            return 0;
          }
      }
      else 
        {
    double zeros[4] = { 0.0, 0.0, 0.0, 0.0 } ;
    setDefRect( zeros ) ;
          *rect = getDefRect() ;
        }
    }
  else if ((kopt=FindOpt("rect",opts))) {/* named argument: rect=value */
    GetRhsVar(kopt, "d", &m, &n, &l);
    if (m * n != 4) { 
      Scierror(999,"%s: rect has wrong size (%d), 4 expected \r\n",fname,m*n); 
      return 0;
    }
    *rect = stk(l);
    
    for(i=0;i<4;i++)
      if(finite((*rect)[i]) == 0){
        Scierror(999,"%s: rect has Nan or Inf values, 4 finite values expected \r\n",fname,m*n); 
        return 0;
      }
  }
  else
    {
      double zeros[4] = { 0.0, 0.0, 0.0, 0.0 } ;
      setDefRect( zeros ) ;
            *rect = getDefRect() ;
    }
    
  return 1;
}

Here is the call graph for this function:

int get_strf_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		char **	strf
	)

Definition at line 152 of file GetCommandArg.c.

References cstk, FindOpt, FirstOpt, getDefStrf(), GetRhsVar, l, m, n, reinitDefStrf(), reinitDefStrfN(), and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt)
  { 
    if (VarType(pos))
    {
            GetRhsVar(pos, "c", &m, &n, &l);
            if ( m * n != 3 )
      { 
              Scierror(999,"%s: strf has wrong size (%d), 3 expected \r\n",fname,m*n); 
              return 0;
            }
          *strf = cstk(l); 
    }
    else
          {
            /* def value can be changed */
      reinitDefStrf() ;
      *strf = getDefStrf() ;
          }
  }
  else if ((kopt=FindOpt("strf",opts)))
  {
    GetRhsVar(kopt, "c", &m, &n, &l);
    if (m * n != 3)
    { 
      Scierror(999,"%s: strf has wrong size (%d), 3 expected \r\n",fname,m*n); 
      return 0;
    }
    *strf = cstk(l); 
  }
  else
  {
    /* def value can be changed */
      
    reinitDefStrfN() ;
    *strf = getDefStrf() ;
   
  }
  return 1;
}

Here is the call graph for this function:

int get_style_arg	(	char *	fname,
		int	pos,
		int	n1,
		rhs_opts	opts[],
		int **	style
	)

Definition at line 20 of file GetCommandArg.c.

References CreateVar, FindOpt, FirstOpt, GetRhsVar, i, istk, ix, l, m, Max, n, Nbvars, Rhs, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt,un=1,ix,i,l1;

  Nbvars = Max(Nbvars,Rhs);


  if ( pos < first_opt ) /* regular argument  */
  { 
    if (VarType(pos))
    {
            GetRhsVar(pos, "i", &m, &n, &l);
            if (m * n < n1)
      {
              Scierror(999,"%s: style is too small (%d < %d)\r\n",fname,m*n,n1);
              return 0;
            }
            if ( n1 == 1 && m * n == 1 )
      {
              ix = 2;
              CreateVar(Nbvars+1,"i",&un,&ix,&l1);
              *istk(l1)=*istk(l);
              *istk(l1+1)=1;
              l=l1;
            }
            *style = istk(l);
    }
    else /* zero type argument --> default value */
          {
            ix = Max(n1,2);
            CreateVar(Nbvars+1,"i",&un,&ix,&l);
            for ( i = 0 ; i < n1 ; ++i )
      {
        *istk(l + i) = i+1 ;
      }
            if (n1 == 1)
      {
        *istk(l + 1) = 1 ;
      }
            *style = istk(l);
          }
  }
  else if ((kopt=FindOpt("style",opts)))
  { /* named argument: style=value */
    GetRhsVar(kopt, "i", &m, &n, &l);
    if (m * n < n1)
    {
      Scierror(999,"%s: style is too small (%d < %d)\r\n",fname,m*n,n1);
      return 0;
    }
    if (n1==1&&m*n==1)
    {
      ix = 2;
      CreateVar(Nbvars+1,"i",&un,&ix,&l1);
      *istk(l1)=*istk(l);
      *istk(l1+1)=1;
      l=l1;
    }
    *style = istk(l);
  }
  else /* unspecified argument --> default value */
  {
    ix = Max(n1,2);
    CreateVar(Nbvars+1,"i",&un,&ix,&l);
    for (i = 0 ; i < n1 ; ++i)
    {
      *istk(l + i) = i+1;
    }
    if (n1 == 1)
    {
      *istk(l +1) = 1;
    }
    *style = istk(l);
  }
  return 1;
}

int get_with_mesh_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		BOOL *	withMesh
	)

Definition at line 435 of file GetCommandArg.c.

References CheckLength, FALSE, FindOpt, FirstOpt, getDefWithMesh(), GetRhsVar, istk, l, m, n, setDefWithMesh(), and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    {
      if (VarType(pos)) 
        {
          GetRhsVar(pos, "b", &m, &n, &l);
          CheckLength(pos,m*n,1);
          *withMesh = *(istk(l));
        }
      else
        {
          setDefWithMesh( FALSE );
          *withMesh = getDefWithMesh() ;
        }
    }
  else if ((kopt=FindOpt("mesh",opts))) 
    {
      GetRhsVar(kopt, "b", &m, &n, &l);
      CheckLength(kopt,m*n,1);
      *withMesh = *(istk(l));
    }
  else 
    {
      setDefWithMesh( FALSE );
      *withMesh = getDefWithMesh() ;
    } 
  return 1;
}

Here is the call graph for this function:

int get_zminmax_arg	(	char *	fname,
		int	pos,
		rhs_opts	opts[],
		double **	zminmax
	)

Definition at line 320 of file GetCommandArg.c.

References FindOpt, FirstOpt, getDefZminMax(), GetRhsVar, l, m, n, setDefZminMax(), stk, and VarType.

{
  int m,n,l,first_opt=FirstOpt(),kopt;

  if (pos < first_opt) 
    { 
      if (VarType(pos)) {
        GetRhsVar(pos, "d", &m, &n, &l);
        if (m * n != 2) { 
          Scierror(999,"%s: zminmax has wrong size (%d), 2 expected \r\n",fname,m*n); 
          return 0;
        }
        *zminmax = stk(l); 
      }
      else 
        {
    double zeros[2] = { 0.0, 0.0 } ;
    setDefZminMax( zeros ) ;
          *zminmax = getDefZminMax() ;
        }
    }
  else if ((kopt=FindOpt("zminmax",opts))) {/* named argument: rect=value */
    GetRhsVar(kopt, "d", &m, &n, &l);
    if (m * n != 2) { 
      Scierror(999,"%s: zminmax has wrong size (%d), 2 expected \r\n",fname,m*n); 
      return 0;
    }
    *zminmax = stk(l); 
  }
  else
    {
      double zeros[2] = { 0.0, 0.0 } ;
      setDefZminMax( zeros ) ;
      *zminmax = getDefZminMax() ;
    }
    
  return 1;
}

Here is the call graph for this function:

---