Actual source code: psleep.c

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

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

 19:    Not Collective

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

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

 27:    Level: intermediate

 29:    Concepts: sleeping
 30:    Concepts: pause
 31:    Concepts: waiting

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