intersci_ removed 78/16778/4
Cedric Delamarre [Fri, 3 Jul 2015 12:18:18 +0000 (14:18 +0200)]
Change-Id: Idb54d73af0b0bf26fb4c06618e23dbc5b09d2e8d

57 files changed:
scilab/modules/api_scilab/src/cpp/api_common.cpp
scilab/modules/api_scilab/src/cpp/api_internal_common.h
scilab/modules/arnoldi/core_Import.def
scilab/modules/cacsd/src/c/core_Import.def
scilab/modules/cacsd/src/fortran/core_Import.def
scilab/modules/call_scilab/core_Import.def
scilab/modules/core/includes/stack-c.h
scilab/modules/core/includes/stack-def.h
scilab/modules/core/includes/stack.h.in
scilab/modules/core/includes/stack.h.vc
scilab/modules/core/src/c/DllmainCore.c
scilab/modules/core/src/c/core_export.def
scilab/modules/core/src/fortran/core_Import.def
scilab/modules/data_structures/src/c/core_Import.def
scilab/modules/differential_equations/src/fortran/core_Import.def
scilab/modules/dynamic_link/src/c/core_Import.def
scilab/modules/elementary_functions/src/c/core_Import.def
scilab/modules/elementary_functions/src/fortran/core_Import.def
scilab/modules/elementary_functions/src/fortran/slatec/core_Import.def
scilab/modules/external_objects/core_Import.def
scilab/modules/fileio/core_Import.def
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/functions/src/c/core_Import.def
scilab/modules/graphic_export/core_Import.def
scilab/modules/graphics/core_Import.def
scilab/modules/helptools/etc/MAIN_CHAPTERS
scilab/modules/history_manager/src/c/core_Import.def
scilab/modules/interpolation/src/c/core_Import.def
scilab/modules/io/src/c/core_Import.def
scilab/modules/jvm/core_Import.def
scilab/modules/linear_algebra/src/c/core_Import.def
scilab/modules/localization/src/core_Import.def
scilab/modules/optimization/src/fortran/core_Import.def
scilab/modules/output_stream/src/c/core_Import.def
scilab/modules/output_stream/src/fortran/core_Import.def
scilab/modules/parallel/src/c/core_Import.def
scilab/modules/polynomials/src/fortran/core_Import.def
scilab/modules/randlib/src/c/core_Import.def
scilab/modules/randlib/src/fortran/core_Import.def
scilab/modules/scicos/src/c/Intersci_Import.def [deleted file]
scilab/modules/scicos/src/c/core_Import.def
scilab/modules/scicos/src/c/scilab5_needed_stubs.c
scilab/modules/scicos/src/fortran/Scicos_Import.def
scilab/modules/signal_processing/src/fortran/core_Import.def
scilab/modules/sparse/src/c/core_Import.def
scilab/modules/sparse/src/fortran/core_Import.def
scilab/modules/special_functions/src/c/core_Import.def
scilab/modules/special_functions/src/fortran/core_Import.def
scilab/modules/spreadsheet/core_Import.def
scilab/modules/statistics/src/c/core_Import.def
scilab/modules/string/src/c/core_Import.def
scilab/modules/symbolic/src/fortran/core_Import.def
scilab/modules/tclsci/core_Import.def
scilab/modules/time/core_Import.def
scilab/modules/umfpack/src/c/core_Import.def
scilab/modules/windows_tools/src/c/core_Import.def
scilab/modules/xml/core_Import.def

index 2f29807..2c5cb3d 100644 (file)
@@ -382,9 +382,6 @@ SciErr getNamedVarDimension(void *_pvCtx, const char *_pstName, int *_piRows, in
 SciErr getVarAddressFromPosition(void *_pvCtx, int _iVar, int **_piAddress)
 {
     SciErr sciErr = getinternalVarAddress(_pvCtx, _iVar, _piAddress);
-    //sciprint("type : %d(%c)\n", (*_piAddress)[0], intersci_.ntypes[_iVar - 1]);
-    //update variable state to "read
-    //intersci_.ntypes[_iVar - 1] = '$';
     return sciErr;
 }
 
@@ -642,13 +639,6 @@ void createNamedVariable(int *_piVarID)
 }
 
 /*--------------------------------------------------------------------------*/
-int updateInterSCI(int _iVar, char _cType, int _iSCIAddress, int _iSCIDataAddress)
-{
-    //deprecated
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
 int updateLstk(int _iNewpos, int _iSCIDataAddress, int _iVarSize)
 {
     //deprecated
index fc11e9b..4e7eb1f 100644 (file)
@@ -36,16 +36,6 @@ void createNamedVariable(int *_piVarID);
 int updateLstk(int _iNewPos, int _iSCIDataAddress, int _iVarSize);
 
 /**
-*
-* @param[in]
-* @param[in]
-* @param[in]
-* @param[in]
-* @return
-*/
-int updateInterSCI(int _iVar, char _cType, int _iSCIAddress, int _iSCIDataAddress);
-
-/**
 * @param[in] _piAddress variable address
 * @param[in] _iType type to check
 * @return 1 for true and 0 for false
index c1d2ef0..84f43a2 100644 (file)
@@ -6,7 +6,6 @@ EXPORTS
 callFunctionFromGateway
 com_
 putlhsvar_
-intersci_
 errorinfo_
 stack_
 getrhsvar_
index c2389d7..5827174 100644 (file)
@@ -9,7 +9,6 @@ ExceptionMessage
 callFunctionFromGateway
 com_
 fortran_mex_gateway
-intersci_
 errorinfo_
 stack_
 GetData
index 9aeaf25..68a346e 100644 (file)
@@ -9,7 +9,6 @@ TerminateCorePart2
 ExitScilab
 callFunctionFromGateway
 putlhsvar_
-intersci_
 createvarfromptr_
 checklhs_
 checkrhs_
index 249b6c1..bc8fec3 100644 (file)
@@ -267,20 +267,6 @@ static void initial_c1_local(void)
   if(! C2F(scifunction)((c_local=n,&c_local),mx,nx,lx))\
 { sciprint(_(" results may be inaccurate. rcond = %s1\n"),name);  longjmp(fsqpenv,-1); }
 
-#define Nbvars C2F(intersci).nbvars
-
-/**
- * TODO : need a comment !!!!
- *
- */
-#define LhsVar(x) C2F(intersci).lhsvar[x-1]
-
-
-/* used to access data associated to a variable
- * for example when a variable is created with CreateVarFromPtr(...)
- */
-
-#define VarPtr(x) C2F(intersci).lad[x-1]
 
 typedef int (*interfun)(char *fname, unsigned long l);
 
index a2be951..f347206 100644 (file)
@@ -146,24 +146,6 @@ IMPORT ADRE_struct C2F(adre);
  */
 typedef struct
 {
-    int nbvars; /**< @TODO : add comment */
-    int iwhere[intersiz]; /**< @TODO : add comment */
-    int nbrows[intersiz]; /**< @TODO : add comment */
-    int nbcols[intersiz]; /**< @TODO : add comment */
-    int itflag[intersiz]; /**< @TODO : add comment */
-    int ntypes[intersiz]; /**< @TODO : add comment */
-    int lad[intersiz]; /**< @TODO : add comment */
-    int ladc[intersiz]; /**< @TODO : add comment */
-    int lhsvar[intersiz]; /**< @TODO : add comment */
-} INTERSCI_struct;
-
-IMPORT INTERSCI_struct C2F(intersci);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
     int wmac; /**< @TODO : add comment */
     int lcntr; /**< @TODO : add comment */
     int nmacs; /**< @TODO : add comment */
index 0a4c2f8..754719d 100644 (file)
@@ -24,7 +24,7 @@ Cc (DLL Digital Visual Fortran)
 cDEC$ IF DEFINED (FORDLL)
 cDEC$ ATTRIBUTES DLLIMPORT:: /stack/, /recu/, /iop/
 cDEC$ ATTRIBUTES DLLIMPORT:: /errgst/, /com/, /adre/
-cDEC$ ATTRIBUTES DLLIMPORT:: /intersci/ ,/cha1/, /dbg/
+cDEC$ ATTRIBUTES DLLIMPORT:: /cha1/, /dbg/
 cDEC$ ENDIF
 C     ---------------------------------------------------------------
       integer   csiz,bsiz,isizt,psiz,nsiz,lsiz
@@ -72,8 +72,6 @@ c
      $ nbrows(intersiz),nbcols(intersiz),
      $  itflag(intersiz),ntypes(intersiz),lad(intersiz),
      $  ladc(intersiz),lhsvar(intersiz)
-      common/intersci/nbvars,iwhere,nbrows,nbcols,
-     $ itflag,ntypes,lad,ladc,lhsvar
       integer ierror
       common/ierode/ierror
 c*------------------------------------------------------------------
index 64181af..58d6cc1 100644 (file)
@@ -24,7 +24,7 @@ Cc (DLL Digital Visual Fortran)
 cDEC$ IF DEFINED (FORDLL)
 cDEC$ ATTRIBUTES DLLIMPORT:: /stack/, /recu/, /iop/
 cDEC$ ATTRIBUTES DLLIMPORT:: /errgst/, /com/, /adre/
-cDEC$ ATTRIBUTES DLLIMPORT:: /intersci/ ,/cha1/, /dbg/
+cDEC$ ATTRIBUTES DLLIMPORT:: /cha1/, /dbg/
 cDEC$ ATTRIBUTES DLLIMPORT:: /ierode/
 cDEC$ ENDIF
 C     ---------------------------------------------------------------
@@ -78,8 +78,6 @@ c
      $ nbrows(intersiz),nbcols(intersiz),
      $ itflag(intersiz),ntypes(intersiz),lad(intersiz),
      $ ladc(intersiz),lhsvar(intersiz)
-      common/intersci/nbvars,iwhere,nbrows,nbcols,
-     $ itflag,ntypes,lad,ladc,lhsvar
       integer ierror
       common/ierode/ierror
 c*------------------------------------------------------------------
index 60f2302..b609022 100644 (file)
@@ -60,7 +60,6 @@ CSIMP_struct C2F(csimp);
 ADRE_struct C2F(adre);
 COM_struct C2F(com);
 ERRGST_struct C2F(errgst);
-INTERSCI_struct C2F(intersci);
 IOP_struct C2F(iop);
 MTLBC_struct C2F(mtlbc);
 STACK_struct C2F(stack);
index 1da14ac..ebc16dc 100644 (file)
@@ -15,9 +15,6 @@
     ptkeep_
     dbg_
 ;
-;used by intersci
-    intersci_
-;
 ;used by linear_algebra
 scigsch_
 scisch_
index 97e69af..65ed41e 100644 (file)
@@ -10,7 +10,6 @@ com_
 errgst_
 adre_
 dbg_
-intersci_
 ippty_
 mtlbc_
 basbrk_
@@ -45,4 +44,4 @@ freestacklastmemory_
 freeglobalstacklastmemory_
 freeStackCurrentMemory
 freeGlobalStackCurrentmemory
-stack_
\ No newline at end of file
+stack_
index 144a951..14e6d05 100644 (file)
@@ -7,8 +7,7 @@ funtab_
 iop_
 callFunctionFromGateway
 com_
-putlhsvar_ 
-intersci_
+putlhsvar_
 freeArrayOfString
 getrhsvar_
 vartype_
index 3702b90..9555c25 100644 (file)
@@ -11,7 +11,6 @@ backtrace_print
 stack_
 vstk_
 iop_
-intersci_
 scistring_
 str2name_
 MyHeapAlloc
index 7b4c6b2..0e75f3d 100644 (file)
@@ -11,7 +11,6 @@ mkmlistfromvars_
 createvarfromptr_
 putlhsvar_
 stack_
-intersci_
 createvar_
 freeArrayOfWideString
 getrhsvar_
@@ -29,4 +28,4 @@ getOSRelease
 getOSFullName
 MyHeapAlloc
 MyHeapFree
-MyHeapRealloc
\ No newline at end of file
+MyHeapRealloc
index 587cdbd..2b4ca40 100644 (file)
@@ -20,7 +20,7 @@
 /*--------------------------------------------------------------------------*/
 #define MAX_FILES 100
 /*--------------------------------------------------------------------------*/
-static int DoOneLhs(void);
+//static int DoOneLhs(void);
 /*--------------------------------------------------------------------------*/
 /**
 * maxfiles sets the soft limit for the number of scilab files allowed to open simultaneously.
@@ -90,26 +90,26 @@ int sci_maxfiles(char *fname, unsigned long fname_len)
     return 0;
 }
 /*--------------------------------------------------------------------------*/
-int DoOneLhs(void)
-{
-    static int n1, m1;
-    int *paramoutINT = NULL;
-    paramoutINT = (int*)MALLOC(sizeof(int));
-
-    *paramoutINT = GetMaximumFileOpenedInScilab();
-
-    n1 = 1;
-    m1 = 1;
-    CreateVarFromPtr(Rhs + 1, MATRIX_OF_INTEGER_DATATYPE, &n1, &m1, &paramoutINT);
-
-    LhsVar(1) = Rhs + 1;
-
-    if (paramoutINT)
-    {
-        FREE(paramoutINT);
-        paramoutINT = NULL;
-    }
-    PutLhsVar();
-    return 0;
-}
+//int DoOneLhs(void)
+//{
+//    static int n1, m1;
+//    int *paramoutINT = NULL;
+//    paramoutINT = (int*)MALLOC(sizeof(int));
+//
+//    *paramoutINT = GetMaximumFileOpenedInScilab();
+//
+//    n1 = 1;
+//    m1 = 1;
+//    CreateVarFromPtr(Rhs + 1, MATRIX_OF_INTEGER_DATATYPE, &n1, &m1, &paramoutINT);
+//
+//    LhsVar(1) = Rhs + 1;
+//
+//    if (paramoutINT)
+//    {
+//        FREE(paramoutINT);
+//        paramoutINT = NULL;
+//    }
+//    PutLhsVar();
+//    return 0;
+//}
 /*--------------------------------------------------------------------------*/
index 5b90637..cf39c63 100644 (file)
@@ -10,7 +10,6 @@ com_
 funtab_
 stack_
 vstk_
-intersci_
 MyHeapAlloc
 MyHeapFree
 MyHeapRealloc
index bb4798a..ce5aba5 100644 (file)
@@ -9,7 +9,6 @@ stack_
 vstk_
 getrhsvar_
 putlhsvar_
-intersci_
 gettype_
 checkrhs_
 checklhs_
index ec26c17..e084e64 100644 (file)
@@ -12,7 +12,6 @@ elementtype_
 findopt_
 firstopt_
 freeArrayOfString
-intersci_
 iop_
 numopt_
 stack_
index 196f05e..e2af0d7 100644 (file)
@@ -69,7 +69,6 @@ call_scilab
 jvm
 external_objects_java
 javasci
-intersci
 graph
 commons
 types
index 257237c..c1f533d 100644 (file)
@@ -7,7 +7,6 @@ freeArrayOfString
 callFunctionFromGateway
 com_
 putlhsvar_
-intersci_
 getrhsvar_
 gettype_
 vstk_
index 42dd0d5..9767001 100644 (file)
@@ -8,14 +8,13 @@ EXPORTS
 callFunctionFromGateway
 com_
 putlhsvar_
-intersci_
 freeArrayOfString
 checklhs_
 checkrhs_
 createvarfromptr_
 iop_
 stack_
-createvar_ 
+createvar_
 getrhsvar_
 vartype_
 dynamic_setenvtcl
index 2762050..8b6a55d 100644 (file)
@@ -8,7 +8,6 @@ stack_
 checkrhs_
 checklhs_
 createvarfromptr_
-intersci_
 putlhsvar_
 freeArrayOfString
 vstk_
index b1cfffe..243c5b5 100644 (file)
@@ -6,8 +6,7 @@ callFunctionFromGateway
 com_
 getSCIpath
 putlhsvar_
-intersci_
-createvarfromptr_ 
+createvarfromptr_
 stack_
 getrhsvar_
 gettype_
@@ -16,7 +15,7 @@ checklhs_
 checkrhs_
 createvar_
 getWarningMode
-freeArrayOfString 
+freeArrayOfString
 MyHeapAlloc
 MyHeapFree
 
index 86f0926..e0ffea3 100644 (file)
@@ -4,7 +4,7 @@
 EXPORTS
 ;
 ;core
-iop_ 
+iop_
 vstk_
 stack_
 errgst_
@@ -12,9 +12,8 @@ com_
 parse_
 isrecursioncalltofunction_
 eqid_
-; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
+; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol
 ;
 adre_
-intersci_
 errgst_
 ;
index b4e88e8..88654c6 100644 (file)
@@ -17,7 +17,6 @@ putlhsvar_
 getmatdims_
 overload_
 vartype_
-intersci_
 MyHeapAlloc
 MyHeapFree
 MyHeapRealloc
index d7709bd..fc9615e 100644 (file)
@@ -24,10 +24,9 @@ getwimat_
 getilist_
 getsmat_
 ;
-; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
+; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol
 ;
 adre_
-intersci_
 errgst_
 ;
 
index fd0b802..2ad6d55 100644 (file)
@@ -3,7 +3,6 @@ LIBRARY    core.dll
 
 EXPORTS
 callFunctionFromGateway
-intersci_
 com_
 vstk_
 getrhsvar_
index 678e017..f3583e0 100644 (file)
@@ -10,9 +10,8 @@ stack_
 iop_
 csimp_
 ;
-; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
+; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol
 ;
 errgst_
 adre_
-intersci_
-;
\ No newline at end of file
+;
index 7f32357..f15e6bd 100644 (file)
@@ -3,17 +3,16 @@
 
 EXPORTS
 ;core
-callFunctionFromGateway 
+callFunctionFromGateway
 com_
 createvarfromptr_
 putlhsvar_
-createvar_ 
+createvar_
 stack_
 getrhsvar_
 gettype_
 vstk_
 checklhs_
-checkrhs_ 
-intersci_
+checkrhs_
 MyHeapAlloc
 MyHeapFree
index f723001..6d25db8 100644 (file)
@@ -8,13 +8,12 @@ EXPORTS
 iop_
 
 ;
-; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
+; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol
 ;
 stack_
 adre_
 vstk_
 errgst_
 com_
-intersci_
 ;
 
diff --git a/scilab/modules/scicos/src/c/Intersci_Import.def b/scilab/modules/scicos/src/c/Intersci_Import.def
deleted file mode 100644 (file)
index aa1b413..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-LIBRARY    intersci.dll
-
-
-EXPORTS
index 73d6364..b2bc22f 100644 (file)
@@ -10,10 +10,9 @@ vstk_
 MyHeapAlloc
 MyHeapFree
 MyHeapRealloc
-intersci_
 xscion_
 iop_
 errgst_
 ierode_
 ismenu
-GetCommand 
+GetCommand
index 6d207fe..c2aa36c 100644 (file)
@@ -86,10 +86,6 @@ SCICOS_IMPEXP void F2C(putlhsvar)()
 {
     abort();
 }
-SCICOS_IMPEXP void F2C(intersci)()
-{
-    abort();
-}
 SCICOS_IMPEXP void F2C(checkrhs)()
 {
     abort();
index 21d64c3..5972d4d 100644 (file)
@@ -14,9 +14,8 @@ parse_
 isrecursioncalltofunction_
 
 ;
-; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
+; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol
 ;
-intersci_
 ;
 
 
index 0f23ed6..63ac4f9 100644 (file)
@@ -4,7 +4,6 @@ LIBRARY    core.dll
 EXPORTS
 ;core
 com_
-intersci_
 stack_
 iop_
 vstk_
index 218d071..ea119a2 100644 (file)
@@ -8,11 +8,10 @@ com_
 vstk_
 stack_
 iop_
-intersci_
 mtlbc_
 errgst_
 ;
-; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
+; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol
 ;
 adre_
 ;
index 475f418..80a0a5a 100644 (file)
@@ -9,8 +9,7 @@ EXPORTS
  getrhsvar_
  checklhs_
  checkrhs_
- intersci_
- createvarfromptr_
+  createvarfromptr_
  callFunctionFromGateway
  returnanan_
  vartype_
index 80cb338..4a7a889 100644 (file)
@@ -8,7 +8,6 @@ checklhs_
 getrhsvar_
 com_
 stack_
-intersci_
 putlhsvar_
 createvar_
 callFunctionFromGateway
index 950e4d9..e7e3e86 100644 (file)
@@ -14,7 +14,6 @@ checkrhs_
 iop_
 stack_
 putlhsvar_
-intersci_
 createvar_
 getrhsvar_
 vartype_
index 3c3d349..16acd32 100644 (file)
@@ -4,7 +4,6 @@ LIBRARY    core.dll
 EXPORTS
 callFunctionFromGateway
 com_
-intersci_
 stack_
 vstk_
 iop_
index e94cf5d..0df436d 100644 (file)
@@ -9,7 +9,6 @@ com_
 stack_
 putlhsvar_
 getrhsvar_
-intersci_
 createvarfromptr_
 checklhs_
 checkrhs_
index 2735839..2627cba 100644 (file)
@@ -2,7 +2,7 @@ LIBRARY    core.dll
 
 
 EXPORTS
-;core 
+;core
 
 stack_
 createvar_
@@ -10,13 +10,12 @@ com_
 vstk_
 callFunctionFromGateway
 putlhsvar_
-intersci_
 createcvar_
 getrhsvar_
 getrhscvar_
 checklhs_
 checkrhs_
-createvarfromptr_ 
+createvarfromptr_
 MyHeapAlloc
 MyHeapFree
 MyHeapRealloc
index 9c0847d..ef28a92 100644 (file)
@@ -3,7 +3,6 @@ LIBRARY    core.dll
 
 EXPORTS
 scistring_
-intersci_
 callFunctionFromGateway
 com_
 MyHeapAlloc