Mercurial > hg > octave-nkf

comparison src/sysdep.cc @ 1579:972ce8b5a757

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-19 06:39:35 by jwe]
author jwe
date Thu, 19 Oct 1995 06:39:35 +0000
parents 89c587478067
children 6708c53892c1
comparison
equal deleted inserted replaced
1578:caa181489200 1579:972ce8b5a757
588 { 588 {
589 print_usage ("pause"); 589 print_usage ("pause");
590 return retval; 590 return retval;
591 } 591 }
592 592
593 if (interactive) 593 if (nargin == 1)
594 { 594 {
595 switch (nargin) 595 double dval = args(0).double_value ();
596
597 if (! error_state)
596 { 598 {
597 case 1: 599 if (xisnan (dval))
598 { 600 warning ("pause: NaN is an invalid delay");
599 double dval = args(0).double_value (); 601 else
600 602 {
601 if (! error_state) 603 int delay = NINT (dval);
602 { 604 if (delay > 0)
603 if (xisnan (dval)) 605 sleep (delay);
604 warning ("pause: NaN is an invalid delay"); 606 }
605 else
606 {
607 int delay = NINT (dval);
608 if (delay > 0)
609 sleep (delay);
610 }
611 }
612 }
613 break;
614
615 default:
616 if (kbhit () == EOF)
617 clean_up_and_exit (0);
618 break;
619 } 607 }
608 }
609 else
610 {
611 if (kbhit () == EOF)
612 clean_up_and_exit (0);
620 } 613 }
621 614
622 return retval; 615 return retval;
623 } 616 }
624 617