Massive License Update
Bruno Jofret [Sat, 16 Feb 2008 14:47:49 +0000 (14:47 +0000)]
64 files changed:
scilab/modules/data_structures/data_structures.iss
scilab/modules/data_structures/etc/data_structures.quit
scilab/modules/data_structures/etc/data_structures.start
scilab/modules/data_structures/help/en_US/addchapter.sce
scilab/modules/data_structures/help/en_US/cell.xml
scilab/modules/data_structures/help/en_US/definedfields.xml
scilab/modules/data_structures/help/en_US/getfield.xml
scilab/modules/data_structures/help/en_US/hypermat.xml
scilab/modules/data_structures/help/en_US/hypermatrices.xml
scilab/modules/data_structures/help/en_US/list.xml
scilab/modules/data_structures/help/en_US/lsslist.xml
scilab/modules/data_structures/help/en_US/lstcat.xml
scilab/modules/data_structures/help/en_US/mlist.xml
scilab/modules/data_structures/help/en_US/rlist.xml
scilab/modules/data_structures/help/en_US/setfield.xml
scilab/modules/data_structures/help/en_US/struct.xml
scilab/modules/data_structures/help/en_US/tlist.xml
scilab/modules/data_structures/includes/gw_data_structures1.h
scilab/modules/data_structures/includes/gw_data_structures2.h
scilab/modules/data_structures/macros/buildmacros.bat
scilab/modules/data_structures/macros/buildmacros.sce
scilab/modules/data_structures/macros/cell.sci
scilab/modules/data_structures/macros/cleanmacros.bat
scilab/modules/data_structures/macros/hypermat.sci
scilab/modules/data_structures/macros/iscell.sci
scilab/modules/data_structures/macros/isfield.sci
scilab/modules/data_structures/macros/isstruct.sci
scilab/modules/data_structures/macros/struct.sci
scilab/modules/data_structures/sci_gateway/c/gw_data_structures1.c
scilab/modules/data_structures/sci_gateway/c/gw_data_structures2.c
scilab/modules/data_structures/sci_gateway/c/sci_definedfields.c
scilab/modules/data_structures/sci_gateway/c/sci_getfield.c
scilab/modules/data_structures/sci_gateway/c/sci_glist.c
scilab/modules/data_structures/sci_gateway/c/sci_list.c
scilab/modules/data_structures/sci_gateway/c/sci_lsslist.c
scilab/modules/data_structures/sci_gateway/c/sci_lstcat.c
scilab/modules/data_structures/sci_gateway/c/sci_lstsize.c
scilab/modules/data_structures/sci_gateway/c/sci_mlist.c
scilab/modules/data_structures/sci_gateway/c/sci_rlist.c
scilab/modules/data_structures/sci_gateway/c/sci_setfield.c
scilab/modules/data_structures/sci_gateway/c/sci_tlist.c
scilab/modules/data_structures/sci_gateway/data_structures_gateway.xml
scilab/modules/data_structures/sci_gateway/fortran/sci_definedfields.f
scilab/modules/data_structures/sci_gateway/fortran/sci_getfield.f
scilab/modules/data_structures/sci_gateway/fortran/sci_list.f
scilab/modules/data_structures/sci_gateway/fortran/sci_lstcat.f
scilab/modules/data_structures/sci_gateway/fortran/sci_lstsize.f
scilab/modules/data_structures/sci_gateway/fortran/sci_setfield.f
scilab/modules/data_structures/src/c/hmops.h
scilab/modules/data_structures/src/c/stcreate.c
scilab/modules/data_structures/src/c/stcreate.h
scilab/modules/data_structures/src/fortran/extractfields.f
scilab/modules/data_structures/src/fortran/followpath.f
scilab/modules/data_structures/src/fortran/forcerhs.f
scilab/modules/data_structures/src/fortran/gratyp.f
scilab/modules/data_structures/src/fortran/insertfield.f
scilab/modules/data_structures/src/fortran/intl_e.f
scilab/modules/data_structures/src/fortran/intl_i.f
scilab/modules/data_structures/src/fortran/lsstyp.f
scilab/modules/data_structures/src/fortran/lstops.f
scilab/modules/data_structures/src/fortran/mlist.f
scilab/modules/data_structures/src/fortran/rattyp.f
scilab/modules/data_structures/src/fortran/udptr.f
scilab/modules/data_structures/version.xml

index b74eef4..ed6b4a2 100644 (file)
@@ -1,8 +1,16 @@
+; Scilab ( http://mwww.scilab.org/ ) - This file is part of Scilab
+; Copyright (C) 2007-2008 - 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
+
+
 ;##############################################################################################################
 ; Script d'installation Inno Setup (5.2.1) pour scilab
-; Allan CORNET
 ; Version TRUNK
-; Copyright INRIA 2007
 ;##############################################################################################################
 ;--------------------------------------------------------------------------------------------------------------
 ; data_structures module
index 5bec728..0022670 100644 (file)
@@ -1,7 +1,16 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA
+//
+// 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
+
+
 // ====================================================================
-// This file contains command to be executed at the end 
+// This file contains command to be executed at the end
 // of a scilab session for data_structures module
-// Copyright INRIA 2006
 // ====================================================================
 // delete help chapter
 del_help_chapter('data_structures',%T);
index 361251f..cd01c85 100644 (file)
@@ -1,6 +1,15 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA
+//
+// 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
+
+
 // ====================================================================
-// data_structures module initialisation file 
-// Copyright INRIA 2006
+// data_structures module initialisation file
 // ====================================================================
 //Load  functions librarie
 load('SCI/modules/data_structures/macros/lib');
index f83836a..665de8c 100644 (file)
@@ -1,8 +1,16 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - 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
+
+
 // ====================================================================
 // help data_structures module
 // Add chapter
-// Copyright INRIA 2007
-// Allan CORNET
 // ====================================================================
 path = SCI+'/modules/data_structures/help/'+getdefaultlanguage();
 add_help_chapter("Data Structures",path,%T);
index 107af04..74a37d9 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
@@ -88,7 +99,7 @@ X(:,1)=b
 
 //sub-cell reference
 b(1) // result is a cell
-b(1:2) 
+b(1:2)
 
 b(1).entries //result is an array
 
index 1ff05b5..faaef8e 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
   </DESCRIPTION>
   <EXAMPLE>
 <![CDATA[
-l=list(1);l(3)=5 
+l=list(1);l(3)=5
 k=definedfields(l)
 
 t=tlist('x');t(5)=4
 definedfields(t)
 
-m=mlist(['m','a','b']);m.b='sdfgfgd' 
-definedfields(m)  
+m=mlist(['m','a','b']);m.b='sdfgfgd'
+definedfields(m)
  ]]>
   </EXAMPLE>
   <SEE_ALSO>
index 8671a9c..606c06c 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 4c7096d..7e4b185 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 36ea9dc..dac2969 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
@@ -35,7 +46,7 @@ a(1,1,:)
 
 size(a)
 
-a(:,:,1) //dimensionnality reduction 
+a(:,:,1) //dimensionnality reduction
 type(a(:,:,1))
 
 [a a]
index 12032ab..d5a86f1 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
        <LANGUAGE>eng</LANGUAGE>
        <TYPE>Scilab Function</TYPE>
        <DATE>$LastChangedDate$</DATE>
        <SHORT_DESCRIPTION name="list"> Scilab object and list function definition</SHORT_DESCRIPTION>
-       
+
        <CALLING_SEQUENCE>
                <CALLING_SEQUENCE_ITEM>list(a1,....an)    </CALLING_SEQUENCE_ITEM>
        </CALLING_SEQUENCE>
-       
+
        <DESCRIPTION>
                <P>
-               Creates a <VERB>list</VERB> with elements <VERB>ai</VERB>'s which are arbitrary Scilab 
+               Creates a <VERB>list</VERB> with elements <VERB>ai</VERB>'s which are arbitrary Scilab
                objects (<VERB>matrix, list,...</VERB>). Type of <VERB>list</VERB> objects is 15.
                <TT>list()</TT> creates the empty <VERB>list</VERB> (0 element).
                </P>
        </DESCRIPTION>
-       
+
        <SECTION label="Operations on lists">
                <ITEMIZE>
                        <ITEM label="extraction">
-                               <SP>: <TT>[x,y,z...]=L(v)</TT> where <TT>v</TT> is a vector of indices; 
+                               <SP>: <TT>[x,y,z...]=L(v)</TT> where <TT>v</TT> is a vector of indices;
                                <TT>[x,y,z]=L(:)</TT> extracts all the elements.</SP>
                        </ITEM>
                        <ITEM label="insertion at index i">
                                <SP>: <TT>L3 = lstcat(L1,L2)</TT>.</SP>
                        </ITEM>
                        <ITEM label="number of elements of a list">
-                               <SP>:  you can use either <TT>nb_elm = size(L)</TT> 
+                               <SP>:  you can use either <TT>nb_elm = size(L)</TT>
                                or <TT>nb_elm = length(L)</TT>.</SP>
                        </ITEM>
                        <ITEM label="iterations with a list">
-                               <SP>:  it is possible to use a list <TT>L</TT> with a <LINK>for</LINK> loop: 
-                               <TT>for e=L,...,end</TT> is a loop with <TT>length(L)</TT> 
+                               <SP>:  it is possible to use a list <TT>L</TT> with a <LINK>for</LINK> loop:
+                               <TT>for e=L,...,end</TT> is a loop with <TT>length(L)</TT>
                                iterations, the loop variable <TT>e</TT> being equal to <TT>L(i)</TT>
                                at the i th iteration.</SP>
                        </ITEM>
                </ITEMIZE>
        </SECTION>
-       
+
        <SECTION label="Remarks">
                <P>Scilab provides also other kinds of list, the <LINK>tlist</LINK> type (typed list) and
-                       the <LINK>mlist</LINK> type which are useful to define a new data type with operator 
-                       <LINK>overloading</LINK> facilities (<LINK>hypermatrices</LINK> which are 
+                       the <LINK>mlist</LINK> type which are useful to define a new data type with operator
+                       <LINK>overloading</LINK> facilities (<LINK>hypermatrices</LINK> which are
                        multi-dimensionnal arrays in scilab are in fact <EM>mlist</EM>).
                </P>
                <P>Matlab <EM>struct</EM> are also available.</P>
        </SECTION>
-       
+
        <EXAMPLE><![CDATA[
 l = list(1,["a" "b"])
 l(0) = "foo"
@@ -76,33 +87,33 @@ lbis = list("gewurtz", "caipirina" ,"debug")
 lter = lstcat(l,lbis)
 size(lter) - size(lbis) - size(l)  // must be zero
 ]]></EXAMPLE>
-       
+
        <SEE_ALSO>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>null</LINK>
                </SEE_ALSO_ITEM>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>lstcat</LINK>
                </SEE_ALSO_ITEM>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>tlist</LINK>
                </SEE_ALSO_ITEM>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>insertion</LINK>
                </SEE_ALSO_ITEM>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>extraction</LINK>
                </SEE_ALSO_ITEM>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>size</LINK>
                </SEE_ALSO_ITEM>
-               
+
                <SEE_ALSO_ITEM>
                        <LINK>length</LINK>
                </SEE_ALSO_ITEM>
index 3897dab..8ada08c 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index db33355..9b42234 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 6959127..6285afe 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
     <P>The overloading function for extraction syntax <VERB>b=a(i1,...,in)</VERB>
     has the following calling sequence: <VERB>b=%&lt;type_of_a&gt;_e_(i1,...,in,a)</VERB> </P>
     <P>and the syntax
-    <VERB>[x1,..,xm]=a(i1,...,in)</VERB> has the following calling sequence: 
+    <VERB>[x1,..,xm]=a(i1,...,in)</VERB> has the following calling sequence:
     <VERB>[x1,..,xm]=%&lt;type_of_a&gt;_e_(i1,...,in,a)</VERB></P>
     <P></P>
     <P> The overloading function associated to the insertion syntax
-    <VERB>a(i1,...,in)=b</VERB>  has the following calling sequence: 
+    <VERB>a(i1,...,in)=b</VERB>  has the following calling sequence:
     <VERB>a=%&lt;type_of_b&gt;_i_&lt;type_of_a&gt;(i1,...,in,b,a)</VERB>. </P>
     <P></P>
     <P>mlist fields must then be designed by their names. They can also be
@@ -74,7 +85,7 @@ function r=%V_e(varargin)
    r=mlist(['V','name','value'],M.name(varargin(1:$-1)),M.value(varargin(1:$-1)))
 endfunction
 M(2,:) // the second row of  M
-M.value 
+M.value
 
 //define insertion operations
 function M=%V_i_V(varargin)
@@ -105,7 +116,7 @@ M('name')
 
 
 
+
   ]]></EXAMPLE>
 
   <SEE_ALSO>
index c452c9a..51cb9a1 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index e036fbe..5c5022a 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 628eda5..ff40369 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 851f301..061839e 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA
+ *
+ * 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
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
@@ -39,8 +50,8 @@
     <P>
     Standard Operations on <VERB>list</VERB> work similarly for <VERB>typed-list</VERB>:</P>
     <P>
-     extraction 
-    : <VERB>[x,y,z...]=l(v)</VERB> where <VERB>v</VERB> is a vector of indices; 
+     extraction
+    : <VERB>[x,y,z...]=l(v)</VERB> where <VERB>v</VERB> is a vector of indices;
     <VERB>[x,y,z]=l(:)</VERB> extracts all the elements.</P>
     <P>
       insertion
@@ -58,7 +69,7 @@
     <P>
     Linear systems are represented by specific <VERB>typed-list</VERB> e.g. a
     linear system <VERB>[A,B,C,D]</VERB> is represented by the tlist
-    <VERB>Sys=tlist(['lss';'A';'B';'C';'D';'X0';'dt'],A,B,C,D,x0,'c')</VERB> 
+    <VERB>Sys=tlist(['lss';'A';'B';'C';'D';'X0';'dt'],A,B,C,D,x0,'c')</VERB>
     and this specific list may be created by the function <VERB>syslin</VERB>.</P>
     <P>
     Sys(2), Sys('A') or Sys.A is the state-matrix and Sys('dt') or Sys.dt is the time domain</P>
index 77aadd3..1105553 100644 (file)
@@ -1,12 +1,21 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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
+ *
+ */
+
 /*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
 #ifndef __GW_DATA_STRUCTURES1__
 #define __GW_DATA_STRUCTURES1__
-/*--------------------------------------------------------------------------*/ 
+/*--------------------------------------------------------------------------*/
 #include "machine.h"
-/*--------------------------------------------------------------------------*/ 
+/*--------------------------------------------------------------------------*/
 int C2F(gwdatastructures1)(void);
 /*--------------------------------------------------------------------------*/
 int C2F(sci_glist) _PARAMS((char *fname,unsigned long fname_len));
index ee90893..16bf2ac 100644 (file)
@@ -1,7 +1,16 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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
+ *
+ */
+
 /*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
 #ifndef __GW_DATA_STRUCTURES2__
 #define __GW_DATA_STRUCTURES2__
 /*--------------------------------------------------------------------------*/
index c4e35ec..d39fc8f 100644 (file)
@@ -1 +1,11 @@
+rem Scilab ( http://mwww.scilab.org/ ) - This file is part of Scilab
+rem Copyright (C) ????-2008 - INRIA - Allan CORNET
+rem
+rem This file must be used under the terms of the CeCILL.
+rem This source file is licensed as described in the file COPYING, which
+rem you should have received as part of this distribution.  The terms
+rem are also available at
+rem http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
+
 @..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file
index 81acbb8..bd25b7a 100644 (file)
@@ -1,5 +1,13 @@
-//------------------------------------
-// Allan CORNET INRIA 2005
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - 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
+
+
 //------------------------------------
 if (isdef('genlib') == %f) then
   exec(SCI+'/modules/functions/scripts/buildmacros/loadgenlib.sce');
index 6c1445d..4c6af23 100644 (file)
@@ -1,5 +1,14 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+// 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
+
+
 function c=cell(varargin)
-// Copyright INRIA - Scilab Project
 
 dims=0;
 val=list();
index 5079dfd..d549535 100644 (file)
@@ -1,3 +1,13 @@
+rem Scilab ( http://mwww.scilab.org/ ) - This file is part of Scilab
+rem Copyright (C) ????-2008 - INRIA - Allan CORNET
+rem
+rem This file must be used under the terms of the CeCILL.
+rem This source file is licensed as described in the file COPYING, which
+rem you should have received as part of this distribution.  The terms
+rem are also available at
+rem http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+
+
 @del *.bin 2>NUL
 @del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index 15f5f75..8e21199 100644 (file)
@@ -1,5 +1,14 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+// 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
+
+
 function M=hypermat(dims,v)
-// Copyright INRIA
 //initialize an hypermatrix whose dimensions are given in the vector dims
 // all entries are set to 0
 //
@@ -10,7 +19,7 @@ function M=hypermat(dims,v)
   dims=double(dims)
   if dims==[] then dims=[0 0],end
   if size(dims,'*')==1 then dims=[1 dims],end
-  
+
   if argn(2)<2 then v=zeros(prod(dims),1),end
   if size(v,'*')<> double(prod(dims)) then
     error('hypermat: Number of entries does not match product of dimensions')
index fcea0f4..225b173 100644 (file)
@@ -1,3 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+// 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
+
+
 function r=iscell(S)
 r=typeof(S)=='ce'
 endfunction
index a26f4d0..5635bef 100644 (file)
@@ -1,3 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+// 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
+
+
 function r=isfield(s,field)
 if ~isstruct(s) then
 r=0;return;end
index 7929133..602133c 100644 (file)
@@ -1,3 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+// 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
+
+
 function r=isstruct(S)
 r=typeof(S)=='st'
 endfunction
index ab50138..191a69a 100644 (file)
@@ -1,7 +1,15 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Vincent COUVERT
+//
+// 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
+
+
 function s=struct(varargin)
-// Copyright INRIA
 // Equivalent for Matlab struct function
-// Author: V. Couvert
 
 rhs=argn(2)
 
@@ -11,7 +19,7 @@ if rhs==0 then
   // No Matlab equivalent
   s=mlist(fields,int32([0,0]))
   return
-end 
+end
 
 if floor(rhs/2)*2<>rhs then
   error("Wrong number of inputs");
index b40237d..ac32ee8 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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 <string.h>
 #include "gw_data_structures1.h"
@@ -21,9 +30,9 @@ static gw_generic_table Tab[]=
 };
 /*--------------------------------------------------------------------------*/
 int C2F(gwdatastructures1)()
-{ 
+{
        Rhs=Max(Rhs,0);
-       if (Top - Rhs + Lhs + 1 >= Bot) 
+       if (Top - Rhs + Lhs + 1 >= Bot)
        {
                static integer codeerror = 18;
                Error(codeerror);
index 9c2b008..a5de744 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - 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 <string.h>
 #include "gw_data_structures2.h"
@@ -14,9 +23,9 @@ static gw_generic_table Tab[]=
 };
 /*--------------------------------------------------------------------------*/
 int C2F(gwdatastructures2)(void)
-{ 
+{
        Rhs=Max(Rhs,0);
-       if (Top - Rhs + Lhs + 1 >= Bot) 
+       if (Top - Rhs + Lhs + 1 >= Bot)
        {
                static integer codeerror = 18;
                Error(codeerror);
index 5f3d06b..c6b707f 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index 24ada53..2e43123 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - 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 "machine.h"
 
index 2cf596f..8df892e 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index 053a111..7ff937c 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index e8cd330..cf84cac 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index 614259b..3a2292b 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index c88f358..b85f2e2 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index d8bdeaf..c2e2880 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index 4465fd6..6ab4521 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index f5310c4..6e514b4 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - 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 "machine.h"
 
index 3be4389..e462c04 100644 (file)
@@ -1,6 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - 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_data_structures1.h"
 /*--------------------------------------------------------------------------*/
index 5ec1c80..6649be3 100644 (file)
@@ -1,4 +1,16 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU
+ * Copyright (C) 2007-2008 - 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
+ *
+ -->
 
 <!DOCTYPE GATEWAY SYSTEM "../../functions/xml/gateway.dtd">
 <GATEWAY name="data_structures">
@@ -16,9 +28,6 @@
 
  primitiveName is the name of the Scilab function
 
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
  ===================
  Don't touch if you do not know what you are doing
 -->
index afd1f14..4ac56bb 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 definedfields
 c     returns index of defined fields of a list
       include 'stack.h'
@@ -19,7 +27,7 @@ c
       il=iadr(lstk(top))
       ilr=il
       if(istk(il).lt.0) il=iadr(istk(il+1))
-      if(istk(il).lt.15.or.istk(il).gt.17) then 
+      if(istk(il).lt.15.or.istk(il).gt.17) then
          err=1
          call error(44)
          return
index 0489aa8..a5c4810 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 intgetfield()
       include 'stack.h'
@@ -51,14 +59,14 @@ c     get arg1
       endif
 c
  15   continue
-c     
+c
       if(istk(il1).ne.10)  goto 20
 c     .  arg2(arg1) with arg1 vector of strings
       ilt=iadr(sadr(il2+istk(il2+1)+3))
       nt=istk(ilt+1)*istk(ilt+2)
       if(nt.ne.1) goto 17
 c     .     Soft coded extraction
-      buf='Soft coded field names not yet implemented' 
+      buf='Soft coded field names not yet implemented'
       call error(999)
       return
 
@@ -130,12 +138,12 @@ c     .  arg2(arg1) standard case
          call indxg(il1,m2,ili,n,mx,lw,1)
          if(err.gt.0) return
       endif
-c     
+c
  22   if(mx.gt.m2) then
          call error(21)
          return
       endif
-c     
+c
       if(ilist.ge.nlist) goto 31
       if(n.gt.1) then
          call error(21)
index 428384d..daff4b0 100644 (file)
@@ -1,10 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 scilist(fname)
-      
+
       character*(*) fname
       include 'stack.h'
       integer ltyp
       integer iadr,sadr
-      
+
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
@@ -57,6 +65,6 @@ c     c untyped list
       endif
       lstk(top+1)=l+lf-ld
       goto 99
-      
+
  99   return
       end
index 42fd67e..592be34 100644 (file)
@@ -1,4 +1,12 @@
-      
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 intlstcat
 c     catenate two or more lists
       include 'stack.h'
index 9e01bf4..4e5650e 100644 (file)
@@ -1,8 +1,16 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 intlstsize
 c     WARNING : argument of this interface may be passed by reference
       include 'stack.h'
       integer iadr,sadr
-c     
+c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
 c
index 7e1e6b7..1b63841 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 intsetfield()
       include 'stack.h'
       integer typs,topk
@@ -26,7 +34,7 @@ c
          il3=iadr(istk(il3r+1))
          if(typs.eq.17) then
 c     change  type to tlist
-            istk(il3r)=-16   
+            istk(il3r)=-16
             istk(il3)=16
          endif
       else
index 15450b4..c0dd953 100644 (file)
@@ -1,7 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Ledru Sylvestre */
-/*--------------------------------------------------------------------------*/
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU
+ *
+ * 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
+ *
+ */
 
 #ifndef __HMOPS_H__
 #define __HMOPS_H__
index 93be7b9..ca973fa 100644 (file)
@@ -1,3 +1,15 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) ????-2008 - INRIA
+ *
+ * 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 <string.h>
 #include "stack-c.h"
 #include "stcreate.h"
@@ -35,7 +47,7 @@ int C2F(stcreate)(integer *lw, integer *nz, integer *sz, integer *nf, char *fnam
 /*     create the mlist header */
     il = iadr(l0);
     Err = sadr(il+6) + n1 - *Lstk(Bot);
-    if (Err > 0) 
+    if (Err > 0)
        {
                Error(c17);
                return 1;
index 91ba476..29280b3 100644 (file)
@@ -1,7 +1,15 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Ledru Sylvestre */
-/*--------------------------------------------------------------------------*/
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU
+ *
+ * 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
+ *
+ */
+
 #ifndef  __STCREATE_H__
 #define __STCREATE_H__
 
index 1c0d919..a4c46cf 100644 (file)
@@ -1,8 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 extractfields(illist,ind,n,lw)
-c     Copyright INRIA
 c
-c     given a list beginning at istk(illist), a vector of n indexes ind 
+c     given a list beginning at istk(illist), a vector of n indexes ind
 c     extractfields creates n variables corresponding to the n fields
 c
 c     if n==-1 all fieds are extracted
@@ -10,13 +17,13 @@ c
 
       include 'stack.h'
       integer ind(*)
-c     
+c
       integer vol2
       integer iadr,sadr
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
-c     
+c
       if(n.eq.-1) then
 c     .  L(:)
          n=istk(illist+1)
@@ -89,7 +96,7 @@ c     .  create table of pointers on new variables
  52      continue
          top=top-1
 
-c     .  preserve fields adress (newly created variables may 
+c     .  preserve fields adress (newly created variables may
 c     .  overwrite beginining of the given list)
          ill=iadr(max(lw,lstk(top+1)))
          lw=sadr(ill+n)
index e959760..2a2c688 100644 (file)
@@ -1,12 +1,19 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 followpath(indtop,listtop,ilindi,voli,ilp,voll,ind,
      $     count,info,lwork)
-c     Copyright INRIA
 c =============================================================
-c     given 
-c     - a path stored in a "linear" index list ind stored in the 
+c     given
+c     - a path stored in a "linear" index list ind stored in the
 c     variable number indtop
-c     and 
-c     - a list L begining at position stored in the 
+c     and
+c     - a list L begining at position stored in the
 c     variable number listtop
 
 c     - a current pointer on index list entries count
@@ -14,7 +21,7 @@ c     - a current pointer on index list entries count
 c     returns:
 c     - the pointer ilp on the deapest sublist of L on the path indtop
 c       available just by following the list structure of L.
-c       i.e. ilp is the pointer on the sublist of L pointed to by 
+c       i.e. ilp is the pointer on the sublist of L pointed to by
 c       the path indtop(1:count)
 c     - the vector of numerical indexes corresponding to indtop(1:count)
 
@@ -26,14 +33,13 @@ c     info
 c         1 : unknown named field
 c         2 : current index is a matrix index of an mlist
 c         3 : current index is not a single number
-c         4 : current index points to a leaf of the  L list 
+c         4 : current index points to a leaf of the  L list
 c         5 : end of index list reached
 c         6 : current index is 0 or greater than current sublist # of fields
 c =============================================================
 c
-c     Copyright INRIA
       include 'stack.h'
-c     
+c
       integer indtop,listtop,ind(*)
       integer typi,count,oldcount,voll,voli
 
@@ -45,7 +51,7 @@ c
       sadr(l)=(l/2)+1
 c
       oldcount=count
-c     
+c
       ilind=iadr(lstk(indtop))
       if(istk(ilind).lt.0) then
          itop=istk(ilind+2)
@@ -178,7 +184,7 @@ c      if(voll.eq.0) then
 c     .  undefined field found
 c         info=7
 c         goto 50
-c     
+c
 c     endif
       if(istk(illisti).lt.0) then
          kk=istk(illisti+2)
index a09287c..7f70bb1 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 forcerhs(n,ierr)
 c     this routine allows to change the apparent lhs of a list
@@ -27,4 +35,4 @@ c      in a compiled function retained for 2.4.1  compatiblity
       endif
       return
       end
-      
\ No newline at end of file
+
index 39cdb81..aa6b56b 100644 (file)
@@ -1,6 +1,14 @@
-      
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 gratyp(ivt,job)
-c     set the type  
+c     set the type
 c      ['graph','name','directed','node_number','tail','head','node_name',..
 c       'node_type','node_x','node_y','node_color','node_diam','node_border',..
 c       'node_font_size','node_demand','edge_name','edge_color','edge_width',..
index d94dfdb..b7e3b8d 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 insertfield(ilfrom,volfrom,iltos,ind,nind,lrn,lw,info)
 c     insert a field (from) in a sublist "to"  of a list "tos"
 c
@@ -9,11 +17,11 @@ c     iltos points on the first entry of the "tos" data structure in istk
 c     ind(1:nind) is the path of to in tos
 c
 c     is the position of the result,if info<>0
-c     info 
+c     info
 c        if 0 list has been updated "in place"
 c        if 1 list needs to be stored
       include 'stack.h'
-c     
+c
       integer volfrom,voltos,volto,dvol,ind(*)
       integer typfrom,typto
 
@@ -78,7 +86,7 @@ c     .  copy when "to" list is at the top of the stack).
          endif
 
          if(iltos.ne.ilto) then
-c     .     copy the beginning of "tos" up to the beginning of the modified sub-list. 
+c     .     copy the beginning of "tos" up to the beginning of the modified sub-list.
             ltod=sadr(iltos)
             ltto=sadr(ilto)
             call unsfdcopy(ltto-ltod,stk(ltod),1,stk(lrn),1)
@@ -105,7 +113,7 @@ c     .  copy old sublist fields
          lr=lr+volto
          dvol=(lr-lrn)-(lto+volto-sadr(ilto))
 
-c     .  update new data structure pointers recursively 
+c     .  update new data structure pointers recursively
          call updptr(iln,ind,nind-1,dvol)
 c     .  copy the rest of data structure
          if(nind.gt.1) then
@@ -140,7 +148,7 @@ c     .  copy when "to" list is at the top of the stack).
          endif
 
          if(ilto.ne.iltos) then
-c     .     copy the beginning of "tos" up to the beginning of the modified sub-list. 
+c     .     copy the beginning of "tos" up to the beginning of the modified sub-list.
             ltod=sadr(iltos)
             ltto=sadr(ilto)
             err=lrn+ltto-ltod-lstk(bot)
@@ -176,7 +184,7 @@ c     .  copy added field value
          lr=lr+volfrom
 c
          dvol=(lr-lrn)-(lto+volto-sadr(ilto))
-c     .  update new data structure pointers recursively 
+c     .  update new data structure pointers recursively
          call updptr(iln,ind,nind-1,dvol)
 c     .  copy the rest of data structure
 c???         ind(nind-1)=ind(nind-1)+n-mto
@@ -207,7 +215,7 @@ c     .        field is  replaced in place
                info=0
                return
             else
-c     .        get memory to install the resulting list 
+c     .        get memory to install the resulting list
 c     .        (May be improved to avoid copy when "to" list is at the
 c     .        top of the stack).
                iln=iadr(lw)
@@ -243,7 +251,7 @@ c     .        iltol points to the end of "to" data structure
                lto=lto+istk(ilto+2+n)-1
                call unsfdcopy(ltol-lto,stk(lto),1,stk(lrn),1)
                lrn=lrn+ltol-lto
-c     .        update new data structure pointers recursively 
+c     .        update new data structure pointers recursively
                call  updptr(iln,ind,nind,dvol)
 c     .        store result
                lrn=lw
@@ -251,7 +259,7 @@ c     .        store result
             endif
          else
 c     .     suppress the specified entry
-c     .     get memory to install the resulting list 
+c     .     get memory to install the resulting list
 c     .     (May be improved to avoid copy when "to" list is at the
 c     .     top of the stack).
             lrn=lw
@@ -263,7 +271,7 @@ c     .     top of the stack).
                call error(17)
                return
             endif
-c     .     if necessary,copy the "to" list data structure up to the  
+c     .     if necessary,copy the "to" list data structure up to the
 c     .     beginning of the modified sub-list
             if(ilto.ne.iltos) then
 c     .     copy the beginning of "to" up to  the modified sub-list
@@ -273,7 +281,7 @@ c     .     copy the beginning of "to" up to  the modified sub-list
 c     .        lrn points to the beginning of the new entry
                lrn=lrn+ltto-ltod
             endif
-c     .     update sub_list  
+c     .     update sub_list
 c     .     ---------------
             il=iadr(lrn)
             lfrom=lto-1+istk(ilto+2+n)
@@ -296,7 +304,7 @@ c     .     copy last elements
             call unsfdcopy(istk(il+1+mto)-istk(il+1+n),stk(lfrom),1,
      $           stk(l),1)
             l=l+istk(il+1+mto)-istk(il+1+n)
-c     .     update new data structure pointers recursively 
+c     .     update new data structure pointers recursively
             call updptr(iln,ind,nind-1,dvol)
 c     .     copy the rest of data structure
             if(nind.gt.1) then
@@ -313,4 +321,4 @@ c     .     store result
       endif
       return
       end
-      
\ No newline at end of file
+
index d431f30..c24e11e 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 intl_e()
 c =============================================================
 c     extraction pour les list tlist, mlist
@@ -30,7 +38,7 @@ c
       rhs1=rhs
       top0=top
 
-      fun=0   
+      fun=0
       if(rhs.gt.2) then
          fin=-fin
          return
@@ -97,7 +105,7 @@ c     .  matrix index (i,..) syntax
          lstk(top+2)=lw
          if (istk(il1i).eq.15) then
 c     .     more than one index
-c     .     transform index list(i,j,...) in the list in sequence of variables 
+c     .     transform index list(i,j,...) in the list in sequence of variables
 c     .     at the top of the stack
             m1i=istk(il1i+1)
             ll1=sadr(il1i+m1i+3)
@@ -112,7 +120,7 @@ c     .     at the top of the stack
             rhs=1+m1i
             m2i=istk(il2i+1)
          else
-c     .     a matrix  index 
+c     .     a matrix  index
             if(m1.gt.icount.and.info.eq.4) then
 c     .        arg2(...)(i,j,..)(...)
                if(istk(il2i).ne.9) then
@@ -121,10 +129,10 @@ c     .            too many indices in index list
                    return
                 endif
             endif
-c     .     arg2(...)(i,j,..) a matrix single index, 
+c     .     arg2(...)(i,j,..) a matrix single index,
 c     .     use standard extraction to finish the job
 
-c     .     copy index at the top of the stack 
+c     .     copy index at the top of the stack
             top=top2
             call copyvar(il1ir,vol1)
             rhs=2
@@ -157,7 +165,7 @@ c     .        look for corresponding index if any
                ipos=strpos(istk(ilptr),nn-1,istk(lfn),istk(ilname),
      $              nname)
                if(ipos.le.0) then
-c     .           no such name in the field names 
+c     .           no such name in the field names
                   if(icount.eq.1.and.m1.eq.1) then
 c     .              syntax is arg2('xxx')
                      fin=-fin
@@ -184,7 +192,7 @@ c     .              set the index
          endif
          return
       elseif(info.eq.5) then
-c     .  end of arg1 list (index list) reached 
+c     .  end of arg1 list (index list) reached
 c     .  copy the designed sublist at the top of the stack
          top=top-1
          call copyvar(il2ir,vol2)
@@ -257,7 +265,7 @@ c     .  nothing more to do here but to move results at its correct location
 c     m1 > icount handle, ... case
 c     finish extraction using overloading
 
-c     build new index list using the remaining entries of the 
+c     build new index list using the remaining entries of the
 c     original index list
       ilind=iadr(lstk(top-2))
       if(istk(ilind).lt.0) ilind=iadr(istk(ilind+1))
@@ -270,7 +278,7 @@ c     original index list
             call copyvar(il1i,vol)
             rhs=2
          else
-c     .     transform index list(i,j,...) in the list in sequence of variables 
+c     .     transform index list(i,j,...) in the list in sequence of variables
 c     .     at the top of the stack
             m1i=istk(il1i+1)
             ll1=sadr(il1i+m1i+3)
@@ -345,7 +353,7 @@ c     .  put the result at the top of the stack and return
          vol=lstk(top+1)-lstk(top-lhs+1)
          im=lstk(top-lhs+1)-lstk(top-lhs-1)
         call unsfdcopy(vol,stk(lstk(top-lhs+1)),1,
-     $        stk(lstk(top-lhs-1)),1) 
+     $        stk(lstk(top-lhs-1)),1)
          top=top-2
          do 46 k=1,lhs
             lstk(top-lhs+k+1)=lstk(top-lhs+k+3)-im
@@ -354,7 +362,7 @@ c     .  put the result at the top of the stack and return
       else
 c     .  move result ajust after the index
          ll2=lstk(top+1)-lstk(top)
-         call unsfdcopy(ll2,stk(lstk(top)),1,stk(lstk(top-1)),1) 
+         call unsfdcopy(ll2,stk(lstk(top)),1,stk(lstk(top-1)),1)
          lstk(top)=lstk(top-1)+ll2
          top=top-1
 c     .  goto back to the standard list algorithm
index 9af6b9e..a20ac83 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 intl_i
 c =============================================================
 c     list insertions arg3(arg1)=arg2
@@ -44,7 +52,7 @@ c     handle recursion
  05   lw=lstk(top+1)
 c
       if(rhs.ge.4) then
-c     .  l(i,j,..) 
+c     .  l(i,j,..)
          fin=-fin
          return
       endif
@@ -115,7 +123,7 @@ c     protect recursion data
       istk(ilrec+6)=vol3
 
       if(info.eq.5.or.info.eq.6) then
-c     .  end of arg1 list reached 
+c     .  end of arg1 list reached
 c     .  replace designed sublist of arg3 by arg2
          call insertfield(il2,vol2,il3,istk(ilind),icount,lrn,lw,info)
          if(err.gt.0) return
@@ -129,7 +137,7 @@ c     .  syntax is arg3(...)(i,j,..)(...)=arg2
 c     .  matrix index (i,..) syntax
          if(istk(il3i).eq.17.or.istk(il3i).eq.16) then
             if(icount.eq.1.and.abs(m1).eq.1) then
-c     .     syntax is arg3('xxx')=arg2 or  arg3(i)=arg2 
+c     .     syntax is arg3('xxx')=arg2 or  arg3(i)=arg2
                fin=-2
                top=top3
                rhs=3
@@ -165,7 +173,7 @@ c            if(err.gt.0) return
 
  30   continue
 c     last index points on a matrix, use standard matrix insertion
-c     to finish 
+c     to finish
       top=top3
       if (istk(il1i).eq.15) then
 c     .  more than one index
@@ -174,14 +182,14 @@ c     .  variables at the top of the stack
          call lst2vars(il1i,m1i)
          if(err.gt.0) return
          rhs=2+m1i
-      else 
-c     .  a matrix single index 
+      else
+c     .  a matrix single index
          if(m1.gt.icount) then
 c     .     arg3(...)(i,j,..)(...)=arg2 :too many indices in index list
             call error(21)
             return
          endif
-c     .  arg3(...)(i,j,..)=arg2: a matrix single  index 
+c     .  arg3(...)(i,j,..)=arg2: a matrix single  index
 c     .  copy it at the top of the stack (may be possible to put a pointer)
          call copyvar(il1ir,vol1)
          if(err.gt.0) return
@@ -193,7 +201,7 @@ c     create a pointer on arg2
       if(err.gt.0) return
 
 c     create a pointer on the designed matrix (part of arg3)
-      if(vol3.gt.0) then 
+      if(vol3.gt.0) then
          call createref(il3i,0,vol3)
          if(err.gt.0) return
       else
@@ -204,7 +212,7 @@ c     .  the list entry is undefined
 c     call allops for  standard insertion
       fin=2
       if (ptover(1,psiz)) return
-      
+
       icall=4
       istk(ilrec)=1
 
@@ -311,7 +319,7 @@ c     .  variables at the top of the stack
          if(err.gt.0) return
          rhs=1+m1i
       endif
-c     - form the sublist Temp1=A3(i1)..(ik) 
+c     - form the sublist Temp1=A3(i1)..(ik)
       call copyvar(il3i,vol3)
       if(err.gt.0) return
 c     top of stack contains [A1, A2, A3,ik+1, (ik+2)..(in),&a2,ik+1,Temp1]
@@ -336,10 +344,10 @@ c     - restore context
       il1=iadr(lstk(top1))
       if(istk(il1).lt.0) il1=iadr(istk(il1+1))
       m1=istk(il1+1)
-c     
+c
 c     re-enter intl_i to realize Temp2(ik+2)..(in)=A2 insertion
 c     top of stack contains : [A1, A2, A3,ik+1,(ik+2)..(in), &A2, Temp2]
-c     
+c
 c      pt=pt-1
 c      if (ptover(1,psiz)) return
 c     save context for recursion
@@ -349,7 +357,7 @@ c     save context for recursion
       fin=2
       if (istk(iadr(lstk(top))).eq.1) then
 c     .  insertion in an empty matrix
-c     .  get the type of the inserted variable            
+c     .  get the type of the inserted variable
          ityp=abs(istk(iadr(lstk(top-1))))
          if(ityp.ne.15.and.ityp.ne.16.and.ityp.ne.17) then
 c     .     not a list, *call* allops
@@ -396,7 +404,7 @@ c     .  temp1 contains the result
          goto 90
       endif
 
-c     
+c
 c     realize insertion A3(i1)..(ik)=Temp1
       ilv=iadr(lstk(top))
       volv=lstk(top+1)-lstk(top)
@@ -460,7 +468,7 @@ c
 
  82   continue
 c     change handle property
-c     build new index list using the remaining entries of the 
+c     build new index list using the remaining entries of the
 c     original index list
       ll=sadr(il1+3+m1)
 
@@ -497,7 +505,7 @@ c     notify that result has already been stored
  90   continue
 
       if(info.eq.0) then
-c     .  insertion has been done in place, 
+c     .  insertion has been done in place,
          top3=top1+2
          if(rstk(pt).eq.407) then
             il3=iadr(lstk(top3))
@@ -524,7 +532,7 @@ c     .  insertfield has created the result at adress lrn. stored it
             goto 01
          else
 c     .  set lstk pointers to the newly created variable
-            
+
             lt=lstk(top)
             lstk(top)=lrn
             il1=iadr(lrn)
index a5b877c..62922af 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 lsstyp(ivt,job)
 c     set the type
       integer ivt(*)
index 25ca4f6..1938109 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 lstops
 c ==================================
 c     elementary operations on lists
@@ -10,7 +18,7 @@ c
       logical  ishm
       integer insert,extrac, toto, gettype
       data insert/2/,extrac/3/
-      
+
 
 c     handle recursion
       if(rstk(pt).ge.403.and.rstk(pt).le.405) goto 10
@@ -37,7 +45,7 @@ c     extraction
 c$$$      print *, ' type de top =', gettype(top), ' type de top-1 =', toto
       if ( ishm() .and. toto.ne.10 .and. toto.ne.15) then
          call intehm()
-      else               
+      else
          call intl_e()
       endif
       return
@@ -45,12 +53,12 @@ c
 c     insertion
  50   continue
       toto = gettype(top-2)  ! a priori
-c$$$      print *, ' type de top =',   gettype(top), 
+c$$$      print *, ' type de top =',   gettype(top),
 c$$$     $         ' type de top-1 =', gettype(top-1),
 c$$$     $         ' type de top-2 =', toto
       if ( ishm() .and. toto.ne.10 .and. toto.ne.15) then
          call intihm()
-      else               
+      else
          call intl_i()
       endif
       if(err.gt.0) return
index a13cd08..14f92f0 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 mtlist(typdsc)
 c     create a tlist whose type description is given by external
 c     function typdsc
index 86cee52..9c4e881 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 rattyp(ivt,job)
 c     set the type ['r','num','den','dt']
       integer ivt(*)
index 6b6cac1..98f8392 100644 (file)
@@ -1,3 +1,11 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) ????-2008 - INRIA
+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 updptr(ilt,ind,nind,dvol)
 c!purpose
@@ -43,7 +51,7 @@ c     !
       integer ind(nind)
       integer iadr,sadr
       include 'stack.h'
-c     
+c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
 c
@@ -58,4 +66,4 @@ c     .  il pointer to ind(k) sub-list entry
  20   continue
  30     subptr=il
       end
-      
+
index 97cef37..198efc1 100644 (file)
@@ -1,4 +1,16 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU
+ * Copyright (C) 2007-2008 - 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
+ *
+ -->
 
 <!DOCTYPE MODULE_VERSION SYSTEM "../core/xml/version.dtd">
 <MODULE_VERSION name="data_structures">
@@ -7,9 +19,6 @@
  Scilab
  Defines the version of a module
 
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
  ===================
 
 -->