# HG changeset patch
# User jwe
# Date 1127243915 0
# Node ID ff40c78cebf0f2ecad154059a5774db36108aaa5
# Parent  48ce24e8247cacdfc9470b5dc0a7dd06be87445f
[project @ 2005-09-20 19:18:34 by jwe]

diff -r 48ce24e8247c -r ff40c78cebf0 scripts/ChangeLog
--- a/scripts/ChangeLog	Mon Sep 19 19:29:32 2005 +0000
+++ b/scripts/ChangeLog	Tue Sep 20 19:18:35 2005 +0000
@@ -1,3 +1,11 @@
+2005-09-20  John W. Eaton  <jwe@octave.org>
+
+	* general/isvector.m: Improve compatibility.
+
+	* general/postpad.m: Allow first argument to be a scalar.
+	Allow padding to extend dimensionality.
+	* general/prepad.m: Likewise.
+
 2005-09-14  Daniel  <durbano@shbano.com>
 
 	* statistics/tests/bartlett_test.m, linear-algebra/cross.m,
diff -r 48ce24e8247c -r ff40c78cebf0 scripts/general/isvector.m
--- a/scripts/general/isvector.m	Mon Sep 19 19:29:32 2005 +0000
+++ b/scripts/general/isvector.m	Tue Sep 20 19:18:35 2005 +0000
@@ -31,7 +31,8 @@
   retval = 0;
 
   if (nargin == 1)
-    retval = (ismatrix (x) && ! isempty (x) && prod (size (x)) == length (x));
+    sz = size (x);
+    retval = (isnumeric (x) && ndims (x) == 2 && (sz(1) == 1 || sz(2) == 1));
   else
     usage ("isvector (x)");
   endif
diff -r 48ce24e8247c -r ff40c78cebf0 scripts/general/postpad.m
--- a/scripts/general/postpad.m	Mon Sep 19 19:29:32 2005 +0000
+++ b/scripts/general/postpad.m	Tue Sep 20 19:18:35 2005 +0000
@@ -57,13 +57,16 @@
     endif
   endif
 
-  if (! ismatrix (x))
-    error ("first argument must be a vector or matrix");
-  elseif (! isscalar (l) || l < 0)
+  if (! isscalar (l) || l < 0)
     error ("second argument must be a positive scaler");
   endif
 
+  if (dim > nd)
+    sz(nd+1:dim) = 1;
+  endif
+
   d = sz (dim);
+
   if (d >= l)
     idx = cell ();
     for i = 1:nd
diff -r 48ce24e8247c -r ff40c78cebf0 scripts/general/prepad.m
--- a/scripts/general/prepad.m	Mon Sep 19 19:29:32 2005 +0000
+++ b/scripts/general/prepad.m	Tue Sep 20 19:18:35 2005 +0000
@@ -70,12 +70,14 @@
     endif
   endif
 
-  if (! ismatrix (x))
-    error ("first argument must be a vector or matrix");
-  elseif (! isscalar (l) || l < 0)
+  if (! isscalar (l) || l < 0)
     error ("second argument must be a positive scaler");
   endif
 
+  if (dim > nd)
+    sz(nd+1:dim) = 1;
+  endif
+
   d = sz (dim);
 
   if (d >= l)
diff -r 48ce24e8247c -r ff40c78cebf0 src/ChangeLog
--- a/src/ChangeLog	Mon Sep 19 19:29:32 2005 +0000
+++ b/src/ChangeLog	Tue Sep 20 19:18:35 2005 +0000
@@ -1,3 +1,8 @@
+2005-09-19  John W. Eaton  <jwe@octave.org>
+
+	* pt-bp.cc (tree_breakpoint::visit_index_expression):
+	Avoid dereferencing invalid pointer.
+
 2005-09-19  David Bateman  <dbateman@free.fr>
 
 	* Makefile.in (OCT_LINK_DEPS): Include UFsparse libraries.
diff -r 48ce24e8247c -r ff40c78cebf0 src/pt-bp.cc
--- a/src/pt-bp.cc	Mon Sep 19 19:29:32 2005 +0000
+++ b/src/pt-bp.cc	Tue Sep 20 19:18:35 2005 +0000
@@ -363,7 +363,8 @@
 	{
 	  tree_argument_list *elt = *p;
 
-	  elt->accept (*this);
+	  if (elt)
+	    elt->accept (*this);
 	}
     }
 }