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 and remove temporary files (incl. *fig*.ps)
%                       -5  compile solely
%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)

myText=[]; myLev=[]; myFig=[];
if myStep<4; myText=varargin{1}; end;
if 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,'\\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{');
        fprintf(fid,'\\frametitle{Table of contents}');
        fprintf(fid,'\\tableofcontents');
        fprintf(fid,'} \n\n');

        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;
    fprintf(fid,'\\section{\n');
    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,'/');
    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|myStep==-5;
    dirOrig=pwd;
    nn=strfind(myFile,'/');
    if ~isempty(nn);
        cd(myFile(1:nn)); fileTex=myFile(nn+1:end-4);
    else;
        fileTex=myFile(1:end-4);
    end;
    eval(['!latex ' fileTex]);
    eval(['!latex ' fileTex]);
    eval(['!dvipdf ' fileTex]);
    cd(dirOrig);
end;


%compile
if myStep==5;
    dirOrig=pwd;
    nn=strfind(myFile,'/');
    if ~isempty(nn);
        cd(myFile(1:nn)); fileTex=myFile(nn+1:end-4);
    else;
        fileTex=myFile(1:end-4);
    end;
    eval(['!\rm -f ' fileTex '.fig*']);
    eval(['!\rm -f ' fileTex '.aux']);
    eval(['!\rm -f ' fileTex '.log']);
    eval(['!\rm -f ' fileTex '.out']);
    eval(['!\rm -f ' 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			% 5 compile and remove temporary files (incl. fig.ps)
11			% -5 compile solely
12			%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			myText=[]; myLev=[]; myFig=[];
18	gforget	1.3	if myStep<4; myText=varargin{1}; end;
19	gforget	1.1	if myStep==1; myLev=varargin{2};
20			elseif myStep==2; myFig=varargin{2};
21			end;
22
23			%create file starting with write2tex.header
24			if myStep==0;
25			test0=dir(myFile);
26			if ~isempty(test0);
27			test0=input(['you are about to overwrite ' myFile ' !!! \n type 1 to proceed, 0 to stop \n']);
28			else;
29			test0=1;
30			end;
31			if ~test0;
32			return;
33			else;
34	gforget	1.3	fid=fopen(myFile,'w');
35
36			fprintf(fid,'\\documentclass[12pt]{beamer}\n');
37			fprintf(fid,'%%a nice series of examples for the beamer class:\n');
38			fprintf(fid,'%%http://www.informatik.uni-freiburg.de/~frank/ENG/beamer/example/beamer-class-example-en-5.html\n');
39			fprintf(fid,'\\begin{document} \n\n');
40
41			fprintf(fid,'\\title{\n');
42			for ii=1:length(myText); fprintf(fid,[myText{ii} '\\\\ \n']); end;
43			fprintf(fid,'}\n\n');
44			fprintf(fid,'\\date{\\today}\n\n');
45			fprintf(fid,'\\frame{\\titlepage}\n\n');
46
47			fprintf(fid,'\\frame{');
48			fprintf(fid,'\\frametitle{Table of contents}');
49			fprintf(fid,'\\tableofcontents');
50			fprintf(fid,'} \n\n');
51
52			fclose(fid);
53	gforget	1.1	end;
54	gforget	1.2	myFigNumTex=0;
55	gforget	1.3	mySection='';
56			eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
57	gforget	1.1	end;
58
59			%open file and go to last line
60			fid=fopen(myFile,'a+');
61	gforget	1.3	eval(['load ' myFile(1:end-4) '.mat;']);
62	gforget	1.1
63			%add title or section page (see myLev)
64	gforget	1.3	if myStep==1;
65			mySection=myText;
66			fprintf(fid,'\\section{\n');
67			fprintf(fid,mySection);
68			fprintf(fid,'} \n\n');
69			end;
70	gforget	1.1
71			%add a figure plus caption (see myFig)
72			if myStep==2;
73			figure(myFig);
74	gforget	1.2	drawnow;
75			myFigNumTex=myFigNumTex+1;
76	gforget	1.1	nn=strfind(myFile,'/');
77			if ~isempty(nn);
78	gforget	1.2	dirTex=myFile(1:nn(end)); fileTex=myFile(nn(end)+1:end-4);
79	gforget	1.1	else;
80			dirTex='./'; fileTex=myFile(1:end-4)
81			end;
82			%print the very figure
83	gforget	1.2	print(myFig,'-depsc',[dirTex fileTex '.fig' num2str(myFigNumTex)]);
84			close;
85	gforget	1.1	%add figure to text file
86	gforget	1.2	fprintf(fid,'\\frame{ \n');
87	gforget	1.3	fprintf(fid,['\\frametitle{' mySection '} \n']);
88	gforget	1.1	fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
89			% fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
90	gforget	1.3	fprintf(fid,'\\includegraphics[width=0.75\\textwidth]');
91	gforget	1.2	fprintf(fid,['{' fileTex '.fig' num2str(myFigNumTex) '}\n']);
92	gforget	1.1	fprintf(fid,'\\caption{');
93			for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
94			fprintf(fid,'} \\end{figure} \n');
95	gforget	1.2	fprintf(fid,'} \n\n');
96	gforget	1.1	end;
97
98			%add a paragraph
99			if myStep==3;
100			for ii=1:length(myText);
101			fprintf(fid,[myText{ii} '\n']);
102			end;
103			end;
104
105			%finish file
106			if myStep==4; fprintf(fid,'\n\n \\end{document} \n\n'); end;
107
108			%close file
109			fprintf(fid,'\n\n');
110			fclose(fid);
111	gforget	1.3	eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
112	gforget	1.1
113			%compile
114			if myStep==5\|myStep==-5;
115			dirOrig=pwd;
116			nn=strfind(myFile,'/');
117			if ~isempty(nn);
118			cd(myFile(1:nn)); fileTex=myFile(nn+1:end-4);
119			else;
120			fileTex=myFile(1:end-4);
121			end;
122			eval(['!latex ' fileTex]);
123			eval(['!latex ' fileTex]);
124			eval(['!dvipdf ' fileTex]);
125			cd(dirOrig);
126			end;
127
128
129			%compile
130			if myStep==5;
131			dirOrig=pwd;
132			nn=strfind(myFile,'/');
133			if ~isempty(nn);
134			cd(myFile(1:nn)); fileTex=myFile(nn+1:end-4);
135			else;
136			fileTex=myFile(1:end-4);
137			end;
138			eval(['!\rm -f ' fileTex '.fig*']);
139			eval(['!\rm -f ' fileTex '.aux']);
140			eval(['!\rm -f ' fileTex '.log']);
141			eval(['!\rm -f ' fileTex '.out']);
142			eval(['!\rm -f ' fileTex '.dvi']);
143			cd(dirOrig);
144			end;