scilab/modules/m2sci/macros/kernel/mfile_path.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) ???? - INRIA - Scilab
   3 // Copyright (C) 2018 - Samuel GOUGEON
   4 //
   5 // Copyright (C) 2012 - 2016 - Scilab Enterprises
   6 //
   7 // This file is hereby licensed under the terms of the GNU GPL v2.0,
   8 // pursuant to article 5.3.4 of the CeCILL v.2.1.
   9 // This file was originally licensed under the terms of the CeCILL v2.1,
  10 // and continues to be available under such terms.
  11 // For more information, see the COPYING file which you should have received
  12 // along with this program.
  13
  14 function path=mfile_path(nam)
  15     fil = nam+".m";
  16     nf = length(fil)
  17     path = [];
  18     for k=1:size(mfiles,"*")
  19         pk=mfiles(k);
  20         kk=strindex(pk,["/" "\"]);
  21         if kk==[]
  22             kk = 0
  23         end
  24         if fil==part(pk,kk($)+1:length(pk)) then
  25             path=pk;
  26             break
  27         end
  28     end
  29 endfunction