Mercurial > hg > octave-lyh
diff src/sysdep.cc @ 712:36ba0576bd1b
[project @ 1994-09-19 14:18:15 by jwe]
| author | jwe |
|---|---|
| date | Mon, 19 Sep 1994 14:18:48 +0000 |
| parents | 9ccf86647203 |
| children | 42731861ee09 |
line wrap: on
line diff
--- a/src/sysdep.cc +++ b/src/sysdep.cc @@ -373,7 +373,7 @@ return c; } -DEFUN ("clc", Fclc, Sclc, 1, 0, +DEFUN ("clc", Fclc, Sclc, 0, 0, "clc (): clear screen") { Octave_object retval; @@ -397,16 +397,16 @@ DEFALIAS (home, clc); -DEFUN ("getenv", Fgetenv, Sgetenv, 2, 1, +DEFUN ("getenv", Fgetenv, Sgetenv, 1, 1, "getenv (STRING): get environment variable values") { Octave_object retval; int nargin = args.length (); - if (nargin == 2) + if (nargin == 1) { - char *name = args(1).string_value (); + char *name = args(0).string_value (); if (! error_state) { @@ -423,7 +423,7 @@ return retval; } -DEFUN ("kbhit", Fkbhit, Skbhit, 1, 1, +DEFUN ("kbhit", Fkbhit, Skbhit, 0, 1, "kbhit: get a single character from the terminal") { Octave_object retval; @@ -449,7 +449,7 @@ int nargin = args.length (); - if (! (nargin == 1 || nargin == 2)) + if (! (nargin == 0 || nargin == 1)) { print_usage ("pause"); return retval; @@ -459,9 +459,9 @@ { switch (nargin) { - case 2: + case 1: { - double dval = args(1).double_value (); + double dval = args(0).double_value (); if (! error_state) {