matlab_class/gcmfaces_misc/write2tex.m

function []=write2tex(myFile,myStep,varargin);
%object:        create/increment/complete/compile a tex file from within matlab
%input:         myFile is the file name
%               myStep is the operation to perform on the tex file
%                       0   create file starting with title page (see myText)
%                       1   add section or subsection (see myLev)
%                       2   add a figure plus caption (see myFig)
%                       3   add a paragraph
%                       4   finish file
%                       5   compile (latex x 2 then dvipdf)
%                       6   remove temporary files (incl. *fig*.ps)
%optional       myText is a cell array of text lines (for myStep=1 to 2)
%               myLev is the title level (for myStep=1)
%                       1=section, 2=subsection (not yet implemented)
%               myFig is a figure handle (for myStep=2)

if isempty(myFile);
    %if no file name, then do nothing
    return; 
end;
if iscell(myFile);
    %extecute alternative command (myFile{1}) passing rest as arguments  
    eval([myFile{1} '(myFile{2:end});']); 
    return; 
end;


myText=[]; myLev=[]; myFig=[]; myRdm=[];
if myStep<4; myText=varargin{1}; end;
if myStep==0; myRdm=varargin{2};
elseif myStep==1; myLev=varargin{2};
elseif myStep==2; myFig=varargin{2};
end;

%create file starting with write2tex.header
if myStep==0;
    test0=dir(myFile);
    if ~isempty(test0);
        test0=input(['you are about to overwrite ' myFile ' !!! \n   type 1 to proceed, 0 to stop \n']);
    else;
        test0=1;
    end;
    if ~test0;
        return;
    else;
        fid=fopen(myFile,'w');

        fprintf(fid,'\\documentclass[12pt]{beamer}\n');
        fprintf(fid,'%%a nice series of examples for the beamer class:\n');
        fprintf(fid,'%%http://www.informatik.uni-freiburg.de/~frank/ENG/beamer/example/beamer-class-example-en-5.html\n');
        fprintf(fid,'\\usepackage{multicol}\n');

        fprintf(fid,'\n');
        fprintf(fid,'\\newcommand\\Fontvi{\\fontsize{6}{7.2}\\selectfont}\n');
        fprintf(fid,'\n');

        fprintf(fid,'\\begin{document} \n\n');

        fprintf(fid,'\\title{\n');
        for ii=1:length(myText); fprintf(fid,[myText{ii} '\\\\ \n']); end;
        fprintf(fid,'}\n\n');
        fprintf(fid,'\\date{\\today}\n\n');
        fprintf(fid,'\\frame{\\titlepage}\n\n');

        fprintf(fid,'\\frame{\n');
        fprintf(fid,'\\frametitle{Table of contents}\n');
        fprintf(fid,'\\begin{multicols}{2}\n');
        fprintf(fid,'\\Fontvi\n');
        fprintf(fid,'\\tableofcontents\n');
        fprintf(fid,'\\end{multicols}\n');
        fprintf(fid,'} \n\n');

        if ~isempty(myRdm);
          fprintf(fid,'\\frame{\n');
          fprintf(fid,'\\section{README}\n');
          fprintf(fid,'\\Fontvi\n');
          for pp=1:length(myRdm);
            fprintf(fid,[myRdm{pp} '\n\n']);
          end;
          fprintf(fid,'} \n\n');
        end;

        fclose(fid);
    end;
    myFigNumTex=0;
    mySection='';
    eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
end;

%open file and go to last line
fid=fopen(myFile,'a+');
eval(['load ' myFile(1:end-4) '.mat;']);

%add title or section page (see myLev)
if myStep==1;
    mySection=myText;
    if myLev==1; fprintf(fid,'\\section{\n');
    else; fprintf(fid,'\\subsection{\n');
    end;
    fprintf(fid,mySection);
    fprintf(fid,'} \n\n');
end;

%add a figure plus caption (see myFig)
if myStep==2;
    figure(myFig);
    drawnow;
    myFigNumTex=myFigNumTex+1;
    nn=strfind(myFile,filesep);
    if ~isempty(nn);
        dirTex=myFile(1:nn(end)); fileTex=myFile(nn(end)+1:end-4);
    else;
        dirTex='./'; fileTex=myFile(1:end-4)
    end;
    %print the very figure
    print(myFig,'-depsc',[dirTex fileTex '.fig' num2str(myFigNumTex)]);
    close;
    %add figure to text file
    fprintf(fid,'\\frame{ \n');
    fprintf(fid,['\\frametitle{' mySection '} \n']);
    fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
%     fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
    fprintf(fid,'\\includegraphics[width=0.75\\textwidth]');
    fprintf(fid,['{' fileTex '.fig' num2str(myFigNumTex) '}\n']);
    fprintf(fid,'\\caption{');
    for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
    fprintf(fid,'} \\end{figure} \n');
    fprintf(fid,'} \n\n');
end;

%add a paragraph
if myStep==3;
    for ii=1:length(myText);
        fprintf(fid,[myText{ii} '\n']);
    end;
end;

%finish file
if myStep==4; fprintf(fid,'\n\n \\end{document} \n\n'); end;

%close file
fprintf(fid,'\n\n');
fclose(fid);
eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);

%compile
if myStep==5;
    dirOrig=pwd;
    nn=strfind(myFile,filesep);
    if ~isempty(nn);
        cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);
    else;
        fileTex=myFile(1:end-4);
    end;
    system(['latex ' fileTex]);
    system(['latex ' fileTex]);
    system(['dvipdf ' fileTex]);
    cd(dirOrig);
end;


%compile
if myStep==6&ispc;
    fprintf('warning : compiling tex to pdf is bypassed on PCs\n');
end;

if myStep==6&~ispc;
    dirOrig=pwd;
    nn=strfind(myFile,filesep);
    if ~isempty(nn);
        cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);
    else;
        fileTex=myFile(1:end-4);
    end;
    delete([fileTex '.fig*']);
    delete([fileTex '.aux']);
    delete([fileTex '.log']);
    delete([fileTex '.out']);
    delete([fileTex '.dvi']);
    cd(dirOrig);
end;
1	gforget	1.1	function []=write2tex(myFile,myStep,varargin);
2			%object: create/increment/complete/compile a tex file from within matlab
3			%input: myFile is the file name
4			% myStep is the operation to perform on the tex file
5	gforget	1.3	% 0 create file starting with title page (see myText)
6			% 1 add section or subsection (see myLev)
7	gforget	1.1	% 2 add a figure plus caption (see myFig)
8			% 3 add a paragraph
9			% 4 finish file
10	gforget	1.6	% 5 compile (latex x 2 then dvipdf)
11			% 6 remove temporary files (incl. fig.ps)
12	gforget	1.1	%optional myText is a cell array of text lines (for myStep=1 to 2)
13			% myLev is the title level (for myStep=1)
14	gforget	1.3	% 1=section, 2=subsection (not yet implemented)
15	gforget	1.1	% myFig is a figure handle (for myStep=2)
16
17	gforget	1.4	if isempty(myFile);
18			%if no file name, then do nothing
19			return;
20			end;
21			if iscell(myFile);
22			%extecute alternative command (myFile{1}) passing rest as arguments
23			eval([myFile{1} '(myFile{2:end});']);
24			return;
25			end;
26
27
28	gforget	1.8	myText=[]; myLev=[]; myFig=[]; myRdm=[];
29	gforget	1.3	if myStep<4; myText=varargin{1}; end;
30	gforget	1.8	if myStep==0; myRdm=varargin{2};
31			elseif myStep==1; myLev=varargin{2};
32	gforget	1.1	elseif myStep==2; myFig=varargin{2};
33			end;
34
35			%create file starting with write2tex.header
36			if myStep==0;
37			test0=dir(myFile);
38			if ~isempty(test0);
39			test0=input(['you are about to overwrite ' myFile ' !!! \n type 1 to proceed, 0 to stop \n']);
40			else;
41			test0=1;
42			end;
43			if ~test0;
44			return;
45			else;
46	gforget	1.3	fid=fopen(myFile,'w');
47
48			fprintf(fid,'\\documentclass[12pt]{beamer}\n');
49			fprintf(fid,'%%a nice series of examples for the beamer class:\n');
50			fprintf(fid,'%%http://www.informatik.uni-freiburg.de/~frank/ENG/beamer/example/beamer-class-example-en-5.html\n');
51	gforget	1.8	fprintf(fid,'\\usepackage{multicol}\n');
52
53			fprintf(fid,'\n');
54			fprintf(fid,'\\newcommand\\Fontvi{\\fontsize{6}{7.2}\\selectfont}\n');
55			fprintf(fid,'\n');
56
57	gforget	1.3	fprintf(fid,'\\begin{document} \n\n');
58
59			fprintf(fid,'\\title{\n');
60			for ii=1:length(myText); fprintf(fid,[myText{ii} '\\\\ \n']); end;
61			fprintf(fid,'}\n\n');
62			fprintf(fid,'\\date{\\today}\n\n');
63			fprintf(fid,'\\frame{\\titlepage}\n\n');
64
65	gforget	1.8	fprintf(fid,'\\frame{\n');
66			fprintf(fid,'\\frametitle{Table of contents}\n');
67			fprintf(fid,'\\begin{multicols}{2}\n');
68			fprintf(fid,'\\Fontvi\n');
69			fprintf(fid,'\\tableofcontents\n');
70			fprintf(fid,'\\end{multicols}\n');
71	gforget	1.3	fprintf(fid,'} \n\n');
72
73	gforget	1.8	if ~isempty(myRdm);
74			fprintf(fid,'\\frame{\n');
75			fprintf(fid,'\\section{README}\n');
76			fprintf(fid,'\\Fontvi\n');
77			for pp=1:length(myRdm);
78			fprintf(fid,[myRdm{pp} '\n\n']);
79			end;
80			fprintf(fid,'} \n\n');
81			end;
82
83	gforget	1.3	fclose(fid);
84	gforget	1.1	end;
85	gforget	1.2	myFigNumTex=0;
86	gforget	1.3	mySection='';
87			eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
88	gforget	1.1	end;
89
90			%open file and go to last line
91			fid=fopen(myFile,'a+');
92	gforget	1.3	eval(['load ' myFile(1:end-4) '.mat;']);
93	gforget	1.1
94			%add title or section page (see myLev)
95	gforget	1.3	if myStep==1;
96			mySection=myText;
97	gforget	1.5	if myLev==1; fprintf(fid,'\\section{\n');
98			else; fprintf(fid,'\\subsection{\n');
99			end;
100	gforget	1.3	fprintf(fid,mySection);
101			fprintf(fid,'} \n\n');
102			end;
103	gforget	1.1
104			%add a figure plus caption (see myFig)
105			if myStep==2;
106			figure(myFig);
107	gforget	1.2	drawnow;
108			myFigNumTex=myFigNumTex+1;
109	gforget	1.9	nn=strfind(myFile,filesep);
110	gforget	1.1	if ~isempty(nn);
111	gforget	1.2	dirTex=myFile(1:nn(end)); fileTex=myFile(nn(end)+1:end-4);
112	gforget	1.1	else;
113			dirTex='./'; fileTex=myFile(1:end-4)
114			end;
115			%print the very figure
116	gforget	1.2	print(myFig,'-depsc',[dirTex fileTex '.fig' num2str(myFigNumTex)]);
117			close;
118	gforget	1.1	%add figure to text file
119	gforget	1.2	fprintf(fid,'\\frame{ \n');
120	gforget	1.3	fprintf(fid,['\\frametitle{' mySection '} \n']);
121	gforget	1.1	fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
122			% fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
123	gforget	1.3	fprintf(fid,'\\includegraphics[width=0.75\\textwidth]');
124	gforget	1.2	fprintf(fid,['{' fileTex '.fig' num2str(myFigNumTex) '}\n']);
125	gforget	1.1	fprintf(fid,'\\caption{');
126			for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
127			fprintf(fid,'} \\end{figure} \n');
128	gforget	1.2	fprintf(fid,'} \n\n');
129	gforget	1.1	end;
130
131			%add a paragraph
132			if myStep==3;
133			for ii=1:length(myText);
134			fprintf(fid,[myText{ii} '\n']);
135			end;
136			end;
137
138			%finish file
139			if myStep==4; fprintf(fid,'\n\n \\end{document} \n\n'); end;
140
141			%close file
142			fprintf(fid,'\n\n');
143			fclose(fid);
144	gforget	1.3	eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
145	gforget	1.1
146			%compile
147	gforget	1.6	if myStep==5;
148	gforget	1.1	dirOrig=pwd;
149	gforget	1.9	nn=strfind(myFile,filesep);
150	gforget	1.1	if ~isempty(nn);
151	gforget	1.6	cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);
152	gforget	1.1	else;
153			fileTex=myFile(1:end-4);
154			end;
155	gforget	1.9	system(['latex ' fileTex]);
156			system(['latex ' fileTex]);
157			system(['dvipdf ' fileTex]);
158	gforget	1.1	cd(dirOrig);
159			end;
160
161
162			%compile
163	gforget	1.9	if myStep==6&ispc;
164			fprintf('warning : compiling tex to pdf is bypassed on PCs\n');
165			end;
166
167			if myStep==6&~ispc;
168	gforget	1.1	dirOrig=pwd;
169	gforget	1.9	nn=strfind(myFile,filesep);
170	gforget	1.1	if ~isempty(nn);
171	gforget	1.6	cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);
172	gforget	1.1	else;
173			fileTex=myFile(1:end-4);
174			end;
175	gforget	1.9	delete([fileTex '.fig*']);
176			delete([fileTex '.aux']);
177			delete([fileTex '.log']);
178			delete([fileTex '.out']);
179			delete([fileTex '.dvi']);
180	gforget	1.1	cd(dirOrig);
181			end;