ATOMS: cosmetic
[scilab.git] / scilab / modules / atoms / macros / atoms_internals / atomsPath.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 // Internal function
11
12 // Add an URL to the list of repositories, and returns
13
14 function path = atomsPath(whataction,section)
15         
16         path = [];
17         
18         // Check number of input arguments
19         // =========================================================================
20         rhs = argn(2);
21         
22         if rhs <> 2 then
23                 error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"atomsPath",2));
24         end
25         
26         // Check input argument type
27         // =========================================================================
28         
29         if type(whataction) <> 10 then
30                 error(msprintf(gettext("%s: Wrong type for input argument #%d: Single String expected.\n"),"atomsPath",1));
31         end
32         
33         if type(section) <> 10 then
34                 error(msprintf(gettext("%s: Wrong type for input argument #%d: Single String expected.\n"),"atomsPath",2));
35         end
36         
37         // Check input argument value
38         // =========================================================================
39         
40         if and(whataction<>["system","install"]) then
41                 error(msprintf(gettext("%s: Wrong value for input argument #%d: ''system'' or ''install'' expected.\n"),"atomsPath",1));
42         end
43         
44         if and(section<>["all","allusers","user","session"]) then
45                 error(msprintf(gettext("%s: Wrong value for input argument #%d: ''all'',''allusers'',''user'' or ''session'' expected.\n"),"atomsPath",2));
46         end
47         
48         // Check input argument value
49         // =========================================================================
50         
51         if (whataction=="system") then
52                 
53                 if or( section == ["all","allusers"]) then
54                         path = [ path ; pathconvert(SCI+"/.atoms") ];
55                 end
56                 
57                 if or( section == ["all","user"]) then
58                         path = [ path ; pathconvert(SCIHOME+"/.atoms") ];
59                 end
60                 
61                 if or( section == ["session"]) then
62                         path = [ path ; pathconvert(TMPDIR+"/.atoms") ];
63                 end
64                 
65         elseif (whataction=="install") then
66                 
67                 if or( section == ["all","allusers"]) then
68                         path = [ path ; pathconvert(SCI+"/contrib") ];
69                 end
70                 
71                 if or( section == ["all","user"]) then
72                         path = [ path ; pathconvert(SCIHOME+"/atoms") ];
73                 end
74                 
75         end
76         
77 endfunction