posix.c

Go to the documentation of this file.

/****************************************************************/
/* posix.c
/*      1995-Jul        nanosleep by S.Kagami.
/****************************************************************/
 
 
#include "eus.h"
 
#if Solaris2
typedef struct {
    long        tv_sec; /* seconds */
    long        tv_nsec;/* and nanoseconds */
} timespec;
 
pointer NANOSLEEP(context *ctx, int n, pointer *argv)
{
    timespec rqtp, rmtp;
 
    ckarg(2);
    rqtp.tv_sec = ckintval(argv[0]);
    rqtp.tv_nsec = ckintval(argv[1]);
 
    nanosleep(&rqtp, &rmtp);
    return(T);
}
#endif
 
/* initialization of posix functions*/
posix(context *ctx, int n, pointer argv[])
{
  pointer mod=argv[0];
 
    pointer p=spevalof(PACKAGE);
 
    spevalof(PACKAGE)=unixpkg;
 
#if Solaris2
    defun(ctx,"NANOSLEEP",mod,NANOSLEEP,NULL);
#endif
 
/* restore package*/  spevalof(PACKAGE)=p;
}