Mercurial > hg > octave-lyh

changeset 866:f02ec9f8de65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-02 05:19:02 by jwe]
author jwe
date Wed, 02 Nov 1994 05:19:02 +0000
parents dd56ccefdc5c
children b6b78f85743a
files src/pt-plot.cc
diffstat 1 files changed, 40 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/src/pt-plot.cc
+++ b/src/pt-plot.cc
@@ -74,6 +74,33 @@
 // Pipe to gnuplot.
 static oprocstream plot_stream;
 
+// Use shortest possible abbreviations to minimize trouble caused by
+// gnuplot's fixed-length command line buffer.
+
+#ifndef GNUPLOT_COMMAND_PLOT  
+#define GNUPLOT_COMMAND_PLOT   "pl"
+#endif
+
+#ifndef GNUPLOT_COMMAND_REPLOT 
+#define GNUPLOT_COMMAND_REPLOT "rep"
+#endif
+
+#ifndef GNUPLOT_COMMAND_SPLOT 
+#define GNUPLOT_COMMAND_SPLOT  "sp"
+#endif
+
+#ifndef GNUPLOT_COMMAND_USING
+#define GNUPLOT_COMMAND_USING  "u"
+#endif
+
+#ifndef GNUPLOT_COMMAND_WITH 
+#define GNUPLOT_COMMAND_WITH   "w"
+#endif
+
+#ifndef GNUPLOT_COMMAND_TITLE
+#define GNUPLOT_COMMAND_TITLE  "t"
+#endif
+
 static void
 open_plot_stream (void)
 {
@@ -144,7 +171,7 @@
       if (! (is_replot || is_splot || is_plot)
 	  && plot_line_count > 0
 	  && user_pref.automatic_replot)
-	plot_stream << "replot\n";
+	plot_stream << GNUPLOT_COMMAND_REPLOT << "\n";
       plot_stream.flush ();
       pipe_handler_error_count = 0;
     }
@@ -200,7 +227,7 @@
       if (plot_line_count == 0)
 	{
 	  if (plot_list)
-	    plot_buf << "plot";
+	    plot_buf << GNUPLOT_COMMAND_PLOT;
 	  else
 	    {
 	      ::error ("replot: must have something to plot");
@@ -208,14 +235,14 @@
 	    }
 	}
       else
-	plot_buf << "replot";
+	plot_buf << GNUPLOT_COMMAND_REPLOT;
       break;
 
     case 2:
       if (clear_before_plotting || plot_line_count == 0)
 	{
 	  plot_line_count = 0;
-	  plot_buf << "plot";
+	  plot_buf << GNUPLOT_COMMAND_PLOT;
 	}
       else
 	plot_buf << "replot";
@@ -224,7 +251,7 @@
     case 3:
       {
 	plot_line_count = 0;
-	plot_buf << "splot";
+	plot_buf << GNUPLOT_COMMAND_SPLOT;
       }
       break;
 
@@ -518,7 +545,7 @@
 	    {
 	      val = tmp.double_value ();
 	      if (i == 0)
-		plot_buf << " using ";
+		plot_buf << " " << GNUPLOT_COMMAND_USING << " ";
 	      else
 		plot_buf << ":";
 
@@ -600,7 +627,7 @@
 {
   if (style)
     {
-      plot_buf << " with " << style;
+      plot_buf << " " << GNUPLOT_COMMAND_WITH << " " << style;
 
       if (linetype)
 	{
@@ -729,15 +756,18 @@
     {
       tree_constant tmp = title->eval (0);
       if (! error_state && tmp.is_string ())
-	plot_buf << " title " << '"' << tmp.string_value () << '"';
+	plot_buf << " " << GNUPLOT_COMMAND_TITLE << " "
+	  << '"' << tmp.string_value () << '"';
       else
 	{
 	  warning ("line title must be a string");
-	  plot_buf << " title " << '"' << "line " << plot_line_count << '"';
+	  plot_buf << " " << GNUPLOT_COMMAND_TITLE << " "
+	    << '"' << "line " << plot_line_count << '"';
 	}
     }
   else
-    plot_buf << " title " << '"' << "line " << plot_line_count << '"';
+    plot_buf << " " << GNUPLOT_COMMAND_TITLE << " "
+      << '"' << "line " << plot_line_count << '"';
 
   if (style)
     {