Add license header
Pierre Marechal [Fri, 15 Feb 2008 08:03:25 +0000 (08:03 +0000)]
58 files changed:
scilab/modules/demo_tools/etc/demo_tools.quit
scilab/modules/demo_tools/etc/demo_tools.start
scilab/modules/demo_tools/macros/buildmacros.sce
scilab/modules/demo_tools/macros/demo_begin.sci
scilab/modules/demo_tools/macros/demo_choose.sci
scilab/modules/demo_tools/macros/demo_compiler.sci
scilab/modules/demo_tools/macros/demo_end.sci
scilab/modules/demo_tools/macros/demo_file_choice.sci
scilab/modules/demo_tools/macros/demo_folder_choice.sci
scilab/modules/demo_tools/macros/demo_function_choice.sci
scilab/modules/demo_tools/macros/demo_mdialog.sci
scilab/modules/demo_tools/macros/demo_message.sci
scilab/modules/demo_tools/macros/demo_run.sci
scilab/modules/development_tools/etc/development_tools.quit
scilab/modules/development_tools/etc/development_tools.start
scilab/modules/development_tools/macros/bench_run.sci
scilab/modules/development_tools/macros/buildmacros.sce
scilab/modules/development_tools/macros/launchtest.sci
scilab/modules/development_tools/macros/nonreg_test_run.sci
scilab/modules/development_tools/macros/scitest.sci
scilab/modules/development_tools/macros/test_clean.sci
scilab/modules/development_tools/macros/test_run.sci
scilab/modules/development_tools/macros/testexamples.sci
scilab/modules/development_tools/macros/unit_test_run.sci
scilab/modules/helptools/etc/helptools.quit
scilab/modules/helptools/etc/helptools.start
scilab/modules/helptools/macros/add_help_chapter.sci
scilab/modules/helptools/macros/add_module_help_chapter.sci
scilab/modules/helptools/macros/apropos.sci
scilab/modules/helptools/macros/browsehelp.sci
scilab/modules/helptools/macros/buildmacros.sce
scilab/modules/helptools/macros/change_help_language.sci
scilab/modules/helptools/macros/change_old_man.sci
scilab/modules/helptools/macros/check_help.sci
scilab/modules/helptools/macros/clean_help.sci
scilab/modules/helptools/macros/del_help_chapter.sci
scilab/modules/helptools/macros/del_module_help_chapter.sci
scilab/modules/helptools/macros/extract_help_examples.sci
scilab/modules/helptools/macros/find_links.sci
scilab/modules/helptools/macros/formatman.sci
scilab/modules/helptools/macros/gethelpfile.sci
scilab/modules/helptools/macros/help.sci
scilab/modules/helptools/macros/help_menu.sci
scilab/modules/helptools/macros/help_skeleton.sci
scilab/modules/helptools/macros/loaddefaultbrowser.sci
scilab/modules/helptools/macros/make_help_index.sci
scilab/modules/helptools/macros/manedit.sci
scilab/modules/helptools/macros/update_scilab_help.sci
scilab/modules/helptools/macros/xmlfiletohtml.sci.in
scilab/modules/helptools/macros/xmlfiletohtml.sci.vc
scilab/modules/helptools/macros/xmltohtml.sci
scilab/modules/maple2scilab/etc/maple2scilab.quit
scilab/modules/maple2scilab/etc/maple2scilab.start
scilab/modules/maple2scilab/macros/buildmacros.sce
scilab/modules/maple2scilab/macros/sci2map.sci
scilab/modules/randlib/etc/randlib.quit
scilab/modules/randlib/etc/randlib.start
scilab/modules/randlib/macros/buildmacros.sce

index d95501e..6feb7de 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
 // of a scilab session for demo_tools module
-// Copyright INRIA 2006
 // =============================================================================
 
 // delete help chapter
index ad09fb3..90b4671 100644 (file)
@@ -1,8 +1,15 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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
+
 // =============================================================================
 // demo_tools module initialisation file
-// Author : Pierre MARECHAL
-// Scilab Project
-// Copyright INRIA 2007
 // =============================================================================
 
 // Load  functions library
index 2ed7fb0..c8614d0 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Pierre MARECHAL
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 504e763..fe158fc 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Pierra MARECHAL
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 demo_begin()
        
index d5749bb..0d94780 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 [num]=demo_choose(fil)
        load(fil,'choice','titl');
index 6e08be6..4674363 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 [ans]=demo_compiler()
        if (~haveacompiler()) then
index 140d542..ff4ab54 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Pierre MARECHAL
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 demo_end()
        
index ac6adf2..10edf0b 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Pierre MARECHAL
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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
 
 // demolist
 // demopath
index 1878261..191e242 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 []=demo_folder_choice(path,ch)
 
index 103ac1b..6175d75 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 []=demo_function_choice()
        while %t then
index 8fcaa64..d8f8020 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 [resp]=demo_mdialog(fil)
        load(fil,'titl','namevar','value');
index 80a1502..fadf14a 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 demo_message(fil)
        text=mgetl(fil);
index 0e2e6fd..824ee38 100644 (file)
@@ -1,8 +1,12 @@
-// =============================================================================
-// Author : Ghislain HELIOT
-// Scilab Project
-// Copyright INRIA 2007
-// =============================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Ghislain HELIOT
+//
+// 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 demo_run(fil)
        exec(fil);
index b2a7f65..81e36bb 100644 (file)
@@ -1,8 +1,17 @@
-// ====================================================================
-// This file contains command to be executed at the end 
+
+// 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
 // of a scilab session for development_tools module
-// Copyright INRIA 2006
-// ====================================================================
+// =============================================================================
+
 // delete help chapter
-del_help_chapter('development_tools',%T);
-// ====================================================================
+del_help_chapter("development_tools",%T);
index 5bca840..e832278 100644 (file)
@@ -1,10 +1,19 @@
+
+// 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
+
 // ====================================================================
-// development_tools module initialisation file 
-// Copyright INRIA 2006
+// development_tools module initialisation file
 // ====================================================================
+
 //Load  functions librarie
 load('SCI/modules/development_tools/macros/lib');
-// ====================================================================
+
 //add help chapter
-add_module_help_chapter('development_tools');
-// ====================================================================
+add_module_help_chapter("development_tools");
index f6a9b84..3fb4a52 100644 (file)
@@ -1,9 +1,14 @@
-//-----------------------------------------------------------------------------
-// Pierre MARECHAL
-// Scilab team
-// Copyright INRIA
-// Date : 17 Dec 2007
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
+// 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
+
+//-----------------------------------------------------------------------------
 // Launch benchmarks
 //-----------------------------------------------------------------------------
 
@@ -161,7 +166,6 @@ function bench_run(varargin)
                
                printf("\n");
                
-               xml_str = [ "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""no""?>" ];
                xml_str = [ xml_str ; "<benchmarks>" ];
                
                // Calcul de la durée de la boucle for en µs
@@ -225,7 +229,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => List all test files in the module <module_mat>
@@ -247,7 +250,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Add the test <test> to the test_mat matrix
@@ -268,7 +270,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Run one test
@@ -332,7 +333,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Check ref or generate ref
index 58765d2..13385f6 100644 (file)
@@ -1,9 +1,15 @@
-//------------------------------------
-// Allan CORNET INRIA 2006
-//------------------------------------
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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');
 end
-//------------------------------------
+
 genlib('development_toolslib','SCI/modules/development_tools/macros',%f,%t);
-//------------------------------------
index 311cd75..05cc47f 100644 (file)
@@ -1,7 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
 //
-// Sylvestre Ledru <sylvestre.ledru@inria.fr>
-// INRIA - Scilab 2006 
-// 
+// 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
+
 // Purpose : this file provides functions to test scilab for each modules
 // Under Linux/Unix it is called by the command "make check"
 // Which will call the target check-local in the file Makefile.incl.am
@@ -12,7 +18,6 @@ function launchtest(myPath,myTests)
        maketests(myTests,'test')
 endfunction
 
-
 function maketests(myTests,job)
        lines(0) // to disable line control
        if argn(2)<1 then job='tests',end
index 309bb62..1347427 100644 (file)
@@ -1,11 +1,16 @@
-//-----------------------------------------------------------------------------
-// Pierre MARECHAL
-// Scilab team
-// Copyright INRIA
-// Date : 22/11/2007
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
+// 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
+
+// =============================================================================
 // Launch Non-Regression tests
-//-----------------------------------------------------------------------------
+// =============================================================================
 
 function nonreg_test_run(varargin)
        
index 6e7b549..364f310 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 scitest(tstfile,force,error_check,keep_prompt,postscript_graphics)
 
        // if error_check is %t then execution errors are reported
index a3c04ef..843222d 100644 (file)
@@ -1,11 +1,16 @@
-//-----------------------------------------------------------------------------
-// Pierre MARECHAL
-// Scilab team
-// Copyright INRIA
-// Date : 15/01/2008
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
+// 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
+
+// =============================================================================
 // Clean tests
-//-----------------------------------------------------------------------------
+// =============================================================================
 
 function test_clean(varargin)
        
@@ -152,7 +157,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => List all test files in the module <module_mat>
@@ -190,7 +194,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Add the test <test> to the test_mat matrix
@@ -211,7 +214,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 15 jan. 2008
 //
 // => remove dia file
index f4397b5..570eafa 100644 (file)
@@ -1,11 +1,16 @@
-//-----------------------------------------------------------------------------
-// Pierre MARECHAL
-// Scilab team
-// Copyright INRIA
-// Date : 25/10/2007
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
+// 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
+
+// =============================================================================
 // Launch tests
-//-----------------------------------------------------------------------------
+// =============================================================================
 
 function test_run(varargin)
        
@@ -285,7 +290,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => List all test files in the module <module_mat>
@@ -323,7 +327,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Add the test <test> to the test_mat matrix
@@ -344,7 +347,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Run one test
@@ -638,7 +640,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 8 novembre 2007
 //
 // => remove header from the diary txt
@@ -669,7 +670,6 @@ endfunction
 //-----------------------------------------------------------------------------
 // Pierre MARECHAL
 // Scilab team
-// Copyright INRIA
 // Date : 28 oct. 2007
 //
 // => Check ref or generate ref
index b198ddd..d53385b 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+// 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=load_ref(name)
        if exists(name)==0 then r=%f;return,end
        v=evstr(name)
@@ -52,7 +62,7 @@ endfunction
 function r=xdel_run(w,opt)
 
        //Author : Serge Steer, april 2005, Copyright INRIA
-       //  
+       //
        //Compare the graphic windows to be cleared with the reference given in a Scilab  binary file. 
        // This function must mirror the  xdel_build one.
        
@@ -93,7 +103,7 @@ endfunction
 function r=clf_run(w,opt)
 
        //Author : Serge Steer, april 2005, Copyright INRIA
-       //  
+       //
        //Compare the graphic windows to be cleared with the reference given in  a Scilab  binary file. 
        // This function must mirror the  clf_build one.
        
@@ -139,9 +149,9 @@ endfunction
 
 
 function r=xbasc_run(w)
-  
+
 //Author : Serge Steer, april 2005, Copyright INRIA
-//  
+//
 //Compare the graphic windows to be cleared with the reference given in  a Scilab  binary file. 
 // This function must mirror the  xbasc_build one.
   r=%f
@@ -162,7 +172,7 @@ function r=xbasc_run(w)
       %wins_ref.figure_position=%wins_.figure_position
       if %CMP(%wins_, %wins_ref) then r=%t,return,end
     end
-    
+
     xbasc(w)
   else
     if get('figure_style')=='old' then return,end
@@ -182,12 +192,12 @@ endfunction
 
 
 function r=%CMP(%A,%B)
-  
+
 //Author : Serge Steer, april 2005, Copyright INRIA
-//  
+//
 // this function compares two variables, floating points data are
 // compared using a relative tolerance
-  
+
   r=%f
   tol=0.00001
   if type(%A)<>type(%B) then r=%t,return,end
index 1d2e92b..c0d2728 100644 (file)
@@ -1,11 +1,16 @@
-//-----------------------------------------------------------------------------
-// Pierre MARECHAL
-// Scilab team
-// Copyright INRIA
-// Date : 22/11/2007
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
 //
-// Launch Unitary Tests
-//-----------------------------------------------------------------------------
+// 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
+
+// =============================================================================
+// Launch unitary tests
+// =============================================================================
 
 function unit_test_run(varargin)
        
index 73230e9..ad44f6e 100644 (file)
@@ -1,8 +1,15 @@
-// ====================================================================
-// This file contains command to be executed at the end 
+
+// 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
 // of a scilab session for helptools module
-// Copyright INRIA 2006
-// ====================================================================
+
 // delete help chapter
 del_help_chapter('helptools',%T);
-// ====================================================================
index 7cb4c3c..4a93ff4 100644 (file)
@@ -1,10 +1,18 @@
-// ====================================================================
-// helptools module initialisation file 
-// Copyright INRIA 2006
-// ====================================================================
+
+// 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
+
+
+// helptools module initialisation file
+
 //Load  functions librarie
 load('SCI/modules/helptools/macros/lib');
-// ====================================================================
+
 //add help chapter
 add_module_help_chapter('helptools');
-// ====================================================================
index 1c75c85..c396355 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 ok = add_help_chapter(helptitle,path,modulemode)
        
        // =========================================================================================
@@ -27,7 +37,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
        global %helps_modules;
        ok = %F;
        
-       // Vérification des paramètres
+       // V�rification des param�tres
        // --------------------------------------------------------------------------------
        [lhs,rhs]=argn(0);
        if rhs <> 3 then modulemode=%F; end
@@ -40,16 +50,16 @@ function ok = add_help_chapter(helptitle,path,modulemode)
        // --------------------------------------------------------------------------------
        current_directory = pwd();
        
-       // Conversion du chemin dans le format du système d'exploitation utilisé
+       // Conversion du chemin dans le format du syst�me d'exploitation utilis�
        // --------------------------------------------------------------------------------
        path=pathconvert(path,%f,%t);
        
-       // Vérification que la chaîne de caractère passé en deuxième paramètre est bien un chemin
+       // V�rification que la cha�ne de caract�re pass� en deuxi�me param�tre est bien un chemin
        // --------------------------------------------------------------------------------
        if ~isdir(path) then 
                error('second argument should give the path to a directory');
        
-       // Transformation du chemin passé en deuxième paramètre
+       // Transformation du chemin pass� en deuxi�me param�tre
        // --------------------------------------------------------------------------------
        else
                chdir(path);
@@ -61,7 +71,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
                chdir(current_directory);
        end
        
-       // Vérification que le titre n'est pas déja présent dans %helps
+       // V�rification que le titre n'est pas d�ja pr�sent dans %helps
        // --------------------------------------------------------------------------------
        if (modulemode) then
          k1 = find( %helps_modules(:,2) == helptitle);
@@ -73,7 +83,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
        
        if k1 == [] then
                
-               // Cas où le titre du chapitre n'est pas présent
+               // Cas o� le titre du chapitre n'est pas pr�sent
                if (modulemode) then
                 %helps_modules=[%helps_modules;path,helptitle];
                else
@@ -91,7 +101,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
          end
                
                if k2 <> [] then 
-                       // Cas où le path est également le même
+                       // Cas o� le path est �galement le m�me
                        return;
                else
                        
@@ -103,7 +113,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
                          end
                                
                                if k3 == [] then
-                                       // On a pas trouvé de "title (i)"
+                                       // On a pas trouv� de "title (i)"
                                        if modulemode then
                                          k4 = find( %helps_modules(k3,1) == path );
                                        else
@@ -124,7 +134,7 @@ function ok = add_help_chapter(helptitle,path,modulemode)
                                        end
                                        
                                else
-                                       // On a trouvé "title (i)"
+                                       // On a trouv� "title (i)"
                                        if modulemode then
                                          if find( %helps_modules(k3,1) == path ) <> [] then
                                                  return;
index 893fd4c..458cd85 100644 (file)
@@ -1,16 +1,21 @@
-// ====================================================================
-// Allan CORNET
-// INRIA 2007
-// ====================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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 add_module_help_chapter(modulename)
-  path_addchapter = SCI+"/modules/"+modulename+"/help/"+getlanguage()+"/addchapter.sce";
-  if ( fileinfo(path_addchapter) == [] ) then
-    path_addchapter = SCI+"/modules/"+modulename+"/help/"+getdefaultlanguage()+"/addchapter.sce";
-  end
-//  try
-    exec(path_addchapter);
-//  catch
-//    warning(gettext("Incorrect module path ")+path_addchapter);
-//  end
+       path_addchapter = SCI+"/modules/"+modulename+"/help/"+getlanguage()+"/addchapter.sce";
+       if ( fileinfo(path_addchapter) == [] ) then
+               path_addchapter = SCI+"/modules/"+modulename+"/help/"+getdefaultlanguage()+"/addchapter.sce";
+       end
+       //try
+               exec(path_addchapter);
+       //catch
+       //    warning(gettext("Incorrect module path ")+path_addchapter);
+       //end
 endfunction
-// ====================================================================
index 3afbfb6..1f05573 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
+
 // ==========================================================================
 // apropos
 // ==========================================================================
index 3bed691..c03ffdf 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 browsehelp(path,key)
        // when %browsehelp is [] a  menu proposes to select a browser
        global INDEX 
index caed362..d8aed4e 100644 (file)
@@ -1,12 +1,15 @@
-// ==========================================================================
-// Pierre MARECHAL INRIA 2006
-// Scilab Team
-// Copyright INRIA
-// ==========================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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');
 end
-// ==========================================================================
-genlib('helptoolslib','SCI/modules/helptools/macros',%f,%t);
-// ==========================================================================
 
+genlib('helptoolslib','SCI/modules/helptools/macros',%f,%t);
index 2860e6d..974e68d 100644 (file)
@@ -1,37 +1,42 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 change_help_language(language)
        
-       // =========================================================================================
-       // Author : Pierre MARECHAL
-       // Scilab team
-       // Copyright INRIA
-       // Date : August 1st 2006
-       // 
+       // =========================================================================
        // change_help_language(language)
-       // =========================================================================================
+       // =========================================================================
        
        global %helps;
        global %helps_modules;
        %HELPS=[%helps_modules;%helps];
-       // Vérification des paramètres
-       // --------------------------------------------------------------------------------
+       // V�rification des param�tres
+       // -------------------------------------------------------------------------
        [lhs,rhs]=argn(0);
        if rhs <> 1 then error(39); end
        if type(language) <> 10 then error(55,1); end
        
        // Sauvegarde du chemin dans lequel l'on se trouve
-       // --------------------------------------------------------------------------------
+       // -------------------------------------------------------------------------
        current_directory = pwd();
        
        dirs = %HELPS(:,1);
        titles = %HELPS(:,2);
        
-       // Parcours des répertoires listés dans %helps
+       // Parcours des r�pertoires list�s dans %helps
        for k=1:size(dirs,'*')
                
-               // Vérification que le whatis.htm existe
+               // V�rification que le whatis.htm existe
                if fileinfo(pathconvert(dirs(k)+"/../"+language+"/whatis.htm",%f,%f)) <> [] then
                        
-                       // Construction du nouveau répertoire
+                       // Construction du nouveau r�pertoire
                        chdir(pathconvert(dirs(k)+"/../"+language,%f,%f));
                        if MSDOS then
                                new_dir = getlongpathname(pwd());
index dd0c5d8..fef96c0 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 change_old_man()
   // Given an old fashion help chapter, this function translate it in an
   // HTML version located in TMPDIR/man<number>/ where <number> is the
index 6eee4e0..27353cf 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 check_help(dirs)
        
        // =========================================================================================
index 1c9f15e..ba0d451 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 clean_help(dirs)
        
        // =========================================================================================
@@ -17,7 +27,7 @@ function clean_help(dirs)
        
        ok = %F;
        
-       // Vérification des paramètres
+       // V�rification des param�tres
        // --------------------------------------------------------------------------------
        [lhs,rhs]=argn(0);
        if rhs > 1 then error(39); end
@@ -30,7 +40,7 @@ function clean_help(dirs)
        // --------------------------------------------------------------------------------
        current_directory = pwd();
        
-       // Cas par défaut : Nettoyage des répertoires cités dans %helps
+       // Cas par d�faut : Nettoyage des r�pertoires cit�s dans %helps
        // --------------------------------------------------------------------------------
        
        if (rhs <= 0) | ((rhs == 1) & (dirs == [])) then
@@ -47,7 +57,7 @@ function clean_help(dirs)
                dirs = dirs_to_clean(:,1);
        end
        
-       // On transforme le ou les chemins donnés en chemin absolu
+       // On transforme le ou les chemins donn�s en chemin absolu
        // --------------------------------------------------------------------------------
        
        for k=1:size(dirs,'*')
@@ -68,7 +78,7 @@ function clean_help(dirs)
                end
        end
 
-       // Nettoyage des répertoires un par un
+       // Nettoyage des r�pertoires un par un
        // --------------------------------------------------------------------------------
 
        mprintf(gettext("-- Deleting "+getlanguage()+" help files --"));
index b0d7cbd..34ffaaa 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 del_help_chapter(help_to_del,modulemode)
        
        // =========================================================================
index ca7ebca..5ebc0f4 100644 (file)
@@ -1,7 +1,13 @@
-// ====================================================================
-// Allan CORNET
-// INRIA 2007
-// ====================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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 del_module_help_chapter(modulename)
   path_removechapter = SCI+"/modules/"+modulename+"/help/"+getlanguage()+'/removechapter.sce';
   if ( fileinfo(path_removechapter) == [] ) then
index f0efb4d..31af04a 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+// 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 extract_help_examples(dirpaths)
 
 // given a vector of strings giving help  chapter paths, or nothinf for
index c364b53..ea832f1 100644 (file)
@@ -1,6 +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
+
 // =============================================================================================
 // find_links
-// Copyright INRIA
 //
 // Private function !!!
 // =============================================================================================
index d96aa05..607a3d2 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 formatman(path,to,dtd)
 [lhs,rhs]=argn(0)
 if rhs<1 then path='./',end
@@ -269,7 +279,6 @@ while k<n
   k=k+1;mk=man(k)
   select mk(1)
   case 'TH' then
-       txt=["<?xml version=""1.0"" encoding=""ISO-8859-1"" standalone=""no""?> ";"<!DOCTYPE MAN SYSTEM """+dtd+""">" ;"<MAN>"];    
        txt=[txt;
        "  <LANGUAGE>eng</LANGUAGE>"  ;
        "  <TITLE>" + mk(2) + "  </TITLE>" ; 
index 37f3753..538c0a1 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 path=gethelpfile(key)
        // copy of gethelpfile contained in help.sci
        global %helps %browsehelp
index 0f4b1d5..855fd03 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 help(key)
        
        //for compatibility with toolboxes making use of old cat files
index 35fa59f..cf1fba9 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 help_menu(i)
        //function associated with the help button in Scilab main window
        browsehelp=browsehelp;// load browsehelp subfunctions
index e53f2c7..848e44c 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 txt=help_skeleton(funname,path,language)
        
        
@@ -54,7 +64,6 @@ function txt=help_skeleton(funname,path,language)
        case 'fr_FR' then
                
                txt=[
-                       "<?xml version=""1.0"" encoding=""ISO-8859-1"" standalone=""no""?>" 
                        "<!DOCTYPE MAN SYSTEM ""file://"+pathconvert(SCI,%f,%f)+"/modules/helptools/help.dtd"">"
                        "<MAN>"
                        "  <LANGUAGE>fr</LANGUAGE>"
@@ -150,7 +159,6 @@ function txt=help_skeleton(funname,path,language)
        else
                
                txt=[
-                       "<?xml version=""1.0"" encoding=""UTF-8""?>" 
                        "<!DOCTYPE MAN SYSTEM ""file://"+pathconvert(SCI,%f,%f)+"/modules/helptools/help.dtd"">"
                        "<MAN>"
                        "  <LANGUAGE>eng</LANGUAGE>"
index af83ccb..f3d0e44 100644 (file)
@@ -1,13 +1,22 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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 DefaultBrowser=loaddefaultbrowser()
-// Allan CORNET
-// INRIA 2005
+
   if MSDOS then
     FileBrowser=SCIHOME+"\Browser.ini";
   else
     FileBrowser=SCIHOME+"/Browser.ini";
   end
   if with_tk() then Default="Scilab Browser",else Default=[],end
-  
+
   [fd,err]=mopen(FileBrowser,"r");
   if (err<0) then //ini file does not exist
     DefaultBrowser=Default
index 02f6209..a5730fd 100644 (file)
@@ -1,7 +1,16 @@
+
+// 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 path=make_help_index()
 //we create a new index file each time to take into account dynamically
 //loaded toolboxes
-// Copyright INRIA  
 
   OSseparator=filesep(); 
   
index fcfa9f4..e65c5c4 100644 (file)
@@ -1,7 +1,16 @@
+
+// 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 manedit(manitem,editor)
        
-       // manitem : character string giving a manitem 
-       // Copyright INRIA
+       // manitem : character string giving a manitem
        
        path=gethelpfile(manitem)
        
index ddab36d..8b76acb 100644 (file)
@@ -1,17 +1,24 @@
-// ====================================================================
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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
+
+
 // update modules help chapters
-// Copyright INRIA 2007
-// Allan CORNET
-// ====================================================================
+
 function update_scilab_help()
-  clearglobal %helps_modules
-  global %helps_modules
-  modules=getmodules();
-  index=size(modules);
-  for i=1:index(1) do 
-         add_module_help_chapter(modules(i));
-  end
-  make_help_index()
-  clear modules index i
+       clearglobal %helps_modules
+       global %helps_modules
+       modules=getmodules();
+       index=size(modules);
+       for i=1:index(1) do 
+               add_module_help_chapter(modules(i));
+       end
+       make_help_index()
+       clear modules index i
 endfunction
-// ====================================================================
index 552465e..a3eaed5 100644 (file)
@@ -1,3 +1,14 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+// Copyright (C) ENPC - Jean-Philippe CHANCELIER
+//
+// 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 ok = xmlfiletohtml(path,xsl,directory_language,default_language)
        
        // =========================================================================================
@@ -8,7 +19,7 @@ function ok = xmlfiletohtml(path,xsl,directory_language,default_language)
        // given a path on a Scilab help xml file (assumed to respect 
        // SCI/helptools/help.dtd) this function generates the corresponding htm
        // file using the wanted xsl file
-       // 
+       //
        // Private function !!!
        // =========================================================================================
        
index e507d32..9a77d84 100644 (file)
@@ -1,3 +1,14 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+// Copyright (C) ENPC - Jean-Philippe CHANCELIER
+//
+// 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 ok = xmlfiletohtml(path,xsl,directory_language,default_language)
        
        // =========================================================================================
index f6af703..c4fdda3 100644 (file)
@@ -1,3 +1,13 @@
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+// 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 xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
        
        // =========================================================================
@@ -69,14 +79,14 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                
                [lhs,rhs] = argn(0);
                
-               // Trop de paramètres
+               // Trop de param�tres
                // ---------------------------------------------------------------------
                
                if rhs > 6 then
                        error(39);
                end
                
-               // Cas par défaut : construction de l'aide en ligne de Scilab
+               // Cas par d�faut : construction de l'aide en ligne de Scilab
                // ---------------------------------------------------------------------
                
                if (rhs <= 0) | ((rhs == 1) & (dirs == [])) then
@@ -113,7 +123,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                        
                        step = "all";
                        
-               // Cas ou seulement le ou les répertoires sont précisés
+               // Cas ou seulement le ou les r�pertoires sont pr�cis�s
                // ---------------------------------------------------------------------
                
                elseif (rhs == 1) & (dirs <> []) then
@@ -136,8 +146,8 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                                end
                        end
                        
-               // Cas ou seulement le ou les répertoires ainsi que le ou les titres
-               // sont précisés
+               // Cas ou seulement le ou les r�pertoires ainsi que le ou les titres
+               // sont pr�cis�s
                // ---------------------------------------------------------------------
                
                elseif rhs == 2 then
@@ -151,7 +161,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                        
                        xsl = pathconvert(SCI+"/modules/helptools/help_"+getlanguage()+".xsl",%f,%f);
        
-               // Cas le ou les répertoires ainsi que le ou les titres sont précisés
+               // Cas le ou les r�pertoires ainsi que le ou les titres sont pr�cis�s
                // ainsi que le fichier xsl
                // ---------------------------------------------------------------------
                
@@ -168,7 +178,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                                xsl = pathconvert(SCI+"/modules/helptools/help_"+getlanguage()+".xsl",%f,%f);
                        end
                        
-               // Cas les répertoires,les titres,le fichier xsl et le step sont précisé
+               // Cas les r�pertoires,les titres,le fichier xsl et le step sont pr�cis�
                // ---------------------------------------------------------------------
                
                elseif rhs == 4 then
@@ -189,8 +199,8 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                                end
                        end
                
-               // Cas les répertoires,les titres,le fichier xsl, le step ainsi que la
-               // langue du répertoire sont précisées
+               // Cas les r�pertoires,les titres,le fichier xsl, le step ainsi que la
+               // langue du r�pertoire sont pr�cis�es
                // ---------------------------------------------------------------------
                
                elseif rhs == 5 then
@@ -211,7 +221,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                                end
                        end
                
-               // Cas où tous est précisée
+               // Cas o� tous est pr�cis�e
                // ---------------------------------------------------------------------
                
                elseif rhs == 6 then
@@ -236,8 +246,8 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                        
                end
                
-               // Gestion du paramètre xsl :
-               // ==> vérification de l'existence du fichier
+               // Gestion du param�tre xsl :
+               // ==> v�rification de l'existence du fichier
                // ---------------------------------------------------------------------
                
                if fileinfo(xsl) == [] then
@@ -260,7 +270,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                end
                chdir(current_directory);
                
-               // On transforme le ou les chemins donnés en chemin absolu
+               // On transforme le ou les chemins donn�s en chemin absolu
                // ---------------------------------------------------------------------
                
                for k=1:size(dirs,'*');
@@ -284,7 +294,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                end
                
                //----------------------------------------------------------------------
-               // On etablit la liste des répertoires nécéssitants d'être reconstruit
+               // On etablit la liste des r�pertoires n�c�ssitants d'�tre reconstruit
                //----------------------------------------------------------------------
                
                need_to_be_build_tab = [];
@@ -302,7 +312,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                        return;
                end
                
-               // Nombre de répertoire ayant besoin d'une modification
+               // Nombre de r�pertoire ayant besoin d'une modification
                // ---------------------------------------------------------------------
                
                nb_dir = size( find(need_to_be_build_tab == %T) , '*' );
@@ -466,7 +476,7 @@ function xmltohtml(dirs,titles,xsl,step,directory_language,default_language)
                end
                
                //----------------------------------------------------------------------
-               // Création du fichier "directory/.last_successful_build"
+               // Cr�ation du fichier "directory/.last_successful_build"
                //----------------------------------------------------------------------
                
                if step == 'all' then
@@ -623,7 +633,7 @@ function gener_index(dirs,titles)
        // use %helps to generate an index file
        //--------------------------------------------------------------------------
        
-       // On ajoute le ou les répertoire
+       // On ajoute le ou les r�pertoire
        
        saved_help = %HELPS;
        
@@ -754,7 +764,7 @@ function gener_contents(dirs1)
        for k=1:size(dirs,'*')
                dirs(k) = pathconvert(dirs(k),%t,%t);
                
-               // Construction du nom du répertoire
+               // Construction du nom du r�pertoire
                w = strsubst(dirs(k),pathconvert(SCI,%t,%t)+"modules/","");
                
                // Ouverture du fichier whatis.htm
@@ -784,7 +794,7 @@ function gener_contents(dirs1)
                end
        end
        
-       // Tri alphanumérique
+       // Tri alphanum�rique
        [sv,sk]     = sort(full_whatis_name);
        full_whatis = full_whatis(sk);
        
@@ -1012,20 +1022,20 @@ function complete_with_df_lang(directory,directory_language,default_language)
        // Copyright INRIA
        // Date : 26, july 2006
        //
-       // Cette macro complète un répertoire dont certaines aides en ligne sont manquantes
-       // Elle le complète avec les aides en ligne de la langue par défaut
+       // Cette macro compl�te un r�pertoire dont certaines aides en ligne sont manquantes
+       // Elle le compl�te avec les aides en ligne de la langue par d�faut
        //
        // macro non-visible de l'utilisateur
        //--------------------------------------------------------------------------
        
-       // Directory traitée
+       // Directory trait�e
        directory = pathconvert(directory,%f,%f);
        
        //--------------------------------------------------------------------------
-       // Nettoyage du répertoire
+       // Nettoyage du r�pertoire
        // Si il existe un fichier .list_<directory_language> (fichier contenant tous les
-       // fichiers traduits dans la langue du répertoire), on supprime dans l'ordre :
-       //   1. Tous les fichiers n'appartenant pas à la liste contenue dans .list_<directory_language>
+       // fichiers traduits dans la langue du r�pertoire), on supprime dans l'ordre :
+       //   1. Tous les fichiers n'appartenant pas � la liste contenue dans .list_<directory_language>
        //   2. Tous les fichiers de la forme .list_<language>
        //--------------------------------------------------------------------------
        
@@ -1036,7 +1046,7 @@ function complete_with_df_lang(directory,directory_language,default_language)
        
        //--------------------------------------------------------------------------
        // Construction du fichier list_<directory_language> contenant la liste des
-       // fichiers traduits dans la langue associée au répertoire
+       // fichiers traduits dans la langue associ�e au r�pertoire
        //--------------------------------------------------------------------------
        
        dir_language_xml_files = basename(listfiles(directory+"/*.xml"));
@@ -1048,23 +1058,23 @@ function complete_with_df_lang(directory,directory_language,default_language)
        
        //--------------------------------------------------------------------------
        // Construction du fichier list_<default_language> contenant la liste des fichiers
-       // non traduits dans la langue associée au répertoire qui seront récupérés depuis le
-       // répertoire de la langue par défaut
+       // non traduits dans la langue associ�e au r�pertoire qui seront r�cup�r�s depuis le
+       // r�pertoire de la langue par d�faut
        //--------------------------------------------------------------------------
        
        // Tous les fichiers contenus dans <directory>/../<default_language> pour commencer
        // On afinnera par la suite
        df_lang_xml_files = basename(listfiles(pathconvert(directory+"/../"+default_language+"/*.xml",%f,%f)));
        
-       // On supprime de "df_lang_xml_files" tous les élément contenus dans
-       // "dir_language_xml_files", c'est à dire tous les fichiers déja traduit dans la langue
-       // associée au répertoire.
+       // On supprime de "df_lang_xml_files" tous les �l�ment contenus dans
+       // "dir_language_xml_files", c'est � dire tous les fichiers d�ja traduit dans la langue
+       // associ�e au r�pertoire.
        
        for i=1:size(dir_language_xml_files,'*');
                df_lang_xml_files(find(df_lang_xml_files==dir_language_xml_files(i)))=[];
        end
        
-       // Création du fichier
+       // Cr�ation du fichier
        if df_lang_xml_files <> [] then
                mputl(df_lang_xml_files,pathconvert(directory+"/.list_"+default_language,%f,%f));
        else
@@ -1091,25 +1101,25 @@ function del_df_lang_xml_files(directory,directory_language)
        // Copyright INRIA
        // Date : 26, july 2006
        //
-       // Cette macro détruit tous les fichiers xml qui ne sont pas traduit dans
-       // la langue associée au répertoire
+       // Cette macro d�truit tous les fichiers xml qui ne sont pas traduit dans
+       // la langue associ�e au r�pertoire
        //
        // macro non-visible de l'utilisateur
        //--------------------------------------------------------------------------
        
-       // Directory traitée
+       // Directory trait�e
        directory = pathconvert(directory,%f,%t);
        
        if listfiles(pathconvert(directory+"/.list_"+directory_language,%f,%f)) <> [] then
                
-               // Récupération de la liste des fichiers xml copiés depuis le répertoire de la langue par défaut
+               // R�cup�ration de la liste des fichiers xml copi�s depuis le r�pertoire de la langue par d�faut
                dir_language_xml_files = mgetl(pathconvert(directory+"/.list_"+directory_language,%f,%f));
                
-               // Liste de tous les fichiers xml contenu dans le répertoire
+               // Liste de tous les fichiers xml contenu dans le r�pertoire
                all_files = basename(listfiles(directory+"/*.xml"));
                
-               // On retire de "all_files" tous les éléments appartenant à "xml_directory_language_files"
-               // Ce sont les aides en ligne traduite dans la langue associée répertoire
+               // On retire de "all_files" tous les �l�ments appartenant � "xml_directory_language_files"
+               // Ce sont les aides en ligne traduite dans la langue associ�e r�pertoire
                for i=1:size(dir_language_xml_files,'*');
                        all_files(find(all_files==dir_language_xml_files(i)))=[];
                end
@@ -1131,33 +1141,33 @@ function result = need_to_be_build(directory,directory_language,default_language
        // Copyright INRIA
        // Date : 27, july 2006
        //
-       // Cette fonction a pour but de déterminer si le répertoire a besoin d'être
+       // Cette fonction a pour but de d�terminer si le r�pertoire a besoin d'�tre
        // reconstruit ou pas.
        //
-       // On détermine la date de dernière modification la plus récente parmi les
-       // dates de dernière modification suivantes :
-       //     -  date de dernière modification du répertoire "directory".
-       //     -  dates de dernière modification des fichiers XML du répertoire "directory".
-       //     -  date de dernière modification du répertoire "directory/../<default_language>"
-       //        si le système de multilinguisme est utilisé
-       //      - dates de dernière modification des fichiers XML du répertoire
-       //        "directory/../<default_language>" si le système de multilinguisme est utilisé
+       // On d�termine la date de derni�re modification la plus r�cente parmi les
+       // dates de derni�re modification suivantes :
+       //     -  date de derni�re modification du r�pertoire "directory".
+       //     -  dates de derni�re modification des fichiers XML du r�pertoire "directory".
+       //     -  date de derni�re modification du r�pertoire "directory/../<default_language>"
+       //        si le syst�me de multilinguisme est utilis�
+       //      - dates de derni�re modification des fichiers XML du r�pertoire
+       //        "directory/../<default_language>" si le syst�me de multilinguisme est utilis�
        //
-       // Ensuite cette valeur est comparée à la valeur contenue dans le fichier
+       // Ensuite cette valeur est compar�e � la valeur contenue dans le fichier
        // "directory/.last_successful_build". Si elle est plus grande,
        // need_to_be_build renvoie %T
        //
-       // Si le fichier "directory/.last_successful_build" n'existe pas, l'aide n'a jamais été
+       // Si le fichier "directory/.last_successful_build" n'existe pas, l'aide n'a jamais �t�
        // construite donc need_to_be_build renvoie %T
        //
        //--------------------------------------------------------------------------
        
        [lhs,rhs]=argn(0);
        
-       // S'il n'y a pas de fichiers XML dans le répertoire ni dans son homologue,
-       // Le répertoire n'a pas besoin d'être construit.
-       // Cela est une sécurité pour éviter de detruire les whatis des versions binaires
-       // où il n'y a pas de fichiers XML
+       // S'il n'y a pas de fichiers XML dans le r�pertoire ni dans son homologue,
+       // Le r�pertoire n'a pas besoin d'�tre construit.
+       // Cela est une s�curit� pour �viter de detruire les whatis des versions binaires
+       // o� il n'y a pas de fichiers XML
        
        xml_file_list    = listfiles(directory+"/*.xml");
        
index 2ff892b..7f1ac8c 100644 (file)
@@ -1,8 +1,17 @@
-// ====================================================================
-// This file contains command to be executed at the end 
+
+// 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
 // of a scilab session for maple2scilab module
-// Copyright INRIA 2006
-// ====================================================================
+// =============================================================================
+
 // delete help chapter
 del_help_chapter('maple2scilab',%T);
-// ====================================================================
index 1214d8a..f71d42a 100644 (file)
@@ -1,10 +1,19 @@
+
+// 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
+
 // ====================================================================
-// maple module initialisation file 
-// Copyright INRIA 2006
+// maple module initialisation file
 // ====================================================================
+
 //Load  functions librarie
 load('SCI/modules/maple2scilab/macros/lib');
-// ====================================================================
+
 //add help chapter
 add_module_help_chapter('maple2scilab');
-// ====================================================================
index ecc5e72..691b5ed 100644 (file)
@@ -1,12 +1,15 @@
-//------------------------------------
-// Allan CORNET
-// Scilab team
-// Copyright INRIA
-// Date : Aout 2006
-//------------------------------------
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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');
 end
-//------------------------------------
+
 genlib('maple2scilablib','SCI/modules/maple2scilab/macros',%f,%t);
-//------------------------------------
index 458f077..2916ec2 100644 (file)
@@ -1,68 +1,84 @@
-function t__=sci2map(a,nom)
-//converts a scilab object to a maple instruction
-//!
-// Copyright INRIA
-[lhs,rhs]=argn(0)
-if rhs<>2 then error('sci2map: 2 input parameters!');end;
 
-t__=[],
-[ft]=format();format(20) // on fixe un format etendu
-  if type(a) <= 10 then
-    [ma,na]=size(a),
-    if ma*na  > 1 then
-      t__(1)=nom+' := array(1.'+'.'+string(ma)+',1.'+'.'+string(na)+');',
-    end,
-  else
-  if type(a)==15|type(a)==16 then ma=size(a), end,
-end,
-//
-//type
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
 //
-select type(a)
-case 1 then //matrice de scalaires
-  t__=[t__ ; str2map(nom,a,ma,na)]
-  //
-case 2  then //matrice a coefficients polynomiaux
-  t__=[t__ ; poly2map(nom,a,ma,na)]
-  //
-case 10 then // matrice de chaines de caracteres
-  for i=1:ma ; 
-    for j=1:na ;
-      a(i,j)= '`' + a(i,j) + '`'
-    end
-  end
-  t__=[t__ ; str2map(nom,a,ma,na)]
-  //
-case 11 then // fct non compilee
-  error('Not yet implemented')
-  //comp(a)
-  //tramac(nom,a,b_2_m)
-  //
-case 13 then // fct compilee
-  //tramac(nom,a,b_2_m)
-  
-  error('Not yet implemented')
-case 15 then //listes
-  a1=a(1);
-  t__=list2map(nom,a,[1:size(a)]),
-case 16 then //listes
-  a1=a(1)
-  select a1(1)
-  case 'r' then //matrice de fractions rationnelles
-    num_=a('num'),den_=a('den'),
-    t__=[t__ ; frac2map(nom,num_,den_)],
-  case 'lss' then // systeme d'etat : passage des matrices
-    t_ind__=[2:size(a)-1],
-    t__=list2map(nom,a,t_ind__),
-  else //autre cas
-    t__=list2map(nom,a,[1:size(a)]),
-  end
-  //
-end //select
-format(ft(2),ft(1)),
-
+// 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 t__=sci2map(a,nom)
+       
+       //converts a scilab object to a maple instruction
+       
+       [lhs,rhs]=argn(0)
+       
+       if rhs<>2 then error("sci2map: 2 input parameters!");end;
+       
+       t__=[];
+       [ft]=format();
+       format(20) // on fixe un format etendu
+       
+       if type(a) <= 10 then
+               [ma,na]=size(a);
+               if ma*na  > 1 then
+                       t__(1)=nom+' := array(1.'+'.'+string(ma)+',1.'+'.'+string(na)+');';
+               end
+       else
+               if type(a)==15|type(a)==16 then
+                       ma=size(a);
+               end
+       end
+       
+       //
+       //type
+       //
+       
+       select type(a)
+       case 1 then //matrice de scalaires
+       t__=[t__ ; str2map(nom,a,ma,na)]
+       //
+       case 2  then //matrice a coefficients polynomiaux
+       t__=[t__ ; poly2map(nom,a,ma,na)]
+       //
+       case 10 then // matrice de chaines de caracteres
+       for i=1:ma ; 
+               for j=1:na ;
+               a(i,j)= '`' + a(i,j) + '`'
+               end
+       end
+       t__=[t__ ; str2map(nom,a,ma,na)]
+       //
+       case 11 then // fct non compilee
+       error('Not yet implemented')
+       //comp(a)
+       //tramac(nom,a,b_2_m)
+       //
+       case 13 then // fct compilee
+       //tramac(nom,a,b_2_m)
+       
+       error('Not yet implemented')
+       case 15 then //listes
+       a1=a(1);
+       t__=list2map(nom,a,[1:size(a)]),
+       case 16 then //listes
+       a1=a(1)
+       select a1(1)
+       case 'r' then //matrice de fractions rationnelles
+               num_=a('num'),den_=a('den'),
+               t__=[t__ ; frac2map(nom,num_,den_)],
+       case 'lss' then // systeme d'etat : passage des matrices
+               t_ind__=[2:size(a)-1],
+               t__=list2map(nom,a,t_ind__),
+       else //autre cas
+               t__=list2map(nom,a,[1:size(a)]),
+       end
+       //
+       end //select
+       format(ft(2),ft(1)),
 endfunction
+
 function [t__]=str2map(nom,a,ma,na)
 //string to maple
 //!
index c5c9044..a11c6a1 100644 (file)
@@ -1,8 +1,17 @@
-// ====================================================================
-// This file contains command to be executed at the end 
+
+// 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
 // of a scilab session for randlib module
-// Copyright INRIA 2006
-// ====================================================================
+// =============================================================================
+
 // delete help chapter
 del_help_chapter('randlib',%T);
-// ====================================================================
index 5516ad3..3e9531a 100644 (file)
@@ -1,10 +1,19 @@
-// ====================================================================
-// ranlib module initialisation file 
-// Copyright INRIA 2006
-// ====================================================================
+
+// 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
+
+// =============================================================================
+// ranlib module initialisation file
+// =============================================================================
+
 //Load  functions librarie
 // load('SCI/modules/randlib/macros/lib');
-// ====================================================================
+
 //add help chapter
 add_module_help_chapter('randlib');
-// ====================================================================
index d0bfdb6..a5b141c 100644 (file)
@@ -1,9 +1,15 @@
-//------------------------------------
-// Allan CORNET INRIA 2005
-//------------------------------------
+
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+//
+// 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');
+       exec(SCI+'/modules/functions/scripts/buildmacros/loadgenlib.sce');
 end
-//------------------------------------
+
 //genlib('randliblib','SCI/modules/randlib/macros',%f,%t);
-//------------------------------------