Atoms 0.2
[scilab.git] / scilab / modules / atoms / macros / atomsIsLoaded.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) 2008 - INRIA - Simon LIPP <simon.lipp@inria.fr>
3 // Copyright (C) 2009 - DIGITEO - Sylvestre LEDRU <sylvestre.ledru@scilab.org>
4 // Copyright (C) 2009 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
5 //
6 // This file must be used under the terms of the CeCILL.
7 // This source file is licensed as described in the file COPYING, which
8 // you should have received as part of this distribution.  The terms
9 // are also available at
10 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11
12 // End user function
13
14 // If a toolbox is registered, return %t and its path ; %f else
15
16 function [reg,path] = atomsIsLoaded(name)
17   if argn(2) == 1 then
18   reg = %f
19   path = ""
20   
21   tboxes = atomsGetLoaded()
22   for i=1:size(tboxes, 1)
23     if tboxes(i,1) == name then
24           reg = %t
25           path = tboxes(i,2)
26           return
27         end
28   end   
29   else
30     error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"atomsIsLoaded",1))
31   end
32
33 endfunction