* all the datatypes have been replaced by the defined elements
Sylvestre Ledru [Wed, 8 Aug 2007 13:29:33 +0000 (13:29 +0000)]
see in SCI/modules/core/includes/stackTypeVariable.h

333 files changed:
scilab/contrib/toolboxe_skeleton/sci_gateway/sci_fsum.c
scilab/modules/arnoldi/sci_gateway/c/sci_dnaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dneupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dsaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dseupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_znaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_zneupd.c
scilab/modules/boolean/sci_gateway/c/sci_and.c
scilab/modules/boolean/sci_gateway/c/sci_or.c
scilab/modules/cacsd/sci_gateway/c/sci_contr.c
scilab/modules/completion/sci_gateway/c/sci_completion.c
scilab/modules/core/sci_gateway/c/sci_chdir.c
scilab/modules/core/sci_gateway/c/sci_clearfun.c
scilab/modules/core/sci_gateway/c/sci_fromc.c
scilab/modules/core/sci_gateway/c/sci_fromjava.c
scilab/modules/core/sci_gateway/c/sci_getcwd.c
scilab/modules/core/sci_gateway/c/sci_getdynlibext.c
scilab/modules/core/sci_gateway/c/sci_getmd5.c
scilab/modules/core/sci_gateway/c/sci_getmemory.c
scilab/modules/core/sci_gateway/c/sci_getmodules.c
scilab/modules/core/sci_gateway/c/sci_getos.c
scilab/modules/core/sci_gateway/c/sci_getscilabmode.c
scilab/modules/core/sci_gateway/c/sci_getvariablesonstack.c
scilab/modules/core/sci_gateway/c/sci_getversion.c
scilab/modules/core/sci_gateway/c/sci_gstacksize.c
scilab/modules/core/sci_gateway/c/sci_havewindow.c
scilab/modules/core/sci_gateway/c/sci_islittleendian.c
scilab/modules/core/sci_gateway/c/sci_librarieslist.c
scilab/modules/core/sci_gateway/c/sci_libraryinfo.c
scilab/modules/core/sci_gateway/c/sci_newfun.c
scilab/modules/core/sci_gateway/c/sci_sciargs.c
scilab/modules/core/sci_gateway/c/sci_stacksize.c
scilab/modules/core/sci_gateway/c/sci_ulink.c
scilab/modules/core/sci_gateway/c/sci_warning.c
scilab/modules/core/sci_gateway/c/sci_what.c
scilab/modules/core/sci_gateway/c/sci_who.c
scilab/modules/core/sci_gateway/c/sci_with_module.c
scilab/modules/core/src/c/IsAScalar.c
scilab/modules/core/src/c/link.c
scilab/modules/core/src/c/msgstore.c
scilab/modules/core/src/c/returnProperty.c
scilab/modules/data_structures/src/c/hmops.c
scilab/modules/elementaries_functions/sci_gateway/c/sci_gsort.c
scilab/modules/fftw/sci_gateway/c/sci_disposefftwlibrary.c
scilab/modules/fftw/sci_gateway/c/sci_fftw.c
scilab/modules/fftw/sci_gateway/c/sci_fftw_flags.c
scilab/modules/fftw/sci_gateway/c/sci_fftwlibraryisloaded.c
scilab/modules/fftw/sci_gateway/c/sci_get_fftw_wisdom.c
scilab/modules/fftw/sci_gateway/c/sci_loadfftwlibrary.c
scilab/modules/fftw/sci_gateway/c/sci_set_fftw_wisdom.c
scilab/modules/fileio/sci_gateway/c/intreadxls.c
scilab/modules/fileio/sci_gateway/c/sci_NumTokens.c
scilab/modules/fileio/sci_gateway/c/sci_deletefile.c
scilab/modules/fileio/sci_gateway/c/sci_fileio.c
scilab/modules/fileio/sci_gateway/c/sci_filesep.c
scilab/modules/fileio/sci_gateway/c/sci_findfiles.c
scilab/modules/fileio/sci_gateway/c/sci_fprintfMat.c
scilab/modules/fileio/sci_gateway/c/sci_fscanfMat.c
scilab/modules/fileio/sci_gateway/c/sci_fullpath.c
scilab/modules/fileio/sci_gateway/c/sci_getdrives.c
scilab/modules/fileio/sci_gateway/c/sci_getlongpathname.c
scilab/modules/fileio/sci_gateway/c/sci_getshortpathname.c
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/fileio/sci_gateway/c/sci_mfprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mfscanf.c
scilab/modules/fileio/sci_gateway/c/sci_mprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mscanf.c
scilab/modules/fileio/sci_gateway/c/sci_msprintf.c
scilab/modules/fileio/sci_gateway/c/sci_msscanf.c
scilab/modules/fileio/sci_gateway/c/sci_pathsep.c
scilab/modules/fileio/src/c/do_xxprintf.c
scilab/modules/fileio/src/c/fileio.c
scilab/modules/graphics/sci_gateway/c/sci_UImenu.c
scilab/modules/graphics/sci_gateway/c/sci_addcb.c
scilab/modules/graphics/sci_gateway/c/sci_champ.c
scilab/modules/graphics/sci_gateway/c/sci_contour2di.c
scilab/modules/graphics/sci_gateway/c/sci_copy.c
scilab/modules/graphics/sci_gateway/c/sci_delete.c
scilab/modules/graphics/sci_gateway/c/sci_demo.c
scilab/modules/graphics/sci_gateway/c/sci_driver.c
scilab/modules/graphics/sci_gateway/c/sci_fec.c
scilab/modules/graphics/sci_gateway/c/sci_geom3d.c
scilab/modules/graphics/sci_gateway/c/sci_get.c
scilab/modules/graphics/sci_gateway/c/sci_glue.c
scilab/modules/graphics/sci_gateway/c/sci_grayplot.c
scilab/modules/graphics/sci_gateway/c/sci_matplot.c
scilab/modules/graphics/sci_gateway/c/sci_matplot1.c
scilab/modules/graphics/sci_gateway/c/sci_move.c
scilab/modules/graphics/sci_gateway/c/sci_newaxes.c
scilab/modules/graphics/sci_gateway/c/sci_param3d.c
scilab/modules/graphics/sci_gateway/c/sci_param3d1.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d.c
scilab/modules/graphics/sci_gateway/c/sci_plot2d1.c
scilab/modules/graphics/sci_gateway/c/sci_plot3d.c
scilab/modules/graphics/sci_gateway/c/sci_readgif.c
scilab/modules/graphics/sci_gateway/c/sci_readxbm.c
scilab/modules/graphics/sci_gateway/c/sci_set.c
scilab/modules/graphics/sci_gateway/c/sci_set_posfig_dim.c
scilab/modules/graphics/sci_gateway/c/sci_showalluimenushandles.c
scilab/modules/graphics/sci_gateway/c/sci_unglue.c
scilab/modules/graphics/sci_gateway/c/sci_unzoom.c
scilab/modules/graphics/sci_gateway/c/sci_winsid.c
scilab/modules/graphics/sci_gateway/c/sci_xarc.c
scilab/modules/graphics/sci_gateway/c/sci_xarcs.c
scilab/modules/graphics/sci_gateway/c/sci_xarrows.c
scilab/modules/graphics/sci_gateway/c/sci_xaxis.c
scilab/modules/graphics/sci_gateway/c/sci_xchange.c
scilab/modules/graphics/sci_gateway/c/sci_xclea.c
scilab/modules/graphics/sci_gateway/c/sci_xclear.c
scilab/modules/graphics/sci_gateway/c/sci_xclick.c
scilab/modules/graphics/sci_gateway/c/sci_xdel.c
scilab/modules/graphics/sci_gateway/c/sci_xfarcs.c
scilab/modules/graphics/sci_gateway/c/sci_xfpoly.c
scilab/modules/graphics/sci_gateway/c/sci_xfpolys.c
scilab/modules/graphics/sci_gateway/c/sci_xget.c
scilab/modules/graphics/sci_gateway/c/sci_xgetech.c
scilab/modules/graphics/sci_gateway/c/sci_xgetmouse.c
scilab/modules/graphics/sci_gateway/c/sci_xgraduate.c
scilab/modules/graphics/sci_gateway/c/sci_xgrid.c
scilab/modules/graphics/sci_gateway/c/sci_xinit.c
scilab/modules/graphics/sci_gateway/c/sci_xlfont.c
scilab/modules/graphics/sci_gateway/c/sci_xname.c
scilab/modules/graphics/sci_gateway/c/sci_xpoly.c
scilab/modules/graphics/sci_gateway/c/sci_xpolys.c
scilab/modules/graphics/sci_gateway/c/sci_xrect.c
scilab/modules/graphics/sci_gateway/c/sci_xrects.c
scilab/modules/graphics/sci_gateway/c/sci_xs2bmp.c
scilab/modules/graphics/sci_gateway/c/sci_xs2emf.c
scilab/modules/graphics/sci_gateway/c/sci_xsegs.c
scilab/modules/graphics/sci_gateway/c/sci_xset.c
scilab/modules/graphics/sci_gateway/c/sci_xsetech.c
scilab/modules/graphics/sci_gateway/c/sci_xsnative.c
scilab/modules/graphics/sci_gateway/c/sci_xstring.c
scilab/modules/graphics/sci_gateway/c/sci_xstringb.c
scilab/modules/graphics/sci_gateway/c/sci_xstringl.c
scilab/modules/graphics/sci_gateway/c/sci_xtitle.c
scilab/modules/graphics/sci_gateway/c/sci_zoom_rect.c
scilab/modules/graphics/src/c/GetCommandArg.c
scilab/modules/graphics/src/c/Interaction.c
scilab/modules/graphics/src/c/getHandleProperty/set_user_data_property.c
scilab/modules/graphics/src/c/xs2file.c
scilab/modules/gui/sci_gateway/c/sci_getlookandfeel.c
scilab/modules/gui/sci_gateway/c/sci_raise_window.c
scilab/modules/gui/sci_gateway/c/sci_setlookandfeel.c
scilab/modules/gui/src/c/wsci/clipboard.c
scilab/modules/gui/src/c/xsci/x_util.c
scilab/modules/history_manager/sci_gateway/c/sci_addhistory.c
scilab/modules/history_manager/sci_gateway/c/sci_gethistory.c
scilab/modules/history_manager/sci_gateway/c/sci_gethistoryfile.c
scilab/modules/history_manager/sci_gateway/c/sci_historymanager.c
scilab/modules/history_manager/sci_gateway/c/sci_historysize.c
scilab/modules/history_manager/sci_gateway/c/sci_loadhistory.c
scilab/modules/history_manager/sci_gateway/c/sci_removelinehistory.c
scilab/modules/history_manager/sci_gateway/c/sci_saveafterncommands.c
scilab/modules/history_manager/sci_gateway/c/sci_saveconsecutivecommands.c
scilab/modules/history_manager/sci_gateway/c/sci_savehistory.c
scilab/modules/history_manager/sci_gateway/c/sci_sethistoryfile.c
scilab/modules/incremental_link/examples/dynamic_links_c_and_fortran/ext14c.c
scilab/modules/incremental_link/examples/gateway/intmatmul.c
scilab/modules/incremental_link/examples/gateway/intview.c
scilab/modules/incremental_link/examples/interfaces/c/intex10c.c
scilab/modules/incremental_link/examples/interfaces/c/intex11c.c
scilab/modules/incremental_link/examples/interfaces/c/intex12c.c
scilab/modules/incremental_link/examples/interfaces/c/intex13c.c
scilab/modules/incremental_link/examples/interfaces/c/intex17c.c
scilab/modules/incremental_link/examples/interfaces/c/intex1c.c
scilab/modules/incremental_link/examples/interfaces/c/intex2c.c
scilab/modules/incremental_link/examples/interfaces/c/intex3c.c
scilab/modules/incremental_link/examples/interfaces/c/intex4c.c
scilab/modules/incremental_link/examples/interfaces/c/intex5c.c
scilab/modules/incremental_link/examples/interfaces/c/intex6c.c
scilab/modules/incremental_link/examples/interfaces/c/intex7c.c
scilab/modules/incremental_link/examples/interfaces/c/intex8c.c
scilab/modules/incremental_link/examples/interfaces/c/intex9c.c
scilab/modules/interpolation/sci_gateway/c/sci_bsplin3val.c
scilab/modules/interpolation/sci_gateway/c/sci_cshep2d.c
scilab/modules/interpolation/sci_gateway/c/sci_eval_cshep2d.c
scilab/modules/interpolation/sci_gateway/c/sci_interp.c
scilab/modules/interpolation/sci_gateway/c/sci_interp2d.c
scilab/modules/interpolation/sci_gateway/c/sci_interp3d.c
scilab/modules/interpolation/sci_gateway/c/sci_linear_interpn.c
scilab/modules/interpolation/sci_gateway/c/sci_lsq_splin.c
scilab/modules/interpolation/sci_gateway/c/sci_splin.c
scilab/modules/interpolation/sci_gateway/c/sci_splin2d.c
scilab/modules/interpolation/sci_gateway/c/sci_splin3d.c
scilab/modules/io/sci_gateway/c/intfilestat.c
scilab/modules/io/sci_gateway/c/intsetenv.c
scilab/modules/io/sci_gateway/c/sci_get_absolute_file_path.c
scilab/modules/io/sci_gateway/c/sci_getio.c
scilab/modules/io/sci_gateway/c/sci_getpid.c
scilab/modules/io/sci_gateway/c/sci_getrelativefilename.c
scilab/modules/io/sci_gateway/c/sci_host.c
scilab/modules/io/sci_gateway/c/sci_isdir.c
scilab/modules/io/sci_gateway/c/sci_newest.c
scilab/modules/jvm/sci_gateway/c/sci_javaclasspath.c
scilab/modules/jvm/sci_gateway/c/sci_javalibrarypath.c
scilab/modules/jvm/sci_gateway/c/sci_system_getproperty.c
scilab/modules/jvm/sci_gateway/c/sci_with_embedded_jre.c
scilab/modules/linear_algebra/examples/intcdgemm.c
scilab/modules/linear_algebra/examples/intdgeesx.c
scilab/modules/linear_algebra/examples/intdgemm.c
scilab/modules/linear_algebra/examples/intdgesvd.c
scilab/modules/linear_algebra/examples/intdgetrf.c
scilab/modules/linear_algebra/examples/intdlassq.c
scilab/modules/linear_algebra/examples/intdsyev.c
scilab/modules/linear_algebra/examples/intzgeesx.c
scilab/modules/linear_algebra/examples/intzgemm.c
scilab/modules/linear_algebra/sci_gateway/c/sci_bdiag.c
scilab/modules/localization/sci_gateway/c/sci_addtext.c
scilab/modules/localization/sci_gateway/c/sci_getlanguage.c
scilab/modules/localization/sci_gateway/c/sci_getlanguagealias.c
scilab/modules/localization/sci_gateway/c/sci_getlanguagestable.c
scilab/modules/localization/sci_gateway/c/sci_gettext.c
scilab/modules/localization/sci_gateway/c/sci_removetext.c
scilab/modules/localization/sci_gateway/c/sci_setlanguage.c
scilab/modules/mexlib/examples/interface/f4.c
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/optimization/src/c/intqld.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_addhosts.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_barrier.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_bcast.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_bufinfo.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_config.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_delhosts.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_error.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_error_mode.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_exit.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_get_timer.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_getinst.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_gettid.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_gsize.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_halt.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_joingroup.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_kill.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_lvgroup.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_mytid.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_parent.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_probe.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_recv.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_recv_var.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_reduce.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_send.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_send_var.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_set_timer.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_spawn.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_spawn_independent.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_start.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_tasks.c
scilab/modules/pvm/sci_gateway/c/sci_pvm_tidtohost.c
scilab/modules/randlib/sci_gateway/c/sci_grand.c
scilab/modules/scicos/sci_gateway/c/intcscicos.c
scilab/modules/scicos/src/c/intconnection.c
scilab/modules/shell/sci_gateway/c/sci_clc.c
scilab/modules/sound/sci_gateway/c/sci_PlaySound.c
scilab/modules/sound/sci_gateway/c/sci_beep.c
scilab/modules/sound/sci_gateway/c/sci_loadwave.c
scilab/modules/sound/sci_gateway/c/sci_savewave.c
scilab/modules/sparse/src/c/mspelm.c
scilab/modules/special_functions/sci_gateway/c/sci_besselh.c
scilab/modules/special_functions/sci_gateway/c/sci_besseli.c
scilab/modules/special_functions/sci_gateway/c/sci_besselj.c
scilab/modules/special_functions/sci_gateway/c/sci_besselk.c
scilab/modules/special_functions/sci_gateway/c/sci_bessely.c
scilab/modules/special_functions/sci_gateway/c/sci_beta.c
scilab/modules/special_functions/sci_gateway/c/sci_legendre.c
scilab/modules/statistics/sci_gateway/c/sci_cdfbet.c
scilab/modules/statistics/sci_gateway/c/sci_cdfbin.c
scilab/modules/statistics/sci_gateway/c/sci_cdfchi.c
scilab/modules/statistics/sci_gateway/c/sci_cdfchn.c
scilab/modules/statistics/sci_gateway/c/sci_cdff.c
scilab/modules/statistics/sci_gateway/c/sci_cdffnc.c
scilab/modules/statistics/sci_gateway/c/sci_cdfgam.c
scilab/modules/statistics/sci_gateway/c/sci_cdfnbn.c
scilab/modules/statistics/sci_gateway/c/sci_cdfnor.c
scilab/modules/statistics/sci_gateway/c/sci_cdfpoi.c
scilab/modules/statistics/sci_gateway/c/sci_cdft.c
scilab/modules/statistics/src/c/CdfBase.c
scilab/modules/string/src/c/strcat-c.c
scilab/modules/string_V2/sci_gateway/c/sci_ascii1.c
scilab/modules/string_V2/sci_gateway/c/sci_code2str1.c
scilab/modules/string_V2/sci_gateway/c/sci_convstr1.c
scilab/modules/string_V2/sci_gateway/c/sci_emptystr1.c
scilab/modules/string_V2/sci_gateway/c/sci_grep1.c
scilab/modules/string_V2/sci_gateway/c/sci_length1.c
scilab/modules/string_V2/sci_gateway/c/sci_part1.c
scilab/modules/string_V2/sci_gateway/c/sci_regexp.c
scilab/modules/string_V2/sci_gateway/c/sci_regexpprivate.c
scilab/modules/string_V2/sci_gateway/c/sci_str2code1.c
scilab/modules/string_V2/sci_gateway/c/sci_strcat1.c
scilab/modules/string_V2/sci_gateway/c/sci_strindex1.c
scilab/modules/string_V2/sci_gateway/c/sci_stripblanks1.c
scilab/modules/string_V2/sci_gateway/c/sci_strsplit1.c
scilab/modules/string_V2/sci_gateway/c/sci_strsubst1.c
scilab/modules/string_V2/sci_gateway/c/sci_tokens1.c
scilab/modules/string_V2/src/c/strcat-c.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_EvalFile.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_EvalStr.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_ExistArray.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_ExistInterp.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_ExistVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_GetVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_GetVersion.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_SetVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_UnsetVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_UpVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_gcf.c
scilab/modules/tclsci/sci_gateway/c/sci_close.c
scilab/modules/tclsci/sci_gateway/c/sci_findobj.c
scilab/modules/tclsci/sci_gateway/c/sci_get.c
scilab/modules/tclsci/sci_gateway/c/sci_set.c
scilab/modules/tclsci/src/c/TCL_Global.c
scilab/modules/tclsci/src/c/TclUiGet.c
scilab/modules/tclsci/src/c/TclUiSet.c
scilab/modules/time/sci_gateway/c/sci_calendar.c
scilab/modules/time/sci_gateway/c/sci_getdate.c
scilab/modules/time/sci_gateway/c/sci_realtime.c
scilab/modules/time/sci_gateway/c/sci_sleep.c
scilab/modules/time/sci_gateway/c/sci_timer.c
scilab/modules/time/sci_gateway/c/sci_xpause.c
scilab/modules/windows_tools/sci_gateway/c/sci_chartooem.c
scilab/modules/windows_tools/sci_gateway/c/sci_consolebox.c
scilab/modules/windows_tools/sci_gateway/c/sci_dos.c
scilab/modules/windows_tools/sci_gateway/c/sci_findfileassociation.c
scilab/modules/windows_tools/sci_gateway/c/sci_mcisendstring.c
scilab/modules/windows_tools/sci_gateway/c/sci_oemtochar.c
scilab/modules/windows_tools/sci_gateway/c/sci_printbox.c
scilab/modules/windows_tools/sci_gateway/c/sci_toprint.c
scilab/modules/windows_tools/sci_gateway/c/sci_winopen.c
scilab/modules/windows_tools/sci_gateway/c/sci_winqueryreg.c
scilab/modules/wintools/sci_gateway/c/interfdde.C
scilab/modules/wintools/sci_gateway/c/intihmcolor.c
scilab/modules/wintools/sci_gateway/c/sci_setlanguagemenu.c
scilab/modules/wintools/sci_gateway/c/sci_toolbar.c

index 4e696d0..579fdb7 100644 (file)
@@ -20,11 +20,11 @@ sci_fsum(char *fname)
   CheckLhs(1,1) ;   
 
   /* get first parameter and put in 'a' */
-  GetRhsVar(1, "d", &m1, &n1, &l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   a = *stk(l1);
   
   /* get second parameter and put in 'a' */
-  GetRhsVar(2, "d", &m2, &n2, &l2);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
   b= *stk(l2) ;
  
   /* call fortran fsum subroutine */
@@ -33,7 +33,7 @@ sci_fsum(char *fname)
   /* create a variable on scilab's stack */
   m3=1;
   n3=1;
-  CreateVar(Rhs+1,"d",&m3,&n3,&l3);
+  CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3);
   *stk(l3) = c;
 
   LhsVar(1) = Rhs+1; 
index e33553b..b574ac8 100644 (file)
@@ -37,20 +37,20 @@ int C2F(intdnaupd) _PARAMS((char *fname,unsigned long fname_len))
 
   CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
   /*                                                  VARIABLE = NUMBER   */
-  GetRhsVar( 1, "i", &mIDO,    &nIDO,    &pIDO);           IDO  =  1;
-  GetRhsVar( 2, "c", &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  2;
-  GetRhsVar( 3, "i", &mN,      &nN,      &pN);             N    =  3;  
-  GetRhsVar( 4, "c", &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  4; 
-  GetRhsVar( 5, "i", &mNEV,    &nNEV,    &pNEV);            NEV =  5;
-  GetRhsVar( 6, "d", &mTOL,    &nTOL,    &pTOL);            TOL =  6; 
-  GetRhsVar( 7, "d", &mRESID,  &nRESID,  &pRESID);        RESID =  7;
-  GetRhsVar( 8, "i", &mNCV,    &nNCV,    &pNCV);            NCV =  8;
-  GetRhsVar( 9, "d", &mV,      &nV,      &pV);               V  =  9;
-  GetRhsVar(10, "i", &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 10;
-  GetRhsVar(11, "i", &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 11;
-  GetRhsVar(12, "d", &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 12;
-  GetRhsVar(13, "d", &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
-  GetRhsVar(14, "i", &mINFO,   &nINFO,   &pINFO);          INFO = 14;
+  GetRhsVar( 1,MATRIX_OF_INTEGER_DATATYPE, &mIDO,    &nIDO,    &pIDO);           IDO  =  1;
+  GetRhsVar( 2,STRING_DATATYPE, &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  2;
+  GetRhsVar( 3,MATRIX_OF_INTEGER_DATATYPE, &mN,      &nN,      &pN);             N    =  3;  
+  GetRhsVar( 4,STRING_DATATYPE, &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  4; 
+  GetRhsVar( 5,MATRIX_OF_INTEGER_DATATYPE, &mNEV,    &nNEV,    &pNEV);            NEV =  5;
+  GetRhsVar( 6,MATRIX_OF_DOUBLE_DATATYPE, &mTOL,    &nTOL,    &pTOL);            TOL =  6; 
+  GetRhsVar( 7,MATRIX_OF_DOUBLE_DATATYPE, &mRESID,  &nRESID,  &pRESID);        RESID =  7;
+  GetRhsVar( 8,MATRIX_OF_INTEGER_DATATYPE, &mNCV,    &nNCV,    &pNCV);            NCV =  8;
+  GetRhsVar( 9,MATRIX_OF_DOUBLE_DATATYPE, &mV,      &nV,      &pV);               V  =  9;
+  GetRhsVar(10,MATRIX_OF_INTEGER_DATATYPE, &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 10;
+  GetRhsVar(11,MATRIX_OF_INTEGER_DATATYPE, &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 11;
+  GetRhsVar(12,MATRIX_OF_DOUBLE_DATATYPE, &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 12;
+  GetRhsVar(13,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
+  GetRhsVar(14,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 14;
 
   LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN));
 
index 846a874..43f9b7a 100644 (file)
@@ -42,28 +42,28 @@ int C2F(intdneupd) _PARAMS((char *fname,unsigned long fname_len))
 
   CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
   /*                                                  VARIABLE = NUMBER   */
-  GetRhsVar( 1, "i", &mRVEC,   &nRVEC,   &pRVEC);         RVEC  =  1;
-  GetRhsVar( 2, "c", &mHOWMANY,&nHOWMANY,&pHOWMANY);   HOWMANY  =  2;
-  GetRhsVar( 3, "i", &mSELECT, &nSELECT, &pSELECT);     SELECT  =  3;
-  GetRhsVar( 4, "d", &mDr,     &nDr,     &pDr);             Dr  =  4;
-  GetRhsVar( 5, "d", &mDi,     &nDi,     &pDi);             Di  =  5;
-  GetRhsVar( 6, "d", &mZ,      &nZ,      &pZ);               Z  =  6;
-  GetRhsVar( 7, "d", &mSIGMAr, &nSIGMAr, &pSIGMAr);      SIGMAr =  7;
-  GetRhsVar( 8, "d", &mSIGMAi, &nSIGMAi, &pSIGMAi);      SIGMAi =  8;
-  GetRhsVar( 9, "d", &mWORKev, &nWORKev, &pWORKev);      WORKev =  9;
-  GetRhsVar(10, "c", &mBMAT,   &nBMAT,   &pBMAT);          BMAT = 10;
-  GetRhsVar(11, "i", &mN,      &nN,      &pN);             N    = 11;  
-  GetRhsVar(12, "c", &mWHICH,  &nWHICH,  &pWHICH);       WHICH  = 12; 
-  GetRhsVar(13, "i", &mNEV,    &nNEV,    &pNEV);            NEV = 13;
-  GetRhsVar(14, "d", &mTOL,    &nTOL,    &pTOL);            TOL = 14; 
-  GetRhsVar(15, "d", &mRESID,  &nRESID,  &pRESID);        RESID = 15;
-  GetRhsVar(16, "i", &mNCV,    &nNCV,    &pNCV);            NCV = 16;
-  GetRhsVar(17, "d", &mV,      &nV,      &pV);               V  = 17;
-  GetRhsVar(18, "i", &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 18;
-  GetRhsVar(19, "i", &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 19;
-  GetRhsVar(20, "d", &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 20;
-  GetRhsVar(21, "d", &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 21;
-  GetRhsVar(22, "i", &mINFO,   &nINFO,   &pINFO);          INFO = 22;
+  GetRhsVar( 1,MATRIX_OF_INTEGER_DATATYPE, &mRVEC,   &nRVEC,   &pRVEC);         RVEC  =  1;
+  GetRhsVar( 2,STRING_DATATYPE, &mHOWMANY,&nHOWMANY,&pHOWMANY);   HOWMANY  =  2;
+  GetRhsVar( 3,MATRIX_OF_INTEGER_DATATYPE, &mSELECT, &nSELECT, &pSELECT);     SELECT  =  3;
+  GetRhsVar( 4,MATRIX_OF_DOUBLE_DATATYPE, &mDr,     &nDr,     &pDr);             Dr  =  4;
+  GetRhsVar( 5,MATRIX_OF_DOUBLE_DATATYPE, &mDi,     &nDi,     &pDi);             Di  =  5;
+  GetRhsVar( 6,MATRIX_OF_DOUBLE_DATATYPE, &mZ,      &nZ,      &pZ);               Z  =  6;
+  GetRhsVar( 7,MATRIX_OF_DOUBLE_DATATYPE, &mSIGMAr, &nSIGMAr, &pSIGMAr);      SIGMAr =  7;
+  GetRhsVar( 8,MATRIX_OF_DOUBLE_DATATYPE, &mSIGMAi, &nSIGMAi, &pSIGMAi);      SIGMAi =  8;
+  GetRhsVar( 9,MATRIX_OF_DOUBLE_DATATYPE, &mWORKev, &nWORKev, &pWORKev);      WORKev =  9;
+  GetRhsVar(10,STRING_DATATYPE, &mBMAT,   &nBMAT,   &pBMAT);          BMAT = 10;
+  GetRhsVar(11,MATRIX_OF_INTEGER_DATATYPE, &mN,      &nN,      &pN);             N    = 11;  
+  GetRhsVar(12,STRING_DATATYPE, &mWHICH,  &nWHICH,  &pWHICH);       WHICH  = 12; 
+  GetRhsVar(13,MATRIX_OF_INTEGER_DATATYPE, &mNEV,    &nNEV,    &pNEV);            NEV = 13;
+  GetRhsVar(14,MATRIX_OF_DOUBLE_DATATYPE, &mTOL,    &nTOL,    &pTOL);            TOL = 14; 
+  GetRhsVar(15,MATRIX_OF_DOUBLE_DATATYPE, &mRESID,  &nRESID,  &pRESID);        RESID = 15;
+  GetRhsVar(16,MATRIX_OF_INTEGER_DATATYPE, &mNCV,    &nNCV,    &pNCV);            NCV = 16;
+  GetRhsVar(17,MATRIX_OF_DOUBLE_DATATYPE, &mV,      &nV,      &pV);               V  = 17;
+  GetRhsVar(18,MATRIX_OF_INTEGER_DATATYPE, &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 18;
+  GetRhsVar(19,MATRIX_OF_INTEGER_DATATYPE, &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 19;
+  GetRhsVar(20,MATRIX_OF_DOUBLE_DATATYPE, &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 20;
+  GetRhsVar(21,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 21;
+  GetRhsVar(22,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 22;
   
   LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN)); LDZ=LDV;
 
index 366f4f6..4612552 100644 (file)
@@ -37,20 +37,20 @@ int C2F(intdsaupd) _PARAMS((char *fname,unsigned long fname_len))
 
   CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
   /*                                                  VARIABLE = NUMBER   */
-  GetRhsVar( 1, "i", &mIDO,    &nIDO,    &pIDO);           IDO  =  1;
-  GetRhsVar( 2, "c", &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  2;
-  GetRhsVar( 3, "i", &mN,      &nN,      &pN);             N    =  3;  
-  GetRhsVar( 4, "c", &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  4; 
-  GetRhsVar( 5, "i", &mNEV,    &nNEV,    &pNEV);            NEV =  5;
-  GetRhsVar( 6, "d", &mTOL,    &nTOL,    &pTOL);            TOL =  6; 
-  GetRhsVar( 7, "d", &mRESID,  &nRESID,  &pRESID);        RESID =  7;
-  GetRhsVar( 8, "i", &mNCV,    &nNCV,    &pNCV);            NCV =  8;
-  GetRhsVar( 9, "d", &mV,      &nV,      &pV);               V  =  9;
-  GetRhsVar(10, "i", &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 10;
-  GetRhsVar(11, "i", &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 11;
-  GetRhsVar(12, "d", &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 12;
-  GetRhsVar(13, "d", &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
-  GetRhsVar(14, "i", &mINFO,   &nINFO,   &pINFO);          INFO = 14;
+  GetRhsVar( 1,MATRIX_OF_INTEGER_DATATYPE, &mIDO,    &nIDO,    &pIDO);           IDO  =  1;
+  GetRhsVar( 2,STRING_DATATYPE, &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  2;
+  GetRhsVar( 3,MATRIX_OF_INTEGER_DATATYPE, &mN,      &nN,      &pN);             N    =  3;  
+  GetRhsVar( 4,STRING_DATATYPE, &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  4; 
+  GetRhsVar( 5,MATRIX_OF_INTEGER_DATATYPE, &mNEV,    &nNEV,    &pNEV);            NEV =  5;
+  GetRhsVar( 6,MATRIX_OF_DOUBLE_DATATYPE, &mTOL,    &nTOL,    &pTOL);            TOL =  6; 
+  GetRhsVar( 7,MATRIX_OF_DOUBLE_DATATYPE, &mRESID,  &nRESID,  &pRESID);        RESID =  7;
+  GetRhsVar( 8,MATRIX_OF_INTEGER_DATATYPE, &mNCV,    &nNCV,    &pNCV);            NCV =  8;
+  GetRhsVar( 9,MATRIX_OF_DOUBLE_DATATYPE, &mV,      &nV,      &pV);               V  =  9;
+  GetRhsVar(10,MATRIX_OF_INTEGER_DATATYPE, &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 10;
+  GetRhsVar(11,MATRIX_OF_INTEGER_DATATYPE, &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 11;
+  GetRhsVar(12,MATRIX_OF_DOUBLE_DATATYPE, &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 12;
+  GetRhsVar(13,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
+  GetRhsVar(14,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 14;
 
   LWORKL = mWORKL*nWORKL;   LDV=MAX(1, *istk(pN));
 
index 2a7a1bf..99a5580 100644 (file)
@@ -42,25 +42,25 @@ int C2F(intdseupd) _PARAMS((char *fname,unsigned long fname_len))
 
   CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
   /*                                                  VARIABLE = NUMBER   */
-  GetRhsVar( 1, "i", &mRVEC,   &nRVEC,   &pRVEC);         RVEC  =  1;
-  GetRhsVar( 2, "c", &mHOWMANY,&nHOWMANY,&pHOWMANY);   HOWMANY  =  2;
-  GetRhsVar( 3, "i", &mSELECT, &nSELECT, &pSELECT);     SELECT  =  3;
-  GetRhsVar( 4, "d", &mD,      &nD,      &pD);               D  =  4;
-  GetRhsVar( 5, "d", &mZ,      &nZ,      &pZ);               Z  =  5;
-  GetRhsVar( 6, "d", &mSIGMA,  &nSIGMA,  &pSIGMA);        SIGMA =  6;
-  GetRhsVar( 7, "c", &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  7;
-  GetRhsVar( 8, "i", &mN,      &nN,      &pN);             N    =  8;  
-  GetRhsVar( 9, "c", &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  9; 
-  GetRhsVar(10, "i", &mNEV,    &nNEV,    &pNEV);            NEV = 10;
-  GetRhsVar(11, "d", &mTOL,    &nTOL,    &pTOL);            TOL = 11; 
-  GetRhsVar(12, "d", &mRESID,  &nRESID,  &pRESID);        RESID = 12;
-  GetRhsVar(13, "i", &mNCV,    &nNCV,    &pNCV);            NCV = 13;
-  GetRhsVar(14, "d", &mV,      &nV,      &pV);               V  = 14;
-  GetRhsVar(15, "i", &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 15;
-  GetRhsVar(16, "i", &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 16;
-  GetRhsVar(17, "d", &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 17;
-  GetRhsVar(18, "d", &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 18;
-  GetRhsVar(19, "i", &mINFO,   &nINFO,   &pINFO);          INFO = 19;
+  GetRhsVar( 1,MATRIX_OF_INTEGER_DATATYPE, &mRVEC,   &nRVEC,   &pRVEC);         RVEC  =  1;
+  GetRhsVar( 2,STRING_DATATYPE, &mHOWMANY,&nHOWMANY,&pHOWMANY);   HOWMANY  =  2;
+  GetRhsVar( 3,MATRIX_OF_INTEGER_DATATYPE, &mSELECT, &nSELECT, &pSELECT);     SELECT  =  3;
+  GetRhsVar( 4,MATRIX_OF_DOUBLE_DATATYPE, &mD,      &nD,      &pD);               D  =  4;
+  GetRhsVar( 5,MATRIX_OF_DOUBLE_DATATYPE, &mZ,      &nZ,      &pZ);               Z  =  5;
+  GetRhsVar( 6,MATRIX_OF_DOUBLE_DATATYPE, &mSIGMA,  &nSIGMA,  &pSIGMA);        SIGMA =  6;
+  GetRhsVar( 7,STRING_DATATYPE, &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  7;
+  GetRhsVar( 8,MATRIX_OF_INTEGER_DATATYPE, &mN,      &nN,      &pN);             N    =  8;  
+  GetRhsVar( 9,STRING_DATATYPE, &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  9; 
+  GetRhsVar(10,MATRIX_OF_INTEGER_DATATYPE, &mNEV,    &nNEV,    &pNEV);            NEV = 10;
+  GetRhsVar(11,MATRIX_OF_DOUBLE_DATATYPE, &mTOL,    &nTOL,    &pTOL);            TOL = 11; 
+  GetRhsVar(12,MATRIX_OF_DOUBLE_DATATYPE, &mRESID,  &nRESID,  &pRESID);        RESID = 12;
+  GetRhsVar(13,MATRIX_OF_INTEGER_DATATYPE, &mNCV,    &nNCV,    &pNCV);            NCV = 13;
+  GetRhsVar(14,MATRIX_OF_DOUBLE_DATATYPE, &mV,      &nV,      &pV);               V  = 14;
+  GetRhsVar(15,MATRIX_OF_INTEGER_DATATYPE, &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 15;
+  GetRhsVar(16,MATRIX_OF_INTEGER_DATATYPE, &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 16;
+  GetRhsVar(17,MATRIX_OF_DOUBLE_DATATYPE, &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 17;
+  GetRhsVar(18,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 18;
+  GetRhsVar(19,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 19;
 
   LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN)); LDZ=LDV;
 
index bc9c003..3b5f71b 100644 (file)
@@ -36,21 +36,21 @@ int C2F(intznaupd) _PARAMS((char *fname,unsigned long fname_len))
   CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
 
   /*                                                  VARIABLE = NUMBER   */
-  GetRhsVar( 1, "i", &mIDO,    &nIDO,    &pIDO);           IDO  =  1;
-  GetRhsVar( 2, "c", &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  2;
-  GetRhsVar( 3, "i", &mN,      &nN,      &pN);             N    =  3;  
-  GetRhsVar( 4, "c", &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  4; 
-  GetRhsVar( 5, "i", &mNEV,    &nNEV,    &pNEV);            NEV =  5;
-  GetRhsVar( 6, "d", &mTOL,    &nTOL,    &pTOL);            TOL =  6; 
-  GetRhsVar( 7, "z", &mRESID,  &nRESID,  &pRESID);        RESID =  7;
-  GetRhsVar( 8, "i", &mNCV,    &nNCV,    &pNCV);            NCV =  8;
-  GetRhsVar( 9, "z", &mV,      &nV,      &pV);               V  =  9;
-  GetRhsVar(10, "i", &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 10;
-  GetRhsVar(11, "i", &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 11;
-  GetRhsVar(12, "z", &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 12;
-  GetRhsVar(13, "z", &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
-  GetRhsVar(14, "d", &mRWORK,  &nRWORK,  &pRWORK);       RWORK  = 14;
-  GetRhsVar(15, "i", &mINFO,   &nINFO,   &pINFO);          INFO = 15;
+  GetRhsVar( 1,MATRIX_OF_INTEGER_DATATYPE, &mIDO,    &nIDO,    &pIDO);           IDO  =  1;
+  GetRhsVar( 2,STRING_DATATYPE, &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  2;
+  GetRhsVar( 3,MATRIX_OF_INTEGER_DATATYPE, &mN,      &nN,      &pN);             N    =  3;  
+  GetRhsVar( 4,STRING_DATATYPE, &mWHICH,  &nWHICH,  &pWHICH);       WHICH  =  4; 
+  GetRhsVar( 5,MATRIX_OF_INTEGER_DATATYPE, &mNEV,    &nNEV,    &pNEV);            NEV =  5;
+  GetRhsVar( 6,MATRIX_OF_DOUBLE_DATATYPE, &mTOL,    &nTOL,    &pTOL);            TOL =  6; 
+  GetRhsVar( 7,MATRIX_OF_COMPLEX_DATATYPE, &mRESID,  &nRESID,  &pRESID);        RESID =  7;
+  GetRhsVar( 8,MATRIX_OF_INTEGER_DATATYPE, &mNCV,    &nNCV,    &pNCV);            NCV =  8;
+  GetRhsVar( 9,MATRIX_OF_COMPLEX_DATATYPE, &mV,      &nV,      &pV);               V  =  9;
+  GetRhsVar(10,MATRIX_OF_INTEGER_DATATYPE, &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 10;
+  GetRhsVar(11,MATRIX_OF_INTEGER_DATATYPE, &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 11;
+  GetRhsVar(12,MATRIX_OF_COMPLEX_DATATYPE, &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 12;
+  GetRhsVar(13,MATRIX_OF_COMPLEX_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
+  GetRhsVar(14,MATRIX_OF_DOUBLE_DATATYPE, &mRWORK,  &nRWORK,  &pRWORK);       RWORK  = 14;
+  GetRhsVar(15,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 15;
 
   LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN));
 
index 4dc0a5d..c1e8ec7 100644 (file)
@@ -41,27 +41,27 @@ int C2F(intzneupd) _PARAMS((char *fname,unsigned long fname_len))
 
   CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
   /*                                                  VARIABLE = NUMBER   */
-  GetRhsVar( 1, "i", &mRVEC,   &nRVEC,   &pRVEC);         RVEC  =  1;
-  GetRhsVar( 2, "c", &mHOWMANY,&nHOWMANY,&pHOWMANY);   HOWMANY  =  2;
-  GetRhsVar( 3, "i", &mSELECT, &nSELECT, &pSELECT);     SELECT  =  3;
-  GetRhsVar( 4, "z", &mD,      &nD,      &pD);               D  =  4;
+  GetRhsVar( 1,MATRIX_OF_INTEGER_DATATYPE, &mRVEC,   &nRVEC,   &pRVEC);         RVEC  =  1;
+  GetRhsVar( 2,STRING_DATATYPE, &mHOWMANY,&nHOWMANY,&pHOWMANY);   HOWMANY  =  2;
+  GetRhsVar( 3,MATRIX_OF_INTEGER_DATATYPE, &mSELECT, &nSELECT, &pSELECT);     SELECT  =  3;
+  GetRhsVar( 4,MATRIX_OF_COMPLEX_DATATYPE, &mD,      &nD,      &pD);               D  =  4;
   GetRhsVar( 5, "z", &mZ,      &nZ,      &pZ) ;              Z  =  5;
-  GetRhsVar( 6, "z", &mSIGMA,  &nSIGMA,  &pSIGMA);        SIGMA =  6;
-  GetRhsVar( 7, "z", &mWORKev, &nWORKev, &pWORKev);      WORKev =  7;
-  GetRhsVar( 8, "c", &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  8;
-  GetRhsVar( 9, "i", &mN,      &nN,      &pN);             N    =  9;  
-  GetRhsVar(10, "c", &mWHICH,  &nWHICH,  &pWHICH);       WHICH  = 10; 
-  GetRhsVar(11, "i", &mNEV,    &nNEV,    &pNEV);            NEV = 11;
-  GetRhsVar(12, "d", &mTOL,    &nTOL,    &pTOL);            TOL = 12; 
-  GetRhsVar(13, "z", &mRESID,  &nRESID,  &pRESID);        RESID = 13;
-  GetRhsVar(14, "i", &mNCV,    &nNCV,    &pNCV);            NCV = 14;
-  GetRhsVar(15, "z", &mV,      &nV,      &pV);               V  = 15;
-  GetRhsVar(16, "i", &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 16;
-  GetRhsVar(17, "i", &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 17;
-  GetRhsVar(18, "z", &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 18;
-  GetRhsVar(19, "z", &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 19;
-  GetRhsVar(20, "d", &mRWORK,  &nRWORK,  &pRWORK);       RWORK  = 20;
-  GetRhsVar(21, "i", &mINFO,   &nINFO,   &pINFO);          INFO = 21;
+  GetRhsVar( 6,MATRIX_OF_COMPLEX_DATATYPE, &mSIGMA,  &nSIGMA,  &pSIGMA);        SIGMA =  6;
+  GetRhsVar( 7,MATRIX_OF_COMPLEX_DATATYPE, &mWORKev, &nWORKev, &pWORKev);      WORKev =  7;
+  GetRhsVar( 8,STRING_DATATYPE, &mBMAT,   &nBMAT,   &pBMAT);          BMAT =  8;
+  GetRhsVar( 9,MATRIX_OF_INTEGER_DATATYPE, &mN,      &nN,      &pN);             N    =  9;  
+  GetRhsVar(10,STRING_DATATYPE, &mWHICH,  &nWHICH,  &pWHICH);       WHICH  = 10; 
+  GetRhsVar(11,MATRIX_OF_INTEGER_DATATYPE, &mNEV,    &nNEV,    &pNEV);            NEV = 11;
+  GetRhsVar(12,MATRIX_OF_DOUBLE_DATATYPE, &mTOL,    &nTOL,    &pTOL);            TOL = 12; 
+  GetRhsVar(13,MATRIX_OF_COMPLEX_DATATYPE, &mRESID,  &nRESID,  &pRESID);        RESID = 13;
+  GetRhsVar(14,MATRIX_OF_INTEGER_DATATYPE, &mNCV,    &nNCV,    &pNCV);            NCV = 14;
+  GetRhsVar(15,MATRIX_OF_COMPLEX_DATATYPE, &mV,      &nV,      &pV);               V  = 15;
+  GetRhsVar(16,MATRIX_OF_INTEGER_DATATYPE, &mIPARAM, &nIPARAM, &pIPARAM);      IPARAM = 16;
+  GetRhsVar(17,MATRIX_OF_INTEGER_DATATYPE, &mIPNTR,  &nIPNTR,  &pIPNTR);       IPNTR  = 17;
+  GetRhsVar(18,MATRIX_OF_COMPLEX_DATATYPE, &mWORKD,  &nWORKD,  &pWORKD);       WORKD  = 18;
+  GetRhsVar(19,MATRIX_OF_COMPLEX_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 19;
+  GetRhsVar(20,MATRIX_OF_DOUBLE_DATATYPE, &mRWORK,  &nRWORK,  &pRWORK);       RWORK  = 20;
+  GetRhsVar(21,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 21;
 
   LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN)); LDZ=LDV;
 
index c030305..be2f1fb 100644 (file)
@@ -25,7 +25,7 @@ int C2F(intand)(char *fname,unsigned long l)
  if (Rhs==2) {
    nopt=1;
    if (VarType(2)==10) {
-     GetRhsVar(2,"c",&m1,&n1,&lo);
+     GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&lo);
      if (*cstk(lo)=='r')
        opt=1;
      else if (*cstk(lo)=='*')
@@ -39,7 +39,7 @@ int C2F(intand)(char *fname,unsigned long l)
  
    }
    else {
-     GetRhsVar(2,"d",&m1,&n1,&lo);
+     GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&lo);
      opt= (int) *stk(lo);
      if (opt>2||opt<1) {
        Err=2;
@@ -49,7 +49,7 @@ int C2F(intand)(char *fname,unsigned long l)
  }  /*(Rhs==2) */
 
  /*  checking variable a */
- GetRhsVar(1,"b",&m1,&n1,&l1);
+ GetRhsVar(1,MATRIX_OF_BOOLEAN_DATATYPE,&m1,&n1,&l1);
 
  if (Rhs==2 && m1*n1==0) {
    LhsVar(1)= 1;
@@ -60,11 +60,11 @@ int C2F(intand)(char *fname,unsigned long l)
  /* cross variable size checking */
  mm2=1;
  if (opt==0) {
-   CreateVar(2+nopt,"b",&mm2,&mm2,&l2);}/* named: x */
+   CreateVar(2+nopt,MATRIX_OF_BOOLEAN_DATATYPE,&mm2,&mm2,&l2);}/* named: x */
  else if (opt==1) {
-   CreateVar(2+nopt,"b",&mm2,&n1,&l2);}/* named: x */
+   CreateVar(2+nopt,MATRIX_OF_BOOLEAN_DATATYPE,&mm2,&n1,&l2);}/* named: x */
  else if (opt==2) {
-   CreateVar(2+nopt,"b",&m1,&mm2,&l2);}/* named: x */
+   CreateVar(2+nopt,MATRIX_OF_BOOLEAN_DATATYPE,&m1,&mm2,&l2);}/* named: x */
  vect_and(istk(l1),m1,n1,istk(l2),opt);
  LhsVar(1)= 2+nopt;
  C2F(putlhsvar)();
index badbb51..64d744f 100644 (file)
@@ -25,7 +25,7 @@ int C2F(intor)(char *fname,unsigned long l)
  if (Rhs==2) {
    nopt=1;
    if (VarType(2)==10) {
-     GetRhsVar(2,"c",&m1,&n1,&lo);
+     GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&lo);
      if (*cstk(lo)=='r')
        opt=1;
      else if (*cstk(lo)=='*')
@@ -39,7 +39,7 @@ int C2F(intor)(char *fname,unsigned long l)
  
    }
    else {
-     GetRhsVar(2,"d",&m1,&n1,&lo);
+     GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&lo);
      opt=(int) *stk(lo);
      if (opt>2||opt<1) {
        Err=2;
@@ -49,7 +49,7 @@ int C2F(intor)(char *fname,unsigned long l)
  }  /*(Rhs==2) */
 
  /*  checking variable a */
- GetRhsVar(1,"b",&m1,&n1,&l1);
+ GetRhsVar(1,MATRIX_OF_BOOLEAN_DATATYPE,&m1,&n1,&l1);
 
  if (Rhs==2 && m1*n1==0) {
    LhsVar(1)= 1;
@@ -60,11 +60,11 @@ int C2F(intor)(char *fname,unsigned long l)
  /* cross variable size checking */
  mm2=1;
  if (opt==0) {
-   CreateVar(2+nopt,"b",&mm2,&mm2,&l2);}/* named: x */
+   CreateVar(2+nopt,MATRIX_OF_BOOLEAN_DATATYPE,&mm2,&mm2,&l2);}/* named: x */
  else if (opt==1) {
-   CreateVar(2+nopt,"b",&mm2,&n1,&l2);}/* named: x */
+   CreateVar(2+nopt,MATRIX_OF_BOOLEAN_DATATYPE,&mm2,&n1,&l2);}/* named: x */
  else if (opt==2) {
-   CreateVar(2+nopt,"b",&m1,&mm2,&l2);}/* named: x */
+   CreateVar(2+nopt,MATRIX_OF_BOOLEAN_DATATYPE,&m1,&mm2,&l2);}/* named: x */
  vect_or(istk(l1),m1,n1,istk(l2),opt);
  LhsVar(1)= 2+nopt;
  C2F(putlhsvar)();
index 1a191cd..9b613c3 100644 (file)
@@ -26,16 +26,16 @@ int intab01od(char* fname)
 
        CheckRhs(minrhs,maxrhs);  CheckLhs(minlhs,maxlhs);
        theTOL=(double) C2F(dlamch)("e",1L);
-       GetRhsVar(1,"d",&mA,&nA,&ptrA);   A=1;        /*     A */
+       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&mA,&nA,&ptrA);   A=1;        /*     A */
        N=mA;
        theTOL=0.2*sqrt(2*theTOL)*N;
-       GetRhsVar(2,"d",&mB,&nB,&ptrB);   B=2;        /*     B */
+       GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&mB,&nB,&ptrB);   B=2;        /*     B */
        M=nB;
        if (nA != mB || mA != nA )
        { Scierror(999,"Invalid A,B matrices \r\n");  return 0; }
        if (Rhs == 3) {
                /*    TOL is given:   ab01od(A,B,tol)   */
-               GetRhsVar(3,"d",&mtol,&ntol,&ptrTOL);  theTOL=*stk(ptrTOL);    /*     TOL */
+               GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&mtol,&ntol,&ptrTOL);  theTOL=*stk(ptrTOL);    /*     TOL */
                if (theTOL>1.0||theTOL<0.0) {
                        Scierror(999,"TOL must be in [0 1]\r\n");  return 0; 
                }
@@ -50,12 +50,12 @@ int intab01od(char* fname)
        JOBV= "N"; if (Lhs >= 4)  JOBV="I";
 
        /*     creating NCONT,U,KSTAIR,V,IWORK,DWORK   */
-       CreateVar(Rhs+1,"i",(un=1,&un),(un=1,&un),&ptrNCONT);  NCONT=Rhs+1;
-       CreateVar(Rhs+2,"d",&N,&N,&ptrU);  U=Rhs+2;
-       CreateVar(Rhs+3,"i",(un=1,&un),&N,&ptrKSTAIR);  KSTAIR=Rhs+3;
-       CreateVar(Rhs+4,"d",&M,&M,&ptrV);  V=Rhs+4;
-       CreateVar(Rhs+5,"i",(un=1,&un),&M,&ptrIWORK);
-       CreateVar(Rhs+6,"d",(un=1,&un),&LDWORK,&ptrDWORK);
+       CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,(un=1,&un),(un=1,&un),&ptrNCONT);  NCONT=Rhs+1;
+       CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE,&N,&N,&ptrU);  U=Rhs+2;
+       CreateVar(Rhs+3,MATRIX_OF_INTEGER_DATATYPE,(un=1,&un),&N,&ptrKSTAIR);  KSTAIR=Rhs+3;
+       CreateVar(Rhs+4,MATRIX_OF_DOUBLE_DATATYPE,&M,&M,&ptrV);  V=Rhs+4;
+       CreateVar(Rhs+5,MATRIX_OF_INTEGER_DATATYPE,(un=1,&un),&M,&ptrIWORK);
+       CreateVar(Rhs+6,MATRIX_OF_DOUBLE_DATATYPE,(un=1,&un),&LDWORK,&ptrDWORK);
        C2F(ab01od)( "A", JOBU, JOBV, &N, &M, stk(ptrA), &LDA, 
                stk(ptrB), &LDB, stk(ptrU), &LDU, stk(ptrV), &LDV, 
                istk(ptrNCONT), &INDCON, istk(ptrKSTAIR), &theTOL,  
@@ -66,7 +66,7 @@ int intab01od(char* fname)
        }
        if (Lhs >= 3) {
                /*     resizing KSTAIR      */
-               CreateVar(Rhs+7,"i",(un=1,&un),&INDCON,&ptrJUNK); 
+               CreateVar(Rhs+7,MATRIX_OF_INTEGER_DATATYPE,(un=1,&un),&INDCON,&ptrJUNK); 
                KSTAIR=Rhs+7;
                C2F(icopy)(&INDCON,istk(ptrKSTAIR),(un=1,&un),istk(ptrJUNK),(un=1,&un)); }
        /*     lhs variables: [NCONT,U,KSTAIR,V,A,B]=ab01od(A,B)   */
index 0bb27e6..37708f8 100644 (file)
@@ -23,7 +23,7 @@ int C2F(sci_completion) _PARAMS((char *fname,unsigned long fname_len))
 \r
        if (GetType(1) == sci_strings)\r
        {\r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);\r
                partOfWord = cstk(l1);\r
        }\r
        else\r
@@ -52,7 +52,7 @@ int C2F(sci_completion) _PARAMS((char *fname,unsigned long fname_len))
                                char **Results = NULL;\r
                                int sizeResults = 0;\r
 \r
-                               GetRhsVar(2,"c",&m1,&n1,&l1);\r
+                               GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1);\r
                                param2 = cstk(l1);\r
 \r
                                if ( strcmp(param2,"functions") == 0 )\r
@@ -175,7 +175,7 @@ int C2F(sci_completion) _PARAMS((char *fname,unsigned long fname_len))
 static int returnEmptyMatrix(int pos)\r
 {\r
        int l1 = 0, m1 = 0, n1 = 0;\r
-       CreateVarFromPtr(Rhs+ pos, "d",&n1,&m1,&l1);\r
+       CreateVarFromPtr(Rhs+ pos,MATRIX_OF_DOUBLE_DATATYPE,&n1,&m1,&l1);\r
        return 0;\r
 }\r
 /*-----------------------------------------------------------------------------------*/\r
@@ -186,7 +186,7 @@ static int putResultOnStack(int pos,char **result,int sizeresult)
                int m1 = 0, n1 = 0;\r
                m1 = sizeresult;\r
                n1 = 1;\r
-               CreateVarFromPtr(Rhs+pos, "S", &m1, &n1, result);\r
+               CreateVarFromPtr(Rhs+pos,MATRIX_OF_STRING_DATATYPE, &m1, &n1, result);\r
        }\r
        else\r
        {\r
index 530a0d5..f32bd94 100644 (file)
@@ -34,7 +34,7 @@ int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
                }
                else
                {
-                       GetRhsVar(1,"c",&m1,&n1,&l1);
+                       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                        strcpy(shortpath,cstk(l1));
                }
 
@@ -42,7 +42,7 @@ int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
                C2F(scichdir)(path,&ierr);
 
                n1=1;
-               CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+               CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
 
                if (ierr == 0) *istk(l1)=(int)(TRUE);
                else *istk(l1)=(int)(FALSE);
index 8547ec4..7175bf7 100644 (file)
@@ -25,7 +25,7 @@ int C2F(sci_clearfun) _PARAMS((char *fname,unsigned long fname_len))
        {
                char *VarName=NULL;
 
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                VarName=cstk(l1);
 
                Status=(int*)MALLOC(sizeof(int));
@@ -46,7 +46,7 @@ int C2F(sci_clearfun) _PARAMS((char *fname,unsigned long fname_len))
                        *Status=FALSE;
                }
                m1=1;n1=1;
-               CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &Status);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &Status);
                LhsVar(1)=Rhs+1;
 
                C2F(putlhsvar)();
index d58c167..3d32d6a 100644 (file)
@@ -33,7 +33,7 @@ int C2F(intfromc) _PARAMS((char *fname))
        }
 
        n1=1;
-       CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &paramoutINT);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &paramoutINT);
        LhsVar(1)=Rhs+1;
        C2F(putlhsvar)();
        if (paramoutINT) {FREE(paramoutINT);paramoutINT=NULL;}
index 04b71d9..b12775f 100644 (file)
@@ -35,7 +35,7 @@ int C2F(intfromjava) _PARAMS((char *fname))
        }
 
        n1=1;
-       CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &paramoutINT);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &paramoutINT);
        LhsVar(1)=Rhs+1;
        C2F(putlhsvar)();
        if (paramoutINT) {FREE(paramoutINT);paramoutINT=NULL;}
index e939ab9..239b1ad 100644 (file)
@@ -32,7 +32,7 @@ int C2F(sci_getcwd) _PARAMS((char *fname,unsigned long fname_len))
        {
                static int n1,m1;
                n1=1;
-               CreateVarFromPtr(Rhs+ 1, "c",(m1=(int)strlen(path), &m1),&n1,&path);
+               CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=(int)strlen(path), &m1),&n1,&path);
                LhsVar(1) = Rhs+1;
                C2F(putlhsvar)();       
        }
index dde5908..e283be5 100644 (file)
@@ -20,7 +20,7 @@ int C2F(sci_getdynlibext) _PARAMS((char *fname,unsigned long fname_len))
        sprintf(output,"%s",SHARED_LIB_EXT);
        
        n1=1;
-       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(output), &m1),&n1,&output);
+       CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=(int)strlen(output), &m1),&n1,&output);
        if (output) {FREE(output);output=NULL;}
 
        LhsVar(1) = Rhs+1;
index dde167c..97b9fcd 100644 (file)
@@ -30,7 +30,7 @@ int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len))
                        FILE *fp=NULL;
                        char *MD5=NULL;
 
-                       GetRhsVar(1,"c",&m1,&n1,&l1);
+                       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                        Param1=cstk(l1);
 
                        fp = fopen(Param1, "rb");
@@ -44,7 +44,7 @@ int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len))
                                if (MD5) {FREE(MD5);MD5=NULL;}
 
                                n1=1;
-                               CreateVarFromPtr(Rhs+1, "c",(m1=strlen(output), &m1),&n1,&output);
+                               CreateVarFromPtr(Rhs+1,STRING_DATATYPE,(m1=strlen(output), &m1),&n1,&output);
                                if (output) {FREE(output);output=NULL;}
 
                                LhsVar(1) = Rhs+1;
@@ -67,10 +67,10 @@ int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len))
                        char *Param1=NULL;
                        char *Param2=NULL;
 
-                       GetRhsVar(1,"c",&m1,&n1,&l1);
+                       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                        Param1=cstk(l1);
 
-                       GetRhsVar(2,"c",&m1,&n1,&l1);
+                       GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1);
                        Param2=cstk(l1);
 
 #ifdef _MSC_VER
@@ -87,7 +87,7 @@ int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len))
                                if (MD5) {FREE(MD5);MD5=NULL;}
 
                                n1=1;
-                               CreateVarFromPtr( Rhs+1, "c",(m1=strlen(output), &m1),&n1,&output);
+                               CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=strlen(output), &m1),&n1,&output);
                                if (output) {FREE(output);output=NULL;}
 
                                LhsVar(1) = Rhs+1;
index f3295d9..35b78ad 100644 (file)
@@ -15,11 +15,11 @@ int C2F(sci_getmemory) _PARAMS((char *fname,unsigned long fname_len))
        CheckRhs(0,0) ;
        CheckLhs(1,2);
 
-       CreateVar(Rhs+1,"i",&one,&one,&l1);
+       CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&one,&one,&l1);
        *istk(l1) = getfreememory();
        LhsVar(1) = Rhs+1;
        if (Lhs == 2) {
-               CreateVar(Rhs+2,"i",&one,&one,&l1);
+               CreateVar(Rhs+2,MATRIX_OF_INTEGER_DATATYPE,&one,&one,&l1);
                *istk(l1) = getmemorysize();
                LhsVar(2) = Rhs+2;
        }
index 2ec10bf..2dbb151 100644 (file)
@@ -26,7 +26,7 @@ int C2F(sci_getmodules) _PARAMS((char *fname,unsigned long fname_len))
        ncol=1;
        nrow=Modules->numberofModules;
 
-       CreateVarFromPtr(Rhs+1, "S", &nrow, &ncol, Modules->ModuleList);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrow, &ncol, Modules->ModuleList);
        LhsVar(1)=Rhs+1;
        C2F(putlhsvar)();
 
index cb39336..0aff4a6 100644 (file)
@@ -106,7 +106,7 @@ int C2F(intgetos) _PARAMS((char *fname))
        output=(char*)MALLOC((strlen(OperatinSystem)+1)*sizeof(char));
        sprintf(output,"%s",OperatinSystem);
        n1=1;
-       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(output), &m1),&n1,&output);
+       CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=(int)strlen(output), &m1),&n1,&output);
        if (output) {FREE(output);output=NULL;}
        LhsVar(1)=Rhs+1;
 
@@ -116,7 +116,7 @@ int C2F(intgetos) _PARAMS((char *fname))
                output2=(char*)MALLOC((strlen(Release)+1)*sizeof(char));
                sprintf(output2,"%s",Release);
                n1=1;
-               CreateVarFromPtr(Rhs+ 2, "c",(m1=(int)strlen(output2), &m1),&n1,&output2);
+               CreateVarFromPtr(Rhs+ 2,STRING_DATATYPE,(m1=(int)strlen(output2), &m1),&n1,&output2);
                if (output2) {FREE(output2);output2=NULL;}
                LhsVar(2)=Rhs+2;
        }
index 0304d29..3e4e4a4 100644 (file)
@@ -36,7 +36,7 @@ int C2F(sci_getscilabmode) _PARAMS((char *fname,unsigned long fname_len))
        }
 
        n1=1;
-       CreateVarFromPtr(Rhs+1, "c",(m1=strlen(output), &m1),&n1,&output);
+       CreateVarFromPtr(Rhs+1,STRING_DATATYPE,(m1=strlen(output), &m1),&n1,&output);
        if (output) {FREE(output);output=NULL;}
 
        LhsVar(1) = Rhs+1;
index 88e8838..d0a0915 100644 (file)
@@ -26,7 +26,7 @@ int C2F(sci_getvariablesonstack) _PARAMS((char *fname,unsigned long fname_len))
                if (GetType(1) == sci_strings)\r
                {\r
                        char *parameter = NULL;\r
-                       GetRhsVar(1,"c",&m1,&n1,&l1);\r
+                       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);\r
                        parameter = cstk(l1);\r
 \r
                        if ( ( strcmp(parameter,"local") == 0 ) || ( strcmp(parameter,"global") == 0) )\r
@@ -55,7 +55,7 @@ int C2F(sci_getvariablesonstack) _PARAMS((char *fname,unsigned long fname_len))
 \r
        m1 = sizeVariables;\r
        n1 = 1;\r
-       CreateVarFromPtr(Rhs+1, "S", &m1, &n1, Variables);\r
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m1, &n1, Variables);\r
 \r
        LhsVar(1) = Rhs + 1;\r
        C2F(putlhsvar)();\r
index b3e6ffd..fd539bf 100644 (file)
@@ -50,7 +50,7 @@ static int getversion_no_rhs(void)
        char *v = Version ;
 
        n1=1;
-       CreateVarFromPtr( Rhs+1, "c",(m1=strlen(Version), &m1),&n1,&v);
+       CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=strlen(Version), &m1),&n1,&v);
        LhsVar(1) = Rhs+1;
        if (Lhs==2) 
        {
@@ -162,7 +162,7 @@ static int getversion_no_rhs(void)
                #endif
 
                m1=1;
-               CreateVarFromPtr(Rhs+ 2, "S", &m1, &n1, Str);
+               CreateVarFromPtr(Rhs+ 2,MATRIX_OF_STRING_DATATYPE, &m1, &n1, Str);
                LhsVar(2) = Rhs+2;
        }
        C2F(putlhsvar)();
@@ -184,7 +184,7 @@ static int getversion_one_rhs(void)
                char *Param=NULL;
                int *VERSIONMATRIX=NULL;
 
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                Param=cstk(l1);
 
                VERSIONMATRIX=(int *)MALLOC( (4)*sizeof(int) );
@@ -225,7 +225,7 @@ static int getversion_one_rhs(void)
                }
                m1=1;
                n1=4;
-               CreateVarFromPtr(Rhs+1, "i", &m1, &n1 ,&VERSIONMATRIX);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_INTEGER_DATATYPE, &m1, &n1 ,&VERSIONMATRIX);
                LhsVar(1)=Rhs+1;
                PutLhsVar();
                if (VERSIONMATRIX){     FREE(VERSIONMATRIX); VERSIONMATRIX=NULL;}
@@ -251,7 +251,7 @@ static int getversion_two_rhs(void)
                static int l2,n2,m2;
                char *ParamRhs2=NULL;
 
-               GetRhsVar(2,"c",&m2,&n2,&l2);
+               GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
                ParamRhs2=cstk(l2);
 
                if (strcmp(ParamRhs2,VERSION_STRING)==0)
@@ -259,7 +259,7 @@ static int getversion_two_rhs(void)
                        static int l1,n1,m1;
                        char *ParamRhs1=NULL;
 
-                       GetRhsVar(1,"c",&m1,&n1,&l1);
+                       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                        ParamRhs1=cstk(l1);
 
                        if (strcmp(ParamRhs1,"scilab") == 0)
@@ -269,7 +269,7 @@ static int getversion_two_rhs(void)
                                sprintf(output,"%s",SCI_VERSION_STRING);
 
                                n1=1;
-                               CreateVarFromPtr(Rhs+ 1, "c",(m1=strlen(output), &m1),&n1,&output);
+                               CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=strlen(output), &m1),&n1,&output);
                                if (output) {FREE(output);output=NULL;}
 
                                LhsVar(1) = Rhs+1;
@@ -293,7 +293,7 @@ static int getversion_two_rhs(void)
                                        sprintf(output,"%s",versionstring);
 
                                        n1=1;
-                                       CreateVarFromPtr(Rhs+ 1, "c",(m1=strlen(output), &m1),&n1,&output);
+                                       CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=strlen(output), &m1),&n1,&output);
                                        if (output) {FREE(output);output=NULL;}
 
                                        LhsVar(1) = Rhs+1;
index ab9287f..ec10f3f 100644 (file)
@@ -52,7 +52,7 @@ int C2F(sci_gstacksize) _PARAMS((char *fname,unsigned long fname_len))
                paramoutINT[1]=used;
 
                n1=1;m1=2;
-               CreateVarFromPtr(Rhs+1, "i", &n1, &m1, &paramoutINT);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_INTEGER_DATATYPE, &n1, &m1, &paramoutINT);
 
                LhsVar(1) = Rhs+1;
                C2F(putlhsvar)();       
@@ -63,7 +63,7 @@ int C2F(sci_gstacksize) _PARAMS((char *fname,unsigned long fname_len))
        {
                if ( GetType(1) == sci_matrix )
                {
-                       GetRhsVar(1,"d",&m1,&n1,&l1);
+                       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
 
                        if ( (m1 == 1) && (n1 == 1) )
                        {
@@ -121,7 +121,7 @@ int C2F(sci_gstacksize) _PARAMS((char *fname,unsigned long fname_len))
                        {
                                char *param=NULL;
 
-                               GetRhsVar(1,"c",&m1,&n1,&l1);
+                               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                                param=cstk(l1);
 
                                if ( strcmp("max",param) == 0 )
index 7fe8cf4..1f9d7cb 100644 (file)
@@ -20,7 +20,7 @@ int C2F(sci_havewindow) _PARAMS((char *fname,unsigned long fname_len))
        *Status = (int) ( getScilabMode() == SCILAB_STD );
 
        m1=1;n1=1;
-       CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &Status);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &Status);
        LhsVar(1)=Rhs+1;
 
        C2F(putlhsvar)();
index b4ae8f1..7110eb8 100644 (file)
@@ -19,7 +19,7 @@ int C2F(sci_islittleendian) _PARAMS((char *fname,unsigned long fname_len))
        *Status = islittleendian();
 
        m1=1;n1=1;
-       CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &Status);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &Status);
        LhsVar(1)=Rhs+1;
 
        C2F(putlhsvar)();
index 14f0f71..156191f 100644 (file)
@@ -22,12 +22,12 @@ int C2F(sci_librarieslist) _PARAMS((char *fname,unsigned long fname_len))
        {
                int m = 0, n = 0;
                m = sizelibraries; n = 1;
-               CreateVarFromPtr(Rhs+1, "S", &m, &n, libraries);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m, &n, libraries);
        }
        else
        {
                int m = 0, n = 0, l = 0;
-               CreateVarFromPtr(Rhs+1, "d",&n,&m,&l);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&n,&m,&l);
        }
        LhsVar(1) = Rhs+1;
 
index 74b295d..e3c1356 100644 (file)
@@ -21,7 +21,7 @@ int C2F(sci_libraryinfo) _PARAMS((char *fname,unsigned long fname_len))
                char *pathlibrary = NULL;\r
                char *libraryname = NULL;\r
 \r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);\r
                libraryname = cstk(l1);\r
 \r
                pathlibrary = getlibrarypath(libraryname);\r
@@ -38,14 +38,14 @@ int C2F(sci_libraryinfo) _PARAMS((char *fname,unsigned long fname_len))
                        {\r
                                m = sizemacrosarray;\r
                                n = 1;\r
-                               CreateVarFromPtr(Rhs+1, "S", &m, &n, macros);\r
+                               CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m, &n, macros);\r
                        }\r
                        else\r
                        {\r
                                n = 0;\r
                                m = 0;\r
                                l = 0;\r
-                               CreateVarFromPtr(Rhs+1, "d",&n,&m,&l);\r
+                               CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&n,&m,&l);\r
                        }\r
                        LhsVar(1) = Rhs+1;\r
 \r
@@ -68,7 +68,7 @@ int C2F(sci_libraryinfo) _PARAMS((char *fname,unsigned long fname_len))
                        {\r
                                n = 1;\r
                                m = (int)strlen(pathlibrary);\r
-                               CreateVarFromPtr(Rhs+2, "c",&m,&n,&pathlibrary);\r
+                               CreateVarFromPtr(Rhs+2,STRING_DATATYPE,&m,&n,&pathlibrary);\r
                                LhsVar(2) = Rhs+2;\r
                                if (pathlibrary) {FREE(pathlibrary);pathlibrary=NULL;}\r
                        }\r
index 69e4092..c8e5884 100644 (file)
@@ -24,10 +24,10 @@ int C2F(sci_newfun) _PARAMS((char *fname,unsigned long fname_len))
                char *VarName=NULL;
                int nameptr=0;
                
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                VarName=cstk(l1);
 
-               GetRhsVar(2,"i",&m1,&n1,&l1);
+               GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                nameptr=*istk(l1);
 
                if (nameptr > 0)
index e09be6e..9be1466 100644 (file)
@@ -20,7 +20,7 @@ int C2F(sci_sciargs) _PARAMS((char *fname,unsigned long fname_len))
 
        nrow = 1;
        ncol = nb_arguments;
-       CreateVarFromPtr(Rhs+1, "S", &nrow, &ncol,arguments);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrow, &ncol,arguments);
        LhsVar(1)=Rhs+1;
        C2F(putlhsvar)();
 
index 53b7142..fb4d7c7 100644 (file)
@@ -50,7 +50,7 @@ int C2F(sci_stacksize) _PARAMS((char *fname,unsigned long fname_len))
                paramoutINT[1]=used;
 
                n1=1;m1=2;
-               CreateVarFromPtr(Rhs+1, "i", &n1, &m1, &paramoutINT);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_INTEGER_DATATYPE, &n1, &m1, &paramoutINT);
 
                LhsVar(1) = Rhs+1;
                C2F(putlhsvar)();       
@@ -61,7 +61,7 @@ int C2F(sci_stacksize) _PARAMS((char *fname,unsigned long fname_len))
        {
                if ( GetType(1) == sci_matrix )
                {
-                       GetRhsVar(1,"d",&m1,&n1,&l1);
+                       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
 
                        if ( (m1 == 1) && (n1 == 1) )
                        {
@@ -121,7 +121,7 @@ int C2F(sci_stacksize) _PARAMS((char *fname,unsigned long fname_len))
                        {
                                char *param=NULL;
 
-                               GetRhsVar(1,"c",&m1,&n1,&l1);
+                               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                                param=cstk(l1);
 
                                if ( strcmp("max",param) == 0 )
index 3dc5f4a..fbb520c 100644 (file)
@@ -37,7 +37,7 @@ int C2F(intulink) __PARAMS((char *fname,unsigned long fname_len))
                {
                        double *params=NULL;
                        int i=0;
-                       GetRhsVar(1,"d",&m1,&n1,&l1);
+                       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
                        params=stk(l1);
                        for(i=0;i<m1*n1;i++)
                        {
index cd93d1c..a405158 100644 (file)
@@ -23,7 +23,7 @@ int C2F(sci_warning) _PARAMS((char *fname,unsigned long fname_len))
        {
                char *Param=NULL;
                
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                Param=cstk(l1);
 
                if ( (strcmp(Param,"off") == 0) || (strcmp(Param,"on") == 0) )
@@ -55,7 +55,7 @@ int C2F(sci_warning) _PARAMS((char *fname,unsigned long fname_len))
                                }
 
                                n1=1;
-                               CreateVarFromPtr(Rhs+ 1, "c",(m1=(int)strlen(Output), &m1),&n1,&Output);
+                               CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=(int)strlen(Output), &m1),&n1,&Output);
                                LhsVar(1) = Rhs+1;
                                C2F(putlhsvar)();       
                                if (Output) {FREE(Output);Output=NULL;}
index 4d20cc9..78f1dcf 100644 (file)
@@ -48,10 +48,10 @@ int C2F(sci_what) _PARAMS((char *fname,unsigned long fname_len))
                int nrowFunctions=SizeLocalFunctionsTab;
                int nrowCommands=sizecommandwords;
 
-               CreateVarFromPtr(Rhs+1, "S", &nrowFunctions, &ncol, LocalFunctionsTab);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrowFunctions, &ncol, LocalFunctionsTab);
                LhsVar(1)=Rhs+1;
 
-               CreateVarFromPtr(Rhs+2, "S", &nrowCommands, &ncol, commandwords);
+               CreateVarFromPtr(Rhs+2,MATRIX_OF_STRING_DATATYPE, &nrowCommands, &ncol, commandwords);
                LhsVar(2)=Rhs+2;
 
                for (i2=0;i2<nrowFunctions;i2++) { FREE(LocalFunctionsTab[i2]);LocalFunctionsTab[i2]=NULL; }
index 159e6f5..a9d84cd 100644 (file)
@@ -52,7 +52,7 @@ int C2F(sci_who) _PARAMS((char *fname,unsigned long fname_len))
                 if (GetType(1) == sci_strings) 
                 {
                         char *Param1String=NULL;
-                        GetRhsVar(1,"c",&m1,&n1,&l1);
+                        GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                         Param1String=cstk(l1);
 
                         if ( (strcmp(Param1String,"get")==0) ||
@@ -114,10 +114,10 @@ int C2F(sci_who) _PARAMS((char *fname,unsigned long fname_len))
                          char *Param1String=NULL;
                          char *Param2String=NULL;
 
-                         GetRhsVar(1,"c",&m1,&n1,&l1);
+                         GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                          Param1String=cstk(l1);
 
-                         GetRhsVar(2,"c",&m1,&n1,&l1);
+                         GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1);
                          Param2String=cstk(l1);
 
                          if (strcmp(Param2String,"sorted"))
@@ -337,10 +337,10 @@ static BOOL FreeVariableStructArray(struct VariableStruct* Vstruct,int lenStruct
         m=lenStructArray;
         n=1;
 
-        CreateVarFromPtr(Rhs+1, "S", &m, &n, Tab);
+        CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m, &n, Tab);
         LhsVar(1) = Rhs+1;
 
-        CreateVarFromPtr(Rhs+2, "i", &m, &n, &Size);
+        CreateVarFromPtr(Rhs+2,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &Size);
         LhsVar(2) = Rhs+2;
 
         C2F(putlhsvar)();
@@ -385,7 +385,7 @@ static BOOL FreeVariableStructArray(struct VariableStruct* Vstruct,int lenStruct
 
         m=lenStructArray;
         n=1;
-        CreateVarFromPtr(Rhs+1, "S", &m, &n,LocalTab);
+        CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m, &n,LocalTab);
         LhsVar(1)=Rhs+1;
 
         if (LocalTab)
index c7035b4..52c8db1 100644 (file)
@@ -20,14 +20,14 @@ int C2F(sci_with_module) _PARAMS((char *fname,unsigned long fname_len))
        {
                char *VarName=NULL;
                
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                VarName=cstk(l1);
 
                Status=(int*)MALLOC(sizeof(int));
                *Status=with_module(VarName);
 
                m1=1;n1=1;
-               CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &Status);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &Status);
                LhsVar(1)=Rhs+1;
 
                C2F(putlhsvar)();
index f4f2dca..0982344 100644 (file)
@@ -15,7 +15,7 @@ int IsAScalar(int RhsNumber)
        if ( GetType(RhsNumber) == sci_matrix )
        {
                static int l1,n1,m1;
-               GetRhsVar(RhsNumber,"d",&m1,&n1,&l1);
+               GetRhsVar(RhsNumber,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
                if ( (m1 == 1) && (n1 == 1) )
                {
                        bOK=1;
index 9ec73e8..0f443ba 100644 (file)
@@ -89,7 +89,7 @@ int C2F(scilinknorhs)()
                        }
                }
 
-               CreateVarFromPtr(Rhs+1, "S", &n1, &m1, ReturnArrayString);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &n1, &m1, ReturnArrayString);
 
                LhsVar(1)=Rhs+1;
                C2F(putlhsvar)();
@@ -109,7 +109,7 @@ int C2F(scilinknorhs)()
                m1=0;
                n1=0;
                l1=0;
-               CreateVar(Rhs+1,"d",  &m1, &n1, &l1);
+               CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m1, &n1, &l1);
                LhsVar(1)=Rhs+1;
                C2F(putlhsvar)();
        }
index fccaf6c..c0a4b15 100644 (file)
@@ -67,17 +67,17 @@ int C2F(lasterror)(char *fname, unsigned long fname_len)
   CheckRhs(0,1);
   CheckLhs(1,4);
   if (msg_line_counter == 0) {
-    CreateVar(1,"d",&zero,&zero,&l1);
+    CreateVar(1,MATRIX_OF_DOUBLE_DATATYPE,&zero,&zero,&l1);
     LhsVar(1)=1;
     if (Lhs >= 2) {
-      CreateVar(2,"d",&one,&one,&l1);
+      CreateVar(2,MATRIX_OF_DOUBLE_DATATYPE,&one,&one,&l1);
       *stk(l1) = (double)0.0;
       LhsVar(2)=2;
     }
     /* Francois VOGEL August 2004 - Added initialization of missing lhs vars in case
        there is no current 'last error' (bug 955)*/
     if (Lhs >= 3) {
-      CreateVar(3,"d",&one,&one,&l1);
+      CreateVar(3,MATRIX_OF_DOUBLE_DATATYPE,&one,&one,&l1);
       *stk(l1) = (double)0.0;
       LhsVar(3)=3;
     }
@@ -91,26 +91,26 @@ int C2F(lasterror)(char *fname, unsigned long fname_len)
   else {
     clear = 1;
     if (Rhs==1) {
-      GetRhsVar(1,"b",&m1,&n1,&l1);
+      GetRhsVar(1,MATRIX_OF_BOOLEAN_DATATYPE,&m1,&n1,&l1);
       clear = *istk(l1);
     }
     for (k=0;k<msg_line_counter ; k++) 
       sz[k]=strlen(msg_buff[k])-1;
-    CreateVarFromPtr(&one, "S", &msg_line_counter, &one,(void *) msg_buff);
+    CreateVarFromPtr(&one,MATRIX_OF_STRING_DATATYPE, &msg_line_counter, &one,(void *) msg_buff);
     LhsVar(1) = 1;
     if (Lhs >= 2) {
-      CreateVar(2,"d",&one,&one,&l1);
+      CreateVar(2,MATRIX_OF_DOUBLE_DATATYPE,&one,&one,&l1);
       *stk(l1) = (double)err_n;
       LhsVar(2)=2;
     }
     if (Lhs >= 3) {
-      CreateVar(3,"d",&one,&one,&l1);
+      CreateVar(3,MATRIX_OF_DOUBLE_DATATYPE,&one,&one,&l1);
       *stk(l1) = (double)where;
       LhsVar(3)=3;
     }
     if (Lhs >= 4) {
       l1=strlen(funname);
-      CreateVar(&four,"c", &one,&l1 , &lr);
+      CreateVar(&four,STRING_DATATYPE, &one,&l1 , &lr);
       strcpy(cstk(lr),funname);
       LhsVar(4)=4;
     }
index 09f70d9..3099d81 100644 (file)
@@ -24,7 +24,7 @@ int sciReturnString( const char * value )
   int numRow   = 1 ;
   int numCol   = strlen( value ) ;
   int outIndex = 0 ;
-  CreateVar(Rhs+1,"c",&numRow,&numCol,&outIndex);
+  CreateVar(Rhs+1,STRING_DATATYPE,&numRow,&numCol,&outIndex);
   strncpy(cstk(outIndex),value, numCol);
 
   return  0 ;
@@ -35,7 +35,7 @@ int sciReturnChar( char value )
   int nbRow    = 1 ;
   int nbCol    = 1 ;
   int outIndex = 0 ;
-  CreateVar(Rhs+1,"c",&nbRow,&nbCol,&outIndex);
+  CreateVar(Rhs+1,STRING_DATATYPE,&nbRow,&nbCol,&outIndex);
   strncpy(cstk(outIndex), &value , 1 ) ;
 
   return 0 ;
@@ -113,7 +113,7 @@ int sciReturnHandle( long handle )
   int numRow   = 1 ;
   int numCol   = 1 ;
   int outIndex = 0 ;
-  CreateVar(Rhs+1,"h",&numRow,&numCol,&outIndex);
+  CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE,&numRow,&numCol,&outIndex);
   *hstk(outIndex) = handle ;
   return 0 ;
 }
index 6389c97..c42f226 100644 (file)
@@ -270,8 +270,8 @@ static int cre_hmat(int pos, HyperMat *H)
    */
   static char *Str[]= { "hm","dims","entries"}; int m1=1,n1=3;
   int mL=3,nL=1,lL, one=1, lr, lc, lar, lac;
-  CreateVar(pos,"m", &mL, &nL, &lL);
-  CreateListVarFromPtr(pos,1,"S", &m1, &n1, Str);
+  CreateVar(pos,MATRIX_ORIENTED_TYPED_LIST_DATATYPE, &mL, &nL, &lL);
+  CreateListVarFromPtr(pos,1,MATRIX_OF_STRING_DATATYPE, &m1, &n1, Str);
   lr = 4; lar = -1;
   CreateListVarFrom(pos,2,"I", &one, &H->dimsize, &lr, &lar);
   H->dims = istk(lr);
@@ -288,7 +288,7 @@ static int cre_hmat(int pos, HyperMat *H)
       return 1;
       
     case (SCI_BOOLEAN):
-      CreateListVarFrom(pos, 3, "b", &H->size, &one, &lr, &lar);
+      CreateListVarFrom(pos, 3,MATRIX_OF_BOOLEAN_DATATYPE, &H->size, &one, &lr, &lar);
       H->P = (void *) istk(lr);
       return 1;
 
@@ -417,7 +417,7 @@ static int create_index_vector(int pos, int pos_ind, int *mn,
     {
     case (SCI_REAL_OR_CMPLX):
 
-      GetRhsVar(pos, "d", &m, &n, &l);
+      GetRhsVar(pos,MATRIX_OF_DOUBLE_DATATYPE, &m, &n, &l);
       if ( m == -1 )      /* implicit index : */
        {
          *mn = nmax; *ind_max = nmax;
@@ -468,7 +468,7 @@ static int create_index_vector(int pos, int pos_ind, int *mn,
        return 0;
       *mn = m*n;
       l = sadr(il+9+*mn);
-      CreateVar( pos_ind, "d", mn, &one, &li); td = stk(li);
+      CreateVar( pos_ind,MATRIX_OF_DOUBLE_DATATYPE, mn, &one, &li); td = stk(li);
       x = (double) nmax; 
       C2F(ddmpev)( stk(l), istk(il+8), &one, &x, td, &one, &one, mn);
       ti = (int *)td;
@@ -504,7 +504,7 @@ static int create_index_vector(int pos, int pos_ind, int *mn,
 
     case (SCI_BOOLEAN) :
 
-      GetRhsVar(pos, "b", &m, &n, &l);
+      GetRhsVar(pos,MATRIX_OF_BOOLEAN_DATATYPE, &m, &n, &l);
       if ( m*n != nmax )
        return 0;
       *mn = 0;
@@ -687,7 +687,7 @@ int C2F(intehm)()
 
   if ( H.size == 0 )   /* the hypermat is empty => return an empty matrix ? */
     {
-      CreateVar(dec+1, "d", &zero, &zero, &l);
+      CreateVar(dec+1,MATRIX_OF_DOUBLE_DATATYPE, &zero, &zero, &l);
       LhsVar(1) = dec+1;
       PutLhsVar();
       return 0;
@@ -704,7 +704,7 @@ int C2F(intehm)()
        }
       if ( mn == 0 )   /* the vector index is [] => we return an empty matrix */
        {
-         CreateVar(dec+i+1, "d", &zero, &zero, &l);
+         CreateVar(dec+i+1,MATRIX_OF_DOUBLE_DATATYPE, &zero, &zero, &l);
          LhsVar(1) = dec+i+1;
          PutLhsVar();
          return 0;
@@ -739,12 +739,12 @@ int C2F(intehm)()
       switch (H.type)
        {
        case (SCI_REAL_OR_CMPLX):
-         CreateCVar(dec+Rhs, "d", &(H.it), &m, &n, &lr, &lc); 
+         CreateCVar(dec+Rhs,MATRIX_OF_DOUBLE_DATATYPE, &(H.it), &m, &n, &lr, &lc); 
          He.R = stk(lr); 
          if ( H.it == 1 ) He.I = stk(lc);
          break;
        case (SCI_BOOLEAN):
-         CreateVar(dec+Rhs, "b", &m, &n, &lr); 
+         CreateVar(dec+Rhs,MATRIX_OF_BOOLEAN_DATATYPE, &m, &n, &lr); 
          He.P = (void *) istk(lr);
          break;
        case (SCI_INTEGER):
index 95aaed8..7deae16 100644 (file)
@@ -36,10 +36,10 @@ int C2F(sci_gsort) _PARAMS((char *fname, unsigned long fname_len))
                switch (Type) 
                {
                case sci_strings : 
-                       GetRhsVar(1,"S",&m1,&n1,&S);
+                       GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&S);
                        break;
                case sci_matrix :
-                       GetRhsVar(1,"d",&m1,&n1,&l1);
+                       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
                        break;
                case sci_ints:
                        GetRhsVar(1,"I",&m1,&n1,&Im);
@@ -53,7 +53,7 @@ int C2F(sci_gsort) _PARAMS((char *fname, unsigned long fname_len))
        if (Rhs >= 2)
        {
                char c;
-               GetRhsVar(2,"c",&m2,&n2,&l2);
+               GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
                if ( m2 == 0 ) 
                {
                        Scierror(999,"%s: second argument is an empty string\r\n",fname);
@@ -70,7 +70,7 @@ int C2F(sci_gsort) _PARAMS((char *fname, unsigned long fname_len))
 
        if (Rhs == 3)
        {
-               GetRhsVar(3,"c",&m3,&n3,&l3);
+               GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
                CheckLength(3,m3,1);
                if ( *cstk(l3) != 'i' && *cstk(l3) != 'd') 
                {
@@ -121,7 +121,7 @@ int C2F(sci_gsort) _PARAMS((char *fname, unsigned long fname_len))
 
                        C2F(gsortd)(tmp_matrix,indices,&iflag,&m1,&n1,typex,iord);
 
-                       CreateVarFromPtr(Rhs+1,"d",&m1,&n1,&tmp_matrix);
+                       CreateVarFromPtr(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&tmp_matrix);
                        LhsVar(1)= Rhs+1 ;
 
                        if (Lhs == 2)
@@ -175,7 +175,7 @@ int C2F(sci_gsort) _PARAMS((char *fname, unsigned long fname_len))
        case sci_strings:
                {
                        C2F(gsorts)(S,indices,&iflag,&m1,&n1,typex,iord);
-                       CreateVarFromPtr(Rhs+1,"S", &m1, &n1, S);
+                       CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m1, &n1, S);
                        LhsVar(1)=Rhs+1;
 
                        if (Lhs == 2)
index 97f27da..c6398ca 100644 (file)
@@ -13,12 +13,12 @@ int sci_disposefftwlibrary __PARAMS((char *fname,unsigned long fname_len))
        n1=1;
        if ( DisposeFFTWLibrary() )
        {
-               CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+               CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                *istk(l1)=(int)(TRUE);
        }
        else
        {
-               CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+               CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                *istk(l1)=(int)(FALSE);
        }
 
index 522ae37..f9fabe4 100644 (file)
@@ -93,7 +93,7 @@ int sci_fftw __PARAMS((char *fname,unsigned long fname_len))
   }
 
   /* retrieve address of input variable to transform */
-  GetRhsCVar(1, "d", &it1, &m1, &n1, &lr1, &li1);
+  GetRhsCVar(1,MATRIX_OF_DOUBLE_DATATYPE, &it1, &m1, &n1, &lr1, &li1);
 
   /* void input gives void output */
   if ((m1<1)|(n1<1)) {
@@ -375,7 +375,7 @@ int sci_fftw __PARAMS((char *fname,unsigned long fname_len))
   /* real data */
   else if (it1==0) {
    /* set input array address */
-   CreateCVar(1, "d", (i=1,&i), &m1, &n1, &lr1,&li1);
+   CreateCVar(1,MATRIX_OF_DOUBLE_DATATYPE, (i=1,&i), &m1, &n1, &lr1,&li1);
 
    ri=stk(lr1);
    ii=stk(li1);
index f00c232..3a12ef3 100644 (file)
@@ -112,12 +112,12 @@ int sci_fftw_flags __PARAMS((char *fname,unsigned long fname_len))
     cur_fftw_flags=((int *)M1.D)[0];
    }
    else if (VarType(1)==1) { /* double */
-    GetRhsVar(1, "d", &m1, &n1, &l1);
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
     CheckDims(1,m1,n1,1,1);
     cur_fftw_flags=(int)*stk(l1);
    }
    else if (VarType(1)==10) { /* string */
-    GetRhsVar(1,"S",&m1,&n1,&Str1);
+    GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&Str1);
 
     for (j=0;j<m1*n1;j++) {
      for (i=0;i<nb_flag;i++) {
@@ -202,8 +202,8 @@ int sci_fftw_flags __PARAMS((char *fname,unsigned long fname_len))
   }
 
   n1=1;
-  /*CreateVarFromPtr( 3, "S", &j, &n1, Str3);*/
-  CreateVarFromPtr( Rhs+3, "S", &j, &n1, Str3);
+  /*CreateVarFromPtr( 3,MATRIX_OF_STRING_DATATYPE, &j, &n1, Str3);*/
+  CreateVarFromPtr( Rhs+3,MATRIX_OF_STRING_DATATYPE, &j, &n1, Str3);
 
   /*LhsVar(1)=2;*/
   /*LhsVar(2)=3;*/
index 27e502d..e0e9315 100644 (file)
@@ -13,12 +13,12 @@ int sci_fftwlibraryisloaded __PARAMS((char *fname,unsigned long fname_len))
        n1=1;
        if ( IsLoadedFFTW() )
        {
-               CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+               CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                *istk(l1)=(int)(TRUE);
        }
        else
        {
-               CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+               CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                *istk(l1)=(int)(FALSE);
        }
 
index d8e7af8..a2229e3 100644 (file)
@@ -70,7 +70,7 @@ int sci_get_fftw_wisdom __PARAMS((char *fname,unsigned long fname_len))
   }
   Str1[n1-1][0] = '\0';
 
-  CreateVarFromPtr(1, "S", &n1, (j=1,&j), Str1);
+  CreateVarFromPtr(1,MATRIX_OF_STRING_DATATYPE, &n1, (j=1,&j), Str1);
 
   LhsVar(1)=1;
 
index 0bd974f..7831f6b 100644 (file)
@@ -17,19 +17,19 @@ int sci_loadfftwlibrary __PARAMS((char *fname,unsigned long fname_len))
 
        if (GetType(1) == sci_strings)
        {
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                FFTWLibname=cstk(l1);
                setfftwlibname(FFTWLibname);
 
                n1=1;
                if ( LoadFFTWLibrary(FFTWLibname) )
                {
-                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+                       CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                        *istk(l1)=(int)(TRUE);
                }
                else
                {
-                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+                       CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                        *istk(l1)=(int)(FALSE);
                }
 
index 63970fc..53ba030 100644 (file)
@@ -30,7 +30,7 @@ int sci_set_fftw_wisdom __PARAMS((char *fname,unsigned long fname_len))
 
  if (VarType(1)==10) {
 
-  GetRhsVar(1,"S",&m1,&n1,&Str1);
+  GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&Str1);
 
   len = 0; k = 0;
   for (j = 0; j < m1*n1; j++) {
index 15fddd8..ce46440 100644 (file)
@@ -37,9 +37,9 @@ int C2F(intreadxls)(char *fname, long lfn)
   CheckRhs(2,2);
 
   /*  checking variable Pos */
-  GetRhsVar(1,"d",&m1,&n1,&l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
   fd=(int)*stk(l1);
-  GetRhsVar(2,"d",&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
   pos=(int)*stk(l1);
 
   xls_read(&fd,&pos,&data, &ind, &N, &M,  &ierr);
@@ -64,14 +64,14 @@ int C2F(intreadxls)(char *fname, long lfn)
   MN=M*N;
   if (MN==0)
     {
-      CreateVar(Rhs+1, "d", &zero,&zero, &l1);
-      CreateVar(Rhs+2, "d", &zero,&zero, &l1);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &zero,&zero, &l1);
+      CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE, &zero,&zero, &l1);
     }
 
   else
     {
-      CreateVarFromPtr(Rhs+1, "d", &N,&M, &data);
-      CreateVarFromPtr(Rhs+2, "i", &N,&M, &ind);
+      CreateVarFromPtr(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &N,&M, &data);
+      CreateVarFromPtr(Rhs+2,MATRIX_OF_INTEGER_DATATYPE, &N,&M, &ind);
       FREE(data);
       FREE(ind);
     }
@@ -122,7 +122,7 @@ int C2F(intopenxls)(char *fname, long lfn)
   CheckRhs(1,1);
 
   /*  checking variable file */
-  GetRhsVar(1,"c",&m1,&n1,&l1);
+  GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
   C2F(cluni0)(cstk(l1), IN, &ns,(long int) (m1*n1),256L);
 
   TMPDIR=getTMPDIR();
@@ -154,7 +154,7 @@ int C2F(intopenxls)(char *fname, long lfn)
       Scierror(999,"%s :There is no xls stream in the ole2 file %s \r\n",fname,IN);
       return 0;
     }
-  CreateVar(Rhs+1,"i",&one,&one,&l2);
+  CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&one,&one,&l2);
   *istk(l2)=fd; /* logical unit */
 
   xls_open(&ierr, &fd, &sst ,&ns, &Sheetnames, &Abspos,&nsheets);
@@ -195,7 +195,7 @@ int C2F(intopenxls)(char *fname, long lfn)
   if (ns != 0) 
   {
     /* Create a typed list to return the properties */
-    CreateVarFromPtr(Rhs+2,"S", &one, &ns, sst);
+    CreateVarFromPtr(Rhs+2,MATRIX_OF_STRING_DATATYPE, &one, &ns, sst);
     for (k=0;k<ns;k++) 
        {
                if ( (sst) && (sst[k]))
@@ -211,12 +211,12 @@ int C2F(intopenxls)(char *fname, long lfn)
        }
   }
   else
-    CreateVar(Rhs+2,"d",&ns,&ns,&l2);
+    CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE,&ns,&ns,&l2);
 
   if (nsheets != 0) 
   {
     /* Create a typed list to return the properties */
-    CreateVarFromPtr(Rhs+3,"S", &one, &nsheets, Sheetnames);
+    CreateVarFromPtr(Rhs+3,MATRIX_OF_STRING_DATATYPE, &one, &nsheets, Sheetnames);
        
        if (Sheetnames)
        {
@@ -234,7 +234,7 @@ int C2F(intopenxls)(char *fname, long lfn)
 
     
     
-    CreateVar(Rhs+4,"d", &one, &nsheets, &l2);
+    CreateVar(Rhs+4,MATRIX_OF_DOUBLE_DATATYPE, &one, &nsheets, &l2);
     for (i=0;i<nsheets;i++) *stk(l2+i)=Abspos[i];
        if (Abspos)
        {
@@ -243,8 +243,8 @@ int C2F(intopenxls)(char *fname, long lfn)
        }
   }
   else {
-    CreateVar(Rhs+3,"d",&nsheets,&nsheets,&l2);
-    CreateVar(Rhs+4,"d",&nsheets,&nsheets,&l2);
+    CreateVar(Rhs+3,MATRIX_OF_DOUBLE_DATATYPE,&nsheets,&nsheets,&l2);
+    CreateVar(Rhs+4,MATRIX_OF_DOUBLE_DATATYPE,&nsheets,&nsheets,&l2);
   }
 
   LhsVar(1)= Rhs+1;
index d2d8056..ede6a87 100644 (file)
@@ -12,9 +12,9 @@ int int_objnumTokens(char *fname,unsigned long fname_len)
        static int l1,m1,n1,l2,un=1;
        Nbvars = 0;
        CheckRhs(1,1);
-       GetRhsVar(1,"c",&m1,&n1,&l1);
+       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
        StringConvert(cstk(l1));  /* conversion */
-       CreateVar(Rhs+2, "d", &un, &un, &l2);
+       CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE, &un, &un, &l2);
        *stk(l2) = (double) NumTokens(cstk(l1));
        LhsVar(1) = Rhs+2;
        PutLhsVar();
index 516947a..7e64b6f 100644 (file)
@@ -18,18 +18,18 @@ int C2F(sci_deletefile) _PARAMS((char *fname,unsigned long fname_len))
                int m1,n1,l1;
                char *VarName=NULL;
 
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                VarName=cstk(l1);
 
                n1=1;
                if ( deleteafile(VarName) )
                {
-                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+                       CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                        *istk(l1)=(int)(TRUE);
                }
                else
                {
-                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+                       CreateVar(Rhs+1,MATRIX_OF_BOOLEAN_DATATYPE, &n1,&n1,&l1);
                        *istk(l1)=(int)(FALSE);
                }
 
index 955790c..7803b26 100644 (file)
@@ -41,10 +41,10 @@ int intsmopen(char *fname,unsigned long fname_len)
        CheckRhs(1,3);
        CheckLhs(1,2);
        /*  checking variable file */
-       GetRhsVar(1,"c",&m1,&n1,&l1);
+       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
        if ( Rhs >= 2) 
        {
-               GetRhsVar(2,"c",&m2,&n2,&l2);
+               GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
                status = cstk(l2);
        }
        else 
@@ -53,11 +53,11 @@ int intsmopen(char *fname,unsigned long fname_len)
        }
        if ( Rhs >= 3) 
        {
-               GetRhsVar(3,"i",&m3,&n3,&l3);
+               GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m3,&n3,&l3);
                swap = *istk(l3);
        } 
-       CreateVar(Rhs+1, "i", &un,&un, &l4);
-       CreateVar(Rhs+2, "d", &un,&un, &l5);
+       CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE, &un,&un, &l4);
+       CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE, &un,&un, &l5);
        lout=FILENAME_MAX;
        C2F(cluni0)(cstk(l1), filename, &out_n,m1*n1,lout);
 
@@ -102,13 +102,13 @@ int intsmputstr(char *fname,unsigned long fname_len)
        CheckRhs(1,2);
        CheckLhs(1,1);
        /*  checking variable file */
-       GetRhsVar(1,"c",&m1,&n1,&l1);
+       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
        if ( Rhs >= 2) 
        {
-               GetRhsVar(2,"i",&m2,&n2,&l2);
+               GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
                fd = *istk(l2);
        }
-       CreateVar(Rhs+1, "d", &m3,&n3, &l3);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &m3,&n3, &l3);
        C2F(mputstr)(&fd,cstk(l1),stk(l3),&err);
        if (err >  0)
        {
@@ -133,10 +133,10 @@ int intsmclose(char *fname,unsigned long fname_len)
        /*  checking variable file */
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                fd = *istk(l1);
        }
-       CreateVar(Rhs+1, "d", &un,&un, &l2);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &un,&un, &l2);
        C2F(mclose)(&fd,stk(l2));
        LhsVar(1)= Rhs+1;
        PutLhsVar();
@@ -154,11 +154,11 @@ int intsmput(char *fname,unsigned long fname_len)
        CheckRhs(1,3);
        CheckLhs(1,1);
        /*  checking variable res */
-       GetRhsVar(1,"d",&m1,&n1,&l1);
+       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
        n1=m1*n1;
        if ( Rhs >= 2) 
        {
-               GetRhsVar(2,"c",&m2,&n2,&l2);
+               GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
                type = cstk(l2);
        }
        else 
@@ -167,7 +167,7 @@ int intsmput(char *fname,unsigned long fname_len)
        }
        if ( Rhs >= 3) 
        {
-               GetRhsVar(3,"i",&m3,&n3,&l3);
+               GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m3,&n3,&l3);
                fd = *istk(l3);
        }
        C2F(mput)(&fd,stk(l1),&n1,type,&err);
@@ -195,12 +195,12 @@ int intsmget(char *fname,unsigned long fname_len)
        CheckLhs(1,1);
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                n  = *istk(l1);
        }
        if ( Rhs >= 2) 
        {
-               GetRhsVar(2,"c",&m2,&n2,&l2);
+               GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
                type = cstk(l2);
        }
        else 
@@ -209,10 +209,10 @@ int intsmget(char *fname,unsigned long fname_len)
        }
        if ( Rhs >= 3) 
        {
-               GetRhsVar(3,"i",&m3,&n3,&l3);
+               GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m3,&n3,&l3);
                fd = *istk(l3);
        }
-       CreateVar(Rhs+1,"d",&un,&n,&l4);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&un,&n,&l4);
        LhsVar(1)= Rhs+1;
        C2F(mget)(&fd,stk(l4),&n,type,&err);
        if (err >  0) 
@@ -228,7 +228,7 @@ int intsmget(char *fname,unsigned long fname_len)
                n5 = -err -1;
                if ( n5 < n ) 
                {
-                       CreateVar(Rhs+2,"d",&un,&n5,&l5);
+                       CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE,&un,&n5,&l5);
                        for ( i=0; i < n5 ; i++) *stk(l5+i) = *stk(l4+i);
                        LhsVar(1)= Rhs+2;
                }
@@ -249,15 +249,15 @@ int intsmgetstr(char *fname,unsigned long fname_len)
        CheckLhs(1,1);
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                n  = *istk(l1);
        }
        if ( Rhs >= 2) 
        {
-               GetRhsVar(2,"i",&m2,&n2,&l2);
+               GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
                fd = *istk(l2);
        }
-       CreateVar(Rhs+1,"c",&n,&un,&l3);
+       CreateVar(Rhs+1,STRING_DATATYPE,&n,&un,&l3);
        C2F(mgetstr1)(&fd,cstk(l3),&n,&err);
        LhsVar(1)=Rhs+1;
        if (err >  0) 
@@ -273,7 +273,7 @@ int intsmgetstr(char *fname,unsigned long fname_len)
                n5 = -err -1;
                if ( n5 < n ) 
                {
-                       CreateVar(Rhs+2,"c",&un,&n5,&l5);
+                       CreateVar(Rhs+2,STRING_DATATYPE,&un,&n5,&l5);
                        strcpy(cstk(l5),cstk(l3));
                        LhsVar(1)= Rhs+2;
                }
@@ -293,10 +293,10 @@ int intsmeof(char *fname,unsigned long fname_len)
        CheckLhs(1,1);
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                fd  = *istk(l1);
        }
-       CreateVar(Rhs+1,"d",&un,&un,&lr);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr);
        C2F(meof)(&fd,stk(lr));
        LhsVar(1)= Rhs+1;
        PutLhsVar();
@@ -313,15 +313,15 @@ int intsmseek(char *fname,unsigned long fname_len)
        Nbvars=0;
        CheckRhs(1,3);
        CheckLhs(1,1);
-       GetRhsVar(1,"i",&m1,&n1,&l1);
+       GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
        if ( Rhs >= 2) 
        {
-               GetRhsVar(2,"i",&m2,&n2,&l2);
+               GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
                fd = *istk(l2);
        }
        if ( Rhs >= 3)
        {
-               GetRhsVar(3,"c",&m3,&n3,&l3);
+               GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
                flag = cstk(l3);
        }
        else
@@ -352,10 +352,10 @@ int intsmtell(char *fname,unsigned long fname_len)
        /*  checking variable file */
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                fd = *istk(l1);
        }
-       CreateVar(Rhs+1, "d", &un,&un, &l2);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &un,&un, &l2);
        C2F(mtell)(&fd,stk(l2),&err);
        if (err >  0)
        {
@@ -380,7 +380,7 @@ int intsmclearerr(char *fname,unsigned long fname_len)
        /*  checking variable file */
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                fd = *istk(l1);
        }
        C2F(mclearerr)(&fd);
@@ -400,10 +400,10 @@ int intsmerror(char *fname,unsigned long fname_len)
        CheckLhs(1,1);
        if ( Rhs >= 1) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                fd  = *istk(l1);
        }
-       CreateVar(Rhs+1,"d",&un,&un,&lr);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr);
        C2F(merror)(&fd,stk(lr));
        LhsVar(1)= Rhs+1;
        PutLhsVar();
index 5d705d5..f94cc2c 100644 (file)
@@ -19,7 +19,7 @@ int C2F(sci_filesep) _PARAMS((char *fname,unsigned long fname_len))
        if (separator) strcpy(separator,DIR_SEPARATOR);
 
        n1 = 1;
-       CreateVarFromPtr(Rhs+1, "c",(m1=(int)strlen(separator), &m1),&n1,&separator);
+       CreateVarFromPtr(Rhs+1,STRING_DATATYPE,(m1=(int)strlen(separator), &m1),&n1,&separator);
        LhsVar(1)=Rhs+1;
        C2F(putlhsvar)();
 
index 3daecb3..30990e1 100644 (file)
@@ -53,7 +53,7 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                {
                        if (GetType(1) == sci_strings)
                        {
-                               GetRhsVar(1,"c",&m1,&n1,&l1);
+                               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                                path=cstk(l1);
                                needtofreepath = FALSE;
 
@@ -74,11 +74,11 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                {
                        if ( (GetType(1) == sci_strings) && (GetType(2) == sci_strings) )
                        {
-                               GetRhsVar(1,"c",&m1,&n1,&l1);
+                               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                                path=cstk(l1);
                                needtofreepath = FALSE;
 
-                               GetRhsVar(2,"c",&m1,&n1,&l1);
+                               GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1);
                                filespec=cstk(l1);
                                needtofreefilespec = FALSE;
                        }
@@ -102,13 +102,13 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                ncol=1;
                nrow=sizeListReturned;
 
-               CreateVarFromPtr(Rhs+1, "S", &nrow, &ncol, FilesList);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrow, &ncol, FilesList);
                LhsVar(1) = Rhs+1;
        }
        else
        {
                n1=0;m1=0;l1=0;
-               CreateVarFromPtr(Rhs+ 1, "d",&n1,&m1,&l1);
+               CreateVarFromPtr(Rhs+ 1,MATRIX_OF_DOUBLE_DATATYPE,&n1,&m1,&l1);
                LhsVar(1) = Rhs+1;
        }
 
index 4d33c24..aef2e93 100644 (file)
@@ -20,7 +20,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
 
        if (GetType(1) == sci_strings)
        {
-               GetRhsVar(1,"c",&m1,&n1,&l1);/* file name */
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);/* file name */
        }
        else
        {
@@ -39,7 +39,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
 
                if (Cmplx != COMPLEXPART)
                {
-                       GetRhsVar(2,"d",&m2,&n2,&l2); /* data */
+                       GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2); /* data */
                }
                else
                {
@@ -55,7 +55,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
 
        if ( Rhs >= 3) 
        {
-               GetRhsVar(3,"c",&m3,&n3,&l3);/* format */
+               GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);/* format */
                StringConvert(cstk(l3));  /* conversion */
                Format = cstk(l3);
        }
@@ -66,7 +66,7 @@ int int_objfprintfMat(char *fname,unsigned long fname_len)
 
        if ( Rhs >= 4 )
        {
-               GetRhsVar(4,"S",&mS,&nS,&Str2);
+               GetRhsVar(4,MATRIX_OF_STRING_DATATYPE,&mS,&nS,&Str2);
        }
 
        if (( f = fopen(cstk(l1),"w")) == (FILE *)0) 
index 22b1ccb..e8f8a5e 100644 (file)
@@ -35,11 +35,11 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
        Nbvars = 0;
        CheckRhs(1,1); /** just 1 **/
        CheckLhs(1,2);
-       GetRhsVar(1,"c",&m1,&n1,&l1);/* file name */
+       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);/* file name */
 
        if ( Rhs == 2) 
        {
-               GetRhsVar(2,"c",&m2,&n2,&l2);/* format */
+               GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);/* format */
                StringConvert(cstk(l2));  /* conversion */
                Format = cstk(l2);
        }
@@ -97,7 +97,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
 
        if ( cols == 0 || rows == 0) rows=cols=0;
 
-       CreateVar(Rhs+1, "d", &rows, &cols, &lres);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &rows, &cols, &lres);
 
        /** second pass to read data **/
        rewind(f);
@@ -151,7 +151,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                if ( vl > 0 ) 
                {
                        int i2=0;
-                       CreateVarFromPtr(Rhs+2,"S",&vl,&un,Str);
+                       CreateVarFromPtr(Rhs+2,MATRIX_OF_STRING_DATATYPE,&vl,&un,Str);
                        if (Str)
                        {
                                for (i2=0;i2<vl;i2++)
@@ -168,7 +168,7 @@ int int_objfscanfMat(char *fname,unsigned long fname_len)
                }
                else 
                {
-                       CreateVar(Rhs+2,"c",&zero,&zero,&l);
+                       CreateVar(Rhs+2,STRING_DATATYPE,&zero,&zero,&l);
                }
 
                LhsVar(2)=Rhs+2;
index 10ab4f7..3e17139 100644 (file)
@@ -28,7 +28,7 @@ int C2F(sci_fullpath) _PARAMS((char *fname,unsigned long fname_len))
                char *relPath=NULL;
                char fullpath[PATH_MAX*4];
                
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                relPath=cstk(l1);
 
                if( _fullpath( fullpath, relPath, PATH_MAX*4 ) != NULL )
@@ -38,7 +38,7 @@ int C2F(sci_fullpath) _PARAMS((char *fname,unsigned long fname_len))
                        strcpy(Output,fullpath);
 
                        n1=1;
-                       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(Output), &m1),&n1,&Output);
+                       CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=(int)strlen(Output), &m1),&n1,&Output);
                        LhsVar(1) = Rhs+1;
                        C2F(putlhsvar)();       
 
index b56e126..fcf10d2 100644 (file)
@@ -26,13 +26,13 @@ int C2F(sci_getdrives) _PARAMS((char *fname,unsigned long l))
        {
                m1=1;
                n1=nbDrives;
-               CreateVarFromPtr(Rhs+1,"S", &m1, &n1,Drives);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m1, &n1,Drives);
        }
        else
        {
                m1=0; n1=0; l1=0; 
                /* returns a [] */
-               CreateVar(Rhs+1,"d",  &m1, &n1, &l1);
+               CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m1, &n1, &l1);
        }
                
        LhsVar(1) = Rhs+1;
index 09fe997..84a9e93 100644 (file)
@@ -21,13 +21,13 @@ int C2F(sci_getlongpathname) _PARAMS((char *fname,unsigned long l))
                char *LongName=NULL;\r
                char *ShortName=NULL;\r
 \r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);\r
                ShortName=cstk(l1);\r
 \r
                LongName = getlongpathname(ShortName,&bOK);\r
 \r
                n1=1;\r
-               CreateVarFromPtr(Rhs+ 1, "c",(m1=(int)strlen(LongName), &m1),&n1,&LongName);\r
+               CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=(int)strlen(LongName), &m1),&n1,&LongName);\r
                LhsVar(1)=Rhs+1;\r
 \r
                if (LongName) {FREE(LongName);LongName=NULL;}\r
@@ -38,7 +38,7 @@ int C2F(sci_getlongpathname) _PARAMS((char *fname,unsigned long l))
 \r
                        *bOkOutINT=bOK;\r
                        n1=1;\r
-                       CreateVarFromPtr(Rhs+2, "b", &n1, &n1, &bOkOutINT);\r
+                       CreateVarFromPtr(Rhs+2,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &bOkOutINT);\r
                        LhsVar(2)=Rhs+2;\r
                        if (bOkOutINT) {FREE(bOkOutINT);bOkOutINT=NULL;}\r
                }\r
index bc5d050..4126216 100644 (file)
@@ -21,13 +21,13 @@ int C2F(sci_getshortpathname) _PARAMS((char *fname,unsigned long l))
                char *LongName=NULL;\r
                char *ShortName=NULL;\r
 \r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);\r
                LongName=cstk(l1);\r
 \r
                ShortName = getshortpathname(LongName,&bOK);\r
 \r
                n1=1;\r
-               CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(ShortName), &m1),&n1,&ShortName);\r
+               CreateVarFromPtr( Rhs+1,STRING_DATATYPE,(m1=(int)strlen(ShortName), &m1),&n1,&ShortName);\r
                LhsVar(1)=Rhs+1;\r
 \r
                if (ShortName) {FREE(ShortName);ShortName=NULL;}\r
@@ -38,7 +38,7 @@ int C2F(sci_getshortpathname) _PARAMS((char *fname,unsigned long l))
 \r
                        *bOkOutINT=bOK;\r
                        n1=1;\r
-                       CreateVarFromPtr(Rhs+2, "b", &n1, &n1, &bOkOutINT);\r
+                       CreateVarFromPtr(Rhs+2,MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &bOkOutINT);\r
                        LhsVar(2)=Rhs+2;\r
                        if (bOkOutINT) {FREE(bOkOutINT);bOkOutINT=NULL;}\r
                }\r
index a485956..f29326d 100644 (file)
@@ -35,7 +35,7 @@ int C2F(sci_maxfiles) _PARAMS((char *fname,unsigned long fname_len))
        {
                if ( GetType(1) == sci_matrix )
                {
-                       GetRhsVar(1,"d",&m1,&n1,&l1);
+                       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
                        if ( (m1 == 1) && (n1 == 1) )
                        {
                                int NewMaxFiles=0;
@@ -90,7 +90,7 @@ int DoOneLhs(void)
        *paramoutINT= GetMaximumFileOpenedInScilab();
 
        n1=1;m1=1;
-       CreateVarFromPtr(Rhs+1, "i", &n1, &m1, &paramoutINT);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_INTEGER_DATATYPE, &n1, &m1, &paramoutINT);
 
        LhsVar(1) = Rhs+1;
        C2F(putlhsvar)();       
index 7e999c5..0f91329 100644 (file)
@@ -29,8 +29,8 @@ int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
        {
                if (VarType(k) !=1 && VarType(k) !=10) {OverLoad(k);return 0;}
        }
-       GetRhsVar(1,"i",&m1,&n1,&l1); /* file id */
-       GetRhsVar(2,"c",&m2,&n2,&l2); /* format */
+       GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1); /* file id */
+       GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2); /* format */
        ptrFormat=cstk(l2);
 
        param1=*istk(l1);
index db73f08..cd4a4b4 100644 (file)
@@ -28,7 +28,7 @@ int int_objfscanf(char *fname,unsigned long fname_len)
 
        if (Rhs==3) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1 != 1 ) 
                {
                        Scierror(999,"Error: in fscanf: incorrect first argument\r\n");
@@ -43,8 +43,8 @@ int int_objfscanf(char *fname,unsigned long fname_len)
                maxrow=1;
        }
 
-       GetRhsVar(iarg,"i",&m1,&n1,&l1);
-       GetRhsVar(iarg+1,"c",&m2,&n2,&l2);/* format */
+       GetRhsVar(iarg,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
+       GetRhsVar(iarg+1,STRING_DATATYPE,&m2,&n2,&l2);/* format */
 
        param1=*istk(l1);
        StringConvert(cstk(l2));  /* conversion */
index 7438bf0..0236960 100644 (file)
@@ -28,7 +28,7 @@ int int_objprintf __PARAMS((char *fname,unsigned long fname_len))
     if (VarType(k) !=1 && VarType(k) !=10) {OverLoad(k);return 0;}
   }
 
-  GetRhsVar(1,"c",&m1,&n1,&l1);
+  GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
   ptrFormat=cstk(l1);
   for(i=0;i<(int)strlen(ptrFormat);i++)
   {
index c8b0591..9da13aa 100644 (file)
@@ -33,7 +33,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
        CheckRhs(1,2);
        if (Rhs==2) 
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1 != 1) 
                {
                        Scierror(999,"Error: in scanf: incorrect first argument\r\n");
@@ -48,7 +48,7 @@ int int_objscanf(char *fname,unsigned long fname_len)
                maxrow=1;
        }
 
-       GetRhsVar(iarg,"c",&m1,&n1,&l1); /** format **/
+       GetRhsVar(iarg,STRING_DATATYPE,&m1,&n1,&l1); /** format **/
        n_count=StringConvert(cstk(l1))+1;  /* conversion */
 
        /** Read a line with Scilab read function **/
index 30c6459..7727de4 100644 (file)
@@ -31,7 +31,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
        for (k=2;k<=Rhs;k++) {
                if (VarType(k) !=1 && VarType(k) !=10) {OverLoad(k);return 0;}
        }
-       GetRhsVar(1,"c",&m1,&n1,&l1);
+       GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
        ptrFormat=cstk(l1);
 
        for(i=0;i<(int)strlen(ptrFormat);i++)
@@ -128,7 +128,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
        if (rval == RET_BUG) return 0;
        /** Create a Scilab String : lstr must not be freed **/
        n2=1;
-       CreateVarFromPtr(Rhs+1, "S", &n, &n2, strs);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &n, &n2, strs);
        for (k=0;k<n;k++) FREE(strs[k]);
        FREE(strs);
        LhsVar(1)=Rhs+1;
index 4134066..e77b22a 100644 (file)
@@ -27,7 +27,7 @@ int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
 
        if (Rhs==3)
        {
-               GetRhsVar(1,"i",&m1,&n1,&l1);
+               GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
                if (m1*n1!=1)
                {
                        Scierror(999,"Error: in sscanf: incorrect first argument\r\n");
@@ -45,7 +45,7 @@ int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
 
        lw = iarg + Top - Rhs; /* Scilab string vector */
        if (! C2F(getwsmat)("sscanf",&Top,&lw,&m1,&n1,&il1,&ild1,6L)) return 0;
-       GetRhsVar(iarg+1,"c",&m2,&n2,&l2); /* Format */
+       GetRhsVar(iarg+1,STRING_DATATYPE,&m2,&n2,&l2); /* Format */
        n_count=StringConvert(cstk(l2))+1;  /* conversion */
 
        if ( (maxrow >= 0) && (maxrow*n_count>m1*n1) )
index aeba56d..6683719 100644 (file)
@@ -19,7 +19,7 @@ int C2F(sci_pathsep) _PARAMS((char *fname,unsigned long fname_len))
        if (separator) strcpy(separator,PATH_SEPARATOR);
        
        n1 = 1;
-       CreateVarFromPtr(Rhs+1, "c",(m1=(int)strlen(separator), &m1),&n1,&separator);
+       CreateVarFromPtr(Rhs+1,STRING_DATATYPE,(m1=(int)strlen(separator), &m1),&n1,&separator);
        LhsVar(1)=Rhs+1;
        C2F(putlhsvar)();
 
index 5f98dbc..18ccfc5 100644 (file)
@@ -469,14 +469,14 @@ static int GetScalarInt(char *fname, int *prev, int *arg, int narg, int *ic, int
                *prev = 1;
        }
 
-       GetRhsVar(arg,"i",&mx,&nx,&lx);
+       GetRhsVar(arg,MATRIX_OF_INTEGER_DATATYPE,&mx,&nx,&lx);
        
        if ( (*ic>nx) || (*prev != 1)) 
                {
                        *arg=*arg+1;
                        if (*arg > narg ) return NOT_ENOUGH_ARGS;
                        *ic=1;
-                       GetRhsVar(arg,"i",&mx,&nx,&lx);
+                       GetRhsVar(arg,MATRIX_OF_INTEGER_DATATYPE,&mx,&nx,&lx);
                }
 
        if (ir>mx) return RET_END;
@@ -527,13 +527,13 @@ static int GetScalarDouble(char *fname, int *prev, int *arg, int narg, int *ic,
                *ic=1;
                *prev = 1;
        }
-       GetRhsVar(arg,"d",&mx,&nx,&lx);
+       GetRhsVar(arg,MATRIX_OF_DOUBLE_DATATYPE,&mx,&nx,&lx);
        if ( *ic>nx) 
                {
                        *arg=*arg+1;
                        if (*arg > narg ) return NOT_ENOUGH_ARGS;
                        *ic=1;
-                       GetRhsVar(arg,"d",&mx,&nx,&lx);
+                       GetRhsVar(arg,MATRIX_OF_DOUBLE_DATATYPE,&mx,&nx,&lx);
                }
        if (ir>mx) return RET_END;
        *dval =  *(stk(lx+ir-1+mx*(*ic-1)));
index de9302a..60fbea0 100644 (file)
@@ -78,19 +78,19 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
   iarg=Rhs;
   if (Lhs > 1) {
     if (nrow==0) {/* eof encountered before any data */
-      CreateVar(++iarg, "d", &one, &one, &l);
+      CreateVar(++iarg,MATRIX_OF_DOUBLE_DATATYPE, &one, &one, &l);
       LhsVar(1) = iarg;
       *stk(l) = -1.0;
       for ( i = 2; i <= Lhs ; i++) 
       {
        iarg++;
-       CreateVar(iarg,"d",&zero,&zero,&l);
+       CreateVar(iarg,MATRIX_OF_DOUBLE_DATATYPE,&zero,&zero,&l);
        LhsVar(i) = iarg;
       }
       PutLhsVar();
       return 0;
     }
-    CreateVar(++iarg, "d", &one, &one, &l);
+    CreateVar(++iarg,MATRIX_OF_DOUBLE_DATATYPE, &one, &one, &l);
     *stk(l) = (double) retval_s;
     LhsVar(1)=iarg;
     if (ncol==0) goto Complete;
@@ -100,12 +100,12 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
        if( (temp = (char **) MALLOC(nrow*ncol*sizeof(char **)))==NULL) return MEM_LACK;
        k=0;
        for (j=0;j<nrow;j++) temp[k++]=data[i+ncol*j].s;
-       CreateVarFromPtr(++iarg, "S", &nrow, &one, temp);
+       CreateVarFromPtr(++iarg,MATRIX_OF_STRING_DATATYPE, &nrow, &one, temp);
        FREE(temp);
        /*for (j=0;j<nrow;j++) FREE(data[i+ncol*j].s);*/ 
       }
       else {
-       CreateVar(++iarg, "d", &nrow, &one, &l);
+       CreateVar(++iarg,MATRIX_OF_DOUBLE_DATATYPE, &nrow, &one, &l);
        for ( j=0 ; j < nrow ; j++) 
          *stk(l+j)= data[i+ncol*j].d;
       }
@@ -118,7 +118,7 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
     for ( i = ncol+2; i <= Lhs ; i++) 
       {
        iarg++;
-       CreateVar(iarg,"d",&zero,&zero,&l);
+       CreateVar(iarg,MATRIX_OF_DOUBLE_DATATYPE,&zero,&zero,&l);
        LhsVar(i) = iarg;
       }
   }
@@ -136,7 +136,7 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
     if (multi) {
       i=(int)strlen(ltype);
       iarg=Rhs;
-      CreateVarFromPtr(++iarg, "c", &one, &i, &ltype); /* the mlist type field */
+      CreateVarFromPtr(++iarg,STRING_DATATYPE, &one, &i, &ltype); /* the mlist type field */
       cur_type=type[0];
       i=0;cur_i=i;
 
@@ -148,19 +148,19 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
        if (endblk) {
          colcount=i - cur_i;
          if (nrow==0) {
-           CreateVar(++iarg, "d", &zero, &zero, &l);}
+           CreateVar(++iarg,MATRIX_OF_DOUBLE_DATATYPE, &zero, &zero, &l);}
          else if ( (cur_type == SF_C) || (cur_type == SF_S) ) {
            if( (temp = (char **) MALLOC(nrow*colcount*sizeof(char **)))==NULL) return MEM_LACK;
            k=0;
            for (i1=cur_i;i1<i;i1++)
              for (j=0;j<nrow;j++) temp[k++]=data[i1+ncol*j].s;
-           CreateVarFromPtr(++iarg, "S", &nrow, &colcount,temp);
+           CreateVarFromPtr(++iarg,MATRIX_OF_STRING_DATATYPE, &nrow, &colcount,temp);
            FREE(temp);
            /*for (i1=cur_i;i1<i;i1++)
              for (j=0;j<nrow;j++) FREE(data[i1+ncol*j].s);*/
          }
          else {
-           CreateVar(++iarg, "d", &nrow, &colcount, &l);
+           CreateVar(++iarg,MATRIX_OF_DOUBLE_DATATYPE, &nrow, &colcount, &l);
            ii=0;
            for (i1=cur_i;i1<i;i1++) {
              for ( j=0 ; j < nrow ; j++) 
@@ -184,19 +184,19 @@ int Sci_Store __PARAMS((int nrow, int ncol, entry *data, sfdir *type, int retval
     }
     else {
       if (nrow==0) {
-       CreateVar(Rhs+1, "d", &zero, &zero, &l);}
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &zero, &zero, &l);}
       else if ( (cur_type == SF_C) || (cur_type == SF_S) ) {
        if( (temp = (char **) MALLOC(nrow*ncol*sizeof(char **)))==NULL) return MEM_LACK;
        k=0;
        for (i1=0;i1<ncol;i1++)
          for (j=0;j<nrow;j++) temp[k++]=data[i1+ncol*j].s;
-       CreateVarFromPtr(Rhs+1, "S", &nrow, &ncol, temp);
+       CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrow, &ncol, temp);
        FREE(temp);
        /*for (i1=0;i1<ncol;i1++)
          for (j=0;j<nrow;j++) FREE(data[i1+ncol*j].s);*/
       }
       else {
-       CreateVar(Rhs+1, "d", &nrow, &ncol, &l);
+       CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE, &nrow, &ncol, &l);
        ii=0;
        for (i1=0;i1<ncol;i1++) {
          for ( j=0 ; j < nrow ; j++) 
index c24a1da..56e220a 100644 (file)
@@ -43,10 +43,10 @@ int sci_UImenu( char *fname,unsigned long fname_len )
          pParent= (sciPointObj *) sciGetCurrentFigure(); 
                        
 
-         GetRhsVar(1,"c",&m1,&n1,&l1);
+         GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
          labelmenu = cstk(l1); 
 
-         GetRhsVar(2,"c",&m2,&n2,&l2);
+         GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
          callbackmenu = cstk(l2); 
        }
       else
@@ -60,7 +60,7 @@ int sci_UImenu( char *fname,unsigned long fname_len )
       /* Rhs == 3 */
       if ( (VarType(1) == sci_handles) && (VarType(2) == sci_strings) && (VarType(3) == sci_strings) )
        {
-         GetRhsVar(1,"h",&m1,&n1,&l1);
+         GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1);
          pParent=sciGetPointerFromHandle((long)*hstk(l1));
          if ( (sciGetEntityType (pParent) != SCI_FIGURE) && (sciGetEntityType (pParent) != SCI_UIMENU) )
            {
@@ -69,10 +69,10 @@ int sci_UImenu( char *fname,unsigned long fname_len )
            }
 
 
-         GetRhsVar(2,"c",&m2,&n2,&l2);
+         GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
          labelmenu = cstk(l2); 
 
-         GetRhsVar(3,"c",&m3,&n3,&l3);
+         GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
          callbackmenu = cstk(l3); 
 
        }
@@ -92,7 +92,7 @@ int sci_UImenu( char *fname,unsigned long fname_len )
 
   numrow   = 1;
   numcol   = 1;
-  CreateVar(Rhs+1,"h",&numrow,&numcol,&outindex);
+  CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE,&numrow,&numcol,&outindex);
   *hstk(outindex) = GraphicHandle;
        
 
index d2e8050..af8f7d2 100644 (file)
@@ -29,16 +29,16 @@ int sci_addcb(char *fname,unsigned long fname_len)
   {
   case 1: /* first is a scalar argument so it's a legend(hdl,"str1",...)*/
     CheckRhs(3,3);
-    GetRhsVar(1,"h",&m1,&n1,&l1); /* Gets the Handle passed as argument*/
+    GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1); /* Gets the Handle passed as argument*/
     hdl = (unsigned long)*hstk(l1); /* on recupere le pointeur d'objet par le handle*/
-    GetRhsVar(2,"c",&m1,&n1,&l1); /* Gets the command name  */
-    GetRhsVar(3,"i",&m2,&n2,&l2); /* Gets the mouse event */
+    GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1); /* Gets the command name  */
+    GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2); /* Gets the mouse event */
     break;
   case 10:/* first is a string argument so it's a sciset("str1",....)*/
     hdl = (unsigned long ) sciGetHandle(sciGetCurrentSubWin()); /* Gets the figure handle value if it ones (the phather)*/
     CheckRhs(2,2);
-    GetRhsVar(1,"c",&m1,&n1,&l1); /* Gets the command name    */
-    GetRhsVar(2,"i",&m2,&n2,&l2); /* Gets the mouse event */
+    GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1); /* Gets the command name    */
+    GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2); /* Gets the mouse event */
     break;
   default: 
     Scierror(999,"%s: Pad parameters\r\n",fname);
index 1ca1688..93da022 100644 (file)
@@ -69,10 +69,10 @@ int sci_champ_G(char *fname,int (*func) (),unsigned long fname_len)
     Error(999); 
     return(0);
   }
-  GetRhsVar(1, "d", &m1, &n1, &l1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
-  GetRhsVar(3, "d", &m3, &n3, &l3);
-  GetRhsVar(4, "d", &m4, &n4, &l4);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3);
+  GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE, &m4, &n4, &l4);
   CheckSameDims(3,4,m3,n3,m4,n4);
   CheckDimProp(2,3,m2 * n2 != n3);
   CheckDimProp(1,3,m1 * n1 != m3); 
index 64573b2..abd9e18 100644 (file)
@@ -24,11 +24,11 @@ int sci_contour2di( char * fname, unsigned long fname_len )
   CheckRhs(3,4);
   CheckLhs(2,2);
 
-  GetRhsVar(1, "d", &m1, &n1, &l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   CheckVector(1,m1,n1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
   CheckVector(2,m2,n2);
-  GetRhsVar(3, "d", &m3, &n3, &l3);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3);
   if (m3 * n3 == 0) { LhsVar(1) = 0; return 0; }
   if (m3 == 1 || n3 == 1) {
     Scierror(999,"%s: third argument is a vector, expecting a matrix\r\n",fname);
@@ -41,7 +41,7 @@ int sci_contour2di( char * fname, unsigned long fname_len )
   /*     number of level curves */
   if ( Rhs == 4 ) 
   {
-    GetRhsVar(4, "d", &m4, &n4, &l4);
+    GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE, &m4, &n4, &l4);
     if (m4 * n4 == 1) {
       flagx = 0;  nz = Max(1,(integer) *stk(l4)),znz= stk(l4);
     } else {
@@ -50,7 +50,7 @@ int sci_contour2di( char * fname, unsigned long fname_len )
   }
 
   ix4 = Max(nz,2);
-  CreateVar(Rhs+1,"i",&un,&ix4,&l5);
+  CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&un,&ix4,&l5);
   for (i =0 ; i < ix4 ; ++i) *istk(l5 + i ) = i+1;
   if (nz == 1) *istk(l5 +1) = 1;
 
@@ -58,13 +58,13 @@ int sci_contour2di( char * fname, unsigned long fname_len )
   C2F(getconts)(&hl1, &hl2, &m1, &n1);
   if (n1 == 0)
   {
-    CreateVar(Rhs+6,"d", &n1, &n1, &l1);
-    CreateVar(Rhs+7,"d", &n1, &n1, &l2);
+    CreateVar(Rhs+6,MATRIX_OF_DOUBLE_DATATYPE, &n1, &n1, &l1);
+    CreateVar(Rhs+7,MATRIX_OF_DOUBLE_DATATYPE, &n1, &n1, &l2);
   }
   else 
   {
-    CreateVarFromPtr(Rhs+6,"d", &m1, &n1, &hl1);
-    CreateVarFromPtr(Rhs+7,"d", &m1, &n1, &hl2);
+    CreateVarFromPtr(Rhs+6,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &hl1);
+    CreateVarFromPtr(Rhs+7,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &hl2);
   }
   LhsVar(1)=Rhs+6;
   LhsVar(2)=Rhs+7;
index 6ac9fb9..2f1208e 100644 (file)
@@ -30,7 +30,7 @@ int sci_copy(char *fname,unsigned long fname_len)
   /*  set or create a graphic window*/
   SciWin();
   lw = 1 + Top - Rhs;
-  GetRhsVar(1,"h",&m1,&n1,&l1); /* Gets the Handle passed as argument*/
+  GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1); /* Gets the Handle passed as argument*/
   if (m1!=1||n1!=1) {
     C2F(overload)(&lw,"copy",4);
     return 0;
@@ -64,7 +64,7 @@ int sci_copy(char *fname,unsigned long fname_len)
       C2F(overload)(&lw,"copy",4);
       return 0;
     }
-    GetRhsVar(2,"h",&m1,&n1,&l2); /* Gets the command name */
+    GetRhsVar(2,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l2); /* Gets the command name */
     hdlparent = (unsigned long)*hstk(l2); /* on recupere le pointeur d'objet par le handle*/
     psubwinparenttarget = sciGetPointerFromHandle(hdlparent);
     if ( psubwinparenttarget == NULL) {
@@ -73,7 +73,7 @@ int sci_copy(char *fname,unsigned long fname_len)
     }
   }
   numrow   = 1;numcol   = 1;
-  CreateVar(Rhs+1,"h",&numrow,&numcol,&outindex);
+  CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE,&numrow,&numcol,&outindex);
   *hstk(outindex) = sciGetHandle(pcopyobj = sciCopyObj((sciPointObj *)pobj,(sciPointObj *)psubwinparenttarget));
   sciDrawObj((sciPointObj *)sciGetParentFigure(pcopyobj));
   LhsVar(1) = Rhs+1;
index 687fe71..789358d 100644 (file)
@@ -32,17 +32,17 @@ int sci_delete(char *fname,unsigned long fname_len)
   switch(VarType(1))
   {
   case 9: /* delete Entity given by a handle */
-    GetRhsVar(1,"h",&m1,&n1,&l1); /* Gets the Handle passed as argument */
+    GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1); /* Gets the Handle passed as argument */
     if (m1!=1||n1!=1) {
       lw = 1 + Top - Rhs;
       C2F(overload)(&lw,"delete",6);return 0;}
     if (Rhs == 2)
-      GetRhsVar(2,"c",&m2,&n2,&l2); /* Gets the command name */
+      GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2); /* Gets the command name */
     hdl = (unsigned long)*hstk(l1); /* Puts the value of the Handle to hdl */
     break;
   case 10: /* delete("all") */
     CheckRhs(1,1);
-    GetRhsVar(1,"c",&m2,&n2,&l2);
+    GetRhsVar(1,STRING_DATATYPE,&m2,&n2,&l2);
     if (strcmp(cstk(l2),"all") == 0)
     {
       SciWin();
index cac5aa9..c4691a6 100644 (file)
@@ -18,7 +18,7 @@ int sci_demo( char * fname, char * code, int * flagx )
        static char name[] = "execstr" ;
        Nbvars = 0 ;
        
-       CreateVar(1, "c", &m1, &n1, &l1);
+       CreateVar(1,STRING_DATATYPE, &m1, &n1, &l1);
        strcpy(cstk(l1),code);
        
        /* back conversion to Scilab coding */
index dfecda5..3044491 100644 (file)
@@ -20,13 +20,13 @@ int sci_driver(char *fname,unsigned long fname_len)
   CheckLhs(0,1);
   if (Rhs <= 0) 
   {
-    CreateVar(Rhs+1,"c",&m1,&n1,&l1);
+    CreateVar(Rhs+1,STRING_DATATYPE,&m1,&n1,&l1);
     C2F(dr1)("xgetdr", cstk(l1), &v, &v, &v, &v, &v, &v, &dv, &dv, &dv, &dv, 7L, m1);
     LhsVar(1) = Rhs+1;
   } 
   else 
   {
-    GetRhsVar(1,"c",&m1,&n1,&l1);
+    GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
     C2F(dr1)("xsetdr", cstk(l1), &v, &v, &v, &v, &v, &v, &dv, &dv, &dv, &dv, 7L, m1);
     LhsVar(1)=0;
   }
index 3db0eeb..359b2e2 100644 (file)
@@ -61,17 +61,17 @@ int sci_fec(char *fname,unsigned long fname_len)
     Error(999); 
     return(0);
   }
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckSameDims(1,2,m1,n1,m2,n2);
 
-  GetRhsVar(3,"d",&m3,&n3,&l3);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3);
   if (n3 != 5) {
     Scierror(999,"%s: triangles have %d columns,expecting 5\r\n",fname,n3);
     return 0;
   }
 
-  GetRhsVar(4,"d",&m4,&n4,&l4);
+  GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4);
 
   if (m1 * n1 == 0 || m3 == 0) { LhsVar(1)=0;     return 0;} 
 
index e349b12..b2e0278 100644 (file)
@@ -101,9 +101,9 @@ int sci_geom3d( char * fname, unsigned long fname_len )
   CheckRhs(3,3);
   CheckLhs(2,3);
 
-  GetRhsVar(1, "d", &m1, &n1, &l1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
-  GetRhsVar(3, "d", &m3, &n3, &l3);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3);
   CheckSameDims(1,2,m1,n1,m2,n2);
   CheckSameDims(2,3,m2,n2,m3,n3);
   if (m1 * n1 == 0)  { LhsVar(1) = 0; return 0;}
index 17bfcda..a915f0a 100644 (file)
@@ -60,13 +60,13 @@ int sci_get(char *fname,unsigned long fname_len)
       break;
     case 9: /* scalar argument (hdl + string) */
       CheckRhs(2,2);
-      GetRhsVar(1,"h",&m1,&n1,&l1);
+      GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1);
       if (m1!=1||n1!=1) { 
        lw = 1 + Top - Rhs;
        C2F(overload)(&lw,"get",3);
         return 0;
       }
-      GetRhsVar(2,"c",&numrow2,&numcol2,&l2);
+      GetRhsVar(2,STRING_DATATYPE,&numrow2,&numcol2,&l2);
       if ( *hstk(l1) != sciGetHandle(getFigureModel()) && *hstk(l1) != sciGetHandle(getAxesModel())
           &&  *hstk(l1) != sciGetHandle(pSUBWIN_FEATURE(getAxesModel())->mon_title)
           &&  *hstk(l1) != sciGetHandle(pSUBWIN_FEATURE(getAxesModel())->mon_x_label)
@@ -91,7 +91,7 @@ int sci_get(char *fname,unsigned long fname_len)
       break;
     case 10:/* string argument (string) */
       CheckRhs(1,1);
-      GetRhsVar(1,"c",&numrow2,&numcol2,&l2);
+      GetRhsVar(1,STRING_DATATYPE,&numrow2,&numcol2,&l2);
       if (strcmp(cstk(l2),"default_figure") !=0 && strcmp(cstk(l2),"default_axes") !=0 )
        {
          if (strcmp(cstk(l2),"old_style") == 0 || strcmp(cstk(l2),"current_figure") ==0) {
index 56e7dc7..28b90e3 100644 (file)
@@ -28,10 +28,10 @@ int sci_glue( char * fname, unsigned long fname_len )
 
   /*  set or create a graphic window */
   SciWin();
-  GetRhsVar(1,"h",&numrow,&numcol,&l1); /* We get the scalar value if it is ones */
+  GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&numrow,&numcol,&l1); /* We get the scalar value if it is ones */
   n=numrow*numcol;
-  CreateVar(Rhs+1,"d",&numrow,&numcol,&l2);
-  CreateVar(Rhs+2,"i",&numrow,&numcol,&lind);
+  CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&numrow,&numcol,&l2);
+  CreateVar(Rhs+2,MATRIX_OF_INTEGER_DATATYPE,&numrow,&numcol,&lind);
   if (n>1) {
     C2F(dcopy)(&n, stk(l1), &cx1, stk(l2), &cx1);
     C2F(dsort)(stk(l2),&n,istk(lind));
@@ -75,7 +75,7 @@ int sci_glue( char * fname, unsigned long fname_len )
 
   numrow = 1;
   numcol = 1;
-  CreateVar(Rhs+3,"h",&numrow,&numcol,&outindex);
+  CreateVar(Rhs+3,GRAPHICAL_HANDLE_DATATYPE,&numrow,&numcol,&outindex);
   hstk(outindex)[0] = sciGetHandle((sciPointObj *) sciGetCurrentObj());
   LhsVar(1) = Rhs+3;
   FREE(handelsvalue);
index a3b70f0..8f12acc 100644 (file)
@@ -50,11 +50,11 @@ int sci_grayplot( char *fname, unsigned long fname_len )
     Error(999); 
     return(0);
   }
-  GetRhsVar(1, "d", &m1, &n1, &l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   CheckVector(1,m1,n1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
   CheckVector(2,m2,n2);
-  GetRhsVar(3, "d", &m3, &n3, &l3);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3);
   if (m3 * n3 == 0) { LhsVar(1)=0; return 0;} 
 
   CheckDimProp(2,3,m2 * n2 != n3);
index 1fbf1c0..5d2fe1e 100644 (file)
@@ -51,7 +51,7 @@ int sci_matplot(char *fname,unsigned long fname_len)
     Error(999); 
     return(0);
   }
-  GetRhsVar(1, "d", &m1, &n1, &l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   if (m1 * n1 == 0) {  LhsVar(1)=0; return 0;} 
   GetStrf(fname,2,opts,&strf);
   GetRect(fname,3,opts,&rect);
index 4cc328b..4979ee9 100644 (file)
@@ -24,8 +24,8 @@ int sci_matplot1( char * fname, unsigned long fname_len )
   }
 
   CheckRhs(2,2);
-  GetRhsVar(1, "d", &m1, &n1, &l1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
   CheckLength(2,m2*n2,4);
   if ( m1 * n1 == 0 )
   {
index fca02da..7f52a74 100644 (file)
@@ -22,7 +22,7 @@ int sci_move( char * fname, unsigned long fname_len )
   SciWin();
   opt = FALSE;
   if (Rhs ==3) {
-    GetRhsVar(3,"c",&m3,&n3,&l3);
+    GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
     if (strcmp(cstk(l3),"alone") == 0) { opt = TRUE; }
     else {
       Scierror(999,"%s: invalid option \r\n",fname); 
@@ -30,8 +30,8 @@ int sci_move( char * fname, unsigned long fname_len )
     }
   }
 
-  GetRhsVar(1,"h",&m1,&n1,&l1); /* Gets the Handle passed as argument */    
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1); /* Gets the Handle passed as argument */    
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   hdl = (unsigned long)*hstk(l1); /* Puts the value of the Handle to hdl */
   n=m2*n2;
   if (n != 2&&n !=3)
index 779fe97..0cd355a 100644 (file)
@@ -28,7 +28,7 @@ int sci_newaxes( char * fname,unsigned long fname_len )
   {
     sciSetCurrentObj(masousfen);
     sciSetSelectedSubWin(masousfen);
-    CreateVar(Rhs+1,"h",&numrow,&numcol,&outindex);
+    CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE,&numrow,&numcol,&outindex);
     *hstk(outindex) = sciGetHandle(masousfen);
 
 
index ca7ab41..81d586c 100644 (file)
@@ -51,10 +51,10 @@ int sci_param3d( char * fname, unsigned long fname_len )
     return(0);
   }
 
-  GetRhsVar(1, "d", &m1, &n1, &l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   if (m1 * n1 == 0) { LhsVar(1) = 0; return 0;} 
-  GetRhsVar(2, "d", &m2, &n2, &l2);
-  GetRhsVar(3, "d", &m3, &n3, &l3);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3);
   CheckSameDims(1,2,m1,n1,m2,n2);
   CheckSameDims(2,3,m2,n2,m3,n3);
 
index b2f1f19..2bf12dd 100644 (file)
@@ -52,10 +52,10 @@ int sci_param3d1( char *fname, unsigned long fname_len )
     Error(999); 
     return(0);
   }
-  GetRhsVar(1, "d", &m1, &n1, &l1);/* x */
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);/* x */
   if (m1 == 1 && n1 > 1) {m1 = n1;n1 = 1;}
 
-  GetRhsVar(2, "d", &m2, &n2, &l2);/* y */
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);/* y */
   if (m2 == 1 && n2 > 1) {m2 = n2;n2 = 1;}
 
   if (m1 * n1 == 0) { LhsVar(1) = 0; return 0;};
@@ -65,20 +65,20 @@ int sci_param3d1( char *fname, unsigned long fname_len )
   {
   case 1 : 
     izcol = 0;
-    GetRhsVar(3, "d", &m3, &n3, &l3); /* z */
+    GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3); /* z */
     break;
   case 15 : 
     izcol = 1;
     /* z = list(z,colors) */
-    GetRhsVar(3,"l",&m3l,&n3l,&l3l);
+    GetRhsVar(3,LIST_DATATYPE,&m3l,&n3l,&l3l);
     if ( m3l != 2 ) 
     {
       Scierror(999,"%s: second argument has a wrong size (%d), expecting a list of size %d\r\n",
         fname,m3l,2);
       return 0;
     }
-    GetListRhsVar(3,1,"d",&m3,&n3,&l3); /* z*/ 
-    GetListRhsVar(3,2,"d",&m3n,&n3n,&l3n); /* colors */
+    GetListRhsVar(3,1,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3); /* z*/ 
+    GetListRhsVar(3,2,MATRIX_OF_DOUBLE_DATATYPE,&m3n,&n3n,&l3n); /* colors */
     zcol  = stk(l3n);
     if (m3n * n3n != n3) 
     {
index c89bd8c..04b24da 100644 (file)
@@ -83,8 +83,8 @@ int sci_plot2d( char * fname, unsigned long fname_len )
            return(0);
     }
 
-    GetRhsVar(1+iskip, "d", &m2, &n2, &l2);
-    CreateVar(2+iskip,"d",  &m2, &n2, &l1);
+    GetRhsVar(1+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
+    CreateVar(2+iskip,MATRIX_OF_DOUBLE_DATATYPE,  &m2, &n2, &l1);
     if (m2 == 1 && n2 > 1) { m2 = n2; n2 = 1;}
     m1 = m2;  n1 = n2;
     for (i = 0; i < m2 ; ++i) 
@@ -108,10 +108,10 @@ int sci_plot2d( char * fname, unsigned long fname_len )
     /** plot2d([loglags,] x,y,....); **/
 
     /* x */
-    GetRhsVar(1+iskip, "d", &m1, &n1, &l1);
+    GetRhsVar(1+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
 
     /* y */
-    GetRhsVar(2+iskip, "d", &m2, &n2, &l2);
+    GetRhsVar(2+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
 
     test = (m1*n1 == 0)||
       ((m1 == 1 || n1 == 1) && (m2 == 1 || n2 ==1) && (m1*n1 == m2*n2))  ||
@@ -121,7 +121,7 @@ int sci_plot2d( char * fname, unsigned long fname_len )
 
     if (m1*n1 == 0)
     { /* default x=1:n */
-      CreateVar(Rhs+1,"d",  &m2, &n2, &lt);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m2, &n2, &lt);
       if (m2 == 1 && n2 > 1) { m2 = n2; n2 = 1;}
       for (i = 0; i < m2 ; ++i) 
       {
@@ -137,7 +137,7 @@ int sci_plot2d( char * fname, unsigned long fname_len )
     else if ((m1 == 1 || n1 == 1) && (m2 != 1 && n2 != 1) )
     {
       /* a single x vector for mutiple columns for y */
-      CreateVar(Rhs+1,"d",  &m2, &n2, &lt);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m2, &n2, &lt);
       for (i = 0; i < m2 ; ++i)
       {
              for (j = 0 ; j < n2 ;  ++j)
@@ -152,7 +152,7 @@ int sci_plot2d( char * fname, unsigned long fname_len )
     else if ((m1 == 1 && n1 == 1) && (n2 != 1) )
     {
       /* a single y row vector  for a single x */
-      CreateVar(Rhs+1,"d",  &m1, &n2, &lt);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m1, &n2, &lt);
       for (j = 0 ; j < n2 ;  ++j)
       {
              *stk( lt + j ) = *stk(l1);
index 43fd4bf..996749f 100644 (file)
@@ -113,8 +113,8 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
       return(0);
     }
 
-    GetRhsVar(1+iskip, "d", &m2, &n2, &l2);
-    CreateVar(2+iskip,"d",  &m2, &n2, &l1);
+    GetRhsVar(1+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
+    CreateVar(2+iskip,MATRIX_OF_DOUBLE_DATATYPE,  &m2, &n2, &l1);
     if (m2 == 1 && n2 > 1) { m2 = n2; n2 = 1;}
     m1 = m2;  n1 = n2;
     for (i = 0; i < m2 ; ++i) 
@@ -135,7 +135,7 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
 
 
     /* x */
-    GetRhsVar(1+iskip, "d", &m1, &n1, &l1);
+    GetRhsVar(1+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
     if (iskip==1) 
     {
       if (logFlags[0]=='e')
@@ -146,7 +146,7 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
     }
 
     /* y */
-    GetRhsVar(2+iskip, "d", &m2, &n2, &l2);
+    GetRhsVar(2+iskip,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
     /* if (m2 * n2 == 0) { m1 = 0; n1 = 0;}  */
 
     test = (m1*n1 == 0) /* x = [] */
@@ -160,7 +160,7 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
 
     if (m1*n1 == 0) 
     { /* default x=1:n */
-      CreateVar(Rhs+1,"d",  &m2, &n2, &lt);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m2, &n2, &lt);
       if (m2 == 1 && n2 > 1) { m2 = n2; n2 = 1;}
       for (i = 0; i < m2 ; ++i)
       {
@@ -175,7 +175,7 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
     }
     else if ((m1 == 1 || n1 == 1) && (m2 != 1 && n2 != 1) ) {
       /* a single x vector for mutiple columns for y */
-      CreateVar(Rhs+1,"d",  &m2, &n2, &lt);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m2, &n2, &lt);
       for (i = 0; i < m2 ; ++i)
       {
         for (j = 0 ; j < n2 ;  ++j)
@@ -189,7 +189,7 @@ int sci_plot2d1_G( char * fname, int ptype, unsigned long fname_len )
     }
     else if ((m1 == 1 && n1 == 1) && (n2 != 1) ) {
       /* a single y row vector  for a single x */
-      CreateVar(Rhs+1,"d",  &m1, &n2, &lt);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,  &m1, &n2, &lt);
       for (j = 0 ; j < n2 ;  ++j)
       {
         *stk( lt + j ) = *stk(l1);
index db52f0f..8fe3fa2 100644 (file)
@@ -62,8 +62,8 @@ int sci_plot3d( char * fname, unsigned long fname_len )
     return(0);
   }
 
-  GetRhsVar(1, "d", &m1, &n1, &l1);
-  GetRhsVar(2, "d", &m2, &n2, &l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
   if (m1 * n1 == 0)    { LhsVar(1) = 0; return 0;}
 
   if (Rhs >= 3) {
@@ -71,21 +71,21 @@ int sci_plot3d( char * fname, unsigned long fname_len )
     switch ( VarType(3) ) 
     {
     case 1 : 
-      GetRhsVar(3, "d", &m3, &n3, &l3);
+      GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE, &m3, &n3, &l3);
       izcol = 0;
       break;
     case 15 : 
       izcol = 1;
       /* z = list(z,colors) */
-      GetRhsVar(3,"l",&m3l,&n3l,&l3l);
+      GetRhsVar(3,LIST_DATATYPE,&m3l,&n3l,&l3l);
       if ( m3l != 2 ) 
       {
         Scierror(999,"%s: second argument has a wrong size (%d), expecting a list of size %d\r\n",
           fname,m3l,2);
         return 0;
       }
-      GetListRhsVar(3,1,"d",&m3,&n3,&l3);
-      GetListRhsVar(3,2,"d",&m3n,&n3n,&l3n);
+      GetListRhsVar(3,1,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3);
+      GetListRhsVar(3,2,MATRIX_OF_DOUBLE_DATATYPE,&m3n,&n3n,&l3n);
       zcol  = stk(l3n);
       if (m3n * n3n != n3 &&  m3n*n3n != m3*n3)
       {
index 436b5aa..9c77b40 100644 (file)
@@ -28,7 +28,7 @@ int sci_readgif ( char * fname, unsigned long fname_len )
                int* ArrayTmpL1=NULL;
                int* ArrayTmpL2=NULL;
                
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                FilenameGIF=cstk(l1);
 
                readGifImg(FilenameGIF,&imgptr,&m,&n,&ncol) ;
@@ -67,10 +67,10 @@ int sci_readgif ( char * fname, unsigned long fname_len )
                        k++;
                }
                
-               CreateVarFromPtr(Rhs+1, "i",&ml1,&nl1,&ArrayTmpL1);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&ml1,&nl1,&ArrayTmpL1);
                LhsVar(1)=Rhs+1;
 
-               CreateVarFromPtr(Rhs+2, "i",&ml2,&nl2,&ArrayTmpL2);
+               CreateVarFromPtr(Rhs+2,MATRIX_OF_INTEGER_DATATYPE,&ml2,&nl2,&ArrayTmpL2);
                LhsVar(2)=Rhs+2;
 
                if ( ArrayTmpL2 != NULL ) {FREE(ArrayTmpL2);ArrayTmpL2=NULL;}
index 4e593c1..595e8d8 100644 (file)
@@ -29,7 +29,7 @@ int sci_readxbm ( char * fname,unsigned long fname_len )
                int* ArrayTmpL1=NULL;
                int* ArrayTmpL2=NULL;
                
-               GetRhsVar(1,"c",&m1,&n1,&l1);
+               GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
                FilenameXBM=cstk(l1);
 
                readXbmImg(FilenameXBM,&imgptr,&m,&n,&ncol);
@@ -68,10 +68,10 @@ int sci_readxbm ( char * fname,unsigned long fname_len )
                        k++;
                }
                
-               CreateVarFromPtr(Rhs+1, "i",&ml1,&nl1,&ArrayTmpL1);
+               CreateVarFromPtr(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&ml1,&nl1,&ArrayTmpL1);
                LhsVar(1)=Rhs+1;
 
-               CreateVarFromPtr(Rhs+2, "i",&ml2,&nl2,&ArrayTmpL2);
+               CreateVarFromPtr(Rhs+2,MATRIX_OF_INTEGER_DATATYPE,&ml2,&nl2,&ArrayTmpL2);
                LhsVar(2)=Rhs+2;
 
                if ( ArrayTmpL2 != NULL ){FREE(ArrayTmpL2);ArrayTmpL2=NULL;}
index 810a988..f65d9ba 100644 (file)
@@ -100,7 +100,7 @@ int sci_set(char *fname, unsigned long fname_len)
                        /* first is a scalar argument so it's a gset(hdl,"command",[param]) */
                        /* F.Leray; INFO: case 9 is considered for a matrix of graphic handles*/
                        CheckRhs(3,3);
-                       GetRhsVar(1,"h",&m1,&n1,&l1); /* Gets the Handle passed as argument */
+                       GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1); /* Gets the Handle passed as argument */
                        if ( *hstk(l1) != sciGetHandle(getFigureModel()) && *hstk(l1) != sciGetHandle(getAxesModel())
                          &&  *hstk(l1) != sciGetHandle(pSUBWIN_FEATURE(getAxesModel())->mon_title)
                          &&  *hstk(l1) != sciGetHandle(pSUBWIN_FEATURE(getAxesModel())->mon_x_label)
@@ -131,7 +131,7 @@ int sci_set(char *fname, unsigned long fname_len)
                                        pobj = sciGetPointerFromHandle(hdl);
                                }
 
-                       GetRhsVar(2,"c",&m2,&n2,&l2); /* Gets the command name */  
+                       GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2); /* Gets the command name */  
                        if ( *hstk(l1) != sciGetHandle(getFigureModel()) && *hstk(l1) != sciGetHandle(getAxesModel())
                          &&  *hstk(l1) != sciGetHandle(pSUBWIN_FEATURE(getAxesModel())->mon_title)
                          &&  *hstk(l1) != sciGetHandle(pSUBWIN_FEATURE(getAxesModel())->mon_x_label)
@@ -151,7 +151,7 @@ int sci_set(char *fname, unsigned long fname_len)
                        }
                        else if ( valueType == 9 )
                        {
-                               GetRhsVar(3,"h",&numrow3,&numcol3,&l3);
+                               GetRhsVar(3,GRAPHICAL_HANDLE_DATATYPE,&numrow3,&numcol3,&l3);
                        }
                        else if ( valueType == 10 ) 
                        { 
@@ -161,18 +161,18 @@ int sci_set(char *fname, unsigned long fname_len)
                                  && strcmp( cstk(l2), "axes_reverse" ) != 0
                                  && strcmp( cstk(l2), "text"         ) != 0 )
                                {
-                                       GetRhsVar(3,"c",&numrow3,&numcol3,&l3);
+                                       GetRhsVar(3,STRING_DATATYPE,&numrow3,&numcol3,&l3);
                                } 
                                else
                                {
-                                       GetRhsVar(3,"S",&numrow3,&numcol3,&l3);
+                                       GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&numrow3,&numcol3,&l3);
                                }
                  }
                  break;
 
                case sci_strings:/* first is a string argument so it's a gset("command",[param]) */ 
                        CheckRhs(2,2);
-                       GetRhsVar(1,"c",&m2,&n2,&l2);
+                       GetRhsVar(1,STRING_DATATYPE,&m2,&n2,&l2);
                        if (strcmp(cstk(l2),"default_figure") !=0 && strcmp(cstk(l2),"default_axes") !=0 )
                        {
                                if ((strcmp(cstk(l2),"old_style") ==0) || (strcmp(cstk(l2),"current_figure") ==0)) 
@@ -226,11 +226,11 @@ int sci_set(char *fname, unsigned long fname_len)
 
                        if (valueType == sci_matrix )
                        {
-                               GetRhsVar(2,"d",&numrow3,&numcol3,&l3);
+                               GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&numrow3,&numcol3,&l3);
                        }
                        else if ( valueType == sci_handles )
                        {
-                               GetRhsVar(2,"h",&numrow3,&numcol3,&l3);
+                               GetRhsVar(2,GRAPHICAL_HANDLE_DATATYPE,&numrow3,&numcol3,&l3);
                        }
                        else if ( valueType == sci_strings )
                        {
@@ -240,11 +240,11 @@ int sci_set(char *fname, unsigned long fname_len)
                                  && strcmp( cstk(l2), "axes_reverse" ) != 0
                                  && strcmp( cstk(l2), "text"      ) != 0 )
                                {
-                                       GetRhsVar(2,"c",&numrow3,&numcol3,&l3);
+                                       GetRhsVar(2,STRING_DATATYPE,&numrow3,&numcol3,&l3);
                                } 
                                else
                                {
-                                       GetRhsVar(2,"S",&numrow3,&numcol3,&l3);
+                                       GetRhsVar(2,MATRIX_OF_STRING_DATATYPE,&numrow3,&numcol3,&l3);
                                }
                        }
                        break;
index d647296..2a0f9d7 100644 (file)
@@ -14,8 +14,8 @@ int sci_set_posfig_dim( char * fname, unsigned long fname_len )
   integer m1,n1,l1,m2,n2,l2;
   CheckRhs(2,2);
   CheckLhs(1,1);
-  GetRhsVar(1,"i",&m1,&n1,&l1);
-  GetRhsVar(2,"i",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
   setposfig(istk(l1),istk(l2));
   LhsVar(1)=0;
   return 0;
index f4e5c0b..f914f83 100644 (file)
@@ -21,7 +21,7 @@ int sci_showalluimenushandles( char *fname, unsigned long fname_len )
     sciPointObj *pParent=NULL;
     int m1,n1,l1;
 
-    GetRhsVar(1,"h",&m1,&n1,&l1);
+    GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1);
     pParent = sciGetPointerFromHandle((long)*hstk(l1));
 
     if (sciGetEntityType (pParent) != SCI_FIGURE ) 
index 3977bcf..59af7f8 100644 (file)
@@ -26,7 +26,7 @@ int sci_unglue(char *fname,unsigned long fname_len)
   CheckLhs(0,1);
   /*  set or create a graphic window */
   SciWin();
-  GetRhsVar(1,"h",&m1,&n1,&l1);
+  GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m1,&n1,&l1);
   hdl = (unsigned long)*hstk(l1);
   pobj = sciGetPointerFromHandle(hdl);
   if (pobj == NULL)
@@ -46,7 +46,7 @@ int sci_unglue(char *fname,unsigned long fname_len)
     }
     numrow   = i;
     numcol   = 1;
-    CreateVar(Rhs+1,"h",&numrow,&numcol,&outindex);
+    CreateVar(Rhs+1,GRAPHICAL_HANDLE_DATATYPE,&numrow,&numcol,&outindex);
     psonstmp = sciGetSons((sciPointObj *) pobj);
     i = 0;
     while ((psonstmp != (sciSons *)NULL) && (psonstmp->pointobj != (sciPointObj *)NULL))
index 79d0218..4f9762d 100644 (file)
@@ -25,7 +25,7 @@ int sci_unzoom(char *fname,unsigned long fname_len)
   else
   {
     int m,n,l,i;
-    GetRhsVar(1,"h",&m,&n,&l); 
+    GetRhsVar(1,GRAPHICAL_HANDLE_DATATYPE,&m,&n,&l); 
     for (i=0;i<m*n;i++)
     {
       unzoom_one_axes((sciPointObj*)sciGetPointerFromHandle((long) *hstk(l+i))); /** Correction Bug 1476 + Warning Windows **/
index 9184d35..3034305 100644 (file)
@@ -18,7 +18,7 @@ int sci_winsid(char *fname,unsigned long fname_len)
 
   CheckRhs(-1,0) ;
   getWins(&num,&ids ,&iflag);
-  CreateVar(Rhs+1,"i",&un,&num,&l1);
+  CreateVar(Rhs+1,MATRIX_OF_INTEGER_DATATYPE,&un,&num,&l1);
   iflag = 1; 
   getWins(&num,istk(l1),&iflag);
   LhsVar(1)=Rhs+1;
index 314a650..84e0099 100644 (file)
@@ -22,12 +22,12 @@ int sci_xarc(char *fname,unsigned long fname_len)
 
   SciWin();
   CheckRhs(6,6);
-  GetRhsVar(1,"d",&m1,&n1,&l1);CheckScalar(1,m1,n1);
-  GetRhsVar(2,"d",&m1,&n1,&l2);CheckScalar(2,m1,n1);
-  GetRhsVar(3,"d",&m1,&n1,&l3);CheckScalar(3,m1,n1);
-  GetRhsVar(4,"d",&m1,&n1,&l4);CheckScalar(4,m1,n1);
-  GetRhsVar(5,"i",&m1,&n1,&l5);CheckScalar(5,m1,n1);
-  GetRhsVar(6,"i",&m1,&n1,&l6);CheckScalar(6,m1,n1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);CheckScalar(1,m1,n1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l2);CheckScalar(2,m1,n1);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l3);CheckScalar(3,m1,n1);
+  GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l4);CheckScalar(4,m1,n1);
+  GetRhsVar(5,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l5);CheckScalar(5,m1,n1);
+  GetRhsVar(6,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l6);CheckScalar(6,m1,n1);
   curcolor = sciGetForeground(sciGetCurrentSubWin()); /* current color equivalent for new graphics mode */
   if ( strcmp(fname,"xarc") == 0 )
   {
index 974d372..9fafe8c 100644 (file)
@@ -25,7 +25,7 @@ int sci_xarcs(char *fname,unsigned long fname_len)
   SciWin();
   CheckRhs(1,2);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
   if ( strcmp(fname,"xarcs") == 0) {
     if (m1 != 6) {
       Scierror(999,"%s: arcs has a wrong size (6,n) expected \r\n",fname);
@@ -40,7 +40,7 @@ int sci_xarcs(char *fname,unsigned long fname_len)
 
   if (Rhs == 2) 
   {
-    GetRhsVar(2,"i",&m2,&n2,&l2);
+    GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
     CheckVector(2,m2,n2);
     if (m2 * n2 != n1) {
       Scierror(999,"%s: first and second arguments have incompatible length\r\n",fname);
@@ -50,7 +50,7 @@ int sci_xarcs(char *fname,unsigned long fname_len)
   else 
   {
     int i2;
-    m2=1,n2=n1; CreateVar(2,"i",&m2,&n2,&l2);
+    m2=1,n2=n1; CreateVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
     for (i2 = 0; i2 < n2; ++i2)
     { 
       *istk(l2 + i2) =  sciGetForeground(sciGetCurrentSubWin() );
index f2dd5dd..f5df1e8 100644 (file)
@@ -23,16 +23,16 @@ int sci_xarrows(char *fname,unsigned long fname_len)
   SciWin();
   CheckRhs(2,4);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   mn2 = m2 * n2;
   CheckSameDims(1,2,m1,n1,m2,n2);
   if (mn2 == 0) {   LhsVar(1)=0;  return 0;} 
 
-  if (Rhs >= 3) { GetRhsVar(3,"d",&m3,&n3,&l3); CheckScalar(3,m3,n3); arsize = *stk(l3); } 
+  if (Rhs >= 3) { GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3); CheckScalar(3,m3,n3); arsize = *stk(l3); } 
 
   if (Rhs >= 4) { 
-    GetRhsVar(4,"i",&m4,&n4,&l4); CheckVector(4,m4,n4);
+    GetRhsVar(4,MATRIX_OF_INTEGER_DATATYPE,&m4,&n4,&l4); CheckVector(4,m4,n4);
     if (m4 * n4 == 1) dstyle = *istk(l4);
     if (m4 * n4 != 1 && m2 * n2 / 2 != m4 * n4) {
       Scierror(999,"%s: style has a wrong size (%d), expecting (%d)\r\n",fname,m4*n4, m2 * n2 / 2 );
index 7bfe240..5de85e5 100644 (file)
@@ -19,10 +19,10 @@ int sci_xaxis(char *fname,unsigned long fname_len)
 
   CheckRhs(2,4);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1); CheckScalar(1,m1,n1);
-  GetRhsVar(2,"i",&m2,&n2,&l2); CheckLength(1,m2*n2,2);
-  GetRhsVar(3,"d",&m3,&n3,&l3); CheckLength(1,m3*n3,3);
-  GetRhsVar(4,"d",&m4,&n4,&l4); CheckLength(1,m4*n4,2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); CheckScalar(1,m1,n1);
+  GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2); CheckLength(1,m2*n2,2);
+  GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3); CheckLength(1,m3*n3,3);
+  GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4); CheckLength(1,m4*n4,2);
 
   SciWin();
   C2F(dr1)("xaxis","v",&v,istk(l2),&v,&v,&v,&v,stk(l1),stk(l3),stk(l4),&dv,6L,2L);
index 75c0fb0..220a0a8 100644 (file)
@@ -20,31 +20,31 @@ int sci_xchange( char * fname, unsigned long fname_len )
   CheckRhs(3,3);
   CheckLhs(1,3);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
-  GetRhsVar(3,"c",&m3,&n3,&l3);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
+  GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
   CheckSameDims(1,2,m1,n1,m2,n2);
 
   SciWin();
   if ( strcmp(cstk(l3),"i2f") == 0) 
   {
-    GetRhsVar(1,"i",&m1,&n1,&l1);
-    GetRhsVar(2,"i",&m2,&n2,&l2);
+    GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
+    GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
 
-    CreateVar(Rhs+3,"d",&m1,&n1,&l3);
-    CreateVar(Rhs+4,"d",&m1,&n1,&l4);
+    CreateVar(Rhs+3,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l3);
+    CreateVar(Rhs+4,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l4);
 
     C2F(echelle2d)(stk(l3),stk(l4),istk(l1),istk(l2),&m1,&n1,"i2f",3L);
   }
   else 
   {
-    CreateVar(Rhs+3,"i",&m1,&n1,&l3);
-    CreateVar(Rhs+4,"i",&m1,&n1,&l4);
+    CreateVar(Rhs+3,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l3);
+    CreateVar(Rhs+4,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l4);
 
     C2F(echelle2d)(stk(l1),stk(l2),istk(l3),istk(l4),&m1,&n1,"f2i",3L);
   }
 
-  CreateVar(Rhs+5,"d",&one,&four,&l5);
+  CreateVar(Rhs+5,MATRIX_OF_DOUBLE_DATATYPE,&one,&four,&l5);
 
   for (i=0; i < four ; i++) {*stk(l5+i) =  Cscale.WIRect1[i]; }
   LhsVar(1)=Rhs+3;
index fd6dfbc..157ff2a 100644 (file)
@@ -22,15 +22,15 @@ int sci_xclea( char *fname,unsigned long fname_len )
   switch ( Rhs ) 
   {
   case 1 :
-    GetRhsVar(1,"d",&m1,&n1,&l1); 
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); 
     CheckLength(1,m1*n1,4);
     C2F(dr1)(fname,"v",&v,&v,&v,&v,&v,&v,stk(l1),stk(l1+1),stk(l1+2),stk(l1+3),fname_len,2L);      
     break;
   case 4 :
-    GetRhsVar(1,"d",&m1,&n1,&l1); CheckScalar(1,m1,n1);
-    GetRhsVar(2,"d",&m2,&n2,&l2); CheckScalar(2,m2,n2);
-    GetRhsVar(3,"d",&m3,&n3,&l3); CheckScalar(3,m3,n3);
-    GetRhsVar(4,"d",&m4,&n4,&l4); CheckScalar(4,m4,n4);
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); CheckScalar(1,m1,n1);
+    GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2); CheckScalar(2,m2,n2);
+    GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3); CheckScalar(3,m3,n3);
+    GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4); CheckScalar(4,m4,n4);
     C2F(dr1)(fname,"v",&v,&v,&v,&v,&v,&v,stk(l1),stk(l2),stk(l3),stk(l4),fname_len,2L);
     break;
   default :
index fc53d35..b02d5de 100644 (file)
@@ -25,7 +25,7 @@ int sci_xclear( char * fname, unsigned long fname_len )
   SciWin();
   if (Rhs == 1) 
   {
-    GetRhsVar(1,"d",&m1,&n1,&l1);
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
     C2F(dr1)("xget","window",&verb,&cur,&na,PI0,PI0,PI0,&dv,&dv,&dv,&dv,5L,7L);
     for (ix = 0 ; ix < m1*n1 ; ++ix) 
     {
index 96baa81..cab31ad 100644 (file)
@@ -47,23 +47,23 @@ int sci_xclick(char *fname,unsigned long fname_len)
   if ( Lhs == 1 )
   {
     LhsVar(1) = Rhs+1;
-    CreateVar(Rhs+1,"d",&un,&trois,&rep);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&un,&trois,&rep);
     *stk(rep) = (double) ix; *stk(rep + 1) = x; *stk(rep + 2) = y;
   }
   else 
   {
-    LhsVar(1) = Rhs+1; CreateVar(Rhs+1,"d",&un,&un,&rep); *stk(rep) = (double) ix ;
+    LhsVar(1) = Rhs+1; CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&rep); *stk(rep) = (double) ix ;
   }
   if ( Lhs >= 2) 
-  { LhsVar(2) = Rhs+2; CreateVar(Rhs+2,"d",&un,&un,&rep); *stk(rep) = x ;} 
+  { LhsVar(2) = Rhs+2; CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&rep); *stk(rep) = x ;} 
   if ( Lhs >= 3)
-  { LhsVar(3) = Rhs+3; CreateVar(Rhs+3,"d",&un,&un,&rep); *stk(rep) = y ;}
+  { LhsVar(3) = Rhs+3; CreateVar(Rhs+3,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&rep); *stk(rep) = y ;}
   if ( Lhs >=4 ) 
-  { LhsVar(4) = Rhs+4; CreateVar(Rhs+4,"d",&un,&un,&rep); *stk(rep) = (double) iw ;}
+  { LhsVar(4) = Rhs+4; CreateVar(Rhs+4,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&rep); *stk(rep) = (double) iw ;}
   if ( Lhs >= 5) 
   {
     if (istr == 0) { istr = 4; strcpy(C2F(cha1).buf,"void");}
-    LhsVar(5) = Rhs+5; CreateVar(Rhs+5,"c",&istr,&un,&rep); 
+    LhsVar(5) = Rhs+5; CreateVar(Rhs+5,STRING_DATATYPE,&istr,&un,&rep); 
     strncpy(cstk(rep),C2F(cha1).buf,istr);
   }
   return 0;
index 4fd21b4..c453620 100644 (file)
@@ -18,7 +18,7 @@ int sci_xdel(char *fname,unsigned long fname_len)
   CheckRhs(-1,1);
   if (Rhs >= 1) {
     int i;
-    GetRhsVar(1,"d",&m1,&n1,&l1); 
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); 
     for ( i=0; i < m1*n1 ; i++ ) 
     {
       win = (integer) *stk(l1+i);
index 2dcb335..6433ece 100644 (file)
@@ -24,14 +24,14 @@ int sci_xfarcs( char * fname, unsigned long fname_len )
   SciWin();
   CheckRhs(1,2);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
   if (m1 != 6) {
     Scierror(999,"%s: arcs has a wrong size (6,n) expected \r\n",fname);
     return 0;
   }
 
   if (Rhs == 2) {
-    GetRhsVar(2,"i",&m2,&n2,&l2);
+    GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
     CheckVector(2,m2,n2);
     if ( n1 != m2*n2) {
       Scierror(999,"%s: arguments have incompatible size\r\n",fname);
@@ -40,7 +40,7 @@ int sci_xfarcs( char * fname, unsigned long fname_len )
   }
   else 
   {
-    m2=1,n2=n1; CreateVar(2,"i",&m2,&n2,&l2);
+    m2=1,n2=n1; CreateVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
     for (i = 0; i < n2; ++i) { *istk(l2 + i) = i+1 ; }
   }
 
index 8aa8b1b..636054e 100644 (file)
@@ -27,12 +27,12 @@ int sci_xfpoly(char *fname,unsigned long fname_len)
   SciWin();
   CheckRhs(2,3);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckSameDims(1,2,m1,n1,m2,n2);
 
   if (Rhs == 3) {
-    GetRhsVar(3,"d",&m3,&n3,&l3);
+    GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3);
     CheckScalar(3,m3,n3);
     close = (integer) *stk(l3);
   } 
index 76f882a..b921b41 100644 (file)
@@ -30,8 +30,8 @@ int sci_xfpolys( char *fname, unsigned long fname_len )
   SciWin();
 
   CheckRhs(2,3);
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckSameDims(1,2,m1,n1,m2,n2);
   mn2 = m2 * n2;
   if ( mn2 == 0 ) {  LhsVar(1)=0; return 0; } 
@@ -39,7 +39,7 @@ int sci_xfpolys( char *fname, unsigned long fname_len )
 
   if (Rhs == 3) 
   {
-    GetRhsVar(3,"i",&m3,&n3,&l3); 
+    GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m3,&n3,&l3); 
 
     if (m3*n3==m1*n1) 
     { /* Code modified by polpoth 7/7/2000 */
@@ -61,7 +61,7 @@ int sci_xfpolys( char *fname, unsigned long fname_len )
   else 
   {
     int un=1,ix;
-    CreateVar(3,"i",&un,&n2,&l3);
+    CreateVar(3,MATRIX_OF_INTEGER_DATATYPE,&un,&n2,&l3);
     for (ix = 0 ; ix < n2 ; ++ix) *istk(l3+ix) = 0;
     m3 = n3 = 1;
   }
index d13b5d2..4152a43 100644 (file)
@@ -35,7 +35,7 @@ int sci_xget(char *fname,unsigned long fname_len)
   CheckRhs(1,2);
   CheckLhs(0,1);
 
-  GetRhsVar(1,"c",&m1,&n1,&l1);
+  GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
 
   /* check if key is valid */
   for (i=0; i < NUMSETFONC ; i++)
@@ -53,13 +53,13 @@ int sci_xget(char *fname,unsigned long fname_len)
     strncpy(C2F(cha1).buf,cstk(l1),v);
     C2F(msgs)(&i,&v);
     x2=0;
-    CreateVar(Rhs+1,"d",&x2,&x2,&l3);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&x2,&x2,&l3);
     LhsVar(1)=Rhs+1;
     return 0;
   }
 
   if (Rhs == 2) {
-    GetRhsVar(2,"d",&m2,&n2,&l2); 
+    GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2); 
     CheckScalar(2,m2,n2);  
     flagx = (integer) *stk(l2); }
   else
@@ -70,7 +70,7 @@ int sci_xget(char *fname,unsigned long fname_len)
     int bufl;
     /*     special case for global variables set */
     C2F(xgetg)( cstk(l1),C2F(cha1).buf,&bufl,m1,bsiz);
-    CreateVar(Rhs+1,"c",&bufl,&one,&l3);
+    CreateVar(Rhs+1,STRING_DATATYPE,&bufl,&one,&l3);
     strncpy(cstk(l3),C2F(cha1).buf,bufl);
     LhsVar(1)=Rhs+1;
     return 0;
@@ -98,7 +98,7 @@ int sci_xget(char *fname,unsigned long fname_len)
     x1[0] = sciGetMarkStyle(subwin);
     x1[1] = sciGetMarkSize(subwin);
     x2=2;
-    CreateVar(Rhs+1,"d",&one,&x2,&l3);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&one,&x2,&l3);
     for (i2 = 0 ; i2 < x2 ; ++i2)
                *stk(l3 + i2 ) = (double) x1[i2];      
     LhsVar(1)=Rhs+1;
@@ -111,7 +111,7 @@ int sci_xget(char *fname,unsigned long fname_len)
 
     x1[0]=x1[1];
     x2=1;
-    CreateVar(Rhs+1,"d",&one,&x2,&l3);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&one,&x2,&l3);
     for (i2 = 0 ; i2 < x2 ; ++i2) *stk(l3 + i2 ) = (double) x1[i2];      
     LhsVar(1)=Rhs+1;
   }
@@ -121,7 +121,7 @@ int sci_xget(char *fname,unsigned long fname_len)
     x1[0] = sciGetLineStyle(subwin);
   
     x2=1;
-    CreateVar(Rhs+1,"d",&one,&x2,&l3);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&one,&x2,&l3);
     *stk(l3 ) = (double) x1[0];      
     LhsVar(1)=Rhs+1;
   } 
@@ -129,7 +129,7 @@ int sci_xget(char *fname,unsigned long fname_len)
   else if ( strcmp(cstk(l1),"old_style") == 0) 
   {
     x2=1;
-    CreateVar(Rhs+1,"d",&one,&x2,&l3);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&one,&x2,&l3);
     *stk(l3 ) = 0 ;    
     LhsVar(1)=Rhs+1;          
   }   /* NG end*/
@@ -160,12 +160,12 @@ int sci_xget(char *fname,unsigned long fname_len)
       C2F(dr1)("xget",cstk(l1),&flagx,x1,&x2,&v,&v,&v,&dv,&dv,&dv,&dv,5L,bsiz);
     }
     if (x2 > 0) {
-      CreateVar(Rhs+1,"d",&one,&x2,&l3);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&one,&x2,&l3);
       for (i2 = 0 ; i2 < x2 ; ++i2) *stk(l3 + i2 ) = (double) x1[i2];      
     }
     else {
       x2=0;
-      CreateVar(Rhs+1,"d",&x2,&x2,&l3);
+      CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&x2,&x2,&l3);
     }
     LhsVar(1)=Rhs+1;
   }
index a59c365..c820e36 100644 (file)
@@ -21,10 +21,10 @@ int sci_xgetech( char *fname, unsigned long fname_len )
 
   CheckRhs(0,0);
   CheckLhs(1,4);
-  if ( Lhs >=1 ) { CreateVar( 1, "d", &un, &quatre,&l1); W= stk(l1);}
-  if ( Lhs >=2 ) { CreateVar( 2, "d", &un, &quatre,&l2); F= stk(l2);}
-  if ( Lhs >=3 ) { CreateVar( 3, "c", &un, &deux,  &l3); L= cstk(l3);}
-  if ( Lhs >=4 ) { CreateVar( 4, "d", &un, &quatre,&l4); A= stk(l4);}
+  if ( Lhs >=1 ) { CreateVar( 1,MATRIX_OF_DOUBLE_DATATYPE, &un, &quatre,&l1); W= stk(l1);}
+  if ( Lhs >=2 ) { CreateVar( 2,MATRIX_OF_DOUBLE_DATATYPE, &un, &quatre,&l2); F= stk(l2);}
+  if ( Lhs >=3 ) { CreateVar( 3,STRING_DATATYPE, &un, &deux,  &l3); L= cstk(l3);}
+  if ( Lhs >=4 ) { CreateVar( 4,MATRIX_OF_DOUBLE_DATATYPE, &un, &quatre,&l4); A= stk(l4);}
   SciWin();
   getscale2d(W,F,L,A);
   for ( i = 1 ; i <= Lhs ; i++) LhsVar(i) = i;
index e7b3b90..45ea2cc 100644 (file)
@@ -29,7 +29,7 @@ int sci_xgetmouse( char *fname,unsigned long fname_len )
   else {
     if (GetType(1)==4) {
       iflag=0;
-      GetRhsVar(1, "b", &m, &n, &l1);
+      GetRhsVar(1,MATRIX_OF_BOOLEAN_DATATYPE, &m, &n, &l1);
       CheckDims(1,m*n,1,2,1);
       sel[0]=*istk(l1);sel[1]=*istk(l1+1);}
     else {
@@ -38,7 +38,7 @@ int sci_xgetmouse( char *fname,unsigned long fname_len )
     }
     if (Rhs==2) {
       if (iflag==1) {
-        GetRhsVar(2, "b", &m, &n, &l1);
+        GetRhsVar(2,MATRIX_OF_BOOLEAN_DATATYPE, &m, &n, &l1);
         CheckDims(2,m*n,1,2,1);
         sel[0]=*istk(l1);sel[1]=*istk(l1+1);}
     }
@@ -50,7 +50,7 @@ int sci_xgetmouse( char *fname,unsigned long fname_len )
   case 1: 
     v2=0;
     C2F(dr1)("xgetmouse","xv",&button,&iflag,&v,&v,sel,&v2,&x,&y,&dv,&dv,10L,3L); 
-    CreateVar(Rhs+1,"d",&m1,&n1,&l1);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
     if (button==-100)
     {
       *stk(l1) = -1;
@@ -66,7 +66,7 @@ int sci_xgetmouse( char *fname,unsigned long fname_len )
   case 2:
     v2=2;
     C2F(dr1)("xgetmouse","xv",&button,&iflag,&v,&v,sel,&v2,&x,&y,&dv,&dv,10L,3L);
-    CreateVar(Rhs+1,"d",&m1,&n1,&l1);
+    CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
     if (button==-100)
     {
       *stk(l1) = -1;
@@ -79,7 +79,7 @@ int sci_xgetmouse( char *fname,unsigned long fname_len )
     }
     LhsVar(1) = Rhs+1;
 
-    CreateVar(Rhs+2,"d",&m1,&m1,&l2);
+    CreateVar(Rhs+2,MATRIX_OF_DOUBLE_DATATYPE,&m1,&m1,&l2);
     *stk(l2) = iflag; /* this is the window number */
     LhsVar(2) = Rhs+2;
     return 0;
index 6f0fb7b..4883965 100644 (file)
@@ -18,19 +18,19 @@ int sci_xgraduate(char *fname,unsigned long fname_len)
 
   CheckRhs(2,2);
   CheckLhs(2,7);
-  GetRhsVar(1,"d",&m1,&n1,&l1);  CheckScalar(1,m1,n1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);  CheckScalar(2,m2,n2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);  CheckScalar(1,m1,n1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);  CheckScalar(2,m2,n2);
 
   C2F(graduate)(stk(l1),stk(l2),&xi,&xa,&np1,&np2,&kMinr,&kMaxr,&ar);
 
   *stk(l1) = xi;
   *stk(l2) = xa;
 
-  if (Lhs >= 3) { CreateVar(3,"d",&un,&un,&lr); *stk(lr ) = (double) np1;  }
-  if (Lhs >= 4) { CreateVar(4,"d",&un,&un,&lr); *stk(lr ) = (double) np2;  }
-  if (Lhs >= 5) { CreateVar(5,"d",&un,&un,&lr); *stk(lr ) = (double) kMinr;  }
-  if (Lhs >= 6) { CreateVar(6,"d",&un,&un,&lr); *stk(lr ) = (double) kMaxr;  }
-  if (Lhs >= 7) { CreateVar(7,"d",&un,&un,&lr); *stk(lr ) = (double) ar;  }
+  if (Lhs >= 3) { CreateVar(3,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr); *stk(lr ) = (double) np1;  }
+  if (Lhs >= 4) { CreateVar(4,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr); *stk(lr ) = (double) np2;  }
+  if (Lhs >= 5) { CreateVar(5,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr); *stk(lr ) = (double) kMinr;  }
+  if (Lhs >= 6) { CreateVar(6,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr); *stk(lr ) = (double) kMaxr;  }
+  if (Lhs >= 7) { CreateVar(7,MATRIX_OF_DOUBLE_DATATYPE,&un,&un,&lr); *stk(lr ) = (double) ar;  }
   for (i= 1; i <= Lhs ; i++) { LhsVar(i) = i ; }
   return 0;
 }
index 9d9915a..6ce6f73 100644 (file)
@@ -22,7 +22,7 @@ int sci_xgrid(char *fname,unsigned long fname_len)
   int status = 0 ;
   CheckRhs(-1,1);
   if (Rhs == 1) {
-    GetRhsVar(1,"d",&m1,&n1,&l1);
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
     CheckScalar(1,m1,n1);
     style = (integer) *stk(l1);
   }
index 0126749..3e300a5 100644 (file)
@@ -27,7 +27,7 @@ int sci_xinit(char *fname, unsigned long fname_len )
   else 
   {
     char *param1=NULL;
-    GetRhsVar(1,"c",&m1,&n1,&l1);
+    GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
 
     param1=cstk(l1);
     C2F(dr1)("xinit",cstk(l1),&v1,&v,&v,&v,&v,&v,&dv,&dv,&dv,&dv,6L,m1);
index 2982814..de146ea 100644 (file)
@@ -48,7 +48,7 @@ int sci_xlfont( char * fname, unsigned long fname_len )
       S[i][sz[i]]='\0';
     } 
     S[m]= (char *) 0;
-    CreateVarFromPtr(Rhs+1,"S",&one,&m,S);
+    CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE,&one,&m,S);
        if (S)
        {
                int j=0;
@@ -67,8 +67,8 @@ int sci_xlfont( char * fname, unsigned long fname_len )
     return 0;
   }
   CheckRhs(2,2);
-  GetRhsVar(1,"c",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);  CheckScalar(2,m2,n2);  num = (integer) *stk(l2);
+  GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);  CheckScalar(2,m2,n2);  num = (integer) *stk(l2);
   C2F(dr1)("xlfont",cstk(l1),&num,&v,&v,&v,&v,&v,&dv,&dv,&dv,&dv,7L,m1);
   LhsVar(1)=0;
   return 0;
index 6c194cd..e1eb90f 100644 (file)
@@ -20,7 +20,7 @@ int sci_xname(char *fname,unsigned long fname_len)
   integer m1,n1,l1;
   CheckRhs(1,1);
   CheckLhs(1,1);
-  GetRhsVar(1,"c",&m1,&n1,&l1);
+  GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
   SciWin();
   
   sciSetName( sciGetCurrentFigure(), cstk(l1), m1 ) ;
index 6331936..ab79e57 100644 (file)
@@ -30,13 +30,13 @@ int sci_xpoly( char * fname, unsigned long fname_len )
   SciWin();
 
   CheckRhs(2,4);
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckSameDims(1,2,m1,n1,m2,n2);
   mn2 = m2 * n2;
 
   if (Rhs >= 3) {
-    GetRhsVar(3,"c",&m3,&n3,&l3);
+    GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
     if ( strcmp(cstk(l3),"lines") == 0) {
       strcpy(C2F(cha1).buf,"xlines"); 
       mark=1; /* NG */
@@ -53,7 +53,7 @@ int sci_xpoly( char * fname, unsigned long fname_len )
     mark=1; /* NG */
   }
 
-  if (Rhs >= 4) { GetRhsVar(4,"d",&m4,&n4,&l4); CheckScalar(4,m4,n4); close = (integer) *stk(l4);} 
+  if (Rhs >= 4) { GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4); CheckScalar(4,m4,n4); close = (integer) *stk(l4);} 
   /* NG beg */
 
   
index e0fc2ad..f245a6f 100644 (file)
@@ -28,8 +28,8 @@ int sci_xpolys(char *fname,unsigned long fname_len)
   SciWin();
   CheckRhs(2,3);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckSameDims(1,2,m1,n1,m2,n2);
 
   if ( m1 * n1 == 0 || m2 * n2 == 0 )
@@ -41,12 +41,12 @@ int sci_xpolys(char *fname,unsigned long fname_len)
 
   if (Rhs == 3) 
   {
-    GetRhsVar(3,"i",&m3,&n3,&l3); CheckVector (3,m3,n3); CheckDimProp(1,3,m3 * n3 < n1);
+    GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m3,&n3,&l3); CheckVector (3,m3,n3); CheckDimProp(1,3,m3 * n3 < n1);
   }
   else
   {
     int un=1;
-    CreateVar(3,"i",&un,&n1,&l3);
+    CreateVar(3,MATRIX_OF_INTEGER_DATATYPE,&un,&n1,&l3);
     for (i = 0 ; i < n1 ; ++i) *istk(l3+i) = 1;
   } 
 
index 68f5fc0..a975add 100644 (file)
@@ -35,7 +35,7 @@ int sci_xrect( char *fname, unsigned long fname_len )
   switch( Rhs )
   {
   case 1 :
-    GetRhsVar(1,"d",&m1,&n1,&l1); 
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); 
     CheckLength(1,m1*n1,4);
     startFigureDataWriting(pFigure);
     if (strcmp(fname,"xrect")==0)
@@ -63,10 +63,10 @@ int sci_xrect( char *fname, unsigned long fname_len )
 
     break;
   case 4 :
-    GetRhsVar(1,"d",&m1,&n1,&l1); CheckScalar(1,m1,n1);
-    GetRhsVar(2,"d",&m2,&n2,&l2); CheckScalar(2,m2,n2);
-    GetRhsVar(3,"d",&m3,&n3,&l3); CheckScalar(3,m3,n3);
-    GetRhsVar(4,"d",&m4,&n4,&l4); CheckScalar(4,m4,n4);
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); CheckScalar(1,m1,n1);
+    GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2); CheckScalar(2,m2,n2);
+    GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&m3,&n3,&l3); CheckScalar(3,m3,n3);
+    GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4); CheckScalar(4,m4,n4);
     startFigureDataWriting(pFigure);
     if (strcmp(fname,"xrect")==0)
     {  
index 993fbcb..cb1563a 100644 (file)
@@ -25,7 +25,7 @@ int sci_xrects( char *fname, unsigned long fname_len )
   SciWin();
   CheckRhs(1,2);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
 
   if (m1 != 4) {
     Scierror(999,"%s: rects has a wrong size (4,n) expected \r\n",fname);
@@ -35,7 +35,7 @@ int sci_xrects( char *fname, unsigned long fname_len )
 
   if (Rhs == 2) 
   {
-    GetRhsVar(2,"i",&m2,&n2,&l2);
+    GetRhsVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
     CheckVector(2,m2,n2);
     if (m2 * n2 != n1) {
       Scierror(999,"%s: first and second arguments have incompatible length\r\n",fname);
@@ -45,7 +45,7 @@ int sci_xrects( char *fname, unsigned long fname_len )
   else 
   {
     m2=1,n2=n1; 
-       CreateVar(2,"i",&m2,&n2,&l2);
+       CreateVar(2,MATRIX_OF_INTEGER_DATATYPE,&m2,&n2,&l2);
     for (i = 0; i < n2; ++i)  { *istk(l2 + i) = 0; }
   }  
   
index e233a30..4d8b342 100644 (file)
@@ -25,12 +25,12 @@ int sci_xs2bmp( char * fname, unsigned long fname_len )
   {
     integer m1,n1,l1;
     int figurenum=-1;
-    GetRhsVar(1,"i",&m1,&n1,&l1);
+    GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
     figurenum=*istk(l1);
     if (figurenum>=0)
     {
       char *FileName=NULL;
-      GetRhsVar(2,"c",&m1,&n1,&l1);
+      GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1);
       FileName=cstk(l1);
       bOK=Interface_XS2BMP(figurenum,FileName);
     }
index fc6b6c4..535e622 100644 (file)
@@ -25,12 +25,12 @@ int sci_xs2emf( char * fname, unsigned long fname_len )
   {
     integer m1,n1,l1;
     int figurenum=-1;
-    GetRhsVar(1,"i",&m1,&n1,&l1);
+    GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
     figurenum=*istk(l1);
     if (figurenum>=0)
     {
       char *FileName=NULL;
-      GetRhsVar(2,"c",&m1,&n1,&l1);
+      GetRhsVar(2,STRING_DATATYPE,&m1,&n1,&l1);
       FileName=cstk(l1);
       bOK=Interface_XS2EMF(figurenum,FileName);
     }
index f284860..fd09487 100644 (file)
@@ -27,14 +27,14 @@ int sci_xsegs(char *fname,unsigned long fname_len)
 
   CheckRhs(2,3);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckSameDims(1,2,m1,n1,m2,n2);
   if (m2*n2 == 0) { LhsVar(1)=0; return 0;} 
 
   if (Rhs == 3)
   {
-    GetRhsVar(3,"i",&m3,&n3,&l3); CheckVector(3,m3,n3);
+    GetRhsVar(3,MATRIX_OF_INTEGER_DATATYPE,&m3,&n3,&l3); CheckVector(3,m3,n3);
     if (m3 * n3 == 1) dstyle = *istk(l3 );
     if (m3 * n3 != 1 && m2 * n2 / 2 != m3 * n3) {
       Scierror(999,"%s: style has a wrong size (%d), expecting (%d)\r\n",fname,m3 * n3, m2 * n2 / 2);
index 322007c..d49c594 100644 (file)
@@ -36,7 +36,7 @@ int sci_xset( char *fname, unsigned long fname_len )
   CheckRhs(1,6);
   CheckLhs(0,1);
 
-  GetRhsVar(1,"c",&m1,&n1,&l1);
+  GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
 
   for ( i = 0 ; i < NUMSETFONC ; i++ )
   {
@@ -67,7 +67,7 @@ int sci_xset( char *fname, unsigned long fname_len )
   if (Rhs == 2 && VarType(2) != 1) 
   {
     /* second argument is not a scalar it must be a string */ 
-    GetRhsVar(2,"c",&m2,&n2,&l2);
+    GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
     C2F(xsetg)(cstk(l1),cstk(l2),m1,m2);
     LhsVar(1)=0; return 0;
   }
@@ -80,7 +80,7 @@ int sci_xset( char *fname, unsigned long fname_len )
 
   for ( i = 2 ; i <= Rhs ; i++ ) 
   {
-    GetRhsVar(i,"d",&xm[i-2],&xn[i-2],&lr);
+    GetRhsVar(i,MATRIX_OF_DOUBLE_DATATYPE,&xm[i-2],&xn[i-2],&lr);
     x[i - 2] = (integer) *stk(lr); xx[i - 2] = *stk(lr);
   }
   /* initialisation of a window if argument is not xset('window') 
index d844aa6..28281db 100644 (file)
@@ -49,12 +49,12 @@ int sci_xsetech(char* fname,unsigned long fname_len)
       return 0;
     }
 
-    GetRhsVar(1,"d", &m1, &n1, &l1);
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
     CheckDims(1,m1,n1,1,4);
     wrect = stk(l1);
 
-    if (Rhs >= 2) { GetRhsVar(2,"d", &m2, &n2, &l2); CheckDims(2,m2,n2,1,4); frect=stk(l2);} 
-    if (Rhs >= 3) { GetRhsVar(3,"c", &m3, &n3, &l3); CheckLength(3,m3,2); logflag = cstk(l3);}
+    if (Rhs >= 2) { GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2); CheckDims(2,m2,n2,1,4); frect=stk(l2);} 
+    if (Rhs >= 3) { GetRhsVar(3,STRING_DATATYPE, &m3, &n3, &l3); CheckLength(3,m3,2); logflag = cstk(l3);}
     else
       logflag = logflag_def ; /* compatibility with old version */
   }
index 7977f22..6bd6537 100644 (file)
@@ -50,14 +50,14 @@ int sci_xsnative( char * fname, unsigned long fname_len )
     {
       if ( GetType(1) == 1 ) 
       {
-        GetRhsVar(1,"i",&m1,&n1,&l1);
+        GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&m1,&n1,&l1);
         NumBMP=*istk(l1);
       }
       else if( GetType(1) == 10 )
       {
         char *Input;
         int out_n;
-        GetRhsVar(1,"c",&m1,&n1,&l1);
+        GetRhsVar(1,STRING_DATATYPE,&m1,&n1,&l1);
         Input=cstk(l1);
 
         C2F(cluni0)(Input,DefaultFilenameTests, &out_n,(long)strlen(Input),PATH_MAX);
index 820d016..2062bee 100644 (file)
@@ -25,24 +25,24 @@ int sci_xstring( char *fname, unsigned long fname_len )
 
   CheckRhs(3,5);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
   CheckScalar(1,m1,n1);
   x = *stk(l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
   CheckScalar(2,m2,n2);
   yi = y = *stk(l2);
-  GetRhsVar(3,"S",&m3,&n3,&Str);
+  GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&m3,&n3,&Str);
   if ( m3*n3 == 0 ) { LhsVar(1)=0; return 0;} 
 
   if (Rhs >= 4)
   {
-    GetRhsVar(4,"d",&m4,&n4,&l4);
+    GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4);
     CheckScalar(4,m4,n4);
     angle = *stk(l4 );
   }
   if (Rhs >= 5)
   { 
-    GetRhsVar(5,"d",&m5,&n5,&l5);
+    GetRhsVar(5,MATRIX_OF_DOUBLE_DATATYPE,&m5,&n5,&l5);
     CheckScalar(5,m5,n5);
     flagx = (integer) *stk(l5);
   }
index 372f1af..b7760b1 100644 (file)
@@ -42,13 +42,13 @@ int sci_xstringb(char *fname,unsigned long fname_len)
 
   CheckRhs(5,6);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1); CheckScalar(1,m1,n1);  x = *stk(l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2); CheckScalar(2,m2,n2);  y = *stk(l2);
-  GetRhsVar(3,"S",&m3,&n3,&Str);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); CheckScalar(1,m1,n1);  x = *stk(l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2); CheckScalar(2,m2,n2);  y = *stk(l2);
+  GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&m3,&n3,&Str);
   if ( m3*n3 == 0 ) { LhsVar(1)=0; return 0;} 
 
-  GetRhsVar(4,"d",&m4,&n4,&l4); CheckScalar(4,m4,n4);  w = *stk(l4);
-  GetRhsVar(5,"d",&m5,&n5,&l5); CheckScalar(5,m5,n5);  hx = *stk(l5);
+  GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4); CheckScalar(4,m4,n4);  w = *stk(l4);
+  GetRhsVar(5,MATRIX_OF_DOUBLE_DATATYPE,&m5,&n5,&l5); CheckScalar(5,m5,n5);  hx = *stk(l5);
 
   if (Rhs == 6)
   {
index d0cf719..d09e340 100644 (file)
@@ -30,9 +30,9 @@ int sci_xstringl( char *fname, unsigned long fname_len )
   CheckRhs(3,5);
   CheckLhs(0,1);
 
-  GetRhsVar(1,"d",&m1,&n1,&l1); CheckScalar(1,m1,n1); x = *stk(l1);
-  GetRhsVar(2,"d",&m2,&n2,&l2); CheckScalar(2,m2,n2); yi = y = *stk(l2);
-  GetRhsVar(3,"S",&m3,&n3,&Str);
+  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1); CheckScalar(1,m1,n1); x = *stk(l1);
+  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2); CheckScalar(2,m2,n2); yi = y = *stk(l2);
+  GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&m3,&n3,&Str);
 
   if ( m3*n3 == 0 ) { LhsVar(1)=0; return 0;} 
   SciWin();
@@ -42,8 +42,8 @@ int sci_xstringl( char *fname, unsigned long fname_len )
   cur_font_[0] = font_[0];
   cur_font_[1] = font_[1];
 
-  if (Rhs >= 4) { GetRhsVar(4,"i",&m4,&n4,&l4); CheckScalar(4,m4,n4); font_[0] = *istk(l4);}
-  if (Rhs >= 5) { GetRhsVar(5,"i",&m5,&n5,&l5); CheckScalar(5,m5,n5); font_[1] = *istk(l5);}
+  if (Rhs >= 4) { GetRhsVar(4,MATRIX_OF_INTEGER_DATATYPE,&m4,&n4,&l4); CheckScalar(4,m4,n4); font_[0] = *istk(l4);}
+  if (Rhs >= 5) { GetRhsVar(5,MATRIX_OF_INTEGER_DATATYPE,&m5,&n5,&l5); CheckScalar(5,m5,n5); font_[1] = *istk(l5);}
 
   C2F(dr1)("xset","font",&font_[0],&font_[1],PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
 
@@ -81,7 +81,7 @@ int sci_xstringl( char *fname, unsigned long fname_len )
          FREE(Str);
          Str=NULL;
   }
-  CreateVar(Rhs+1,"d",&un,&quatre,&l4);
+  CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&un,&quatre,&l4);
   *stk(l4) = x; 
   *stk(l4+1) = y;
   *stk(l4+2) = wc ;
index 9e885e4..74fd9e8 100644 (file)
@@ -56,7 +56,7 @@ int sci_xtitle( char * fname, unsigned long fname_len )
     {
       int n,m ;
       int boxPtr   = -1 ; /* pointer of box on the stack */
-      GetRhsVar(4,"i",&m,&n,&boxPtr);
+      GetRhsVar(4,MATRIX_OF_INTEGER_DATATYPE,&m,&n,&boxPtr);
       CheckScalar(4,m,n);
       box = *istk( boxPtr ) ;
       nbLabels-- ; /* it is not a label text */
@@ -89,7 +89,7 @@ int sci_xtitle( char * fname, unsigned long fname_len )
     sciPointObj * modifiedLabel = NULL ;
     char * text ;
 
-    GetRhsVar(narg,"S",&m,&n,&Str);
+    GetRhsVar(narg,MATRIX_OF_STRING_DATATYPE,&m,&n,&Str);
     if ( m*n == 0 ) { continue ; }
     strcpy(C2F(cha1).buf,Str[0]);
     for ( i= 1 ; i < m*n ; i++) 
index b800a84..6f84aff 100644 (file)
@@ -25,7 +25,7 @@ int sci_zoom_rect(char *fname,unsigned long fname_len)
   }
   else
   {
-    GetRhsVar(1,"d",&m,&n,&l); 
+    GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m,&n,&l); 
     CheckLength(1,4,m*n);
     zoom_box(stk(l),&x_pixel,&y_pixel);
   }
index 15608c3..34d5d9e 100644 (file)
@@ -28,7 +28,7 @@ int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style )
   { 
     if (VarType(pos))
     {
-           GetRhsVar(pos, "i", &m, &n, &l);
+           GetRhsVar(pos,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
            if (m * n < n1)
       {
              Scierror(999,"%s: style is too small (%d < %d)\r\n",fname,m*n,n1);
@@ -37,7 +37,7 @@ int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style )
            if ( n1 == 1 && m * n == 1 )
       {
              ix = 2;
-             CreateVar(Nbvars+1,"i",&un,&ix,&l1);
+             CreateVar(Nbvars+1,MATRIX_OF_INTEGER_DATATYPE,&un,&ix,&l1);
              *istk(l1)=*istk(l);
              *istk(l1+1)=1;
              l=l1;
@@ -47,7 +47,7 @@ int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style )
     else /* zero type argument --> default value */
          {
            ix = Max(n1,2);
-           CreateVar(Nbvars+1,"i",&un,&ix,&l);
+           CreateVar(Nbvars+1,MATRIX_OF_INTEGER_DATATYPE,&un,&ix,&l);
            for ( i = 0 ; i < n1 ; ++i )
       {
         *istk(l + i) = i+1 ;
@@ -61,7 +61,7 @@ int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style )
   }
   else if ((kopt=FindOpt("style",opts)))
   { /* named argument: style=value */
-    GetRhsVar(kopt, "i", &m, &n, &l);
+    GetRhsVar(kopt,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
     if (m * n < n1)
     {
       Scierror(999,"%s: style is too small (%d < %d)\r\n",fname,m*n,n1);
@@ -70,7 +70,7 @@ int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style )
     if (n1==1&&m*n==1)
     {
       ix = 2;
-      CreateVar(Nbvars+1,"i",&un,&ix,&l1);
+      CreateVar(Nbvars+1,MATRIX_OF_INTEGER_DATATYPE,&un,&ix,&l1);
       *istk(l1)=*istk(l);
       *istk(l1+1)=1;
       l=l1;
@@ -80,7 +80,7 @@ int get_style_arg(char *fname,int pos, int n1,rhs_opts opts[], int ** style )
   else /* unspecified argument --> default value */
   {
     ix = Max(n1,2);
-    CreateVar(Nbvars+1,"i",&un,&ix,&l);
+    CreateVar(Nbvars+1,MATRIX_OF_INTEGER_DATATYPE,&un,&ix,&l);
     for (i = 0 ; i < n1 ; ++i)
     {
       *istk(l + i) = i+1;
@@ -103,7 +103,7 @@ int get_rect_arg(char *fname,int pos,rhs_opts opts[], double ** rect )
   if (pos < first_opt) 
     { 
       if (VarType(pos)) {
-       GetRhsVar(pos, "d", &m, &n, &l);
+       GetRhsVar(pos,MATRIX_OF_DOUBLE_DATATYPE, &m, &n, &l);
        if (m * n != 4) { 
          Scierror(999,"%s: rect has wrong size (%d), 4 expected \r\n",fname,m*n); 
          return 0;
@@ -125,7 +125,7 @@ int get_rect_arg(char *fname,int pos,rhs_opts opts[], double ** rect )
        }
     }
   else if ((kopt=FindOpt("rect",opts))) {/* named argument: rect=value */
-    GetRhsVar(kopt, "d", &m, &n, &l);
+    GetRhsVar(kopt,MATRIX_OF_DOUBLE_DATATYPE, &m, &n, &l);
     if (m * n != 4) { 
       Scierror(999,"%s: rect has wrong size (%d), 4 expected \r\n",fname,m*n); 
       return 0;
@@ -157,7 +157,7 @@ int get_strf_arg(char *fname,int pos,rhs_opts opts[], char ** strf )
   { 
     if (VarType(pos))
     {
-           GetRhsVar(pos, "c", &m, &n, &l);
+           GetRhsVar(pos,STRING_DATATYPE, &m, &n, &l);
            if ( m * n != 3 )
       { 
              Scierror(999,"%s: strf has wrong size (%d), 3 expected \r\n",fname,m*n); 
@@ -174,7 +174,7 @@ int get_strf_arg(char *fname,int pos,rhs_opts opts[], char ** strf )
   }
   else if ((kopt=FindOpt("strf",opts)))
   {
-    GetRhsVar(kopt, "c", &m, &n, &l);
+    GetRhsVar(kopt,STRING_DATATYPE, &m, &n, &l);
     if (m * n != 3)
     { 
       Scierror(999,"%s: strf has wrong size (%d), 3 expected \r\n",fname,m*n); 
@@ -201,7 +201,7 @@ int get_legend_arg(char *fname,int pos,rhs_opts opts[], char ** legend )
   if (pos < first_opt) 
     { 
       if (VarType(pos)) {
-       GetRhsVar(pos, "c", &m, &n, &l);
+       GetRhsVar(pos,STRING_DATATYPE, &m, &n, &l);
        *legend = cstk(l); 
       }
       else
@@ -210,7 +210,7 @@ int get_legend_arg(char *fname,int pos,rhs_opts opts[], char ** legend )
        }
     }
   else if ((kopt=FindOpt("leg",opts))) {
-    GetRhsVar(kopt, "c", &m, &n, &l);
+    GetRhsVar(kopt,STRING_DATATYPE, &m, &n, &l);
     *legend = cstk(l); 
   }
   else
@@ -230,7 +230,7 @@ int get_labels_arg(char *fname,int pos,rhs_opts opts[], char ** labels )
   if (pos < first_opt) 
   { 
     if (VarType(pos)) {
-      GetRhsVar(pos, "c", &m, &n, &l);
+      GetRhsVar(pos,STRING_DATATYPE, &m, &n, &l);
       *labels = cstk(l); 
     }
     else
@@ -251,7 +251,7 @@ int get_labels_arg(char *fname,int pos,rhs_opts opts[], char ** labels )
   }
   else if ((kopt=FindOpt("leg",opts)))
   {
-    GetRhsVar(kopt, "c", &m, &n, &l);
+    GetRhsVar(kopt,STRING_DATATYPE, &m, &n, &l);
     *labels = cstk(l); 
   }
   else
@@ -281,7 +281,7 @@ int get_nax_arg(int pos,rhs_opts opts[], int ** nax, BOOL * flagNax )
   {
     if (VarType(pos))
     {
-      GetRhsVar(pos, "i", &m, &n, &l);
+      GetRhsVar(pos,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
       CheckLength(pos,m*n,4);
       for (i = 0 ; i < 4; ++i)
       {
@@ -298,7 +298,7 @@ int get_nax_arg(int pos,rhs_opts opts[], int ** nax, BOOL * flagNax )
   }
   else if ((kopt=FindOpt("nax",opts)))
   {
-    GetRhsVar(kopt, "i", &m, &n, &l);
+    GetRhsVar(kopt,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
     CheckLength(kopt,m*n,4);
     for (i = 0 ; i < 4; ++i)
     {
@@ -324,7 +324,7 @@ int get_zminmax_arg(char *fname,int pos,rhs_opts opts[], double ** zminmax )
   if (pos < first_opt) 
     { 
       if (VarType(pos)) {
-        GetRhsVar(pos, "d", &m, &n, &l);
+        GetRhsVar(pos,MATRIX_OF_DOUBLE_DATATYPE, &m, &n, &l);
        if (m * n != 2) { 
          Scierror(999,"%s: zminmax has wrong size (%d), 2 expected \r\n",fname,m*n); 
          return 0;
@@ -340,7 +340,7 @@ int get_zminmax_arg(char *fname,int pos,rhs_opts opts[], double ** zminmax )
        }
     }
   else if ((kopt=FindOpt("zminmax",opts))) {/* named argument: rect=value */
-    GetRhsVar(kopt, "d", &m, &n, &l);
+    GetRhsVar(kopt,MATRIX_OF_DOUBLE_DATATYPE, &m, &n, &l);
     if (m * n != 2) { 
       Scierror(999,"%s: zminmax has wrong size (%d), 2 expected \r\n",fname,m*n); 
       return 0;
@@ -367,7 +367,7 @@ int get_colminmax_arg(char *fname,int pos,rhs_opts opts[], int ** colminmax )
     {
       if (VarType(pos)) 
        {
-         GetRhsVar(pos, "i", &m, &n, &l);
+         GetRhsVar(pos,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
          CheckLength(pos,m*n,2);
          *colminmax=istk(l);
        }
@@ -381,7 +381,7 @@ int get_colminmax_arg(char *fname,int pos,rhs_opts opts[], int ** colminmax )
     }
   else if ((kopt=FindOpt("colminmax",opts))) 
     {
-      GetRhsVar(kopt, "i", &m, &n, &l);
+      GetRhsVar(kopt,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
       CheckLength(kopt,m*n,2);
       *colminmax=istk(l);
     }
@@ -404,7 +404,7 @@ int get_colout_arg(char *fname,int pos,rhs_opts opts[], int ** colout )
     {
       if (VarType(pos)) 
        {
-         GetRhsVar(pos, "i", &m, &n, &l);
+         GetRhsVar(pos,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
          CheckLength(pos,m*n,2);
          *colout = istk(l);
        }
@@ -418,7 +418,7 @@ int get_colout_arg(char *fname,int pos,rhs_opts opts[], int ** colout )
     }
   else if ((kopt=FindOpt("colout",opts))) 
     {
-      GetRhsVar(kopt, "i", &m, &n, &l);
+      GetRhsVar(kopt,MATRIX_OF_INTEGER_DATATYPE, &m, &n, &l);
       CheckLength(kopt,m*n,2);
       *colout=istk(l);
     }
@@ -440,7 +440,7 @@ int get_with_mesh_arg(char *fname,int pos,rhs_opts opts[], BOOL * withMesh)
    &nb