X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?p=CreaPhase.git;a=blobdiff_plain;f=octave_packages%2Fmissing-functions-1.0.2%2F__missingmatlab2txt__.m;fp=octave_packages%2Fmissing-functions-1.0.2%2F__missingmatlab2txt__.m;h=795ff11afe0235f51e49cff9e49a825e471184cb;hp=0000000000000000000000000000000000000000;hb=c880e8788dfc484bf23ce13fa2787f2c6bca4863;hpb=1705066eceaaea976f010f669ce8e972f3734b05
diff --git a/octave_packages/missing-functions-1.0.2/__missingmatlab2txt__.m b/octave_packages/missing-functions-1.0.2/__missingmatlab2txt__.m
new file mode 100644
index 0000000..795ff11
--- /dev/null
+++ b/octave_packages/missing-functions-1.0.2/__missingmatlab2txt__.m
@@ -0,0 +1,96 @@
+## Copyright (C) 2008 Bill Denney
+##
+## This software is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or (at
+## your option) any later version.
+##
+## This software is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this software; see the file COPYING. If not, see
+## .
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} __missingmatlab2txt__ (@var{funlist}, @var{funloc}, @var{funstat}, @var{catlist}, @var{catloc}, @var{catlvl}, @var{outformat})
+## Convert the function and category information into text. The
+## @var{outformat} can be one of "wiki" or "html".
+## @end deftypefn
+
+function output = __missingmatlab2txt__ (funlist, funloc, funstat, catlist, catloc, catlvl, outformat = "wiki")
+
+ ## this will be to keep track of what we are currently looking at,
+ ## functions will be considered at category level 99.
+ funlvl = 99;
+ statstr = {"Not Checked" "Missing" "Present"};
+
+ allloc = [catloc(:);funloc(:)];
+ [alloc, sidx] = sort (allloc);
+ allname = [catlist(:);funlist(:)](sidx);
+ allstat = [zeros(numel(catlist), 1);funstat(:)](sidx);
+ alllvl = [catlvl(:);funlvl*ones(numel(funlist), 1)](sidx);
+
+ switch lower (outformat)
+ case "wiki"
+ output = __towiki__ (alllvl, allname, allstat, funlvl, statstr);
+ case "html"
+ output = __tohtml__ (alllvl, allname, allstat, funlvl, statstr);
+ otherwise
+ error ("missingmatlab2txt: invalid outformat (%s)", outformat);
+ endswitch
+
+endfunction
+
+function output = __towiki__ (alllvl, allname, allstat, funlvl, statstr)
+
+ output = cell (size (allname));
+ for i = 1:numel (alllvl)
+ if (alllvl(i) == funlvl)
+ output{i} = sprintf ("||%s||%s||\n", allname{i}, statstr{allstat(i)+2});
+ else
+ hstring = char ("="*ones (1, alllvl(i)));
+ output{i} = sprintf ("\n%s%s%s\n", hstring, allname{i}, hstring)
+ endif
+ endfor
+
+endfunction
+
+function output = __tohtml__ (alllvl, allname, allstat, funlvl, statstr)
+
+ output = cell (size (allname));
+
+ lastwasfun = false ();
+ idx = 1;
+ output{idx} = "Matlab Functions Missing from Octave\n";
+
+ for i = 1:numel (alllvl)
+ if (alllvl(i) == funlvl)
+ if (! lastwasfun)
+ output{++idx} = "