1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
## 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})
## @deftypefnx {Function File} {@var{out_file} =} printd (@dots{})
##
## Convert any object acceptable to @code{disp} into the format
## selected by the suffix of @var{filename}. If the return argument
## @var{out_file} is given, the name of the created file is returned.
##
## 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 pr_out = 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);
pr_out = sprintf ("%s file %s written\n", opt, filename);
endfunction
%!demo
%! r2 = char (
%! 'stem step: 10, data: unsorted.',
%! 'Hinges: lo: 12, hi: 42' ,
%! ' 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 = char (
%! "stem step: 10, data: unsorted.",
%! "Hinges: lo: 12, hi: 42" ,
%! " 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);
|
