Mercurial > octave
view scripts/plot/util/private/__ghostscript__.m @ 19278:6ca096827123
Use tempname() rather than tmpnam() in core Octave.
* scripts/miscellaneous/tempname.m: Removed m-file as function is now C++.
* scripts/miscellaneous/tmpnam.m: New m-file is an alias that calls tempname.
* scripts/miscellaneous/module.mk: Add tmpnam.m to build system.
* io.txi: Place tempname, tempdir, P_tmpdir docstrings in section on temporary
files.
* system.txi: Remove tempname, tempdir, P_tmpdir docstrings from generic
system functions section of manual.
* dirfns.cc, dlmread.cc, md5sum.cc, ov-fcn-handle.cc: Replace instances
of tmpnam with tempname in BIST code.
* file-io.cc (Ftempname): Change DEFUNX for tmpnam to DEFUN for tempname.
Remove seealso links to tmpnam.
* ftp.m, playaudio.m, wavwrite.m, imformats.m, imread.m, imwrite.m, imageIO.m,
csvwrite.m, dlmwrite.m, fileread.m, importdata.m, textread.m, textscan.m,
genvarname.m, unpack.m, install.m, legend.m, __gnuplot_drawnow__.m,
copyobj.m, hgsave.m, print.m, __ghostscript__.m, __gnuplot_get_var__.m,
__gnuplot_ginput__.m, __gnuplot_print__.m: Replace tmpnam with tempname in
core code.
* build-sparse-tests.sh, io.tst, prefer.tst, system.tst: Replace tmpnam with
tempname in test code.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 22 Oct 2014 10:41:15 -0700 |
parents | 7bbe3658c5ef |
children | 9b90d8579c61 |
line wrap: on
line source
## Copyright (C) 2010-2013 Ben Abbott ## ## 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} {} __ghostscript__ (@var{@dots{}}) ## Undocumented internal function. ## @end deftypefn ## Author: Ben Abbott <bpabbott@mac.com> ## Created: 2010-07-26 function [gs_cmd, cleanup_cmd] = __ghostscript__ (varargin); opts.binary = ""; opts.source = "-"; opts.output = "-"; opts.device = ""; opts.epscrop = false; opts.antialiasing = false; opts.antialiasing_textalphabits = 4;, opts.antialiasing_graphicsalphabits = 4; opts.resolution = 150; opts.papersize = ""; opts.pageoffset = [0 0]; opts.debug = false; opts.level = []; opts.prepend = ""; offsetfile = ""; offset_ps = {}; cleanup_cmd = ""; args = varargin; n = find (cellfun ("isclass", args, "struct")); if (! isempty (n)) f = fieldnames (args{n}); for m = 1:numel (f) opts.(f{m}) = args{n}.(f{m}); endfor args(n) = []; endif for n = 1:2:numel (args) opts.(args{n}) = args{n+1}; endfor if (isempty (opts.papersize)) format_for_printer = false; else format_for_printer = true; endif gs_opts = sprintf ("-dQUIET -dNOPAUSE -dBATCH -dSAFER -sDEVICE=%s", opts.device); if (! isempty (opts.level) && ismember (opts.level, [1, 2, 3])) gs_opts = sprintf ("%s -dLanguageLevel=%d", gs_opts, round (opts.level)); endif if (opts.antialiasing && isempty (strfind (opts.device, "write"))) ## Apply anti-aliasing to all bitmap formats/devices gs_opts = sprintf ("%s -dTextAlphaBits=%d -dGraphicsAlphaBits=%d", gs_opts, opts.antialiasing_textalphabits, opts.antialiasing_graphicsalphabits); gs_opts = sprintf ("%s -r%dx%d", gs_opts, [1, 1] * opts.resolution); elseif (any (strcmp (opts.device, {"pswrite", "ps2write", "pdfwrite"}))) gs_opts = sprintf ("%s -dEmbedAllFonts=true", gs_opts); if (strcmp (opts.device, "pdfwrite")) ## Optimize for loading gs_opts = sprintf ("%s -dOptimize=true", gs_opts); endif endif if (opts.epscrop) ## papersize is specified by the eps bbox gs_opts = sprintf ("%s -dEPSCrop", gs_opts); endif if (format_for_printer) if (ischar (opts.papersize)) gs_opts = sprintf ("%s -sPAPERSIZE=%s", gs_opts, opts.papersize); elseif (isnumeric (opts.papersize) && numel (opts.papersize) == 2) gs_opts = sprintf ("%s -dDEVICEWIDTHPOINTS=%d -dDEVICEHEIGHTPOINTS=%d", gs_opts, opts.papersize); if (opts.papersize(1) > opts.papersize(2)) ## Lanscape mode: This option will result in automatic rotation of the ## document page if the requested page size matches one ## of the default page sizes gs_opts = sprintf ("%s -dNORANGEPAGESIZE", gs_opts); endif else error ("print:badpapersize", "__ghostscript__.m: invalid 'papersize'"); endif gs_opts = sprintf ("%s -dFIXEDMEDIA", gs_opts); ## "pageoffset" is relative to the coordinates, not the BBox LLHC. str = sprintf ("%s [%d %d] %s", "<< /Margins [0 0] /.HWMargins [0 0 0 0] /PageOffset", opts.pageoffset, ">> setpagedevice"); offset_ps = {"%!PS-Adobe-3.0", str, "%%EOF"}; if (isfield (opts, "offsetfile")) offsetfile = opts.offsetfile; cleanup_cmd = ""; else offsetfile = [tempname() ".ps"]; cleanup_cmd = sprintf ("rm %s", offsetfile); endif unwind_protect fid = fopen (offsetfile, "w"); if (fid == -1) error ("print:fopenfailed", "__ghostscript__.m: fopen () failed"); endif fprintf (fid, "%s\n", offset_ps{:}); unwind_protect_cleanup status = fclose (fid); if (status == -1) error ("print:fclosefailed", "__ghostscript__.m: fclose () failed"); endif end_unwind_protect if (opts.debug) fprintf ("---- begin %s ----\n", offsetfile); fprintf ("%s\n", offset_ps{:}); fprintf ("----- end %s -----\n", offsetfile); endif endif if (isempty (opts.binary)) error ("print:no_ghostscript", "__ghostscript__.m: ghostscript is required."); elseif (isempty (opts.output)) cmd = sprintf ("%s %s", opts.binary, gs_opts); else cmd = sprintf ("%s %s -sOutputFile=\"%s\"", opts.binary, gs_opts, opts.output); endif if (! isempty (opts.prepend) && any (strcmpi (opts.device, {"pswrite", "ps2write", "pdfwrite"}))) ## FIXME: Fonts get may be mangled when appending ps/ps2. ## See "How to concatenate several PS files" at the link, ## http://en.wikibooks.org/wiki/PostScript_FAQ cmd = sprintf ("%s %s", cmd, opts.prepend); if (isempty (cleanup_cmd)) cleanup_cmd = sprintf ("rm %s", opts.prepend); else cleanup_cmd = sprintf ("%s ; rm %s", cleanup_cmd, opts.prepend); endif endif if (! isempty (offsetfile) && format_for_printer) cmd = sprintf ("%s %s", cmd, offsetfile); endif if (! isempty (opts.source)) cmd = sprintf ("%s %s", cmd, opts.source); endif if (opts.debug) fprintf ("Ghostscript command: '%s'\n", cmd); endif gs_cmd = cmd; endfunction