Mercurial > hg > octave-nkf

comparison scripts/control/util/prompt.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents ec8c33dcd1bf
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
36 ## Modified A. S. Hodel June 1995 36 ## Modified A. S. Hodel June 1995
37 37
38 function prompt (str) 38 function prompt (str)
39 39
40 if (nargin > 1) 40 if (nargin > 1)
41 usage ("prompt ([str])"); 41 print_usage ();
42 elseif (nargin == 0) 42 elseif (nargin == 0)
43 str = "\n ---- Press a key to continue ---"; 43 str = "\n ---- Press a key to continue ---";
44 elseif (! ischar (str) ) 44 elseif (! ischar (str) )
45 error ("prompt: input must be a string"); 45 error ("prompt: input must be a string");
46 endif 46 endif