gcc/m2/mc-boot-ch/GSelective.c

   1 /* GSelective.c provides access to select for Modula-2.
   2
   3 Copyright (C) 2016-2023 Free Software Foundation, Inc.
   4 Contributed by Gaius Mulley <gaius@glam.ac.uk>.
   5
   6 This file is part of GNU Modula-2.
   7
   8 GNU Modula-2 is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3, or (at your option)
  11 any later version.
  12
  13 GNU Modula-2 is distributed in the hope that it will be useful, but
  14 WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GNU Modula-2; see the file COPYING3.  If not see
  20 <http://www.gnu.org/licenses/>.  */
  21
  22 /* implementation module in C.  */
  23
  24 #include "config.h"
  25 #include "system.h"
  26 #include "ansidecl.h"
  27
  28 #include "gm2-libs-host.h"
  29
  30 #if defined(__cplusplus)
  31 #define EXTERN extern "C"
  32 #else
  33 #define EXTERN
  34 #endif
  35
  36 /* PROCEDURE Select (nooffds: CARDINAL; readfds, writefds, exceptfds:
  37 SetOfFd; timeout: Timeval) : INTEGER ; */
  38
  39 #if defined(HAVE_SELECT)
  40 EXTERN
  41 int
  42 Selective_Select (int nooffds, fd_set *readfds, fd_set *writefds,
  43                   fd_set *exceptfds, struct timeval *timeout)
  44 {
  45   return select (nooffds, readfds, writefds, exceptfds, timeout);
  46 }
  47 #else
  48 EXTERN
  49 int
  50 Selective_Select (int nooffds, void *readfds, void *writefds, void *exceptfds,
  51                   void *timeout)
  52 {
  53   return 0;
  54 }
  55 #endif
  56
  57 /* PROCEDURE InitTime (sec, usec) : Timeval ; */
  58
  59 #if defined(HAVE_SELECT)
  60 EXTERN
  61 struct timeval *
  62 Selective_InitTime (unsigned int sec, unsigned int usec)
  63 {
  64   struct timeval *t = (struct timeval *)malloc (sizeof (struct timeval));
  65
  66   t->tv_sec = (long int)sec;
  67   t->tv_usec = (long int)usec;
  68   return t;
  69 }
  70
  71 EXTERN
  72 void
  73 Selective_GetTime (struct timeval *t, unsigned int *sec, unsigned int *usec)
  74 {
  75   *sec = (unsigned int)t->tv_sec;
  76   *usec = (unsigned int)t->tv_usec;
  77 }
  78
  79 EXTERN
  80 void
  81 Selective_SetTime (struct timeval *t, unsigned int sec, unsigned int usec)
  82 {
  83   t->tv_sec = sec;
  84   t->tv_usec = usec;
  85 }
  86
  87 /* PROCEDURE KillTime (t: Timeval) : Timeval ; */
  88
  89 EXTERN
  90 struct timeval *
  91 Selective_KillTime (struct timeval *t)
  92 {
  93   free (t);
  94   return NULL;
  95 }
  96
  97 /* PROCEDURE InitSet () : SetOfFd ; */
  98
  99 EXTERN
 100 fd_set *
 101 Selective_InitSet (void)
 102 {
 103   fd_set *s = (fd_set *)malloc (sizeof (fd_set));
 104
 105   return s;
 106 }
 107
 108 /* PROCEDURE KillSet (s: SetOfFd) : SetOfFd ; */
 109
 110 EXTERN
 111 fd_set *
 112 Selective_KillSet (fd_set *s)
 113 {
 114   free (s);
 115   return NULL;
 116 }
 117
 118 /* PROCEDURE FdZero (s: SetOfFd) ; */
 119
 120 EXTERN
 121 void
 122 Selective_FdZero (fd_set *s)
 123 {
 124   FD_ZERO (s);
 125 }
 126
 127 /* PROCEDURE Fd_Set (fd: INTEGER; SetOfFd) ; */
 128
 129 EXTERN
 130 void
 131 Selective_FdSet (int fd, fd_set *s)
 132 {
 133   FD_SET (fd, s);
 134 }
 135
 136 /* PROCEDURE FdClr (fd: INTEGER; SetOfFd) ; */
 137
 138 EXTERN
 139 void
 140 Selective_FdClr (int fd, fd_set *s)
 141 {
 142   FD_CLR (fd, s);
 143 }
 144
 145 /* PROCEDURE FdIsSet (fd: INTEGER; SetOfFd) : BOOLEAN ; */
 146
 147 EXTERN
 148 int
 149 Selective_FdIsSet (int fd, fd_set *s)
 150 {
 151   return FD_ISSET (fd, s);
 152 }
 153
 154 /* GetTimeOfDay - fills in a record, Timeval, filled in with the
 155 current system time in seconds and microseconds.  It returns zero
 156 (see man 3p gettimeofday) */
 157
 158 EXTERN
 159 int
 160 Selective_GetTimeOfDay (struct timeval *t)
 161 {
 162   return gettimeofday (t, NULL);
 163 }
 164 #else
 165
 166 EXTERN
 167 void *
 168 Selective_InitTime (unsigned int sec, unsigned int usec)
 169 {
 170   return NULL;
 171 }
 172
 173 EXTERN
 174 void *
 175 Selective_KillTime (void *t)
 176 {
 177   return NULL;
 178 }
 179
 180 EXTERN
 181 void
 182 Selective_GetTime (struct timeval *t, unsigned int *sec, unsigned int *usec)
 183 {
 184 }
 185
 186 EXTERN
 187 void
 188 Selective_SetTime (struct timeval *t, unsigned int sec, unsigned int usec)
 189 {
 190 }
 191
 192 EXTERN
 193 fd_set *
 194 Selective_InitSet (void)
 195 {
 196   return NULL;
 197 }
 198
 199 EXTERN
 200 void
 201 Selective_FdZero (void *s)
 202 {
 203 }
 204
 205 EXTERN
 206 void
 207 Selective_FdSet (int fd, void *s)
 208 {
 209 }
 210
 211 EXTERN
 212 void
 213 Selective_FdClr (int fd, void *s)
 214 {
 215 }
 216
 217 EXTERN
 218 int
 219 Selective_FdIsSet (int fd, void *s)
 220 {
 221   return 0;
 222 }
 223
 224 EXTERN
 225 int
 226 Selective_GetTimeOfDay (struct timeval *t)
 227 {
 228   return -1;
 229 }
 230 #endif
 231
 232 /* PROCEDURE MaxFdsPlusOne (a, b: File) : File ; */
 233
 234 EXTERN
 235 int
 236 Selective_MaxFdsPlusOne (int a, int b)
 237 {
 238   if (a > b)
 239     return a + 1;
 240   else
 241     return b + 1;
 242 }
 243
 244 /* PROCEDURE WriteCharRaw (fd: INTEGER; ch: CHAR) ; */
 245
 246 EXTERN
 247 void
 248 Selective_WriteCharRaw (int fd, char ch)
 249 {
 250   write (fd, &ch, 1);
 251 }
 252
 253 /* PROCEDURE ReadCharRaw (fd: INTEGER) : CHAR ; */
 254
 255 EXTERN
 256 char
 257 Selective_ReadCharRaw (int fd)
 258 {
 259   char ch;
 260
 261   read (fd, &ch, 1);
 262   return ch;
 263 }
 264
 265 EXTERN
 266 void
 267 _M2_Selective_init ()
 268 {
 269 }
 270
 271 EXTERN
 272 void
 273 _M2_Selective_fini ()
 274 {
 275 }