Mercurial > octave-nkf

changeset 5118:ecbb290ba9ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-01-25 22:10:26 by jwe]
author jwe
date Tue, 25 Jan 2005 22:10:26 +0000
parents 2d94fe12e09a
children f394f83ee1c4
files scripts/ChangeLog scripts/plot/__plt__.m
diffstat 2 files changed, 27 insertions(+), 51 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Tue Jan 25 18:43:50 2005 +0000
+++ b/scripts/ChangeLog	Tue Jan 25 22:10:26 2005 +0000
@@ -1,6 +1,7 @@
 2005-01-25  Daniel J Sebald  <daniel.sebald@ieee.org>.
 
 	* plot/__plt__.m: Initialize fmt and sep outside of loop.
+	Simplify logic for decoding args.
 
 2005-01-24  John W. Eaton  <jwe@octave.org>
 
--- a/scripts/plot/__plt__.m	Tue Jan 25 18:43:50 2005 +0000
+++ b/scripts/plot/__plt__.m	Tue Jan 25 22:10:26 2005 +0000
@@ -31,25 +31,25 @@
 
     k = 1;
     j = 1;
-    x = varargin{k++};
-    nargs -= 2;
-    x_set = 1;
+    nargs -= 1;
+    x_set = 0;
     y_set = 0;
     gp_cmd = "gplot";
     have_gp_cmd = false;
-    fmt = "";
     sep = "";
 
     ## Gather arguments, decode format, gather plot strings, and plot lines.
 
-    while (nargs-- > 0)
-
-      new = varargin{k++};
+    while ((nargs-- > 0) || x_set)
 
-      if (j > 1)
-	sep = ",\\\n";
+      if (k < nargin())
+	new = varargin{k++};
+      else
+	new = ""; ## Force the last plot when input variables run out.
       endif
 
+      queue_plot = false;
+
       if (isstr (new))
 	if (! x_set)
 	  error ("plot: no data to plot");
@@ -60,33 +60,13 @@
 	else
 	  [data{j}, fmtstr] = __plt2__ (x, y, fmt);
 	endif
-	if (iscell (data{j}))
-	  for i = 1:length (data{j})
-	    gp_cmd = sprintf ("%s%s data{%d}{%d} %s", gp_cmd, sep,
-			      j, i, fmtstr{i});
-	    sep = ",\\\n";
-	    have_gp_cmd = true;
-	  endfor
-	else
-	  gp_cmd = sprintf ("%s%s data{%d} %s", gp_cmd, sep, j++, fmtstr);
-	  have_gp_cmd = true;
-	endif
+	queue_plot = true;
 	x_set = 0;
 	y_set = 0;
       elseif (x_set)
 	if (y_set)
-	  [data{j}, fmtstr] = __plt2__ (x, y, fmt);
-	  if (iscell (data{j}))
-	    for i = 1:length (data{j})
-	      gp_cmd = sprintf ("%s%s data{%d}{%d} %s", gp_cmd, sep,
-				j, i, fmtstr{i});
-	      sep = ",\\\n";
-	      have_gp_cmd = true;
-	    endfor
-	  else
-	    gp_cmd = sprintf ("%s%s data{%d} %s", gp_cmd, sep, j++, fmtstr);
-	    have_gp_cmd = true;
-	  endif
+	  [data{j}, fmtstr] = __plt2__ (x, y, "");
+	  queue_plot = true;
 	  x = new;
 	  y_set = 0;
 	else
@@ -98,32 +78,27 @@
 	x_set = 1;
       endif
 
-    endwhile
-
-    ## Handle last plot.
-
-    if (x_set)
-      if (y_set)
-	[data{j}, fmtstr] = __plt2__ (x, y, fmt);
-      else
-	[data{j}, fmtstr] = __plt1__ (x, fmt);
-      endif
-      if (iscell (data{j}))
-	for i = 1:length (data{j})
-	  gp_cmd = sprintf ("%s%s data{%d}{%d} %s", gp_cmd, sep,
-			    j, i, fmtstr{i});
+      if (queue_plot)
+	if (iscell (data{j}))
+	  for i = 1:length (data{j})
+	    gp_cmd = sprintf ("%s%s data{%d}{%d} %s", gp_cmd, sep,
+			      j, i, fmtstr{i});
+	    sep = ",\\\n";
+	  endfor
+	  j++;
+	else
+	  gp_cmd = sprintf ("%s%s data{%d} %s", gp_cmd, sep, j++, fmtstr);
 	  sep = ",\\\n";
-	  have_gp_cmd = true;
-	endfor
-      else
-	gp_cmd = sprintf ("%s%s data{%d} %s", gp_cmd, sep, j++, fmtstr);
+	endif
 	have_gp_cmd = true;
       endif
-    endif
+
+    endwhile
 
     if (have_gp_cmd)
       eval (gp_cmd);
     endif
+
   else
     msg = sprintf ("%s (x)\n", caller);
     msg = sprintf ("%s       %s (x, y)\n", msg, caller);