| ' makecode(tok,1) ' | '];
[f0,f1] = regexp(posttok,'^ *[:-] *');
if ~isempty(f0)
posttok = posttok(f1+1:end);
end
s = [s '' findmakecode(posttok)];
else % continuation of description
s = [s htmlspace findmakecode(u)];
end
elseif (tab || tabstate) ...
&& ~examplestate && ~startspace && ~tabstartspace % arbitrary table
if ~tabstate % start table
if liston, s = [s '']; liston = false; end
s = [s ' ']; % new paragraph
s = [s ' | ' makecode(tok,1) ' | '];
% get rid of :
[f0,f1] = regexp(posttok,'^ *: *');
if ~isempty(f0)
posttok = posttok(f1+1:end);
end
colpos0 = findstr(cleanstr(posttok),r); % store starting pos 2nd cell
% second cell
s = [s ''];
[tok2,posttok2] = strtok(posttok);
if strcmp(tok2,'-') % possible start of list
s = [s '- ' findmakecode(posttok2)];
liston = true;
else
s = [s findmakecode(posttok)];
liston = false;
end
cellopen = true;
elseif startspace && tab && ~textstate
if liston, s = [s '
']; liston = 0; end
s = [s htmlspace findmakecode(u)];
elseif description && single
s = endtable(s,tab);
s = [s ' Description' newline];
state = 'text';
elseif reference && single
s = endtable(s,tab);
s = [s ' Reference(s)' newline];
nref = 0;
state = 'reference';
elseif example && single
s = endtable(s,tab);
s = [s ' Example(s)' newline];
state = 'examp';
% elseif seealso && single
% s = endtable(s,tab);
% s = [s ' See also' newline];
% state = 'seealso';
elseif seealso
s = endtable(s,tab);
s = [s ' See also' newline];
state = 'seealso';
if ~single
s = [s commandrefs(posttok,recreate)];
end
else % undefined lines
if examplestate
if length(u) > 3 && strcmpi(u(1:4),'see ')
s = [s ' ' commandrefs(u(5:end),recreate) ''];
else
s = [s strrep(code(strrep(r,' ','#$!'),0,3),'#$!',' ') '
'];
% s = [s code(r) '
'];
end
elseif refstate
if abs(u(1)>=48) && abs(u(1)<=57) && nref > 0
s = [s '
' u];
else
s = [s htmlspace u];
nref = 1;
end
elseif seealsostate
if listline
s = [s '' findmakecode(u(3:end)) '
'];
else
s = [s commandrefs(u,recreate)];
end
elseif tabstartspace && tabstate && (colpos1 > colpos0) ...
&& (previous_empty || coding) % start code in table
s = [s strrep(code(strrep(r(colpos0:end),' ','#$!'),0,3),'#$!',' ') '
'];
coding = true;
elseif startspace && ~tabstate && ~liston ...
&& (previous_empty || coding) % code line
s = [s strrep(code(strrep(r,' ','#$!'),2,3),'#$!',' ') '
'];
nextlinespace = '';
coding = true;
elseif listline
if ~liston
s = [s ' | ' newline]; % end table
end
function s = commandrefs(r,recreate)
if nargin < 2, recreate = 0; end
s = [];
r_debug = r;
while ~isempty(r) && isempty(regexp(r,'^[ .,]*$', 'once' ))
[tok,r] = strtok(r,' .,');
tok = lower(tok);
htmlname = [tok '.html'];
file = which(tok);
pp = fileparts(file);
[qq,subdir] = fileparts(pp);
htmlname = fullfile(subdir,htmlname);
if exist(htmlname,'file') == 2
s = [s '' tok ', '];
elseif isempty(tok) || ~isempty(regexp(tok,'^ *', 'once' ))
;
elseif recreate
tt = prhelp2html(tok); % don't iterate further!
if ~isempty(tt)
s = [s '' tok ', '];
else
% disp([r_debug ' --> ' tok ])
s = [s tok ', '];
end
else
s = [s tok ', '];
end
end
if ~isempty(s)
% s(end-1:end) = [];
s = code(s,0,3);
end
s = strrep(s,'\','/'); % avoid \ in html addresses
return
function s = htmlspace(n)
if nargin < 1, n=1; end
if n > 0
s = repmat(' ',1,n);
else
s = [];
end
return
function s = findmakecode(r)
% find pieces of code (capitals only) and convert them to lower Courier
r = strrep(r,'. A ','. aA '); % prevent conversion of A at the start of a sentence
r = [' ' r ' ']; % ending space may be helpful
r = strrep(r,'NaN',code('NaN'));
[f0,f1] = regexp(r,'[ ,(\[]+[A-Z0123456789=<>(){},.''''*+\\/;:\[\]_ ]+[ .,-]');
%[f0,f1,toks] = regexp(r,'[ ,(]+[A-Z0123456789=<>(){},*+\\/;:\[\]_ ]+[ .,-]');
if ~isempty(f0)
if f0(1) > 1 % first part no code
s = r(1:f0(1)-1);
else
s = [];
end
for j=1:length(f0) % all code parts
s = [s makecode(r(f0(j):f1(j)))];
if j < length(f0) % between code parts
s = [s r(f1(j)+1:f0(j+1)-1)];
end
end
if f1(end) < length(r) % last part no code
s = [s r(f1(end)+1:end)];
end
else
s = r;
end
if s(end) == ' ', s(end) = []; end % remove ending space
s = strrep(s,'. aA ','. A '); % convert prevention back
function s = closecell(s)
if strcmp(s(end-7:end),char([60 47 112 62 10 60 112 62]))
s(end-7:end) = [];
elseif strcmp(s(end-6:end),char([60 47 112 62 60 112 62]))
s(end-7:end) = [];
end
s = [s ' |
'];
%LISTN List lines specified by their line number
%
% t = listn(r,n)
% Get the lines in r given by the line numbers in n.
function t = listn(r,n)
k = [0,find(r==newline)];
t = [];
for j = n
if j < length(k)
t = [t,r(k(j)+1:k(j+1))];
end
end
return
function run_all_files(command)
dirs = {'ldc','dataset','datafile','mapping'};
for n=1:length(dirs)
prtools_dir = fileparts(which(dirs{n}));
[qq,prtools_dirname] = fileparts(prtools_dir); % get rid of root
ff = dirnames(prtools_dir);
for j=1:length(ff)
[qq,name] = fileparts(ff{j});
if n==1
feval(command,name); % prtools main commands
else
feval(command,fullfile(prtools_dirname,name)); % subdir commands
end
end
end
function files = dirnames(direct)
% get all m-files in dir
allnames = dir(fullfile(direct,'*.m'));
files = char(allnames(:).name);
files(strmatch('Contents.m',files),:) = [];
files(strmatch('Readme.m',files),:) = [];
files = cellstr(files);
function s = gethf(file)
%GETHF Create heading file from m-file
%
% s = gethf(file)
%
% The heading of the given m-file consisting of all starting % lines
% is isolated and returned in s.
%
% gethf(dir)
%
% All headings of the files in dir are merged into a file named headings.doc.
% Default dir is cd.
%
% Use mergeprt for restoring
if nargin == 0
gethf(cd);
end
if isdir(file)
files = dir(file);
docfile = ['headings.doc'];
m = size(files,1);
for i = 1:m
if (~files(i,:).isdir) & (files(i,:).name(end-1:end) == '.m')
name = files(i,:).name;
s = gethf(name);
s = ['##1' name(1:end-2) newline s newline '##2' newline];
%disp(s)
appendf(docfile,s);
end
end
else
%disp(file)
[s,ns] = readf(file);
p = grep(s,'%');
if isempty(p) % no comments found
s = [];
return
end
p = [p p(end)+10]; % trick
I = find(p - [0,p(1:length(p)-1)] ~= 1);
if p(1) == 1 & isempty(I), I = length(p) + 1; end
% if length(I) > 0 & I(1) > 1
if length(I) > 0
if I(1) == 1
I(1) = [];
end
n = I(1) - 1;
s = listn(s,p(1):n+p(1)-1);
s = strrep(s,[newline '%'],newline);
%s = strrep(s,[newline ' '],newline);
%s = strrep(s,[newline newline],'&*&');
%s = strrep(s,[newline ' '],'*&* ');
%s = strrep(s,newline,' ');
%s = strrep(s,'&*&',[newline newline]);
%s = strrep(s,'*&*',newline);
s = s(2:end);
else
s = '';
end
end
function [r,n] = readf(file,newline)
%READF Readfile
%
% [r,n] = readf(file,newline)
% Reads file into string r. The number of lines
% is returned in n.
if nargin < 2, newline = 13; end
fid = fopen(deblank(file),'r');
if fid < 0
error(['Cann''t open ' file])
end
r = fscanf(fid,'%c');
fclose(fid);
n = length(find(r==newline));
if r(length(r)) ~= newline, n = n + 1; end
return
function writf(file,r)
%WRITF Write file
%
% writf(file,r)
% Write file from string r
fid = fopen(file,'w');
if fid < 0
error(['Cannot open file ' file])
end
fprintf(fid,'%c',r);
fclose(fid);
return
function [k,z] = grep(r,s)
%GREP Get line specific lines
%
% [k,n] = grep(r,s)
% Get the numbers of all lines in the set of lines r
% that contain s.
% n is the total number of lines.
n = [0,find(r==newline)];
m = findstr(r,s);
[i,j] = sort([n,m]);;
q = [0,j(1:length(j)-1)]-j;
k = j(find(q>0))-1;
z = length(n)-1; % # of lines
return
function t = content_manual
t = ['