Mercurial > octave-nkf

changeset 4539:5c6f7daf1e3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-16 04:01:30 by jwe]
author jwe
date Thu, 16 Oct 2003 04:01:30 +0000
parents f855e276044c
children 491ac5f9d120
files scripts/miscellaneous/horzcat.m scripts/miscellaneous/vertcat.m
diffstat 2 files changed, 19 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/miscellaneous/horzcat.m	Thu Oct 16 03:42:39 2003 +0000
+++ b/scripts/miscellaneous/horzcat.m	Thu Oct 16 04:01:30 2003 +0000
@@ -18,16 +18,18 @@
 ## 02111-1307, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {@var{c} =} horzcat (@var{a}, @var{b})
-## Equivalent to @code{c = [a, b]}.
+## @deftypefn {Function File} {@var{c} =} horzcat (@var{a}, @var{b}, @dots{})
+## Equivalent to @code{c = [a, b, ...]}.
 ## @end deftypefn
 
-function c = horzcat (a, b)
+function c = horzcat (varargin)
+
+  ## This is just a quick fix for compatibility.
 
-  if (nargin == 2)
-    c = [a, b];
+  if (nargin > 1)
+    c = [ varargin{:} ];
   else
-    usage ("horzcat (a, b)");
+    usage ("horzcat (a, b, ...)");
   endif
 
 endfunction
--- a/scripts/miscellaneous/vertcat.m	Thu Oct 16 03:42:39 2003 +0000
+++ b/scripts/miscellaneous/vertcat.m	Thu Oct 16 04:01:30 2003 +0000
@@ -18,16 +18,21 @@
 ## 02111-1307, USA.
 
 ## -*- texinfo -*-
-## @deftypefn {Function File} {@var{c} =} vertcat (@var{a}, @var{b})
-## Equivalent to @code{c = [a; b]}.
+## @deftypefn {Function File} {@var{c} =} vertcat (@var{a}, @var{b}, @dots{})
+## Equivalent to @code{c = [a; b; ...]}.
 ## @end deftypefn
 
-function c = vertcat (a, b)
+function c = vertcat (varargin)
+
+  ## This is just a quick fix for compatibility.
 
-  if (nargin == 2)
-    c = [a, b];
+  if (nargin > 1)
+    for i = 1:nargin
+      varargin{i} = varargin{i}.';
+    endfor
+    c = [ varargin{:} ].';
   else
-    usage ("vertcat (a, b)");
+    usage ("vertcat (a, b, ...)");
   endif
 
 endfunction