Changeset 29 for prextra/prcontent2html.m

Timestamp:

03/31/12 18:05:01 (13 years ago)

Author:

bduin

Message:

 

File:

• prextra/prcontent2html.m (modified) (5 diffs)

prextra/prcontent2html.m

@@ -1 +1 @@
 %PRCONTENT2HTML Construct HTML file from PRTools Contents file
 %
-%               PRCONTENT2HTML(NAME,RECREATE)
-
-
-function out = prcontent2html(name,recreate)
-
-if nargin < 2, recreate = 0; end
+%               PRCONTENT2HTML(NAME,RECREATE,HTMLDIR)
+
+
+function out = prcontent2html(name,recreate,htmldir)
+
+if nargin < 3, htmldir = cd; end
+if nargin < 2 | isempty(recreate), recreate = 0; end
 
 if exist([name '/Contents.m']) == 2
@@ -63 +64 @@
                 pp = fileparts(file);
                 [pp2,subdir] = fileparts(pp);
-                s = [s '<tr> <td width="100" valign="top">' commandrefs(tok,recreate,subdir) '</td>'];
+                s = [s '<tr> <td width="100" valign="top">' commandrefs(tok,recreate,subdir,htmldir) '</td>'];
                 s = [s '<td>' posttok '</td></tr>'];
         end
@@ -69 +70 @@
 s = [s '</table>'];
 s = [s '</p></body></html>'];
-writf([name '.html'],s);
+writf([fullfile(htmldir,name) '.html'],s);
 if nargout > 0
         out = s;
@@ -130 +131 @@
 return
 
-function s = commandrefs(r,recreate,subdir)
+function s = commandrefs(r,recreate,subdir,htmldir)
         if nargin < 2, recreate = 0; end
         if regexp(r,'^ *$')
@@ -143 +144 @@
         end
         
-        if exist(htmlname,'file') == 2
+        if exist(fullfile(htmldir,htmlname),'file') == 2
                 s = [s '<a href="' htmlname '">' tok '</a>, '];
         elseif isempty(tok) | regexp(tok,'^ *')