GetCommandArg.c File Reference

#include <string.h>
#include "GetCommandArg.h"
#include "GetProperty.h"
#include "DefaultCommandArg.h"
#include "CurrentObjectsManagement.h"

Include dependency graph for GetCommandArg.c:

Go to the source code of this file.

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[])
Variables
static char	logFlagsCpy [3]

---

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:

---

Variable Documentation

char logFlagsCpy[3] [static]

Definition at line 15 of file GetCommandArg.c.

Referenced by get_logflags_arg().

---