Actual source code: psleep.c

  1: /*$Id: psleep.c,v 1.30 2001/03/23 23:20:45 balay Exp $*/

 3:  #include petsc.h
  4: #if defined (PETSC_HAVE_UNISTD_H)
  5: #include <unistd.h>
  6: #endif
  7: #if defined (PETSC_HAVE_STDLIB_H)
  8: #include <stdlib.h>
  9: #endif
 10: #if defined (PETSC_HAVE_DOS_H)   /* borland */
 11: #include <dos.h>
 12: #endif
 13: #include "petscfix.h"

 15: /*@
 16:    PetscSleep - Sleeps some number of seconds.

 18:    Not Collective

 20:    Input Parameters:
 21: .  s - number of seconds to sleep

 23:    Notes:
 24:       If s is negative waits for keyboard input

 26:    Level: intermediate

 28:    Concepts: sleeping
 29:    Concepts: pause
 30:    Concepts: waiting

 32: @*/
 33: int PetscSleep(int s)
 34: {
 36:   if (s < 0) getc(stdin);
 37: #if defined (PETSC_HAVE_SLEEP)
 38:   else       sleep(s);
 39: #elif defined (PETSC_HAVE__SLEEP) && defined(PETSC_HAVE__SLEEP_MILISEC)
 40:   else       _sleep(s*1000);
 41: #elif defined (PETSC_HAVE__SLEEP)
 42:   else       _sleep(s);
 43: #else
 44:   #error No sleep function located!
 45: #endif
 46:   return(0);
 47: }