summaryrefslogtreecommitdiffstats
path: root/scilab/modules/data_structures/macros/struct.sci
diff options
context:
space:
mode:
authorBruno Jofret <bruno.jofret@scilab.org>2008-02-16 14:47:49 +0000
committerBruno Jofret <bruno.jofret@scilab.org>2008-02-16 14:47:49 +0000
commit8e68d8e77cb3a62a15363b286ea863665423213e (patch)
tree21595e3166f9e269a1eb214a1d5b0e4ce440bd2d /scilab/modules/data_structures/macros/struct.sci
parent8fb15035f9b1cf916258e4faeb7bd2ddd50ea16c (diff)
downloadscilab-8e68d8e77cb3a62a15363b286ea863665423213e.zip
scilab-8e68d8e77cb3a62a15363b286ea863665423213e.tar.gz
Massive License Update
Diffstat (limited to 'scilab/modules/data_structures/macros/struct.sci')
-rw-r--r--scilab/modules/data_structures/macros/struct.sci14
1 files changed, 11 insertions, 3 deletions
diff --git a/scilab/modules/data_structures/macros/struct.sci b/scilab/modules/data_structures/macros/struct.sci
index ab50138..191a69a 100644
--- a/scilab/modules/data_structures/macros/struct.sci
+++ b/scilab/modules/data_structures/macros/struct.sci
@@ -1,7 +1,15 @@
1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2// Copyright (C) ????-2008 - INRIA - Vincent COUVERT
3//
4// This file must be used under the terms of the CeCILL.
5// This source file is licensed as described in the file COPYING, which
6// you should have received as part of this distribution. The terms
7// are also available at
8// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10
1function s=struct(varargin) 11function s=struct(varargin)
2// Copyright INRIA
3// Equivalent for Matlab struct function 12// Equivalent for Matlab struct function
4// Author: V. Couvert
5 13
6rhs=argn(2) 14rhs=argn(2)
7 15
@@ -11,7 +19,7 @@ if rhs==0 then
11 // No Matlab equivalent 19 // No Matlab equivalent
12 s=mlist(fields,int32([0,0])) 20 s=mlist(fields,int32([0,0]))
13 return 21 return
14end 22end
15 23
16if floor(rhs/2)*2<>rhs then 24if floor(rhs/2)*2<>rhs then
17 error("Wrong number of inputs"); 25 error("Wrong number of inputs");