scilab/modules/atoms/macros/atoms_internals/atomsToolboxDetails.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 // Return the mlist associated with the wanted toolbox
  11
  12 function details = atomsToolboxDetails(name,version)
  13
  14         rhs = argn(2);
  15
  16         // Check number of input arguments
  17         // =========================================================================
  18
  19         if rhs < 1 | rhs > 3 then
  20                 error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"atomsToolboxDetails",2,3));
  21         end
  22
  23         // Check input parameters type
  24         // =========================================================================
  25
  26         if type(name) <> 10 then
  27                 error(msprintf(gettext("%s: Wrong type for input argument #%d: A single string expected.\n"),"atomsToolboxDetails",1));
  28         end
  29
  30         if type(version)<>10  then
  31                 error(msprintf(gettext("%s: Wrong type for input argument #%d: A single string expected.\n"),"atomsToolboxDetails",2));
  32         end
  33
  34         // Check input parameters dimensions
  35         // =========================================================================
  36
  37         if size(name,"*") <> 1 then
  38                 error(msprintf(gettext("%s: Wrong size for input argument #%d: A single string expected.\n"),"atomsToolboxDetails",1));
  39         end
  40
  41         if size(version,"*")<>1  then
  42                 error(msprintf(gettext("%s: Wrong size for input argument #%d: A single string expected.\n"),"atomsToolboxDetails",2));
  43         end
  44
  45         // Get the list of installed packages
  46         // =========================================================================
  47         packages = atomsGetTOOLBOXES();
  48
  49         if ~ isfield(packages,name) then
  50                 error(msprintf(gettext("%s: the package %s doesn''t exist.\n"),"atomsToolboxDetails",name));
  51         end
  52
  53         package_versions = packages(name);
  54         details          = package_versions(version);
  55
  56 endfunction