0f3f5ef6ee9b5cf9481cf3224c98e360c89f46df
[scilab.git] / scilab / modules / atoms / macros / atomsGetInstalled.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2009 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
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 // End user function
11
12 // Return a 4xn string matrix :
13 // 
14 // !toolbox2          0.1  user     /home/pmarecha/.Scilab/scilab-branch-atoms/atoms/contrib/toolbox2/0.1  A  !
15 // !                                                                                                          !
16 // !toolbox2          0.2  user     /home/pmarecha/.Scilab/scilab-branch-atoms/atoms/contrib/toolbox2/0.2  A  !
17 // !                                                                                                          !
18 // !toolbox_skeleton  1.3  alluser  /home/pmarecha/work/atoms/scilab/contrib/toolbox_skeleton/1.3          I  !
19
20 function packages = atomsGetInstalled(allusers)
21         
22         rhs      = argn(2);
23         packages = [];
24         
25         // Check number of input arguments
26         // =========================================================================
27         
28         if rhs > 1 then
29                 error(msprintf(gettext("%s: Wrong number of input argument: at most %d expected.\n"),"atomsGetInstalled",1));
30         end
31         
32         // Load all packages, or just user packages ?
33         // =========================================================================
34         
35         if rhs == 0 then
36                 allusers = %T;
37         else
38                 // Just check if it's a boolean
39                 if type(allusers) <> 4 then
40                         error(msprintf(gettext("%s: Wrong type for input argument #%d: A boolean expected.\n"),"atomsGetInstalled",1));
41                 end
42         end
43         
44         // Call atomsLoadInstalledMat
45         // =========================================================================
46         
47         if allusers then
48                 // all packages
49                 packages = atomsLoadInstalledMat("all");
50         else
51                 // user packages
52                 packages = atomsLoadInstalledMat(%F);
53         end
54         
55 endfunction