scilab/modules/elementary_functions/macros/%b_gsort.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 //
   3 // Copyright (C) 2019 - Samuel GOUGEON
   4 //
   5 // This file is hereby licensed under the terms of the GNU GPL v2.0,
   6 // pursuant to article 5.3.4 of the CeCILL v.2.1.
   7 // This file was originally licensed under the terms of the CeCILL v2.1,
   8 // and continues to be available under such terms.
   9 // For more information, see the COPYING file which you should have received
  10 // along with this program.
  11
  12 function varargout = %b_gsort(varargin)
  13     // Boolean hypermatrices are completely processed in %hm_gsort
  14
  15     b = iconvert(varargin(1), 1);
  16     if argn(1)==1 then
  17         b = gsort(b, varargin(2:$))==int8(1);
  18         varargout = list(b);
  19     else
  20         [b, k] = gsort(b, varargin(2:$));
  21         b = (b == int8(1));
  22         varargout = list(b, k);
  23     end
  24 endfunction