# HG changeset patch
# User jwe
# Date 859230781 0
# Node ID 7cacd6c766d2293fdf7364c148a482be0c74e151
# Parent  044d25a60ea18672e88504ee9fac9a4d2380d882
[project @ 1997-03-24 19:13:01 by jwe]

diff -r 044d25a60ea1 -r 7cacd6c766d2 src/ov-typeinfo.cc
--- a/src/ov-typeinfo.cc	Thu Mar 20 20:48:23 1997 +0000
+++ b/src/ov-typeinfo.cc	Mon Mar 24 19:13:01 1997 +0000
@@ -215,7 +215,11 @@
 }
 
 DEFUN (typeinfo, args, ,
-  "usage: typeinfo ([typename])")
+  "usage: typeinfo (expr)\n\
+\n\
+Return the type of the expression EXPR, as a string.  If EXPR is\n\
+omitted, return an array of strings containing all the currently\n\
+installed data types.")
 {
   octave_value retval;
 
@@ -223,6 +227,8 @@
 
   if (nargin == 0)
     retval = octave_value_typeinfo::installed_type_names ();
+  else if (nargin == 1)
+    retval = args(0).type_name ();
   else
     print_usage ("typeinfo");