Mercurial > octave-nkf

comparison src/sysdep.cc @ 6419:73fcbac81f33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-20 17:18:24 by jwe]
author jwe
date Tue, 20 Mar 2007 17:18:24 +0000
parents 323be5eeed1f
children a90b54016b12
comparison
equal deleted inserted replaced
6418:2efe282221ed 6419:73fcbac81f33
82 #include "error.h" 82 #include "error.h"
83 #include "input.h" 83 #include "input.h"
84 #include "oct-obj.h" 84 #include "oct-obj.h"
85 #include "ov.h" 85 #include "ov.h"
86 #include "pager.h" 86 #include "pager.h"
87 #include "parse.h"
87 #include "sighandlers.h" 88 #include "sighandlers.h"
88 #include "sysdep.h" 89 #include "sysdep.h"
89 #include "toplev.h" 90 #include "toplev.h"
90 #include "utils.h" 91 #include "utils.h"
91 92
646 { 647 {
647 double dval = args(0).double_value (); 648 double dval = args(0).double_value ();
648 649
649 if (! error_state) 650 if (! error_state)
650 { 651 {
651 if (xisnan (dval)) 652 if (! xisnan (dval))
652 warning ("pause: NaN is an invalid delay");
653 else if (xisinf (dval))
654 { 653 {
655 flush_octave_stdout (); 654 feval ("drawnow");
656 octave_kbhit (); 655
656 if (xisinf (dval))
657 {
658 flush_octave_stdout ();
659 octave_kbhit ();
660 }
661 else
662 octave_sleep (dval);
657 } 663 }
658 else 664 else
659 octave_sleep (dval); 665 warning ("pause: NaN is an invalid delay");
660 } 666 }
661 } 667 }
662 else 668 else
663 { 669 {
664 flush_octave_stdout (); 670 flush_octave_stdout ();