/**@name utils-sub -- utility functions
  
    Copyright (C) Tektronix, Inc. 1998 - 2001. All rights reserved.
  
    @see     GNU LGPL
    @author  Tektronix CTE             @(#) %derived_by: guidod %
    @version %version: 5.12 %
      (%date_modified: Tue Jul 17 17:43:41 2001 %)
 */
/*@{*/
#if defined(__version_control__) && defined(__GNUC__)
static char* id __attribute__((unused)) = 
"@(#) $Id: %full_filespec:  utils-sub.c~5.12:csrc:bln_12xx!1 % $";
#endif

#include <pfe/pfe-base.h>
#include <pfe/def-xtra.h>

#include <stdlib.h>

#ifdef PFE_HAVE_UNISTD_H
#include <unistd.h>
#endif

#ifdef VxWorks
#include <taskLib.h>
#include <sysLib.h>
#include <time.h>
#include <timers.h>
#ifdef  CLOCKS_PER_SEC_BUG
#undef  CLOCKS_PER_SEC
#define CLOCKS_PER_SEC sysClkRateGet()
#endif
#endif

#ifdef PFE_HAVE_WINBASE_H
#include <windows.h> /* Sleep */
#endif

/*
   Somehow wait ms milli-seconds.
 */
_export void
p4_delay (int ms)
{
/*
   Versions using poll and select according to Stevens'
   "Advanced Programming in the UNIX Environment" p.705
 */
#if !defined VxWorks
# if defined PFE_HAVE_DELAY
    delay (ms);
# elif defined EMX
    _sleep2 (ms);
# elif defined PFE_HAVE_USLEEP
    usleep (ms * 1000);
# elif defined PFE_HAVE_WINBASE_H
    Sleep (ms);
# elif defined PFE_HAVE_POLL
    static struct pollfd dummy = 
{ 0, POLLHUP, POLLHUP }
;
    poll (&dummy, 1, ms);
# elif defined PFE_HAVE_SELECT || defined PFE_HAVE_SYS_SELECT_H
    struct timeval tval;
    tval.tv_sec = ms / 1000;
    tval.tv_usec = ms % 1000 * 1000;
    select (0, NULL, NULL, NULL, &tval);
# else
    sleep ((ms + 999) / 1000);
# endif
#else /* VxWorks */
# ifndef NANOSLEEP_BUG
    struct timespec rqtp;

    rqtp.tv_sec = (time_t) (ms / 1000);
    rqtp.tv_nsec = (long) (ms % 1000) * 1000000; 
    nanosleep (&rqtp, 0);
# else
    int clocks = CLOCKS_PER_SEC*ms/1000;
    if (clocks) 
{
        taskDelay (clocks); 
    }

# endif
#endif /* VxWorks */
}


/*@}*/