Homec4science
Diffusion iCAPs public (master) Browse

iCAPs/packages/spm12/config/spm_make_manual.m
31022b3a13e6master

Last Change
Raw File

spm_make_manual.m
View Options

function spm_make_manual(c)
% Convert a job configuration tree into a series of LaTeX documents
%__________________________________________________________________________
% Copyright (C) 2005-2017 Wellcome Trust Centre for Neuroimaging
% John Ashburner
% $Id: spm_make_manual.m 7019 2017-02-16 10:49:48Z guillaume $
if ~nargin, c = spm_cfg; end
if nargin && ischar(c), clean_latex_compile; return; end
cd(fullfile(spm('Dir'),'man'));
fp = fopen('spm_manual.tex','w');
fprintf(fp,'\\documentclass[a4paper,titlepage]{book}\n');
fprintf(fp,'\\usepackage{epsfig,amsmath,pifont,moreverb,minitoc}\n');
fprintf(fp,'%s\n%s\n%s\n%s\n%s\n%s\n%s\n',...
'\usepackage[colorlinks=true,',...
'pdfpagemode=UseOutlines,',...
'pdftitle={SPM Manual},','pdfauthor={The SPM Team},',...
'pdfsubject={Statistical Parametric Mapping},',...
'pdfkeywords={neuroimaging, MRI, PET, EEG, MEG, SPM}',...
']{hyperref}');
fprintf(fp,'\\pagestyle{headings}\n\\bibliographystyle{plain}\n\n');
fprintf(fp,'\\hoffset=15mm\n\\voffset=-5mm\n');
fprintf(fp,'\\oddsidemargin=0mm\n\\evensidemargin=0mm\n\\topmargin=0mm\n');
fprintf(fp,'\\headheight=12pt\n\\headsep=10mm\n\\textheight=240mm\n\\textwidth=148mm\n');
fprintf(fp,'\\marginparsep=5mm\n\\marginparwidth=21mm\n\\footskip=10mm\n\n');
fprintf(fp,'\\title{\\huge{SPM Manual}}\n');
fprintf(fp,'\\author{The FIL Methods Group (and honorary members)}\n');
fprintf(fp,'\\begin{document}\n');
fprintf(fp,'\\maketitle\n');
fprintf(fp,'\\dominitoc\\tableofcontents\n\n');
fprintf(fp,'\\newpage\n\\section*{The SPM User Interface}\n');
write_help(c,fp);
for i=1:numel(c.values)
% this is always false, and each cfg_item has a tag
%if isfield(c.values{i},'tag')
part(c.values{i},fp);
%end
end
%fprintf(fp,'\\parskip=0mm\n\\bibliography{methods_macros,methods_group,external}\n\\end{document}\n\n');
fprintf(fp,'\\parskip=0mm\n');
bibcstr = get_bib(fullfile(spm('dir'),'man','biblio'));
tbxlist = dir(fullfile(spm('dir'),'toolbox'));
for k = 1:numel(tbxlist)
if tbxlist(k).isdir
bibcstr=[bibcstr(:); get_bib(fullfile(spm('dir'),'toolbox', ...
tbxlist(k).name))];
end
end
bibcstr = strcat(bibcstr,',');
bibstr = strcat(bibcstr{:});
fprintf(fp,'\\bibliography{%s}\n',bibstr(1:end-1));
fprintf(fp,'\\end{document}\n\n');
fclose(fp);
%==========================================================================
function part(c,fp)
% this is always false, and each cfg_item has a tag
%if isstruct(c) && isfield(c,'tag')
fprintf(fp,'\\part{%s}\n',texify(c.name));
% write_help(c,fp);
if isa(c,'cfg_repeat')||isa(c,'cfg_choice')||isa(c,'cfg_menu')
for i=1:numel(c.values)
%if isfield(c.values{i},'tag')
fprintf(fp,'\\include{%s}\n',c.values{i}.tag);
chapter(c.values{i});
%end
end
end
%if isfield(c,'val')
for i=1:numel(c.val)
if isfield(c.val{i},'tag')
if chapter(c.val{i})
fprintf(fp,'\\include{%s}\n',c.val{i}.tag);
end
end
end
%end
%end
%==========================================================================
function sts = chapter(c)
bn = c.tag;
if strcmp(bn,'preproc') && ~isempty(strfind(c.help{1},'M/EEG'))
bn = ['MEEG_' bn]; % fix for name clash with other 'preproc'
end
fp = fopen([bn '.tex'],'w');
if fp==-1, sts = false; return; end
fprintf(fp,'\\chapter{%s \\label{Chap:%s}}\n\\minitoc\n\n\\vskip 1.5cm\n\n',texify(c.name),c.tag);
write_help(c,fp);
switch class(c)
case {'cfg_branch','cfg_exbranch'}
for i=1:numel(c.val)
section(c.val{i},fp);
end
case {'cfg_repeat','cfg_choice'}
for i=1:numel(c.values)
section(c.values{i},fp);
end
end
fclose(fp);
sts = true;
%==========================================================================
function section(c,fp,lev)
if nargin<3, lev = 1; end
sec = {'section','subsection','subsubsection','paragraph','subparagraph','textbf','textsc','textsl','textit'};
if lev<=length(sec)
fprintf(fp,'\n\\%s{%s}\n',sec{lev},texify(c.name));
write_help(c,fp);
switch class(c)
case {'cfg_branch','cfg_exbranch'}
for i=1:numel(c.val)
if strcmp(c.name,'Inverse') && strcmp(c.val{i}.name,'Composition')
% Remove recursion in Util > Deformations
continue;
end
section(c.val{i},fp,lev+1);
end
case {'cfg_repeat','cfg_choice'}
for i=1:numel(c.values)
if strcmp(c.name,'Composition') && strcmp(c.values{i}.name,'Composition')
% Remove recursion in Util > Deformations
continue;
end
section(c.values{i},fp,lev+1);
end
end
else
warning(['Too many nested levels... ' c.name]);
end
%==========================================================================
function write_help(hlp,fp)
if isa(hlp, 'cfg_item')
if ~isempty(hlp.help)
hlp = hlp.help;
else
return;
end
end
if iscell(hlp)
for i=1:numel(hlp)
write_help(hlp{i},fp);
end
return;
end
str = texify(hlp);
fprintf(fp,'%s\n\n',str);
%==========================================================================
function str = texify(str0)
st1 = strfind(str0,'/*');
en1 = strfind(str0,'*/');
st = [];
en = [];
for i=1:numel(st1)
en1 = en1(en1>st1(i));
if ~isempty(en1)
st = [st st1(i)];
en = [en en1(1)];
en1 = en1(2:end);
end
end
str = '';
pen = 1;
for i=1:numel(st)
str = [str clean_latex(str0(pen:st(i)-1)) str0(st(i)+2:en(i)-1)];
pen = en(i)+2;
end
str = [str clean_latex(str0(pen:numel(str0)))];
%==========================================================================
function str = clean_latex(str)
str = strrep(str,'$','\$');
str = strrep(str,'&','\&');
str = strrep(str,'^','\^');
str = strrep(str,'_','\_');
str = strrep(str,'#','\#');
%str = strrep(str,'\','$\\$');
str = strrep(str,'|','$|$');
str = strrep(str,'>','$>$');
str = strrep(str,'<','$<$');
%==========================================================================
function bibcstr = get_bib(bibdir)
biblist = dir(fullfile(bibdir,'*.bib'));
bibcstr = {};
for k = 1:numel(biblist)
n = spm_file(biblist(k).name,'basename');
bibcstr{k} = fullfile(bibdir,n);
end
%==========================================================================
function clean_latex_compile
p = fullfile(spm('Dir'),'man');
[f, d] = spm_select('FPlist',p,'.*\.aux$');
f = strvcat(f, spm_select('FPlist',p,'.*\.tex$'));
f = strvcat(f, spm_select('FPlist',p,'^manual\..*$'));
f(strcmp(cellstr(f),fullfile(spm('Dir'),'man','manual.tex')),:) = [];
f(strcmp(cellstr(f),fullfile(spm('Dir'),'man','manual.pdf')),:) = [];
for i=1:size(d,1)
f = strvcat(f, spm_select('FPlist',deblank(d(i,:)),'.*\.aux$'));
end
f(strcmp(cellstr(f),filesep),:) = [];
disp(f); pause
for i=1:size(f,1)
spm_unlink(deblank(f(i,:)));
end
c4science · Help