Mercurial > hg > octave-lyh

comparison src/sysdep.cc @ 1488:89c587478067

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-26 22:49:48 by jwe]
author jwe
date Tue, 26 Sep 1995 22:49:48 +0000
parents 7f008dfdc5a5
children 972ce8b5a757
comparison
equal deleted inserted replaced
1487:eaf4f68d3757 1488:89c587478067
506 #else 506 #else
507 return chdir (path); 507 return chdir (path);
508 #endif 508 #endif
509 } 509 }
510 510
511 DEFUN ("clc", Fclc, Sclc, 0, 0, 511 DEFUN ("clc", Fclc, Sclc, 00,
512 "clc (): clear screen") 512 "clc (): clear screen")
513 { 513 {
514 Octave_object retval; 514 Octave_object retval;
515 515
516 rl_beg_of_line (); 516 rl_beg_of_line ();
530 return retval; 530 return retval;
531 } 531 }
532 532
533 DEFALIAS (home, clc); 533 DEFALIAS (home, clc);
534 534
535 DEFUN ("getenv", Fgetenv, Sgetenv, 1, 1, 535 DEFUN ("getenv", Fgetenv, Sgetenv, 10,
536 "getenv (STRING): get environment variable values") 536 "getenv (STRING): get environment variable values")
537 { 537 {
538 Octave_object retval; 538 Octave_object retval;
539 539
540 int nargin = args.length (); 540 int nargin = args.length ();
556 print_usage ("getenv"); 556 print_usage ("getenv");
557 557
558 return retval; 558 return retval;
559 } 559 }
560 560
561 DEFUN ("kbhit", Fkbhit, Skbhit, 0, 1, 561 DEFUN ("kbhit", Fkbhit, Skbhit, 00,
562 "kbhit: get a single character from the terminal") 562 "kbhit: get a single character from the terminal")
563 { 563 {
564 Octave_object retval; 564 Octave_object retval;
565 565
566 // XXX FIXME XXX -- add timeout and default value args? 566 // XXX FIXME XXX -- add timeout and default value args?
575 } 575 }
576 576
577 return retval; 577 return retval;
578 } 578 }
579 579
580 DEFUN ("pause", Fpause, Spause, 1, 1, 580 DEFUN ("pause", Fpause, Spause, 10,
581 "pause (seconds): suspend program execution") 581 "pause (seconds): suspend program execution")
582 { 582 {
583 Octave_object retval; 583 Octave_object retval;
584 584
585 int nargin = args.length (); 585 int nargin = args.length ();
623 } 623 }
624 624
625 // XXX FIXME XXX -- maybe this should only return 1 if IEEE floating 625 // XXX FIXME XXX -- maybe this should only return 1 if IEEE floating
626 // point functions really work. 626 // point functions really work.
627 627
628 DEFUN ("isieee", Fisieee, Sisieee, 1, 1, 628 DEFUN ("isieee", Fisieee, Sisieee, 00,
629 "isieee (): return 1 if host uses IEEE floating point") 629 "isieee (): return 1 if host uses IEEE floating point")
630 { 630 {
631 return (double) (native_float_format == OCTAVE_IEEE_LITTLE 631 return (double) (native_float_format == OCTAVE_IEEE_LITTLE
632 || native_float_format == OCTAVE_IEEE_BIG); 632 || native_float_format == OCTAVE_IEEE_BIG);
633 } 633 }