getarg.c File Reference

#include "machine.h"
#include "core_math.h"
#include "MALLOC.h"
#include "getarg.h"

Include dependency graph for getarg.c:

Go to the source code of this file.

Functions
int	sci_iargc (void)
int	sci_getarg (int *, char *, long int ln)
int C2F()	iargc (void)
int C2F()	getarg (int *, char *, long int ln)
int C2F()	sciiargc ()
int C2F()	scigetarg (int *n, char *str, long int ln)

---

Function Documentation

int C2F() getarg	(	int *	,
		char *	,
		long int	ln
	)

Referenced by cgetarg(), and scigetarg().

Here is the caller graph for this function:

int C2F() iargc

(

void

)

Referenced by sciiargc().

Here is the caller graph for this function:

int sci_getarg	(	int *	,
		char *	,
		long int	ln
	)

Definition at line 548 of file winmain.c.

{
        register char *t;
        register int i;
        
        if(*n>=0 && *n <= my_argc)
        t = my_argv[*n];
        else
        t = "";

        for(i = 0; i < ls && *t!='\0' ; ++i)
        *s++ = *t++;
        for( ; i<ls ; ++i)
        *s++ = ' ';
        return 0;
}

int sci_iargc

(

void

)

Definition at line 543 of file winmain.c.

{
        return my_argc -1 ;
}

int C2F() scigetarg	(	int *	n,
		char *	str,
		long int	ln
	)

TODO : comment

Parameters:

	n
	str
	ln

Returns:

Definition at line 31 of file getarg.c.

References C2F, getarg(), ln, n, sci_getarg(), and str.

Referenced by create_argv().

{
#ifdef _MSC_VER
  sci_getarg(n,str,ln); /* see wsci/winmain.c */
#else 
#ifdef G95_FORTRAN
  _gfortran_getarg_i4(n,str,ln);
#else 
  C2F(getarg)(n,str,ln);
#endif 
#endif
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F() sciiargc

(

void

)

TODO : comment

Returns:

Definition at line 16 of file getarg.c.

References C2F, iargc(), Max, sci_iargc(), and val.

Referenced by create_argv().

{
  int val=0;
#ifdef _MSC_VER
  val=sci_iargc(); /* see wsci/winmain.c */
#else
#ifdef G95_FORTRAN
  val = _gfortran_iargc();
#else 
  val=C2F(iargc)();
#endif 
#endif 
  return Max(val,0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

---