Mercurial > octave
view scripts/plot/printd.m @ 16006:9978c44ab12c
Style fixes on printd.m and stemleaf.m
* printd.m, stemleaf.m: Whitespace fixes, changing single-quoted
strings to double-quoted, use octothorpe (#) consistently for
comments instead of percentage sign (%).
author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
---|---|
date | Wed, 06 Feb 2013 11:16:37 -0500 |
parents | 369b173d6c16 |
children | 3e6d15a2a50b |
line wrap: on
line source
## Copyright (C) 2013 Michael D. Godfrey ## ## 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} {} printd (@var{obj}, @var{filename}) ## ## Convert any object acceptable to @code{disp} into the format ## selected by the suffix of @var{filename}. ## ## This function is intended to facilitate manipulation of the output ## of functions such as @code{stemleaf}. ## @seealso{stemleaf} ## @end deftypefn ## Author: Michael D. Godfrey <michaeldgodfrey@gmail.com> ## Description: Convert objects into other file formats. function printd (obj, filename) ## Convert any object acceptable to disp() into various display formats. ## obj is the input object. ## filename is the output file (with required suffix). ## Extract .suffix from filename if ((sufix = rindex (filename, ".")) <= 0) error ("The output filename: %s requires a suffix.\nOptions are: pdf ps eps txt jpg jpeg", filename); endif opt = substr (filename, sufix+1); [pf, tempf, mag] = mkstemp ("oct-XXXXXX", 1); # Safe version of tmpnam() fprintf (pf, "%s", disp (obj)); frewind (pf); ## It seems best to only use convert for image output. Its ps and pdf ## are badly rendered. opt = lower (opt); switch opt case {"pdf"} enscr = sprintf ( "enscript --no-header -o %s.ps %s ; ps2pdf %s.ps %s.pdf; mv %s.pdf %s;exit",... tempf, tempf, tempf, tempf, tempf, filename); system (enscr); delete ([tempf ".ps"]); case {"ps"} enscr = sprintf ("enscript --no-header -o %s %s ; exit", filename, tempf); system (enscr); case {"eps"} enscr = sprintf ( "enscript --no-header -o %s.ps %s ; ps2eps --ignoreBB %s.ps; mv %s.eps %s; exit",... tempf, tempf, tempf, tempf, filename); system (enscr); delete ([tempf ".ps"]); case {"txt"} enscr = sprintf ("cp %s %s", tempf, filename); system (enscr); case {"jpg" "jpeg"} enscr = sprintf ("convert -trim txt:%s jpg:%s", tempf, filename); system (enscr); otherwise fclose (pf); delete (tempf); error ("Unknown conversion type: %s.\nOptions are: pdf ps eps txt jpg jpeg", opt); endswitch fclose (pf); delete (tempf); printf ("%s file %s written\n", opt, filename); endfunction %!demo %! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: 12, hi: 42\n";... %! " 1 | 22118";" 2 | 28";" 3 | 98";" 4 | 244";" 5 | 2"]; %! printd (r2, "test_p.txt"); %! system ("cat test_p.txt"); %! delete ("test_p.txt"); %!test %! r2 = ["stem step: 10, data: unsorted.\nHinges: lo: 12, hi: 42\n";... %! " 1 | 22118";" 2 | 28";" 3 | 98";" 4 | 244";" 5 | 2"]; %! printd (r2, "test_p.txt"); %! r4 = fileread ("test_p.txt"); %! delete ("test_p.txt"); %! r2 = disp (r2); %! assert (r4, r2)