Mercurial > hg > octave-lyh
diff scripts/plot/gnuplot_binary.in @ 7361:a2870fd8ac58
[project @ 2008-01-12 07:50:54 by jwe]
author | jwe |
---|---|
date | Sat, 12 Jan 2008 07:50:55 +0000 |
parents | |
children | ff8d7f3ad203 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/plot/gnuplot_binary.in @@ -0,0 +1,50 @@ +## Copyright (C) 2008 John W. Eaton +## +## 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 {Loadable Function} {@var{val} =} gnuplot_binary () +## @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_binary (@var{new_val}) +## Query or set the name of the program invoked by the plot command. +## The default value @code{\"gnuplot\"}. @xref{Installation}. +## @end deftypefn + +## Author: jwe + +function retval = gnuplot_binary (new_val) + + persistent gp_binary = %OCTAVE_CONF_GNUPLOT%; + + if (nargout > 0 || nargin == 0) + retval = gp_binary; + endif + + if (nargin == 1) + if (ischar (new_val)) + if (! isempty (new_val)) + gp_binary = new_val; + else + error ("gnuplot_binary: value must not be empty"); + endif + else + error ("gnuplot_binary: expecting arg to be a character string"); + endif + elseif (nargin > 1) + print_usage (); + endif + +endfunction