octave-nkf: src/DLD-FUNCTIONS/__gnuplot_raw_

comparison src/DLD-FUNCTIONS/__gnuplot_raw__.l @ 7138:f70121606be5

[project @ 2007-11-09 02:06:54 by jwe]

author	jwe
date	Fri, 09 Nov 2007 02:06:55 +0000
parents	373c39904877
children	9dd8e2c98bd2

comparison

equal deleted inserted replaced

-:38fe664f0ef1
+:f70121606be5
 }
 return name;
 }
+#define WARN_OBSOLETE(nm) \
+do \
+{ \
+static warned = false; \
+\
+if (! warned) \
+{ \
+warning (nm ## ": this function is obsolete and will be removed from a future version of Octave"); \
+\
+warned = true; \
+} \
+} \
+while (0)
 DEFUN_DLD (__gnuplot_save_data__, args, ,
 "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} __gnuplot_save_data__ (@var{data}, @var{ndim}, @var{parametric})\n\
+@strong{This function is obsolete and will be removed from a future version\n\
+of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("__gnuplot_save_data__");
 octave_value retval;
 int nargin = args.length ();
 if (nargin > 0 && nargin < 4)
 @deftypefnx {Loadable Function} {@var{old_val} = } gnuplot_command_plot (@var{new_val})\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_plot");
 return SET_INTERNAL_VARIABLE (gnuplot_command_plot);
 }
 DEFUN_DLD (gnuplot_command_replot, args, nargout,
 "-*- texinfo -*-\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_command_replot (@var{new_val})\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_replot");
 return SET_INTERNAL_VARIABLE (gnuplot_command_replot);
 }
 DEFUN_DLD (gnuplot_command_splot, args, nargout,
 "-*- texinfo -*-\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_command_splot (@var{new_val})\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_splot");
 return SET_INTERNAL_VARIABLE (gnuplot_command_splot);
 }
 DEFUN_DLD (gnuplot_command_using, args, nargout,
 "-*- texinfo -*-\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_command_using (@var{new_val})\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_using");
 return SET_INTERNAL_VARIABLE (gnuplot_command_using);
 }
 DEFUN_DLD (gnuplot_command_with, args, nargout,
 "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{val} =} gnuplot_command_with ()\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_command_with (@var{new_val})\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_with");
 return SET_INTERNAL_VARIABLE (gnuplot_command_with);
 }
 DEFUN_DLD (gnuplot_command_axes, args, nargout,
 "-*- texinfo -*-\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_command_axes (@var{new_val})\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_axes");
 return SET_INTERNAL_VARIABLE (gnuplot_command_axes);
 }
 DEFUN_DLD (gnuplot_command_title, args, nargout,
 "-*- texinfo -*-\n\
 @deftypefnx {Loadable Function} {@var{old_val} =} gnuplot_command_title (@var{new_val})\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_title");
 return SET_INTERNAL_VARIABLE (gnuplot_command_title);
 }
 DEFUN_DLD (gnuplot_command_end, args, nargout,
 "-*- texinfo -*-\n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 \n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_end");
 return SET_INTERNAL_VARIABLE (gnuplot_command_end);
 }
 DEFUN_DLD (gnuplot_use_title_option, args, nargout,
 "-*- texinfo -*-\n\
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("gnuplot_command_use_title_option");
 return SET_INTERNAL_VARIABLE (gnuplot_use_title_option);
 }
 DEFUN_DLD (__clear_plot_window__, , ,
 "-*- texinfo -*-\n\
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("__clear_plot_window__");
 gnuplot::clear ();
 return octave_value_list ();
 }
 Close stream to the @code{gnuplot} subprocess.  If you are using X11,\n\
 this will close the plot window.\n\
 @seealso{close}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("closeplot");
 gnuplot::close ();
 return octave_value_list ();
 }
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("purge_tmp_files");
 gnuplot::cleanup_tmp_files ();
 return octave_value_list ();
 }
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("__gnuplot_raw__");
 if (args.length () == 1 && args(0).is_string ())
 {
 std::string cmd = args(0).string_value ();
 gnuplot::send_raw (cmd);
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deftypefn")
 {
+WARN_OBSOLETE ("__gnuplot_send_inline_data__");
 octave_value retval;
 int nargin = args.length ();
 if (nargin > 0 && nargin < 4)
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deffn")
 {
+WARN_OBSOLETE ("__gnuplot_set__");
 string_vector argv = args.make_argv ("set");
 if (! error_state)
 gnuplot::set (argv);
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}\n\
 @end deffn")
 {
+WARN_OBSOLETE ("__gnuplot_show__");
 string_vector argv = args.make_argv ("show");
 if (! error_state)
 gnuplot::show (argv);
 Plot with gnuplot.\n\
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}")
 {
+WARN_OBSOLETE ("__gnuplot_plot__");
 string_vector argv = args.make_argv ("plot");
 if (! error_state)
 gnuplot::plot (argv);
 Plot with gnuplot.\n\
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}")
 {
+WARN_OBSOLETE ("__gnuplot_splot__");
 string_vector argv = args.make_argv ("splot");
 if (! error_state)
 gnuplot::plot (argv);
 Plot with gnuplot.\n\
 \n\
 @strong{This function is obsolete and will be removed from a future version\n\
 of Octave.}")
 {
+WARN_OBSOLETE ("__gnuplot_replot__");
 string_vector argv = args.make_argv ("replot");
 if (! error_state)
 gnuplot::plot (argv);

Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/__gnuplot_raw__.l @ 7138:f70121606be5