Mercurial > octave
view libinterp/dldfcn/__init_gnuplot__.cc @ 21633:dcf8922b724b
Deprecate printf, puts, and scanf. Make fputs a M-file.
* libinterp/corefcn/file-io.cc: extracted printf, puts, and scanf to M-files.
* scripts/deprecated/printf.m: new function, equivalent to version file-io.cc.
* scripts/deprecated/puts.m: new function, equivalent to version file-io.cc.
* scripts/deprecated/scanf.m: new function, equivalent to version file-io.cc.
* scripts/deprecated/module.mk: added printf, puts, and scanf.
* scripts/io/fputs.m: new function, equivalent to version file-io.cc.
* scripts/io/module.mk: added fputs.
* doc/interpreter/io.txi: adapted documentation to current implementation.
* NEWS: announced changes.
* doc/interpreter/basics.txi: replaced printf by fprintf.
* doc/interpreter/stmt.txi: replaced printf by fprintf.
* doc/interpreter/var.txi: replaced printf by fprintf.
* doc/refcard/refcard.tex: removed printf and scanf.
* examples/code/@FIRfilter/display.m: replaced printf by fprintf.
* examples/code/@polynomial/display.m: replaced printf by fprintf.
* scripts/@ftp/display.m: replaced printf by fprintf.
* scripts/general/inputParser.m: replaced printf by fprintf.
* scripts/general/methods.m: replaced printf by fprintf.
* scripts/general/profexplore.m: replaced printf by fprintf.
* scripts/general/profshow.m: replaced printf by fprintf.
* scripts/help/help.m: replaced puts by fputs and printf by fprintf.
* scripts/help/lookfor.m: replaced puts by fputs and printf by fprintf.
* scripts/help/which.m: replaced printf by fprintf.
* scripts/image/imformats.m: replaced printf by fprintf.
* scripts/io/beep.m: replaced puts by fputs.
* scripts/io/textread.m: replaced printf by fprintf.
* scripts/java/javaclasspath.m: replaced printf by fprintf.
* scripts/java/javamem.m: replaced printf by fprintf.
* scripts/miscellaneous/dir.m: replaced printf by fprintf.
* scripts/miscellaneous/dos.m: replaced printf by fprintf.
* scripts/miscellaneous/fact.m: replaced printf by fprintf.
* scripts/miscellaneous/info.m: replaced printf by fprintf.
* scripts/miscellaneous/license.m: replaced printf by fprintf.
* scripts/miscellaneous/ls.m: replaced puts by fputs.
* scripts/miscellaneous/menu.m: replaced printf by fprintf.
* scripts/miscellaneous/mkoctfile.m: replaced printf by fprintf.
* scripts/miscellaneous/private/display_info_file.m:
* scripts/miscellaneous/unix.m: replaced printf by fprintf.
* scripts/miscellaneous/ver.m: replaced printf by fprintf.
* scripts/miscellaneous/what.m: replaced printf by fprintf.
* scripts/ode/ode23.m: replaced printf by fprintf.
* scripts/ode/ode45.m: replaced printf by fprintf.
* scripts/optimization/fminbnd.m: replaced printf by fprintf.
* scripts/optimization/optimset.m: replaced puts by fputs and printf by fprintf.
* scripts/optimization/sqp.m: replaced printf by fprintf.
* scripts/pkg/pkg.m: replaced printf by fprintf.
* scripts/pkg/private/describe.m: replaced printf by fprintf.
* scripts/pkg/private/install.m: replaced printf by fprintf.
* scripts/pkg/private/installed_packages.m: replaced printf by fprintf.
* scripts/pkg/private/list_forge_packages.m: replaced puts by fputs and printf by fprintf.
* scripts/pkg/private/rebuild.m: replaced printf by fprintf.
* scripts/plot/util/__gnuplot_drawnow__.m: replaced puts by fputs and printf by fprintf.
* scripts/signal/stft.m: replaced printf by fprintf.
* scripts/sparse/bicg.m: replaced printf by fprintf.
* scripts/sparse/bicgstab.m: replaced printf by fprintf.
* scripts/sparse/cgs.m: replaced printf by fprintf.
* scripts/sparse/pcg.m: replaced printf by fprintf.
* scripts/sparse/pcr.m: replaced printf by fprintf.
* scripts/sparse/qmr.m: replaced printf by fprintf.
* scripts/statistics/models/logistic_regression.m: replaced printf by fprintf.
* scripts/statistics/tests/anova.m: replaced printf by fprintf.
* scripts/statistics/tests/bartlett_test.m: replaced printf by fprintf.
* scripts/statistics/tests/chisquare_test_homogeneity.m: replaced printf by fprintf.
* scripts/statistics/tests/chisquare_test_independence.m: replaced printf by fprintf.
* scripts/statistics/tests/cor_test.m: replaced printf by fprintf.
* scripts/statistics/tests/f_test_regression.m: replaced printf by fprintf.
* scripts/statistics/tests/hotelling_test.m: replaced printf by fprintf.
* scripts/statistics/tests/hotelling_test_2.m: replaced printf by fprintf.
* scripts/statistics/tests/kolmogorov_smirnov_test.m: replaced printf by fprintf.
* scripts/statistics/tests/kolmogorov_smirnov_test_2.m: replaced printf by fprintf.
* scripts/statistics/tests/kruskal_wallis_test.m: replaced printf by fprintf.
* scripts/statistics/tests/manova.m: replaced printf by fprintf.
* scripts/statistics/tests/mcnemar_test.m: replaced printf by fprintf.
* scripts/statistics/tests/prop_test_2.m: replaced printf by fprintf.
* scripts/statistics/tests/run_test.m: replaced printf by fprintf.
* scripts/statistics/tests/sign_test.m: replaced printf by fprintf.
* scripts/statistics/tests/t_test.m: replaced printf by fprintf.
* scripts/statistics/tests/t_test_2.m: replaced printf by fprintf.
* scripts/statistics/tests/t_test_regression.m: replaced printf by fprintf.
* scripts/statistics/tests/u_test.m: replaced printf by fprintf.
* scripts/statistics/tests/var_test.m: replaced printf by fprintf.
* scripts/statistics/tests/welch_test.m: replaced printf by fprintf.
* scripts/statistics/tests/wilcoxon_test.m: replaced printf by fprintf.
* scripts/statistics/tests/z_test.m: replaced printf by fprintf.
* scripts/statistics/tests/z_test_2.m: replaced printf by fprintf.
* scripts/strings/strtok.m: replaced printf by fprintf.
* scripts/testfun/__run_test_suite__.m: replaced puts by fputs and printf by fprintf.
* scripts/testfun/demo.m: replaced printf by fprintf.
* scripts/testfun/example.m: replaced printf by fprintf.
* scripts/testfun/private/compare_plot_demos.m: replaced printf by fprintf.
* scripts/testfun/rundemos.m: replaced printf by fprintf.
* scripts/testfun/runtests.m: replaced puts by fputs and printf by fprintf.
* scripts/testfun/speed.m: replaced printf by fprintf.
* scripts/testfun/test.m: replaced printf by fprintf.
* scripts/time/calendar.m: replaced puts by fputs and printf by fprintf.
* test/io.tst: replaced printf by fprintf.
author | Kai T. Ohlhus <k.ohlhus@gmail.com> |
---|---|
date | Wed, 20 Apr 2016 17:53:10 +0200 |
parents | d7a268e68e69 |
children | 96518f623c91 |
line wrap: on
line source
/* Copyright (C) 2007-2015 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/>. */ /* To initialize: graphics_toolkit ("gnuplot"); plot (randn (1e3, 1)); */ #ifdef HAVE_CONFIG_H # include "config.h" #endif #include "build-env.h" #include "builtins.h" #include "defun-dld.h" #include "error.h" #include "file-stat.h" #include "graphics.h" #include "oct-env.h" #include "parse.h" #include "utils.h" #include "variables.h" // PKG_ADD: if (__have_gnuplot__ ()) register_graphics_toolkit ("gnuplot"); endif static bool toolkit_loaded = false; class gnuplot_graphics_toolkit : public base_graphics_toolkit { public: gnuplot_graphics_toolkit (void) : base_graphics_toolkit ("gnuplot") { } ~gnuplot_graphics_toolkit (void) { } bool is_valid (void) const { return true; } bool initialize (const graphics_object& go) { return go.isa ("figure"); } void finalize (const graphics_object& go) { if (go.isa ("figure")) { const figure::properties& props = dynamic_cast<const figure::properties&> (go.get_properties ()); send_quit (props.get___plot_stream__ ()); } } void update (const graphics_object& go, int id) { if (go.isa ("figure")) { graphics_object obj (go); figure::properties& props = dynamic_cast<figure::properties&> (obj.get_properties ()); switch (id) { case base_properties::ID_VISIBLE: if (! props.is_visible ()) { send_quit (props.get___plot_stream__ ()); props.set___plot_stream__ (Matrix ()); props.set___enhanced__ (false); } break; } } } void redraw_figure (const graphics_object& go) const { octave_value_list args; args(0) = go.get_handle ().as_octave_value (); feval ("__gnuplot_drawnow__", args); } void print_figure (const graphics_object& go, const std::string& term, const std::string& file, bool mono, const std::string& debug_file) const { octave_value_list args; if (! debug_file.empty ()) args(4) = debug_file; args(3) = mono; args(2) = file; args(1) = term; args(0) = go.get_handle ().as_octave_value (); feval ("__gnuplot_drawnow__", args); } Matrix get_canvas_size (const graphics_handle&) const { Matrix sz (1, 2, 0.0); return sz; } double get_screen_resolution (void) const { return 72.0; } Matrix get_screen_size (void) const { return Matrix (1, 2, 0.0); } void close (void) { if (toolkit_loaded) { munlock ("__init_gnuplot__"); gtk_manager::unload_toolkit ("gnuplot"); toolkit_loaded = false; } } private: void send_quit (const octave_value& pstream) const { if (! pstream.is_empty ()) { octave_value_list args; Matrix fids = pstream.matrix_value (); Ffprintf (ovl (fids(0), "%s", "\nquit;\n")); Ffflush (ovl (fids(0))); Fpclose (ovl (fids(0))); if (fids.numel () > 1) { Fpclose (ovl (fids(1))); if (fids.numel () > 2) Fwaitpid (ovl (fids(2))); } } } }; static bool have_gnuplot_binary (void) { const std::string exeext = octave::build_env::EXEEXT; const std::string path = octave_env::getenv ("PATH"); octave_value_list tmp = feval ("gnuplot_binary", octave_value_list ()); std::string gnuplot_binary = tmp(0).string_value (); string_vector args (gnuplot_binary); std::string gnuplot_path = search_path_for_file (path, args); file_stat fs (gnuplot_path); if (! fs.exists () && ! exeext.empty ()) { args[0] += exeext; gnuplot_path = search_path_for_file (path, args); fs = file_stat (gnuplot_path); } return fs.exists (); } // Initialize the gnuplot graphics toolkit. DEFUN_DLD (__init_gnuplot__, , , "") { octave_value retval; if (! have_gnuplot_binary ()) error ("__init_gnuplot__: the gnuplot program is not available, see 'gnuplot_binary'"); else if (! toolkit_loaded) { mlock (); graphics_toolkit tk (new gnuplot_graphics_toolkit ()); gtk_manager::load_toolkit (tk); toolkit_loaded = true; } return retval; } DEFUN_DLD (__have_gnuplot__, , , "-*- texinfo -*-\n\ @deftypefn {} {@var{gnuplot_available} =} __have_gnuplot__ ()\n\ Undocumented internal function.\n\ @end deftypefn") { octave_value retval; retval = have_gnuplot_binary (); return retval; } /* ## No test needed for internal helper function. %!assert (1) */