/* Selective.c provide access to timeval and select.
Copyright (C) 2009-2022 Free Software Foundation, Inc.
Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
This file is part of GNU Modula-2.
GNU Modula-2 is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.
GNU Modula-2 is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include <config.h>
#include <m2rts.h>
#if defined(HAVE_STDDEF_H)
/* Obtain a definition for NULL. */
#include <stddef.h>
#endif
#if defined(HAVE_STDIO_H)
#include <stdio.h>
#if defined(HAVE_SYS_TIME_H)
#include <sys/time.h>
#if defined(HAVE_TIME_H)
#include <time.h>
#if defined(HAVE_STRING_H)
#include <string.h>
#if defined(HAVE_WCHAR_H)
#include <wchar.h>
#if defined(HAVE_STDLIB_H)
/* Obtain a prototype for free and malloc. */
#include <stdlib.h>
#if defined(HAVE_SYS_TYPES_H)
#include <sys/types.h>
#if defined(HAVE_UNISTD_H)
#include <unistd.h>
#if !defined(NULL)
#define NULL (void *)0
#if defined(HAVE_SELECT)
#define FDSET_T fd_set
#else
#define FDSET_T void
/* Select wrap a call to the C select. */
#if defined(HAVE_STRUCT_TIMEVAL)
extern "C" int
Selective_Select (int nooffds, fd_set *readfds, fd_set *writefds,
fd_set *exceptfds, struct timeval *timeout)
{
return select (nooffds, readfds, writefds, exceptfds, timeout);
}
Selective_Select (int nooffds, void *readfds, void *writefds, void *exceptfds,
void *timeout)
return 0;
/* InitTime initializes a timeval structure and returns a pointer to it. */
extern "C" struct timeval *
Selective_InitTime (unsigned int sec, unsigned int usec)
struct timeval *t = (struct timeval *)malloc (sizeof (struct timeval));
t->tv_sec = (long int)sec;
t->tv_usec = (long int)usec;
return t;
extern "C" void
Selective_GetTime (struct timeval *t, unsigned int *sec, unsigned int *usec)
*sec = (unsigned int)t->tv_sec;
*usec = (unsigned int)t->tv_usec;
Selective_SetTime (struct timeval *t, unsigned int sec, unsigned int usec)
t->tv_sec = sec;
t->tv_usec = usec;
/* KillTime frees the timeval structure and returns NULL. */
Selective_KillTime (struct timeval *t)
free (t);
return NULL;
/* InitSet returns a pointer to a FD_SET. */
extern "C" FDSET_T *
Selective_InitSet (void)
FDSET_T *s = (FDSET_T *)malloc (sizeof (FDSET_T));
return s;
return NULL
/* KillSet frees the FD_SET and returns NULL. */
Selective_KillSet (FDSET_T *s)
free (s);
/* FdZero generate an empty set. */
Selective_FdZero (FDSET_T *s)
FD_ZERO (s);
/* FS_Set include an element, fd, into set, s. */
Selective_FdSet (int fd, FDSET_T *s)
FD_SET (fd, s);
/* FdClr exclude an element, fd, from the set, s. */
Selective_FdClr (int fd, FDSET_T *s)
FD_CLR (fd, s);
/* FdIsSet return TRUE if, fd, is present in set, s. */
Selective_FdIsSet (int fd, FDSET_T *s)
return FD_ISSET (fd, s);
/* GetTimeOfDay fills in a record, Timeval, filled in with the
current system time in seconds and microseconds.
It returns zero (see man 3p gettimeofday). */
Selective_GetTimeOfDay (struct timeval *t)
return gettimeofday (t, NULL);
extern "C" void *
Selective_KillTime (void *t)
Selective_GetTime (void *t, unsigned int *sec, unsigned int *usec)
Selective_SetTime (void *t, unsigned int sec, unsigned int usec)
Selective_KillSet (void)
Selective_FdZero (void *s)
Selective_FdSet (int fd, void *s)
Selective_FdClr (int fd, void *s)
Selective_FdIsSet (int fd, void *s)
Selective_GetTimeOfDay (void *t)
return -1;
/* MaxFdsPlusOne returns max (a + 1, b + 1). */
Selective_MaxFdsPlusOne (int a, int b)
if (a > b)
return a + 1;
else
return b + 1;
/* WriteCharRaw writes a single character to the file descriptor. */
Selective_WriteCharRaw (int fd, char ch)
write (fd, &ch, 1);
/* ReadCharRaw read and return a single char from file descriptor, fd. */
extern "C" char
Selective_ReadCharRaw (int fd)
char ch;
read (fd, &ch, 1);
return ch;
_M2_Selective_init (int argc, char *argv[], char *envp[])
_M2_Selective_fini (int argc, char *argv[], char *envp[])
_M2_Selective_dep (void)
extern "C" void __attribute__((__constructor__))
_M2_Selective_ctor (void)
M2RTS_RegisterModule ("Selective", _M2_Selective_init, _M2_Selective_fini,
_M2_Selective_dep);
