- rename end-user functions => prefix them with "atoms"
[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 //
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 // If a toolbox is registered, return %t and its path ; %f else
11
12 function [reg,path] = with_toolbox(name)
13   if argn(2) == 1 then
14   reg = %f
15   path = ""
16   
17   tboxes = getToolboxes()
18   for i=1:size(tboxes, 1)
19     if tboxes(i,1) == name then
20           reg = %t
21           path = tboxes(i,2)
22           return
23         end
24   end   
25   else
26     error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"with_toolbox",1))
27   end
28
29 endfunction