Scilab [trunk]: scilab/modules/core/src/c/getarg.c Source File

00001 /*---------------------------------------------
00002  * calling fortran iargc and getarg 
00003  * special case for win32 
00004  *--------------------------------------------*/
00005 
00006 #include "machine.h"
00007 #include "core_math.h"
00008 #include "MALLOC.h" /* MALLOC */
00009 #include "getarg.h"
00010 
00011 extern int sci_iargc(void);
00012 extern int sci_getarg(int *,char *,long int ln);
00013 extern int C2F(iargc)(void);
00014 extern int C2F(getarg)(int *,char *,long int ln);
00015 
00016 int C2F(sciiargc)() 
00017 {
00018   int val=0;
00019 #ifdef _MSC_VER
00020   val=sci_iargc(); /* see wsci/winmain.c */
00021 #else
00022 #ifdef G95_FORTRAN
00023   val = _gfortran_iargc();
00024 #else 
00025   val=C2F(iargc)();
00026 #endif 
00027 #endif 
00028   return Max(val,0);
00029 }
00030 
00031 int C2F(scigetarg)(int *n,char *str,long int ln)
00032 {
00033 #ifdef _MSC_VER
00034   sci_getarg(n,str,ln); /* see wsci/winmain.c */
00035 #else 
00036 #ifdef G95_FORTRAN
00037   _gfortran_getarg_i4(n,str,ln);
00038 #else 
00039   C2F(getarg)(n,str,ln);
00040 #endif 
00041 #endif
00042   return 0;
00043 }
00044