Mercurial > octave-antonio
view scripts/plot/private/__print_parse_opts__.m @ 14363:f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
* wavread.m, acosd.m, acot.m, acotd.m, acoth.m, acsc.m, acscd.m, acsch.m,
asec.m, asecd.m, asech.m, asind.m, atand.m, cosd.m, cot.m, cotd.m, coth.m,
csc.m, cscd.m, csch.m, sec.m, secd.m, sech.m, sind.m, tand.m, accumarray.m,
accumdim.m, bitcmp.m, bitget.m, bitset.m, blkdiag.m, cart2pol.m, cart2sph.m,
celldisp.m, chop.m, circshift.m, colon.m, common_size.m, cplxpair.m,
cumtrapz.m, curl.m, dblquad.m, deal.m, divergence.m, flipdim.m, fliplr.m,
flipud.m, genvarname.m, gradient.m, idivide.m, int2str.m, interp1.m,
interp1q.m, interp2.m, interp3.m, interpft.m, interpn.m, isa.m, isdir.m,
isequal.m, isequalwithequalnans.m, issquare.m, logspace.m, nargchk.m,
narginchk.m, nargoutchk.m, nextpow2.m, nthargout.m, num2str.m, pol2cart.m,
polyarea.m, postpad.m, prepad.m, profile.m, profshow.m, quadgk.m, quadv.m,
randi.m, rat.m, repmat.m, rot90.m, rotdim.m, shift.m, shiftdim.m, sph2cart.m,
structfun.m, trapz.m, triplequad.m, convhull.m, dsearch.m, dsearchn.m,
griddata3.m, griddatan.m, rectint.m, tsearchn.m, __makeinfo__.m, doc.m,
get_first_help_sentence.m, help.m, type.m, unimplemented.m, which.m, imread.m,
imwrite.m, dlmwrite.m, fileread.m, is_valid_file_id.m, strread.m, textread.m,
textscan.m, commutation_matrix.m, cond.m, condest.m, cross.m,
duplication_matrix.m, expm.m, housh.m, isdefinite.m, ishermitian.m,
issymmetric.m, logm.m, normest.m, null.m, onenormest.m, orth.m, planerot.m,
qzhess.m, rank.m, rref.m, trace.m, vech.m, ans.m, bincoeff.m, bug_report.m,
bzip2.m, comma.m, compare_versions.m, computer.m, edit.m, fileparts.m,
fullfile.m, getfield.m, gzip.m, info.m, inputname.m, isappdata.m, isdeployed.m,
ismac.m, ispc.m, isunix.m, list_primes.m, ls.m, mexext.m, namelengthmax.m,
news.m, orderfields.m, paren.m, recycle.m, rmappdata.m, semicolon.m,
setappdata.m, setfield.m, substruct.m, symvar.m, ver.m, version.m,
warning_ids.m, xor.m, fminbnd.m, fsolve.m, fzero.m, lsqnonneg.m, optimset.m,
pqpnonneg.m, sqp.m, matlabroot.m, __gnuplot_drawnow__.m,
__plt_get_axis_arg__.m, ancestor.m, cla.m, clf.m, close.m, colorbar.m,
colstyle.m, comet3.m, contourc.m, figure.m, gca.m, gcbf.m, gcbo.m, gcf.m,
ginput.m, graphics_toolkit.m, gtext.m, hggroup.m, hist.m, hold.m, isfigure.m,
ishghandle.m, ishold.m, isocolors.m, isonormals.m, isosurface.m, isprop.m,
legend.m, line.m, loglog.m, loglogerr.m, meshgrid.m, ndgrid.m, newplot.m,
orient.m, patch.m, plot3.m, plotyy.m, __print_parse_opts__.m, quiver3.m,
refreshdata.m, ribbon.m, semilogx.m, semilogxerr.m, semilogy.m, stem.m,
stem3.m, subplot.m, title.m, uigetfile.m, view.m, whitebg.m, compan.m, conv.m,
deconv.m, mkpp.m, mpoles.m, pchip.m, poly.m, polyaffine.m, polyder.m,
polyfit.m, polygcd.m, polyint.m, polyout.m, polyval.m, polyvalm.m, ppder.m,
ppint.m, ppjumps.m, ppval.m, residue.m, roots.m, spline.m, intersect.m,
ismember.m, powerset.m, setdiff.m, setxor.m, union.m, unique.m,
autoreg_matrix.m, bartlett.m, blackman.m, detrend.m, fftconv.m, fftfilt.m,
fftshift.m, freqz.m, hamming.m, hanning.m, ifftshift.m, sinc.m, sinetone.m,
sinewave.m, unwrap.m, bicg.m, bicgstab.m, gmres.m, gplot.m, nonzeros.m, pcg.m,
pcr.m, spaugment.m, spconvert.m, spdiags.m, speye.m, spfun.m, spones.m,
sprand.m, sprandsym.m, spstats.m, spy.m, svds.m, treelayout.m, bessel.m,
beta.m, betaln.m, factor.m, factorial.m, isprime.m, lcm.m, legendre.m,
nchoosek.m, nthroot.m, perms.m, pow2.m, primes.m, reallog.m, realpow.m,
realsqrt.m, hadamard.m, hankel.m, hilb.m, invhilb.m, magic.m, rosser.m,
vander.m, __finish__.m, center.m, cloglog.m, corr.m, cov.m, gls.m, histc.m,
iqr.m, kendall.m, kurtosis.m, logit.m, mahalanobis.m, mean.m, meansq.m,
median.m, mode.m, moment.m, ols.m, ppplot.m, prctile.m, probit.m, quantile.m,
range.m, ranks.m, run_count.m, runlength.m, skewness.m, spearman.m,
statistics.m, std.m, table.m, var.m, zscore.m, betacdf.m, betainv.m, betapdf.m,
betarnd.m, binocdf.m, binoinv.m, binopdf.m, binornd.m, cauchy_cdf.m,
cauchy_inv.m, cauchy_pdf.m, cauchy_rnd.m, chi2cdf.m, chi2inv.m, chi2pdf.m,
chi2rnd.m, discrete_cdf.m, discrete_inv.m, discrete_pdf.m, discrete_rnd.m,
empirical_cdf.m, empirical_inv.m, empirical_pdf.m, empirical_rnd.m, expcdf.m,
expinv.m, exppdf.m, exprnd.m, fcdf.m, finv.m, fpdf.m, frnd.m, gamcdf.m,
gaminv.m, gampdf.m, gamrnd.m, geocdf.m, geoinv.m, geopdf.m, geornd.m,
hygecdf.m, hygeinv.m, hygepdf.m, hygernd.m, kolmogorov_smirnov_cdf.m,
laplace_cdf.m, laplace_inv.m, laplace_pdf.m, laplace_rnd.m, logistic_cdf.m,
logistic_inv.m, logistic_pdf.m, logistic_rnd.m, logncdf.m, logninv.m,
lognpdf.m, lognrnd.m, nbincdf.m, nbininv.m, nbinpdf.m, nbinrnd.m, normcdf.m,
norminv.m, normpdf.m, normrnd.m, poisscdf.m, poissinv.m, poisspdf.m,
poissrnd.m, stdnormal_cdf.m, stdnormal_inv.m, stdnormal_pdf.m, stdnormal_rnd.m,
tcdf.m, tinv.m, tpdf.m, trnd.m, unidcdf.m, unidinv.m, unidpdf.m, unidrnd.m,
unifcdf.m, unifinv.m, unifpdf.m, unifrnd.m, wblcdf.m, wblinv.m, wblpdf.m,
wblrnd.m, kolmogorov_smirnov_test.m, kruskal_wallis_test.m, base2dec.m,
bin2dec.m, blanks.m, cstrcat.m, deblank.m, dec2base.m, dec2bin.m, dec2hex.m,
findstr.m, hex2dec.m, index.m, isletter.m, mat2str.m, rindex.m, str2num.m,
strcat.m, strjust.m, strmatch.m, strsplit.m, strtok.m, strtrim.m, strtrunc.m,
substr.m, validatestring.m, demo.m, example.m, fail.m, speed.m, addtodate.m,
asctime.m, clock.m, ctime.m, date.m, datenum.m, datetick.m, datevec.m,
eomday.m, etime.m, is_leap_year.m, now.m:
Use Octave coding conventions in all m-file %!test blocks
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Mon, 13 Feb 2012 07:29:44 -0800 |
parents | df695e37d404 |
children | b76f0740940e |
line wrap: on
line source
## Copyright (C) 2010-2012 Shai Ayal ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {@var{args} =} __print_parse_opts__ (@var{propname}, @var{propvalue}) ## @deftypefnx {Function File} {@var{args} =} __print_parse_opts__ (@var{struct}) ## Undocumented internal function. ## @end deftypefn function arg_st = __print_parse_opts__ (varargin) persistent warn_on_missing_binary = true arg_st.append_to_file = false; arg_st.canvas_size = []; arg_st.debug = false; arg_st.debug_file = "octave-print-commands.log"; arg_st.devopt = ""; arg_st.epstool_binary = __quote_path__ (__find_binary__ ("epstool")); arg_st.figure = get (0, "currentfigure"); arg_st.fig2dev_binary = __quote_path__ (__find_binary__ ("fig2dev")); arg_st.fontsize = ""; arg_st.font = ""; arg_st.scalefontsize = 1; arg_st.force_solid = 0; # 0=default, -1=dashed, +1=solid arg_st.formatted_for_printing = false; arg_st.ghostscript.binary = __quote_path__ (__ghostscript_binary__ ()); arg_st.ghostscript.debug = false; arg_st.ghostscript.device = ""; arg_st.ghostscript.epscrop = true; arg_st.ghostscript.level = []; arg_st.ghostscript.output = ""; arg_st.ghostscript.papersize = ""; arg_st.ghostscript.pageoffset = []; arg_st.ghostscript.resolution = 150; arg_st.ghostscript.antialiasing = false; arg_st.loose = false; arg_st.lpr_binary = __quote_path__ (__find_binary__ ("lpr")); arg_st.name = ""; arg_st.orientation = ""; arg_st.pstoedit_binary = __quote_path__ (__find_binary__ ("pstoedit")); arg_st.preview = ""; arg_st.printer = ""; arg_st.send_to_printer = false; arg_st.special_flag = "textnormal"; arg_st.tight_flag = false; arg_st.use_color = 0; # 0=default, -1=mono, +1=color if (isunix ()) arg_st.lpr_options = "-l"; elseif (ispc ()) arg_st.lpr_options = "-o l"; else arg_st.lpr_options = ""; endif arg_st.unlink = {}; if (nargin > 0 && isfigure (varargin{1})) arg_st.figure = varargin{1}; varargin(1) = []; endif for i = 1:numel(varargin) arg = strtrim (varargin{i}); if (ischar (arg)) if (strcmp (arg, "-color")) arg_st.use_color = 1; elseif (strcmp (arg, "-append")) arg_st.append_to_file = true; elseif (strcmp (arg, "-mono")) arg_st.use_color = -1; elseif (strcmp (arg, "-solid")) arg_st.force_solid = 1; elseif (strcmp (arg, "-dashed")) arg_st.force_solid = -1; elseif (strncmp (arg, "-portrait", numel (arg))) arg_st.orientation = "portrait"; elseif (strncmp (arg, "-landscape", numel (arg))) arg_st.orientation = "landscape"; elseif (strcmp (arg, "-loose")) arg_st.loose = true; arg_st.tight_flag = false; elseif (strcmp (arg, "-tight")) arg_st.loose = false; arg_st.tight_flag = true; elseif (strcmp (arg, "-textspecial")) arg_st.special_flag = "textspecial"; elseif (any (strcmp (arg, {"-interchange", "-metafile", "-pict", "-tiff"}))) arg_st.preview = arg(2:end); elseif (strncmp (arg, "-debug", 6)) arg_st.debug = true; arg_st.ghostscript.debug = true; if (length (arg) > 7) arg_st.debug_file = arg(8:end); endif elseif (length (arg) > 2 && arg(1:2) == "-d") arg_st.devopt = tolower (arg(3:end)); elseif (length (arg) > 2 && arg(1:2) == "-P") arg_st.printer = arg; elseif (strncmp (arg, "-EPSTOOL:", 9)) arg_st.epstool_binary = arg{10:end}; elseif (strncmp (arg, "-FIG2DEV:", 9)) arg_st.fig2dev_binary = arg{10:end}; elseif (strncmp (arg, "-PSTOEDIT:", 9)) arg_st.pstoedit_binary = arg{10:end}; elseif ((length (arg) > 2) && arg(1:2) == "-G") arg_st.ghostscript.binary = file_in_path (getenv ("PATH"), arg(3:end)); if (isempty (arg_st.ghostscript.binary)) error ("print: Ghostscript binary ""%s"" could not be located", arg(3:end)); else arg_st.ghostscript_binary = __quote_path__ (arg_st.ghostscript_binary); endif elseif (length (arg) > 2 && arg(1:2) == "-F") idx = rindex (arg, ":"); if (idx) arg_st.font = arg(3:idx-1); arg_st.fontsize = str2num (arg(idx+1:end)); else arg_st.font = arg(3:end); endif elseif (length (arg) > 2 && arg(1:2) == "-S") arg_st.canvas_size = str2num (arg(3:end)); elseif (length (arg) > 2 && arg(1:2) == "-r") arg_st.ghostscript.resolution = str2double (arg(3:end)); elseif (length (arg) > 2 && arg(1:2) == "-f") arg_st.figure = str2num (arg(3:end)); elseif (length (arg) >= 1 && arg(1) == "-") error ("print: unknown option `%s'", arg); elseif (length (arg) > 0) arg_st.name = arg; endif elseif (isfigure (arg)) arg_st.figure = arg; else error ("print: expecting inputs to be character string options or a figure handle"); endif endfor if (arg_st.ghostscript.resolution == 0) ## Do as Matlab does. arg_st.ghostscript.resolution = num2str (get (0, "screenpixelsperinch")); endif if (isempty (arg_st.orientation)) if (isfigure (arg_st.figure)) arg_st.orientation = get (arg_st.figure, "paperorientation"); else ## Allows tests to be run without error. arg_st.orientation = "portrait"; endif endif if (isempty (arg_st.ghostscript.binary)) arg_st.ghostscript.binary = __ghostscript_binary__ (); endif dot = rindex (arg_st.name, "."); if (isempty (arg_st.devopt)) if (dot == 0) arg_st.devopt = "psc"; else arg_st.devopt = tolower (arg_st.name(dot+1:end)); endif endif if (arg_st.use_color == 0) if (any (strcmp ({"ps", "ps2", "eps", "eps2"}, arg_st.devopt))) arg_st.use_color = -1; else arg_st.use_color = 1; endif endif if (strcmp (arg_st.devopt, "tex")) arg_st.devopt = "epslatex"; elseif (strcmp (arg_st.devopt, "ill")) arg_st.devopt = "aifm"; elseif (strcmp (arg_st.devopt, "cdr")) arg_st.devopt = "corel"; elseif (strcmp (arg_st.devopt, "meta")) arg_st.devopt = "emf"; elseif (strcmp (arg_st.devopt, "jpg")) arg_st.devopt = "jpeg"; endif dev_list = {"aifm", "corel", "fig", "png", "jpeg", ... "gif", "pbm", "pbmraw", "dxf", "mf", ... "svg", "hpgl", "ps", "ps2", "psc", ... "psc2", "eps", "eps2", "epsc", "epsc2", ... "emf", "pdf", "pslatex", "epslatex", "epslatexstandalone", ... "pslatexstandalone", "pdflatexstandalone", ... "pstex", "tiff", "tiffn" "tikz", "pcxmono", ... "pcx24b", "pcx256", "pcx16", "pgm", "pgmraw", ... "ppm", "ppmraw", "pdflatex", "texdraw", ... "pdfcairo", "pngcairo", "pstricks", ... "epswrite", "pswrite", "ps2write", "pdfwrite"}; suffixes = {"ai", "cdr", "fig", "png", "jpg", ... "gif", "pbm", "pbm", "dxf", "mf", ... "svg", "hpgl", "ps", "ps", "ps", ... "ps", "eps", "eps", "eps", "eps", ... "emf", "pdf", "tex", "tex", "tex", ... "tex", "tex", ... "ps", "tiff", "tiff", "tikz", "pcx", ... "pcx", "pcx", "pcx", "pgm", "pgm", ... "ppm", "ppm", "tex", "tex", ... "pdf", "png", "tex", ... "eps", "ps", "ps", "pdf"}; if (isfigure (arg_st.figure)) __graphics_toolkit__ = get (arg_st.figure, "__graphics_toolkit__"); else ## Allow tests when no figures are present. __graphics_toolkit__ = get (0, "defaultfigure__graphics_toolkit__"); endif if (strcmp (__graphics_toolkit__, "gnuplot") && __gnuplot_has_feature__ ("epslatex_implies_eps_filesuffix")) suffixes(strncmp (dev_list, "epslatex", 8)) = {"eps"}; endif match = strcmpi (dev_list, arg_st.devopt); if (any (match)) default_suffix = suffixes {match}; else default_suffix = arg_st.devopt; endif if (dot == 0 && ! isempty (arg_st.name)) arg_st.name = strcat (arg_st.name, ".", default_suffix); endif if (arg_st.append_to_file) if (isempty (arg_st.name)) arg_st.append_to_file = false; elseif (any (strcmpi (arg_st.devopt, {"eps", "eps2", "epsc", "epsc2", ... "ps", "ps2", "psc", "psc2", "pdf"}))) have_ghostscript = ! isempty (__ghostscript_binary__ ()); if (have_ghostscript) file_exists = ((numel (dir (arg_st.name)) == 1) && (! isdir (arg_st.name))); if (! file_exists) arg_st.append_to_file = false; endif else arg_st.append_to_file = false; warning ("print.m: appended output requires ghostscript to be installed"); endif else warning ("print.m: appended output is not supported for device '%s'", arg_st.devopt); arg_st.append_to_file = false; endif endif if (! isempty (arg_st.printer) || isempty (arg_st.name)) arg_st.send_to_printer = true; endif if (any (strcmp (arg_st.devopt, {"ps", "ps2", "psc", "psc2", "pdf"}))) arg_st.formatted_for_printing = true; endif aliases = gs_aliases (); if (any (strcmp (arg_st.devopt, fieldnames (aliases)))) arg_st.devopt = aliases.(arg_st.devopt); endif ## FIXME - eps2 & epsc2 needs to be handled if (strcmp (arg_st.devopt, "pswrite")) arg_st.ghostscript.level = 1; elseif (strcmp (arg_st.devopt, "ps2write")) arg_st.ghostscript.level = 2; endif if ((any (strcmp (arg_st.devopt, gs_device_list)) && ! arg_st.formatted_for_printing) || any (strcmp (arg_st.devopt, {"pswrite", "ps2write", "pdfwrite"}))) ## Use ghostscript for graphic formats arg_st.ghostscript.device = arg_st.devopt; arg_st.ghostscript.output = arg_st.name; arg_st.ghostscript.antialiasing = true; if (arg_st.formatted_for_printing) arg_st.ghostscript.epscrop = ! arg_st.loose; else ## pstoedit throws errors if the EPS file isn't cropped arg_st.ghostscript.epscrop = true; endif elseif (all (! strcmp (arg_st.devopt, dev_list))) ## Assume we are formating output for a printer arg_st.formatted_for_printing = true; arg_st.ghostscript.device = arg_st.devopt; arg_st.ghostscript.output = arg_st.name; arg_st.ghostscript.antialiasing = false; arg_st.ghostscript.epscrop = ! arg_st.loose; endif if (isempty (arg_st.canvas_size)) if (isfigure (arg_st.figure)) [arg_st.ghostscript.papersize, paperposition] = ... gs_papersize (arg_st.figure, arg_st.orientation); else ## allows tests to be run arg_st.ghostscript.papersize = "letter"; paperposition = [0.25, 2.50, 8.00, 6.00] * 72; endif arg_st.canvas_size = paperposition(3:4); if (strcmp (__graphics_toolkit__, "gnuplot") && ! arg_st.ghostscript.epscrop) arg_st.ghostscript.pageoffset = paperposition(1:2) - 50; else arg_st.ghostscript.pageoffset = paperposition(1:2); endif else ## Convert canvas size to points from pixels. if (! isempty (arg_st.fontsize)) ## Work around the eps bbox having whole numbers (both gnuplot & gl2ps). arg_st.scalefontsize = arg_st.ghostscript.resolution / 72; endif arg_st.ghostscript.resolution = 72; arg_st.ghostscript.papersize = arg_st.canvas_size; arg_st.ghostscript.epscrop = true; arg_st.ghostscript.pageoffset = [0, 0]; endif if (arg_st.formatted_for_printing) arg_st.ghostscript.resolution = []; else arg_st.ghostscript.papersize = ""; arg_st.ghostscript.pageoffset = [0, 0]; endif if (warn_on_missing_binary) if (isempty (arg_st.ghostscript.binary)) warning ("print:missing_gs", "print.m: Ghostscript binary is not available.\nOnly eps output is available."); else if (isempty (arg_st.epstool_binary)) warning ("print:missing_epstool", "print.m: epstool binary is not available.\nSome output formats are not available."); endif if (isempty (arg_st.fig2dev_binary)) warning ("print:missing_fig2dev", "print.m: fig2dev binary is not available.\nSome output formats are not available."); endif if (isempty (arg_st.pstoedit_binary)) warning ("print:missing_pstoedit", "print.m: pstoedit binary is not available.\nSome output formats are not available."); endif endif warn_on_missing_binary = false; endif endfunction ## Test blocks are not allowed (and not needed) for private functions #%!test %! opts = __print_parse_opts__ (); %! assert (opts.devopt, "pswrite"); %! assert (opts.use_color, 1); %! assert (opts.send_to_printer, true); %! assert (opts.canvas_size, [576, 432]); %! assert (opts.ghostscript.device, "pswrite"); #%!test %! opts = __print_parse_opts__ ("test.pdf", "-S640,480"); %! assert (opts.canvas_size, [307.2, 230.4], 0.1); #%!test %! opts = __print_parse_opts__ ("-dpsc", "-append", "-loose"); %! assert (opts.devopt, "pswrite"); %! assert (opts.send_to_printer, true); %! assert (opts.use_color, 1); %! assert (opts.append_to_file, false); %! assert (opts.ghostscript.device, "pswrite"); %! assert (opts.ghostscript.epscrop, false); #%!test %! opts = __print_parse_opts__ ("-deps", "-tight"); %! assert (opts.tight_flag, true); %! assert (opts.send_to_printer, true); %! assert (opts.use_color, -1); %! assert (opts.ghostscript.device, ""); #%!test %! opts = __print_parse_opts__ ("-djpg", "foobar", "-mono", "-loose"); %! assert (opts.devopt, "jpeg"); %! assert (opts.name, "foobar.jpg"); %! assert (opts.ghostscript.device, "jpeg"); %! assert (opts.ghostscript.epscrop, true); %! assert (opts.ghostscript.papersize, ""); %! assert (opts.ghostscript.pageoffset, [0, 0]); %! assert (opts.send_to_printer, false); %! assert (opts.printer, ""); %! assert (opts.use_color, -1); #%!test %! opts = __print_parse_opts__ ("-ddeskjet", "foobar", "-mono", "-Pmyprinter"); %! assert (opts.ghostscript.output, "foobar.deskjet"); %! assert (opts.ghostscript.device, "deskjet"); %! assert (opts.devopt, "deskjet"); %! assert (opts.send_to_printer, true); %! assert (opts.printer, "-Pmyprinter"); %! assert (opts.use_color, -1); #%!test %! opts = __print_parse_opts__ ("-f5", "-dljet3"); %! assert (opts.ghostscript.device, "ljet3"); %! assert (strfind (opts.ghostscript.output, ".ljet3")); %! assert (opts.devopt, "ljet3"); %! assert (opts.send_to_printer, true); %! assert (opts.figure, 5); function cmd = __quote_path__ (cmd) if (any (cmd == " ") && ! (cmd(1) == """" && cmd(end) == """")) cmd = strcat ("""", strrep (cmd, """", """"""), """"); endif endfunction function gs = __ghostscript_binary__ () persistent ghostscript_binary = "" persistent warn_on_no_ghostscript = true persistent warn_on_bad_gsc = true if (isempty (ghostscript_binary)) GSC = getenv ("GSC"); if (exist (GSC, "file") || (! isempty (GSC) && file_in_path (getenv ("PATH"), GSC))) gs_binaries = {GSC}; elseif (! isempty (GSC) && warn_on_bad_gsc) warning ("print:badgscenv", "print.m: GSC environment variable not set properly"); warn_on_bad_gsc = false; gs_binaries = {}; else gs_binaries = {}; endif if (isunix ()) ## Unix - Includes Mac OSX and Cygwin. gs_binaries = horzcat (gs_binaries, {"gs", "gs.exe"}); else ## pc - Includes Win32 and mingw. gs_binaries = horzcat (gs_binaries, {"gs.exe", "gswin32c.exe", "mgs.exe"}); endif n = 0; while (n < numel (gs_binaries) && isempty (ghostscript_binary)) n = n + 1; ghostscript_binary = file_in_path (getenv ("PATH"), gs_binaries{n}); endwhile if (warn_on_no_ghostscript && isempty (ghostscript_binary)) warning ("print:noghostscript", "print.m: ghostscript not found in PATH"); warn_on_no_ghostscript = false; endif endif gs = ghostscript_binary; endfunction function bin = __find_binary__ (binary) persistent data = struct () if (! isfield (data, binary)) ## Reinitialize when `user_binaries' is present. data.(binary).bin = ""; data.(binary).warn_on_absence = false; endif if (isempty (data.(binary).bin)) if (isunix ()) ## Unix - Includes Mac OSX and Cygwin. binaries = strcat (binary, {"", ".exe"}); else ## pc - Includes Win32 and mingw. binaries = strcat (binary, {".exe"}); endif n = 0; while (n < numel (binaries) && isempty (data.(binary).bin)) n = n + 1; data.(binary).bin = file_in_path (getenv ("PATH"), binaries{n}); endwhile if (isempty (data.(binary).bin) && data.(binary).warn_on_absence) warning (sprintf ("print:no%s", binary), "print.m: '%s' not found in PATH", binary); data.(binary).warn_on_absence = false; endif endif bin = data.(binary).bin; endfunction function [papersize, paperposition] = gs_papersize (hfig, paperorientation) persistent papertypes papersizes if (isempty (papertypes)) papertypes = {"usletter", "uslegal", "a0", "a1", ... "a2", "a3", "a4", "a5", ... "b0", "b1", "b2", "b3", ... "b4", "b5", "arch-a", "arch-b", ... "arch-c", "arch-d", "arch-e", "a", ... "b", "c", "d", "e", ... "tabloid"}; papersizes = [ 8.5, 11.0; 8.5, 14.0; 33.1, 46.8; 23.4, 33.1; 16.5, 23.4; 11.7, 16.5; 8.3, 11.7; 5.8, 8.3; 39.4, 55.7; 27.8, 39.4; 19.7, 27.8; 13.9, 19.7; 9.8, 13.9; 6.9, 9.8; 9.0, 12.0; 12.0, 18.0; 18.0, 24.0; 24.0, 36.0; 36.0, 48.0; 8.5, 11.0; 11.0, 17.0; 18.0, 24.0; 24.0, 36.0; 36.0, 48.0; 11.0, 17.0] * 72; endif papertype = get (hfig, "papertype"); paperunits = get (hfig, "paperunits"); paperposition = get (hfig, "paperposition"); if (strcmp (papertype, "<custom>")) papersize = get (hfig, "papersize"); papersize = convert2points (papersize , paperunits); else papersize = papersizes (strcmp (papertypes, papertype), :); endif if (strcmp (paperunits, "normalized")) paperposition = paperposition .* papersize([1,2,1,2]); else paperposition = convert2points (paperposition, paperunits); endif ## FIXME - This will be obsoleted by listeners for paper properties. ## Papersize is tall when portrait,and wide when landscape. if ((papersize(1) > papersize(2) && strcmpi (paperorientation, "portrait")) || (papersize(1) < papersize(2) && strcmpi (paperorientation, "landscape"))) papersize = papersize ([2,1]); paperposition = paperposition([2,1,4,3]); endif if ((! strcmp (papertype, "<custom>")) && (strcmp (paperorientation, "portrait"))) ## For portrait use the ghostscript name papersize = papertype; papersize(papersize=="-") = ""; papersize = strrep (papersize, "us", ""); switch (papersize) case "a" papersize = "letter"; case {"b", "tabloid"} papersize = "11x17"; case {"c", "d", "e"} papersize = strcat ("arch", papersize); endswitch if (strncmp (papersize, "arch", 4)) papersize(end) = upper (papersize(end)); endif endif endfunction function value = convert2points (value, units) switch (units) case "inches" value = value * 72; case "centimeters" value = value * 72 / 2.54; case "normalized" error ("print:customnormalized", "print.m: papersize=='<custom>' and paperunits='normalized' may not be combined"); endswitch endfunction function device_list = gs_device_list (); ## Graphics formats/languages, not priners. device_list = {"bmp16"; "bmp16m"; "bmp256"; "bmp32b"; "bmpgray"; ... "epswrite"; "jpeg"; "jpegcymk"; "jpeggray"; "pbm"; ... "pbmraw"; "pcx16"; "pcx24b"; "pcx256"; "pcx2up"; ... "pcxcmyk"; "pcxgray"; "pcxmono"; "pdfwrite"; "pgm"; ... "pgmraw"; "pgnm"; "pgnmraw"; "png16"; "png16m"; ... "png256"; "png48"; "pngalpha"; "pnggray"; "pngmono"; ... "pnm"; "pnmraw"; "ppm"; "ppmraw"; "ps2write"; ... "pswrite"; "tiff12nc"; "tiff24nc"; "tiff32nc"; ... "tiffcrle"; "tiffg3"; "tiffg32d"; "tiffg4"; ... "tiffgray"; "tifflzw"; "tiffpack"; "tiffsep"}; endfunction function aliases = gs_aliases (); ## Aliases for other devices: "bmp", "png", "tiff", "tiffn", "pdf", ## "ps", "ps2", "psc", "psc2" ## ## eps, epsc, eps2, epsc2 are not included here because those are ## are generated by the graphics toolkit. aliases.bmp = "bmp32b"; aliases.pdf = "pdfwrite"; aliases.png = "png16m"; aliases.ps = "pswrite"; aliases.ps2 = "ps2write"; aliases.psc = "pswrite"; aliases.psc2 = "ps2write"; aliases.tiff = "tiff24nc"; aliases.tiffn = "tiff24nc"; endfunction