Atoms 0.2
[scilab.git] / scilab / modules / atoms / macros / atomsRepositories.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 // Add an URL to the list of repositories, and returns
11
12 function repositories = atomsRepositories(level)
13         
14         rhs           = argn(2);
15         repositories  = [];
16         
17         official_repositories = pathconvert(SCI+"/modules/atoms/etc/repositories",%F);
18         allusers_repositories = pathconvert(SCI+"/.atoms/repositories",%F);
19         user_repositories     = pathconvert(SCIHOME+"/atoms/repositories",%F);
20         
21         // official repositories
22         // =========================================================================
23         
24         if (rhs == 0) | ((rhs == 1) & (level == "official")) then
25                 if fileinfo(official_repositories) <> [] then
26                         repositories = [ repositories ; mgetl(official_repositories) ];
27                 end
28         end
29         
30         // All users repositories
31         // =========================================================================
32         
33         if (rhs == 0) | ((rhs == 1) & (level == "allusers")) then
34                 if fileinfo(allusers_repositories) <> [] then
35                         repositories = [ repositories ; mgetl(allusers_repositories) ];
36                 end
37         end
38         
39         // User repositories
40         // =========================================================================
41         
42         if (rhs == 0) | ((rhs == 1) & (level == "user")) then
43                 if fileinfo(user_repositories) <> [] then
44                         repositories = [ repositories ; mgetl(user_repositories) ];
45                 end
46         end
47         
48 endfunction