Mercurial > hg > octave-lyh

diff src/data.cc @ 4532:01ee68d18069
[project @ 2003-10-10 00:49:54 by jwe]
author: jwe
date: Fri, 10 Oct 2003 00:49:55 +0000
parents: 34c934a1b08f
children: c16f153836a0
--- a/src/data.cc
+++ b/src/data.cc
@@ -1184,6 +1184,22 @@
   return retval;
 }
 
+DEFUN (squeeze, args, ,
+  "-*- texinfo -*-\n\
+@deftypefn {Built-in Function} {} squeeze (@var{x})\n\
+Remove singleton dimensions from @var{x} and return the result.\n\
+@end deftypefn")
+{
+  octave_value retval;
+
+  if (args.length () == 1)
+    return args(0).squeeze ();
+  else
+    print_usage ("squeeze");    
+
+  return retval;
+}
+
 void
 symbols_of_data (void)
 {