bug 4489
Allan CORNET [Mon, 11 May 2009 13:59:36 +0000 (15:59 +0200)]
18 files changed:
scilab/CHANGES_5.2.X
scilab/modules/io/Makefile.am
scilab/modules/io/help/en_US/load.xml
scilab/modules/io/help/en_US/oldload.xml
scilab/modules/io/help/en_US/oldsave.xml
scilab/modules/io/includes/gw_io.h
scilab/modules/io/sci_gateway/c/gw_io.c
scilab/modules/io/sci_gateway/c/sci_oldload.c [deleted file]
scilab/modules/io/sci_gateway/c/sci_oldsave.c [deleted file]
scilab/modules/io/sci_gateway/fortran/oldloadsave.f [deleted file]
scilab/modules/io/sci_gateway/io_gateway.xml
scilab/modules/io/src/c/LibScilab_Import.def
scilab/modules/io/src/c/io.vcproj
scilab/modules/io/src/c/io_f_Import.def
scilab/modules/io/src/fortran/io_Import.def
scilab/modules/io/src/fortran/io_f.vfproj
scilab/modules/io/src/fortran/io_f2c.vcproj
scilab/modules/io/src/fortran/newsave.f

index 7865ff2..911fae1 100644 (file)
@@ -30,6 +30,9 @@ Source reorganisation:
 
 * lib moved in functions module.
 
+* oldsave, oldload functions (only used with macros of scilab 2.4) are removed
+  Replaces oldsave, oldload by save and load in your code.
+
 Input/Output functions:
 =======================
 
@@ -158,6 +161,8 @@ Bug fixes:
 
 * bug 4467 fixed - getshortpathname,getlongpathname do not manage string matrix as input
 
+* bug 4489 fixed - oldsave and oldload removed.
+
 * bug 4492 fixed - output_stream_gateway.xml was not include in windows binary.
 
 * bug 4497 fixed - xmltoformat gets stuck in directories beginning with '.'.
index 7364536..bd76ff0 100644 (file)
@@ -26,7 +26,6 @@ sci_gateway/c/sci_exec.c \
 sci_gateway/c/sci_rat.c \
 sci_gateway/c/sci_getenv.c \
 sci_gateway/c/sci_write.c \
-sci_gateway/c/sci_oldload.c \
 sci_gateway/c/sci_writeb.c \
 sci_gateway/c/sci_setenv.c \
 sci_gateway/c/gw_io.c \
@@ -38,14 +37,12 @@ sci_gateway/c/sci_write4b.c \
 sci_gateway/c/sci_load.c \
 sci_gateway/c/sci_unix.c \
 sci_gateway/c/sci_getf.c \
-sci_gateway/c/sci_oldsave.c \
 sci_gateway/c/sci_save.c
 
 
 GATEWAY_CPP_SOURCES = sci_gateway/cpp/sci_export_to_hdf5.cpp 
 
-GATEWAY_FORTRAN_SOURCES =  sci_gateway/fortran/oldloadsave.f \
-sci_gateway/fortran/intwrite4b.f \
+GATEWAY_FORTRAN_SOURCES =  sci_gateway/fortran/intwrite4b.f \
 sci_gateway/fortran/intexec.f \
 sci_gateway/fortran/intgetf.f \
 sci_gateway/fortran/intrat.f \
index 50bffb0..11ddc11 100644 (file)
@@ -88,8 +88,7 @@ load(fd [,x1,...,xn])</synopsis>
 
     <para>Even if the binary file format has changed with 2.5 version of
     Scilab, <literal>load(filename,...)</literal> is able to read old format
-    files. Previous file format can be accessed for a while using function
-    <link linkend="oldsave">oldsave</link> and <link linkend="oldload">oldload</link>.</para>
+    files.</para>
 
     <para>Note that the written file is portable to other operating systems
     and architectures (little and big endian).</para>
index c9db08e..8af5930 100644 (file)
@@ -2,6 +2,7 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) XXXX-2008 - INRIA
+ * Copyright (C) 2009 - DIGITEO - Allan CORNET
  * 
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="oldload">
+<refentry version="5.0-subset Scilab" xml:id="oldload" xml:lang="en"
+          xmlns="http://docbook.org/ns/docbook"
+          xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg"
+          xmlns:ns4="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML"
+          xmlns:db="http://docbook.org/ns/docbook">
   <info>
     <pubdate>$LastChangedDate$</pubdate>
   </info>
+
   <refnamediv>
     <refname>oldload</refname>
-    <refpurpose> load saved variable in 2.4.1 and previous formats</refpurpose>
+
+    <refpurpose>load saved variable in 2.4.1 and previous formats
+    (OBSOLETE)</refpurpose>
   </refnamediv>
-  <refsynopsisdiv>
-    <title>Calling Sequence</title>
-    <synopsis>oldload('file-name' [,x1,...,xn])</synopsis>
-  </refsynopsisdiv>
-  <refsection>
-    <title>Parameters</title>
-    <variablelist>
-      <varlistentry>
-        <term>file-name</term>
-        <listitem>
-          <para>character string</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>xi</term>
-        <listitem>
-          <para>arbitrary Scilab variable name(s) given as strings.</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
+
   <refsection>
     <title>Description</title>
-    <para>
-    The <literal>oldload</literal> function is obsolete and is retained only for
-    compatibility purpose.</para>
-    <para>
-    The <literal>oldload</literal> command can be used to reload in the Scilab session
-    variables previously saved in a file with the <literal>save</literal> command.</para>
-    <para><literal>oldload('file-name')</literal> loads the variables saved in file <literal>'file-name'</literal>.</para>
-    <para><literal>oldload('file-name','x','y',...,'z')</literal> loads only variables <literal>x,y,...,z</literal>
-    stored in file <literal>'file-name'</literal>.</para>
-  </refsection>
-  <refsection>
-    <title>Examples</title>
-    <programlisting role="example"><![CDATA[
 
-a=eye(2,2);b=ones(a);
-oldsave(TMPDIR+'/vals.dat',a,b);
-clear a
-clear b
-oldload(TMPDIR+'/vals.dat','a','b');
-  ]]></programlisting>
+    <para>The <literal>oldload</literal> function is obsolete and removed of
+    scilab 5.2 and more.</para>
+    <para> Replaces in your code <literal>oldload</literal> by <literal>load</literal>.</para>
+    
   </refsection>
+
+  
   <refsection>
     <title>See Also</title>
+
     <simplelist type="inline">
-      <member>
-        <link linkend="save">save</link>
-      </member>
-      <member>
-        <link linkend="getf">getf</link>
-      </member>
+      <member><link linkend="load">load</link></member>
+
+      <member><link linkend="save">save</link></member>
     </simplelist>
   </refsection>
 </refentry>
index 2e14bc7..5cb6f0d 100644 (file)
@@ -2,7 +2,8 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) XXXX-2008 - INRIA
- * 
+ * Copyright (C) 2009 - DIGITEO - Allan CORNET
+ *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  * you should have received as part of this distribution.  The terms
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="oldsave">
+<refentry version="5.0-subset Scilab" xml:id="oldsave" xml:lang="en"
+          xmlns="http://docbook.org/ns/docbook"
+          xmlns:xlink="http://www.w3.org/1999/xlink"
+          xmlns:svg="http://www.w3.org/2000/svg"
+          xmlns:ns4="http://www.w3.org/1999/xhtml"
+          xmlns:mml="http://www.w3.org/1998/Math/MathML"
+          xmlns:db="http://docbook.org/ns/docbook">
   <info>
     <pubdate>$LastChangedDate$</pubdate>
   </info>
+
   <refnamediv>
     <refname>oldsave</refname>
-    <refpurpose> saving variables in 2.4.1 and previous format</refpurpose>
+
+    <refpurpose>saving variables in 2.4.1 and previous format (OBSOLETE)</refpurpose>
   </refnamediv>
+
   <refsynopsisdiv>
     <title>Calling Sequence</title>
+
     <synopsis>oldsave(filename [,x1,x2,...,xn])</synopsis>
   </refsynopsisdiv>
-  <refsection>
-    <title>Parameters</title>
-    <variablelist>
-      <varlistentry>
-        <term>filename</term>
-        <listitem>
-          <para>character string or a logical unit returned by file('open',...)</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>xi</term>
-        <listitem>
-          <para>arbitrary Scilab variable(s)</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
+
   <refsection>
     <title>Description</title>
-    <para>
-    The <literal>oldsave</literal> function is obsolete and is retained only for
-    compatibility purpose.</para>
-    <para>
-    The <literal>oldsave</literal> command can be used to save Scilab current variables 
-    in binary form in a file.</para>
-    <para><literal>oldsave(filename)</literal> saves all current variables in the file
-    defined by  <literal>filename</literal>.</para>
-    <para><literal>oldsave(file-name,x,y)</literal> saves only named variables <literal>x</literal> and <literal>y</literal>.</para>
-    <para>
-    Saved  variables can be reloaded by the <literal>load</literal> or oldload command.</para>
-  </refsection>
-  <refsection>
-    <title>Examples</title>
-    <programlisting role="example"><![CDATA[
-
-a=eye(2,2);b=ones(a);
-oldsave('TMPDIR/val.dat',a,b);
-clear a
-clear b
-oldload('TMPDIR/val.dat','a','b');
 
-  ]]></programlisting>
+    <para>The <literal>oldsave</literal> function is obsolete and and removed
+    of scilab 5.2 and more.</para>
+    <para> Replaces in your code <literal>oldsave</literal> by <literal>save</literal>.</para>
+    
   </refsection>
+
   <refsection>
     <title>See Also</title>
+
     <simplelist type="inline">
-      <member>
-        <link linkend="load">load</link>
-      </member>
-      <member>
-        <link linkend="file">file</link>
-      </member>
+      <member><link linkend="load">load</link></member>
+
+      <member><link linkend="save">save</link></member>
     </simplelist>
   </refsection>
 </refentry>
index 96bdff8..d9ac9cf 100644 (file)
@@ -17,7 +17,6 @@
 /*--------------------------------------------------------------------------*/
 int gw_io(void);
 /*--------------------------------------------------------------------------*/
-int C2F(sci_oldload)(char *fname,unsigned long fname_len);
 int C2F(sci_read)(char *fname,unsigned long fname_len);
 int C2F(sci_getf)(char *fname,unsigned long fname_len);
 int C2F(sci_exec)(char *fname,unsigned long fname_len);
@@ -40,7 +39,6 @@ int C2F(sci_write4b)(char *fname,unsigned long fname_len);
 int C2F(sci_save)(char *fname,unsigned long fname_len);
 int C2F(sci_load)(char *fname,unsigned long fname_len);
 int C2F(sci_mgetl)(char *fname,unsigned long fname_len);
-int C2F(sci_fileinfo)(char *fname,unsigned long fname_len);
 int C2F(sci_getio)(char *fname,unsigned long fname_len);
 int C2F(sci_setenv)(char *fname,unsigned long fname_len);
 int C2F(intexecstr)(char *fname,unsigned long fname_len);
@@ -52,11 +50,7 @@ int C2F(intsave)(void);
 int C2F(intdiary)(void);
 int C2F(intdeff)(void);
 int C2F(intfile)(void);
-int C2F(intlib)(void);
 int C2F(intmgetl)(void);
-int C2F(oldload)(void);
-int C2F(oldsave)(void);
-int C2F(intprint)(void);
 int C2F(intrat)(void);
 int C2F(intread)(void);
 int C2F(intread4b)(void);
index 474c568..94dd695 100644 (file)
 /*--------------------------------------------------------------------------*/
 static gw_generic_table Tab[]=
 {
-{C2F(sci_oldload),"oldload"},
+{C2F(sci_setenv),"setenv"},
 {C2F(sci_read),"read"},
 {C2F(sci_getf),"getf"},
 {C2F(sci_exec),"exec"},
 {C2F(sci_getio),"getio"},
 {C2F(sci_diary),"diary"},
-{C2F(sci_oldsave),"oldsave"},
+{C2F(sci_mgetl),"mgetl"},
 {C2F(sci_write),"write"},
 {C2F(sci_rat),"rat"},
 {C2F(sci_deff),"deff"},
@@ -40,8 +40,6 @@ static gw_generic_table Tab[]=
 {C2F(sci_write4b),"write4b"},
 {C2F(sci_save),"save"},
 {C2F(sci_load),"load"},
-{C2F(sci_mgetl),"mgetl"},
-{C2F(sci_setenv),"setenv"},
 {sci_export_to_hdf5,"export_to_hdf5"}
 };
 /*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/io/sci_gateway/c/sci_oldload.c b/scilab/modules/io/sci_gateway/c/sci_oldload.c
deleted file mode 100644 (file)
index 22fa033..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - Allan CORNET
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include "gw_io.h"
-/*--------------------------------------------------------------------------*/
-int C2F(sci_oldload)(char *fname,unsigned long fname_len)
-{
-       C2F(oldload)();
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/io/sci_gateway/c/sci_oldsave.c b/scilab/modules/io/sci_gateway/c/sci_oldsave.c
deleted file mode 100644 (file)
index 6d504bd..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - Allan CORNET
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include "gw_io.h"
-/*--------------------------------------------------------------------------*/
-int C2F(sci_oldsave)(char *fname,unsigned long fname_len)
-{
-       C2F(oldsave)();
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/io/sci_gateway/fortran/oldloadsave.f b/scilab/modules/io/sci_gateway/fortran/oldloadsave.f
deleted file mode 100644 (file)
index f3cb1a4..0000000
+++ /dev/null
@@ -1,143 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c Copyright (C) ENPC
-c 
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at    
-c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-      subroutine oldload
-      INCLUDE 'stack.h'
-c     
-      integer id(nsiz),mode(2),h(nsiz)
-      integer top2,job,semi
-      logical opened
-      integer iadr
-c
-      data blank/40/,semi/43/
-
-c     
-      iadr(l)=l+l-1
-c     
-      lw=lstk(top+1)
-      il=iadr(lstk(top))
-      if(rhs.lt.1) then
-         call error(42)
-         return
-      endif
-      if(lhs.gt.1) then
-         call error(41)
-         return
-      endif
-
-c     opening file
-      top2 = top
-      top = top-rhs+1
-      il=iadr(lstk(top))
-      mode(1)=-101
-      mode(2)=0
-      call v2unit(top,mode,lunit,opened,ierr)
-      if(ierr.gt.0) return
-      call savlod(lunit,id,-2,top)
-      if(err.gt.0) goto 39
-c     
-      if(rhs.gt.1) goto 40
- 36   job = lstk(bot) - lstk(top)
-      id(1)=blank
-      call savlod(lunit,id,job,top)
-      il=iadr(lstk(top))
-      if(istk(il).eq.0) goto 39
-      sym = semi
-      rhs = 0
-      call stackp(id,1)
-      top = top + 1
-      go to 36
- 39   if(.not.opened) then
-         mode(1)=0
-         mode(2)=0
-         call clunit(-lunit,buf,mode)
-      endif
-      istk(il)=0
-      go to 999
-c     
- 40   top=top2
-      sym=semi
-      m=rhs
-      rhs=0
-      do 44 k=2,m
-         job = lstk(bot) - lstk(top)
-         il=iadr(lstk(top))
-         if(istk(il).ne.10) then
-            err=k
-            call error(55)
-            return
-         endif
-         lc=il+5+istk(il+1)*istk(il+2)
-         nc=min(nlgh,istk(il+5)-1)
-         call namstr(h,istk(lc),nc,0)
-         call savlod(lunit,h,job,top)
-         if(istk(il).eq.0) goto 39
-         call stackp(h,1)
-         if(k.lt.m) rewind(lunit)
- 44   continue
-      il=iadr(lstk(top))
-      goto 39
- 999  return
-      end
-
-      subroutine oldsave
-c     Copyright INRIA/ENPC
-      INCLUDE 'stack.h'
-c     
-      integer id(nsiz),mode(2)
-      integer top2
-      logical opened
-      integer iadr
-c
-      iadr(l)=l+l-1
-c     
-
-      lw=lstk(top+1)
-      il=iadr(lstk(top))
-      if(rhs.lt.1) then
-         call error(42)
-         return
-      endif
-      if(lhs.gt.1) then
-         call error(41)
-         return
-      endif
-
-c     opening file
-      top2 = top
-      top = top-rhs+1
-      il=iadr(lstk(top))
-      mode(1)=100
-      mode(2)=0
-      call v2unit(top,mode,lunit,opened,ierr)
-      if(ierr.gt.0) return
-c     
-      call savlod(lunit,id,-1,top)
-      if(err.gt.0) goto 33
-      if(rhs.ge.2) then
-         k=top2
-      else
-         k=bbot-1
-         if(k.lt.bot) goto 999
-      endif
- 32   continue
-      l=k
-      ilk=iadr(lstk(k))
-      if(istk(ilk).lt.0) l=istk(ilk+2)
-      call savlod(lunit,idstk(1,k),0,l)
-      k = k-1
-      if(k.ge.bot.and.rhs.eq.1 .or. k.gt.top.and.rhs.gt.1) goto 32
- 33   if(.not.opened) then
-         mode(1)=0
-         mode(2)=0
-         call clunit(-lunit,buf,mode)
-      endif
-      istk(il)=0
- 999  return
-      end
index c33f74a..93257d6 100644 (file)
 -->
 <!-- =================== -->
 
-<PRIMITIVE gatewayId="5" primitiveId="1" primitiveName="oldload" />
+<PRIMITIVE gatewayId="5" primitiveId="1" primitiveName="setenv" />
 <PRIMITIVE gatewayId="5" primitiveId="2" primitiveName="read" />
 <PRIMITIVE gatewayId="5" primitiveId="3" primitiveName="getf" />
 <PRIMITIVE gatewayId="5" primitiveId="4" primitiveName="exec" />
 <PRIMITIVE gatewayId="5" primitiveId="5" primitiveName="getio" />
 <PRIMITIVE gatewayId="5" primitiveId="6" primitiveName="diary" />
-<PRIMITIVE gatewayId="5" primitiveId="7" primitiveName="oldsave" />
+<PRIMITIVE gatewayId="5" primitiveId="7" primitiveName="mgetl" />
 <PRIMITIVE gatewayId="5" primitiveId="8" primitiveName="write" />
 <PRIMITIVE gatewayId="5" primitiveId="9" primitiveName="rat" />
 <PRIMITIVE gatewayId="5" primitiveId="10" primitiveName="deff" />
@@ -57,7 +57,5 @@
 <PRIMITIVE gatewayId="5" primitiveId="20" primitiveName="write4b" />
 <PRIMITIVE gatewayId="5" primitiveId="21" primitiveName="save" />
 <PRIMITIVE gatewayId="5" primitiveId="22" primitiveName="load" />
-<PRIMITIVE gatewayId="5" primitiveId="23" primitiveName="mgetl" />
-<PRIMITIVE gatewayId="5" primitiveId="24" primitiveName="setenv" />
-<PRIMITIVE gatewayId="5" primitiveId="25" primitiveName="export_to_hdf5" />
+<PRIMITIVE gatewayId="5" primitiveId="23" primitiveName="export_to_hdf5" />
 </GATEWAY>
\ No newline at end of file
index db07bf7..3fe6b0e 100644 (file)
@@ -5,80 +5,30 @@ EXPORTS
 ;
 ;core
 ;
+callFunctionFromGateway
+com_
+iop_
 getRecursionFunctionToCall
 isRecursionCallToFunction
-IsAFile 
-com_
-recu_
-putlhsvar_
-intersci_
 stack_
-createvar_
 getrhsvar_
 checklhs_
 checkrhs_
 gettype_
 vstk_
+putlhsvar_
+intersci_
 createvarfromptr_
-iop_
-GetFile
-getTMPDIR
-vartype_
-callFunctionFromGateway
 freeArrayOfString
-getWarningMode
-cwritemat_
-IsAScalar
-iAllocMatrixOfBoolean
-iAllocMatrixOfDouble
+getComplexSparseMatrix
+getVarAddressFromNumber
 iGetAddressFromItemPos
 iGetListItemType
-GetRhsStringVar
-iArraySum
-getComplexMatrixOfDouble
 getMatrixOfDouble
-getVarType
+getComplexMatrixOfDouble
 isVarComplex
-getVarAddressFromNumber
-getComplexZMatrixOfDouble
-allocMatrixOfDouble
-allocComplexMatrixOfDouble
-createMatrixOfDouble
-createComplexMatrixOfDouble
-createNamedMatrixOfDouble
-createNamedComplexMatrixOfDouble
-readNamedMatrixOfDouble
-readNamedComplexMatrixOfDouble
-getMatrixOfString
-getMatrixOfStringCumulativeLength
-createMatrixOfString
-createNamedMatrixOfString
-readNamedMatrixOfString
-getMatrixOfIntegerPrecision
-getMatrixOfInteger8
-getMatrixOfInteger16
-getMatrixOfInteger32
-createMatrixOfInteger8
-createMatrixOfInteger16
-createMatrixOfInteger32
-allocMatrixOfInteger8
-allocMatrixOfInteger16
-allocMatrixOfInteger32
-createNamedMatrixOfInteger8
-createNamedMatrixOfInteger16
-createNamedMatrixOfInteger32
-readNamedMatrixOfInteger8
-readNamedMatrixOfInteger16
-readNamedMatrixOfInteger32
-getPolyVariableName
-getMatrixOfPoly
-getComplexMatrixOfPoly
-createMatrixOfPoly
-createComplexMatrixOfPoly
-createNamedMatrixOfPoly
-getMatrixOfPoly
-readNamedMatrixOfPoly
-getVarAddressFromName
-getSparseMatrix
-getComplexSparseMatrix
-;
+getVarType
+createvar_
+vartype_
+IsAScalar
+getTMPDIR
\ No newline at end of file
index 5bee60e..7587962 100644 (file)
                                >
                        </File>
                        <File
-                               RelativePath="..\..\sci_gateway\c\sci_oldload.c"
-                               >
-                       </File>
-                       <File
-                               RelativePath="..\..\sci_gateway\c\sci_oldsave.c"
-                               >
-                       </File>
-                       <File
                                RelativePath="..\..\sci_gateway\c\sci_rat.c"
                                >
                        </File>
index 30a636a..9a1da5f 100644 (file)
@@ -5,57 +5,18 @@ EXPORTS
 ; --------------------------------------- 
 ; io_f
 ; --------------------------------------- 
-       intdeff_
-       intexec_
-       intexecstr_
-       intfile_
-       intgetenv_
-       intgetf_
-       intgetio_
-       intgetpid_
-       inthost_
-       intlib_
-       intmgetl_
-       intprint_
-       intrat_
-       intread_
-       intread4b_
-       intreadb_
-       intwritb_
-       intwrite_
-       intwrite4b_
-       intsave_
-       savevar_
-       intload_
-       loadvar_
-       savelist_
-       savemat_
-       savepol_
-       savebool_
-       savesparse_
-       savespb_
-       savemsp_
-       saveint_
-       savestr_
-       savefun_
-       savecfun_
-       savelib_
-       saveptr_
-       loadlist_
-       loadmat_
-       loadpol_
-       loadbool_
-       loadsparse_
-       loadspb_
-       loadmsp_
-       loadint_
-       loadstr_
-       loadfun_
-       loadcfun_
-       loadlib_
-       loadptr_
-       oldload_
-       oldsave_
-       v2cunit_
-       v2unit_
-       
\ No newline at end of file
+intload_
+intsave_
+intgetf_
+intexecstr_
+intexec_
+intdeff_
+intfile_
+intmgetl_
+intrat_
+intread_
+intread4b_
+intwrite_
+intwrite4b_
+intwritb_
+intreadb_
index a352b92..34b9094 100644 (file)
@@ -2,47 +2,3 @@ LIBRARY    io.dll
 
 
 EXPORTS
-       ExistDir
-       CreateDir
-       RemoveDir
-       DeleteDirectory
-       getenvc_
-       getpidc_
-       gw_io_
-       intfilestat_
-       intsetenv_
-       sci_deff_
-       sci_diary_
-       sci_disp_
-       sci_exec_
-       sci_execstr_
-       sci_file_
-       sci_fileinfo_
-       sci_getenv_
-       sci_getf_
-       sci_getio_
-       sci_getpid_
-       sci_getrelativefilename_
-       getrelativefilename
-       sci_host_
-       sci_lib_
-       sci_load_
-       sci_mgetl_
-       sci_newest_
-       GetIndexLastModifiedFileInList
-       sci_oldload_
-       sci_oldsave_
-       sci_print_
-       sci_rat_
-       sci_read_
-       sci_read4b_
-       sci_readb_
-       sci_save_
-       sci_setenv_
-       sci_unix_
-       sci_write_
-       sci_write4b_
-       sci_writb_
-       setenvc
-       systemc_
-       CallWindowsShell
\ No newline at end of file
index ec97a60..e4047a4 100644 (file)
@@ -90,7 +90,6 @@ lib /DEF:&quot;$(InputDir)output_stream_f_Import.def&quot; /SUBSYSTEM:WINDOWS /M
                <File RelativePath="..\..\sci_gateway\fortran\intwrite.f"/>
                <File RelativePath="..\..\sci_gateway\fortran\intwrite4b.f"/>
                <File RelativePath=".\newsave.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\oldloadsave.f"/>
                <File RelativePath=".\v2cunit.f"/>
                <File RelativePath=".\v2unit.f"/>
                <File RelativePath=".\writebuf.f"/></Filter>
index dde4bf8..527daef 100644 (file)
                                >
                        </File>
                        <File
-                               RelativePath="..\..\sci_gateway\fortran\oldloadsave.c"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\v2cunit.c"
                                >
                        </File>
                                >
                        </File>
                        <File
-                               RelativePath="..\..\sci_gateway\fortran\oldloadsave.f"
-                               >
-                       </File>
-                       <File
                                RelativePath=".\v2cunit.f"
                                >
                        </File>
index ff12a8b..5cd5002 100644 (file)
@@ -34,8 +34,8 @@ c
       call v2cunit(top0+1,'wb',fd,opened,ierr) 
       if(ierr.gt.0) return
       if(ierr.lt.0) then
-c     file has been opened by fortran, use oldsave (compatibility)
-         call oldsave
+c     file has been opened by fortran, oldsave (return a error)
+         call error(43)
          return
       endif
 
@@ -165,10 +165,10 @@ c
       call v2cunit(top,'rb',fd,opened,ierr)
       if(ierr.gt.0) return
       if(ierr.lt.0) then
-c     compatibility (file opened by fortran)
+c     oldload (file opened by fortran returns a error)
          top=top0
-         call oldload
          k1=fin
+         call error(43)
          return
       endif
 c     test for compatibility
@@ -177,10 +177,10 @@ c     test for compatibility
       call mgetnc (fd,it,1,'il'//char(0),ierr)
       if(endian.eq.1.and.it.eq.28.or.
      $     endian.eq.0.and.it.eq.469762048) then
-c     .  old mode
+c     .  old mode (returns a error)
          if(.not.opened)  call mclose (fd,res)
-         call oldload
          k1=fin
+         call error(43)
          return
       else
          call mseek(fd,int(offset),'set'//char(0),ierr)