Avi Gozolchiani אבי גוזולצני

 1: % purpose : save a figure in png,eps, and fig formats
 2: % syntax : savefigs(filename,readme_text,data_str)
 3: % filename - file name without any suffix (savefigs does not check this, so
 4: % if you mistakenly set filename="stam.fig", the output files will 
 5: % be stam.fig.fig, stam.fig.eps, stam.fig.png)
 6: % readme_text - a string that describes the figure, and the data.
 7: % data_str - a data structure that contains all needed info in
 8: % order to reconstruct the figure
 9: % 
10: % see also: print, hgsave
11: 
12: 
13: % Copyright 2013 Avi Gozolchiani (http://tiny.cc/avigoz)
14: % This program is free software: you can redistribute it and/or modify
15: % it under the terms of the GNU General Public License as published by
16: % the Free Software Foundation, either version 3 of the License, or
17: % (at your option) any later version.
18: %
19: % This program is distributed in the hope that it will be useful,
20: % but WITHOUT ANY WARRANTY; without even the implied warranty of
21: % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
22: % GNU General Public License for more details.
23: %
24: % You should have received a copy of the GNU General Public License
25: % along with this program.  If not, see <http://www.gnu.org/licenses/>.
26: 
27: % $Log$
28: function savefigs(filename,readme_text,data_str)
29: isoctave=(exist('OCTAVE_VERSION','builtin')~=0);
30: if(isoctave)
31:     prints=struct('suff',{'png','eps'},...
32:                   'func',{@(x)print('-dpng',x),@(x)print('-depsc2',x)});    
33: else
34:     prints=struct('suff',{'png','eps','fig'},...
35:                   'func',{@(x)print('-dpng',x),@(x)print('-depsc2',x), ...
36:                         @hgsave});
37: end
38: n_printfuncs=length(prints);
39: for i_printfunc=1:n_printfuncs % fig,png, and eps files
40:     prints(i_printfunc).func([filename,'.',prints(i_printfunc).suff]);
41: end % for i_printfunc=1:n_printfuncs
42: % document what is it
43: fid=fopen([filename,'_README','.txt'],'wt');
44: fprintf(fid,'%s',readme_text);
45: fclose(fid);
46: % save the vector/matrix for future crunching
47: save([filename,'_data','.mat'],'data_str');

1: screen -md -L -S session_name your_program

1: screen -ls

1: alias xc='xclip -selection clipboard'
2: alias xcn='perl -ne "chomp();print" |xclip -selection clipboard'

1: alias xc="pbcopy"
2: alias xcn="tr -d '\n' | pbcopy"

1: #!/usr/bin/perl -nw 
2: ## syntax : ls fig_patterns | latexfigs.pl > latexfile
3: chomp();
4: print "\\begin\{figure\}\n\\centering\n\\includegraphics\[scale=1.2,angle=0\]\{$_\}\n";
5: s/_/\\_/g;
6: print "\\caption\{$_\}\n\\end\{figure\}\n\\clearpage\n";

1: #!/usr/bin/perl -nw 
2: ## syntax : ls fig_patterns | htmlfigs.pl > htmlfile
3: chomp();
4: print "<IMG src=\"$_\" width=650><BR>\n";
5: print "$_<BR><BR>\n";

1: #!/usr/bin/perl -w 
2: ## syntax : anchor_latex.pl "tag" "text" >> file.latex
3: $tag=shift or die "syntax error: anchor_latex.pl \"tag\" \"text\">>file.latex\n";
4: $text=shift or die "syntax error: anchor_latex.pl \"tag\" \"text\">>file.latex\n";
5: print "\\section{$text}\\label{sec:$tag}\n";

1: #!/usr/bin/perl -w 
2: ## syntax : anchor_html.pl "tag" "text" >> file.html
3: $tag=shift or die "syntax error: anchor_html.pl \"tag\" \"text\">>file.html\n";
4: $text=shift or die "syntax error: anchor_html.pl \"tag\" \"text\">>file.html\n";
5: print "<a id=\"$tag\"><h2>$text</h2></a>\n";

 1: \documentclass[A4paper]{article}
 2: \usepackage{graphicx}
 3: \usepackage{cite}
 4: \usepackage{placeins} % floatbarrier definition
 5: \usepackage[caption=false]{subfig}
 6: \usepackage{fullpage}
 7: \newcommand{\unit}[1]{\ensuremath{\, \mathrm{#1}}}
 8: \begin{document}
 9: TEXT
10: \end{document}

 1: #!/usr/bin/perl -w 
 2: # syntax : merge_latex_tmpl.pl tmpfile > merged_file.tex
 3: $tmplfilename=$ENV{'LATEXTMPL'};
 4: $filename=shift // die "syntax error";
 5: open TMPL,"<$tmplfilename" // die "could not find the template file";
 6: open FILE,"<$filename" // die "could not find the file $filename";
 7: $uniq_content = join("", <FILE>); 
 8: while(<TMPL>){
 9:     if(/TEXT/){
10:         print $uniq_content;
11:     }else{
12:         print;
13:     }
14: }