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 write2tex.header
%(not yet)              1   add title or section page (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)
%                       0=manuscript title, 1=section, 2=subsection
%               myFig is a figure handle (for myStep=2)

myText=[]; myLev=[]; myFig=[];
if myStep>0&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;
        tmp1=which('write2tex');
        eval(['!\cp -f ' tmp1(1:end-2) '.header ' myFile ]);
    end;
end;

%open file and go to last line
fid=fopen(myFile,'a+');

%add title or section page (see myLev)

%add a figure plus caption (see myFig)
if myStep==2;
    figure(myFig);
    nn=strfind(myFile,'/');
    if ~isempty(nn);
        dirTex=myFile(1:nn); fileTex=myFile(nn+1:end-4);
    else;
        dirTex='./'; fileTex=myFile(1:end-4)
    end;
    %print the very figure
    print(myFig,'-depsc',[dirTex fileTex '.fig' num2str(myFig)]);
    %add figure to text file
    fprintf(fid,'\\clearpage \n');
    fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
%     fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
    fprintf(fid,'\\includegraphics[width=\\textwidth]');
    fprintf(fid,['{' fileTex '.fig' num2str(myFig) '}\n']);
    fprintf(fid,'\\caption{');
    for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
    fprintf(fid,'} \\end{figure} \n');
    fprintf(fid,'\\clearpage \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);

%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			% 0 create file starting with write2tex.header
6			%(not yet) 1 add title or section page (see myLev)
7			% 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			% 0=manuscript title, 1=section, 2=subsection
15			% myFig is a figure handle (for myStep=2)
16
17			myText=[]; myLev=[]; myFig=[];
18			if myStep>0&myStep<4; myText=varargin{1}; end;
19			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			tmp1=which('write2tex');
35			eval(['!\cp -f ' tmp1(1:end-2) '.header ' myFile ]);
36			end;
37			end;
38
39			%open file and go to last line
40			fid=fopen(myFile,'a+');
41
42			%add title or section page (see myLev)
43
44			%add a figure plus caption (see myFig)
45			if myStep==2;
46			figure(myFig);
47			nn=strfind(myFile,'/');
48			if ~isempty(nn);
49			dirTex=myFile(1:nn); fileTex=myFile(nn+1:end-4);
50			else;
51			dirTex='./'; fileTex=myFile(1:end-4)
52			end;
53			%print the very figure
54			print(myFig,'-depsc',[dirTex fileTex '.fig' num2str(myFig)]);
55			%add figure to text file
56			fprintf(fid,'\\clearpage \n');
57			fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
58			% fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
59			fprintf(fid,'\\includegraphics[width=\\textwidth]');
60			fprintf(fid,['{' fileTex '.fig' num2str(myFig) '}\n']);
61			fprintf(fid,'\\caption{');
62			for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
63			fprintf(fid,'} \\end{figure} \n');
64			fprintf(fid,'\\clearpage \n\n');
65			end;
66
67			%add a paragraph
68			if myStep==3;
69			for ii=1:length(myText);
70			fprintf(fid,[myText{ii} '\n']);
71			end;
72			end;
73
74			%finish file
75			if myStep==4; fprintf(fid,'\n\n \\end{document} \n\n'); end;
76
77			%close file
78			fprintf(fid,'\n\n');
79			fclose(fid);
80
81			%compile
82			if myStep==5\|myStep==-5;
83			dirOrig=pwd;
84			nn=strfind(myFile,'/');
85			if ~isempty(nn);
86			cd(myFile(1:nn)); fileTex=myFile(nn+1:end-4);
87			else;
88			fileTex=myFile(1:end-4);
89			end;
90			eval(['!latex ' fileTex]);
91			eval(['!latex ' fileTex]);
92			eval(['!dvipdf ' fileTex]);
93			cd(dirOrig);
94			end;
95
96
97			%compile
98			if myStep==5;
99			dirOrig=pwd;
100			nn=strfind(myFile,'/');
101			if ~isempty(nn);
102			cd(myFile(1:nn)); fileTex=myFile(nn+1:end-4);
103			else;
104			fileTex=myFile(1:end-4);
105			end;
106			eval(['!\rm -f ' fileTex '.fig*']);
107			eval(['!\rm -f ' fileTex '.aux']);
108			eval(['!\rm -f ' fileTex '.log']);
109			eval(['!\rm -f ' fileTex '.out']);
110			eval(['!\rm -f ' fileTex '.dvi']);
111			cd(dirOrig);
112			end;