Mercurial > hg > octave-nkf

comparison scripts/plot/private/__gnuplot_get_var__.m @ 17176:abf384f5d243

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Remove unneeded input validation from internal fcns in private/ directories. * scripts/general/private/__isequal__.m, scripts/general/private/__splinen__.m, scripts/image/private/__imwrite__.m, scripts/image/private/ind2x.m, scripts/miscellaneous/private/__xzip__.m, scripts/miscellaneous/private/display_info_file.m, scripts/pkg/private/describe.m, scripts/pkg/private/get_forge_pkg.m, scripts/pkg/private/unload_packages.m, scripts/plot/private/__actual_axis_position__.m, scripts/plot/private/__add_datasource__.m, scripts/plot/private/__clabel__.m, scripts/plot/private/__errcomm__.m, scripts/plot/private/__errplot__.m, scripts/plot/private/__fltk_print__.m, scripts/plot/private/__gnuplot_get_var__.m, scripts/plot/private/__go_draw_axes__.m, scripts/plot/private/__go_draw_figure__.m, scripts/plot/private/__interp_cube__.m, scripts/plot/private/__line__.m, scripts/plot/private/__next_line_color__.m, scripts/plot/private/__next_line_style__.m, scripts/plot/private/__plt__.m, scripts/plot/private/__pltopt__.m, scripts/signal/private/rectangle_lw.m, scripts/signal/private/rectangle_sw.m, scripts/signal/private/triangle_lw.m, scripts/signal/private/triangle_sw.m, scripts/sparse/private/__sprand_impl__.m, scripts/statistics/models/private/logistic_regression_derivatives.m, scripts/statistics/models/private/logistic_regression_likelihood.m: Remove unneeded input validation from internal fcns in private/ directories.
author Rik <rik@octave.org>
date Sun, 04 Aug 2013 18:13:08 -0700
parents 3cce6b4e0f7c
children
comparison
equal deleted inserted replaced
17175:4bb7ae321901 17176:abf384f5d243
24 ## Author: Ben Abbott <bpabbott@mac.com> 24 ## Author: Ben Abbott <bpabbott@mac.com>
25 ## Created: 2009-02-07 25 ## Created: 2009-02-07
26 26
27 function gp_var_value = __gnuplot_get_var__ (h, gp_var_name, fmt = "") 27 function gp_var_value = __gnuplot_get_var__ (h, gp_var_name, fmt = "")
28 28
29 if (nargin < 2)
30 print_usage ();
31 endif
32
33 if (numel (h) == 1 && isfigure (h)) 29 if (numel (h) == 1 && isfigure (h))
34 if (isempty (get (gcf, "__plot_stream__"))) 30 if (isempty (get (gcf, "__plot_stream__")))
35 ostream = __gnuplot_open_stream__ (2, h); 31 ostream = __gnuplot_open_stream__ (2, h);
36 else 32 else
37 ostream = get (h, "__plot_stream__"); 33 ostream = get (h, "__plot_stream__");
54 endif 50 endif
55 51
56 if (use_mkfifo) 52 if (use_mkfifo)
57 gpin_name = tmpnam (); 53 gpin_name = tmpnam ();
58 54
59 ## Mode: 6*8*8 == 0600 55 ## Mode: 0600 == 6*8*8
60 [err, msg] = mkfifo (gpin_name, 6*8*8); 56 [err, msg] = mkfifo (gpin_name, 6*8*8);
61 57
62 if (err) 58 if (err)
63 error ("__gnuplot_get_var__: Can not make FIFO (%s)", msg); 59 error ("__gnuplot_get_var__: Can not make FIFO (%s)", msg);
64 endif 60 endif