Mercurial > hg > octave-nkf

comparison scripts/plot/__print_parse_opts__.m @ 10918:811f8611995d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
__print_parse_opts__.m: Fix tests.
author Ben Abbott <bpabbott@mac.com>
date Fri, 27 Aug 2010 19:38:49 -0400
parents dd6b90f44ae5
children ee9d74048827
comparison
equal deleted inserted replaced
10917:888c75785221 10918:811f8611995d
153 else 153 else
154 arg_st.devopt = tolower (arg_st.name(dot+1:end)); 154 arg_st.devopt = tolower (arg_st.name(dot+1:end));
155 endif 155 endif
156 endif 156 endif
157 157
158 if (any (strcmp ({"ps", "ps2", "eps", "eps2"}, arg_st.devopt))) 158 if (arg_st.use_color == 0)
159 arg_st.use_color = -1; 159 if (any (strcmp ({"ps", "ps2", "eps", "eps2"}, arg_st.devopt)))
160 else 160 arg_st.use_color = -1;
161 arg_st.use_color = 1; 161 else
162 arg_st.use_color = 1;
163 endif
162 endif 164 endif
163 165
164 if (arg_st.tight_flag) 166 if (arg_st.tight_flag)
165 if (any (strcmpi (arg_st.devopt, {"ps", "ps2", "psc", "psc2", "pdf"}))) 167 if (any (strcmpi (arg_st.devopt, {"ps", "ps2", "psc", "psc2", "pdf"})))
166 arg_st.tight_flag = false; 168 arg_st.tight_flag = false;
199 "tex", "tex", ... 201 "tex", "tex", ...
200 "ps", "tiff", "tiff", "tikz", "pcx", ... 202 "ps", "tiff", "tiff", "tikz", "pcx", ...
201 "pcx", "pcx", "pcx", "pgm", "pgm", ... 203 "pcx", "pcx", "pcx", "pgm", "pgm", ...
202 "ppm", "ppm", "tex"}; 204 "ppm", "ppm", "tex"};
203 205
204 if (strcmp (get (arg_st.figure, "__backend__"), "gnuplot") 206 if (isfigure (arg_st.figure)
207 && strcmp (get (arg_st.figure, "__backend__"), "gnuplot")
205 && __gnuplot_has_feature__ ("epslatex_implies_eps_filesuffix")) 208 && __gnuplot_has_feature__ ("epslatex_implies_eps_filesuffix"))
206 suffixes(strncmp (dev_list, "epslatex", 8)) = {"eps"}; 209 suffixes(strncmp (dev_list, "epslatex", 8)) = {"eps"};
207 endif 210 endif
208 211
209 match = strcmpi (dev_list, arg_st.devopt); 212 match = strcmpi (dev_list, arg_st.devopt);