Update of the license file + header updated
Sylvestre Ledru [Tue, 30 Sep 2008 09:33:28 +0000 (09:33 +0000)]
49 files changed:
scilab/modules/overloading/license.txt
scilab/modules/overloading/macros/%3d_i_h.sci
scilab/modules/overloading/macros/%b_i_h.sci
scilab/modules/overloading/macros/%b_i_st.sci
scilab/modules/overloading/macros/%b_matrix.sci
scilab/modules/overloading/macros/%c_a_c.sci
scilab/modules/overloading/macros/%c_i_h.sci
scilab/modules/overloading/macros/%c_i_st.sci
scilab/modules/overloading/macros/%c_matrix.sci
scilab/modules/overloading/macros/%c_mclose.sci
scilab/modules/overloading/macros/%c_n_l.sci
scilab/modules/overloading/macros/%c_ones.sci
scilab/modules/overloading/macros/%cblock_c_cblock.sci
scilab/modules/overloading/macros/%cblock_c_s.sci
scilab/modules/overloading/macros/%cblock_e.sci
scilab/modules/overloading/macros/%cblock_f_cblock.sci
scilab/modules/overloading/macros/%cblock_p.sci
scilab/modules/overloading/macros/%cblock_size.sci
scilab/modules/overloading/macros/%ce_c_ce.sci
scilab/modules/overloading/macros/%ce_e.sci
scilab/modules/overloading/macros/%ce_i_st.sci
scilab/modules/overloading/macros/%ce_matrix.sci
scilab/modules/overloading/macros/%ce_p.sci
scilab/modules/overloading/macros/%ce_size.sci
scilab/modules/overloading/macros/%ce_string.sci
scilab/modules/overloading/macros/%champdat_i_h.sci
scilab/modules/overloading/macros/%choose.sci
scilab/modules/overloading/macros/%dir_p.sci
scilab/modules/overloading/macros/%fptr_i_st.sci
scilab/modules/overloading/macros/%grayplot_i_h.sci
scilab/modules/overloading/macros/%h_i_st.sci
scilab/modules/overloading/macros/%hm_1_hm.sci
scilab/modules/overloading/macros/%hm_2_hm.sci
scilab/modules/overloading/macros/%hm_5.sci
scilab/modules/overloading/macros/%hm_i_r.sci
scilab/modules/overloading/macros/%hm_matrix.sci
scilab/modules/overloading/macros/%hm_maxi.sci
scilab/modules/overloading/macros/%hm_mean.sci
scilab/modules/overloading/macros/%hm_median.sci
scilab/modules/overloading/macros/%hm_mini.sci
scilab/modules/overloading/macros/%hm_n_hm.sci
scilab/modules/overloading/macros/%hm_n_s.sci
scilab/modules/overloading/macros/%hm_o_hm.sci
scilab/modules/overloading/macros/%hm_o_i.sci
scilab/modules/overloading/macros/%hm_prod.sci
scilab/modules/overloading/macros/%hm_string.sci
scilab/modules/overloading/macros/%hm_sum.sci
scilab/modules/overloading/macros/%r_i_hm.sci
scilab/modules/overloading/macros/%xlssheet_e.sci

index 5aaa4cb..56ca891 100644 (file)
@@ -1,3 +1,13 @@
-licence file
+Copyright:
+Copyright (c) 2008 - DIGITEO
+Copyright (c) 1989-2008 - INRIA
+Copyright (c) 1989-2007 - ENPC
+Copyright (c) Bruno Pincon
+
+License:
+This module must be used under the terms of the CeCILL.
+This module 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
\ No newline at end of file
index 49f6597..ce13966 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 h=%3d_i_h(i,v,h)
  if type(i)==10 then
     set(h,i,v)
index 94adac2..15d176f 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 h=%b_i_h(i,v,h)
   h=generic_i_h(i,v,h)
 endfunction
index 4c47caf..744d906 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 out=%b_i_st(i,in,out)
   out=generic_i_st(i,in,out)
 endfunction
index 57498ce..a22f6b8 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 y=%b_matrix(a,varargin)
   y=%hm_matrix(a,varargin(:))
 endfunction
index 491e206..d42d489 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%c_a_c(a,b)
 if size(b,'*')==1 then
   b=b(ones(a))
index 11f2977..c88ada1 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 h=%c_i_h(i,v,h)
   h=generic_i_h(i,v,h)
 endfunction
index bb3e77c..331b855 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 out=%c_i_st(i,in,out)
   out=generic_i_st(i,in,out)
 endfunction
index 74ddcb2..55ac8fe 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 a=%c_matrix(a,varargin)
   y=%hm_matrix(a,varargin(:))
 endfunction
index acd958b..b88e9ab 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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_mclose(str)
 if convstr(str)=='all' then
   file('close',file())
index 7ef6f35..946f0ca 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%c_n_l(l1,l2)
 //%c_n_l(l1,l2)  : l1==l2 
 //!
index d3b1df5..30fc54c 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 x=%c_ones(a)
 // Copyright INRIA
index 76cf981..5f1e8b7 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 a=%cblock_c_cblock(a,b)
   na=length(a)
   if na==1 then a=b,return,end
index 13951fa..b0512d9 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 a=%cblock_c_s(a,b)
   if b==[] then return,end
    v=getfield($,a)
index 756d353..347e572 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 y=%cblock_e(varargin)
   x=varargin($)
   dims=[];
index 1d3d56d..0f1b25f 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 a=%cblock_f_cblock(a,b)
   if length(a)==1 then a=b,return,end
   if length(b)==1 then return,end
index c468ba6..239be89 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 %cblock_p(m)
   n=size(definedfields(m),'*')
   txt=[];
index 1335f5e..6fa3d10 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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,n]=%cblock_size(M)
   n=size(definedfields(M),'*')-1;
   m=size(getfield(2,M),1);
index 4a4370b..6dc4639 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%ce_c_ce(a,b)
 da=a.dims;if size(da,'*')<2 then da(2)=1,end
 db=b.dims;if size(db,'*')<2 then db(2)=1,end
index e8156c7..f5b0b33 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 s=%ce_e(varargin)
 //extraction from struct
   w=varargin($);
index 1671e37..3cb80c5 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 out=%ce_i_st(i,in,out)
   out=generic_i_st(i,in,out)
 endfunction
index fa2faa1..84f15e2 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%ce_matrix(m,varargin)
   dims=m.dims
   new=[]
index 62e9bde..7d6fc26 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 %ce_p(c)
 disp(%ce_string(c))
 endfunction
index 345ce70..589bb23 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 varargout=%ce_size(M,job)
 // returns dimensions of a cell
 [lhs,rhs]=argn(0)
index e6c4ff2..b16c4cc 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 str=%ce_string(c)
 str=[];
 ll=lines()
index c891d9a..50fca50 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 h=%champdat_i_h(i,v,h)
 if type(i)==10 then
   set(h,i,v)
index ac8e5a3..e2f0515 100644 (file)
@@ -1,3 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 [flag]=%choose(x)
 // Utility function for use with schur
 //     [U,dim]=schur(A,choose) returns orth. basis
index c7e1bda..41f1ffc 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 %dir_p(L)
   ll= lines();ll=max(ll(1),20)
   name=L.name;
index 442165c..95cf2ac 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 out=%fptr_i_st(i,in,out)
   out=generic_i_st(i,in,out)
 endfunction
index 0f4090d..1b332c9 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 h=%grayplot_i_h(i,v,h)
 if type(i)==10 then
   set(h,i,v)
index edc66e5..cb2bf68 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 out=%h_i_st(i,in,out)
   out=generic_i_st(i,in,out)
 endfunction
index 4c10119..22d69ec 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 M1=%hm_1_hm(M1,M2)
   if and(M1.dims==M2.dims)==%f then
     error('< : arguments have incompatible dimensions')
index 87fbdb3..3144098 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 M1=%hm_2_hm(M1,M2)
   if and(M1.dims==M2.dims)==%f then
     error('> : arguments have incompatible dimensions')
index a8c5dec..ee2f775 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%hm_5(M)
   M.entries=~(M.entries)
 endfunction
index 5a25515..ecb9cad 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 N=%r_i_hm(varargin)
   //author Serge Steer INRIA
   M=varargin($);
index 0c30ce2..2c3986e 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 a=%hm_matrix(a,varargin)
   dims=size(a);nd=size(dims,'*')
   if size(varargin)==1 then
index 9418dee..06b9121 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 [x,k]=%hm_maxi(varargin)
   n=size(varargin)
   if n==1 then
index 74de4ef..f37ab4e 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 x=%hm_mean(m,d)
 if argn(2)==1 then
   x=mean(m.entries)
index e1259eb..d9dc768 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 x=%hm_median(m,d)
 if argn(2)==1 then
   x=median(m.entries)
index fc61fdd..2383db1 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 [x,k]=%hm_mini(varargin)
   n=size(varargin)
   if n==1 then
index b3b0980..dcf8235 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%hm_n_hm(a,b)
 r=and(a.dims==b.dims)
 if r then
index 329868b..ef3e45e 100644 (file)
@@ -1,5 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%hm_n_s(M,s)
-// Copyright INRIA
 //M<>s
 if size(s,'*')<> 1 then
   M=%t;return
index 2954857..a19aa25 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%hm_o_hm(a,b)
 r=and(a.dims==b.dims)
 if r then
index a8904b6..334d182 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%hm_o_i(M,s)
 // Copyright INRIA
 //M==s
index 0146a33..2575992 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 x=%hm_prod(m,d)
   if argn(2)==1 then
index b7f1f94..3e62805 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 a=%hm_string(a)
   a.entries=string(a.entries)
 endfunction
index af8e102..ee4b378 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 x=%hm_sum(m,d)
   if argn(2)==1 then
index e2465c4..bd2896a 100644 (file)
@@ -1,3 +1,11 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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 N=%r_i_hm(varargin)
   //author Serge Steer INRIA
   M=varargin($);
index b76c4f6..e9248bf 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 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=%xlssheet_e(varargin)
   //extract a subsheet out of an xls sheet
   s=varargin($)