gcc/m2/pge-boot/GIO.cc

   1 /* do not edit automatically generated by mc from IO.  */
   2 /* IO.mod provides Read, Write, Errors procedures mapping onto 0, 1 and 2.
   3
   4 Copyright (C) 2001-2024 Free Software Foundation, Inc.
   5 Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
   6
   7 This file is part of GNU Modula-2.
   8
   9 GNU Modula-2 is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 3, or (at your option)
  12 any later version.
  13
  14 GNU Modula-2 is distributed in the hope that it will be useful, but
  15 WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 General Public License for more details.
  18
  19 Under Section 7 of GPL version 3, you are granted additional
  20 permissions described in the GCC Runtime Library Exception, version
  21 3.1, as published by the Free Software Foundation.
  22
  23 You should have received a copy of the GNU General Public License and
  24 a copy of the GCC Runtime Library Exception along with this program;
  25 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  26 <http://www.gnu.org/licenses/>.  */
  27
  28 #include <stdbool.h>
  29 #   if !defined (PROC_D)
  30 #      define PROC_D
  31        typedef void (*PROC_t) (void);
  32        typedef struct { PROC_t proc; } PROC;
  33 #   endif
  34
  35 #   if !defined (TRUE)
  36 #      define TRUE (1==1)
  37 #   endif
  38
  39 #   if !defined (FALSE)
  40 #      define FALSE (1==0)
  41 #   endif
  42
  43 #include <stdlib.h>
  44 #include <unistd.h>
  45 #define _IO_H
  46 #define _IO_C
  47
  48 #   include "GStrLib.h"
  49 #   include "GSYSTEM.h"
  50 #   include "Glibc.h"
  51 #   include "GFIO.h"
  52 #   include "Gerrno.h"
  53 #   include "GASCII.h"
  54 #   include "Gtermios.h"
  55
  56 #   define MaxDefaultFd 2
  57 typedef struct IO_BasicFds_r IO_BasicFds;
  58
  59 typedef struct IO__T1_a IO__T1;
  60
  61 struct IO_BasicFds_r {
  62                        bool IsEof;
  63                        bool IsRaw;
  64                      };
  65
  66 struct IO__T1_a { IO_BasicFds array[MaxDefaultFd+1]; };
  67 static IO__T1 fdState;
  68
  69 /*
  70    IsDefaultFd - returns TRUE if, fd, is 0, 1 or 2.
  71 */
  72
  73 extern "C" void IO_Read (char *ch);
  74
  75 /*
  76    doWrite - performs the write of a single character, ch,
  77              onto fd or f.
  78 */
  79
  80 extern "C" void IO_Write (char ch);
  81
  82 /*
  83    doWrite - performs the write of a single character, ch,
  84              onto fd or f.
  85 */
  86
  87 extern "C" void IO_Error (char ch);
  88 extern "C" void IO_UnBufferedMode (int fd, bool input);
  89 extern "C" void IO_BufferedMode (int fd, bool input);
  90
  91 /*
  92    EchoOn - turns on echoing for file descriptor, fd.  This
  93             only really makes sence for a file descriptor opened
  94             for terminal input or maybe some specific file descriptor
  95             which is attached to a particular piece of hardware.
  96 */
  97
  98 extern "C" void IO_EchoOn (int fd, bool input);
  99
 100 /*
 101    EchoOff - turns off echoing for file descriptor, fd.  This
 102              only really makes sence for a file descriptor opened
 103              for terminal input or maybe some specific file descriptor
 104              which is attached to a particular piece of hardware.
 105 */
 106
 107 extern "C" void IO_EchoOff (int fd, bool input);
 108
 109 /*
 110    IsDefaultFd - returns TRUE if, fd, is 0, 1 or 2.
 111 */
 112
 113 static bool IsDefaultFd (int fd);
 114
 115 /*
 116    doWrite - performs the write of a single character, ch,
 117              onto fd or f.
 118 */
 119
 120 static void doWrite (int fd, FIO_File f, char ch);
 121
 122 /*
 123    setFlag - sets or unsets the appropriate flag in, t.
 124 */
 125
 126 static void setFlag (termios_TERMIOS t, termios_Flag f, bool b);
 127
 128 /*
 129    doraw - sets all the flags associated with making this
 130            file descriptor into raw input/output.
 131 */
 132
 133 static void doraw (termios_TERMIOS term);
 134
 135 /*
 136    dononraw - sets all the flags associated with making this
 137               file descriptor into non raw input/output.
 138 */
 139
 140 static void dononraw (termios_TERMIOS term);
 141
 142 /*
 143    Init -
 144 */
 145
 146 static void Init (void);
 147
 148
 149 /*
 150    IsDefaultFd - returns TRUE if, fd, is 0, 1 or 2.
 151 */
 152
 153 static bool IsDefaultFd (int fd)
 154 {
 155   return (fd <= MaxDefaultFd) && (fd >= 0);
 156   /* static analysis guarentees a RETURN statement will be used before here.  */
 157   __builtin_unreachable ();
 158 }
 159
 160
 161 /*
 162    doWrite - performs the write of a single character, ch,
 163              onto fd or f.
 164 */
 165
 166 static void doWrite (int fd, FIO_File f, char ch)
 167 {
 168   int r;
 169
 170   if (fdState.array[fd].IsRaw)
 171     {
 172       /* avoid dangling else.  */
 173       if (! fdState.array[fd].IsEof)
 174         {
 175           for (;;)
 176           {
 177             r = static_cast<int> (libc_write (FIO_GetUnixFileDescriptor (f), &ch, static_cast<size_t> (1)));
 178             if (r == 1)
 179               {
 180                 return ;
 181               }
 182             else if (r == -1)
 183               {
 184                 /* avoid dangling else.  */
 185                 r = errno_geterrno ();
 186                 if ((r != errno_EAGAIN) && (r != errno_EINTR))
 187                   {
 188                     fdState.array[fd].IsEof = true;
 189                     return ;
 190                   }
 191               }
 192           }
 193         }
 194     }
 195   else
 196     {
 197       FIO_WriteChar (f, ch);
 198     }
 199 }
 200
 201
 202 /*
 203    setFlag - sets or unsets the appropriate flag in, t.
 204 */
 205
 206 static void setFlag (termios_TERMIOS t, termios_Flag f, bool b)
 207 {
 208   if (termios_SetFlag (t, f, b))
 209     {}  /* empty.  */
 210 }
 211
 212
 213 /*
 214    doraw - sets all the flags associated with making this
 215            file descriptor into raw input/output.
 216 */
 217
 218 static void doraw (termios_TERMIOS term)
 219 {
 220   /*
 221     * from man 3 termios
 222     *           termios_p->c_iflag &= ~(IGNBRK | BRKINT | PARMRK | ISTRIP
 223     *                                   | INLCR | IGNCR | ICRNL | IXON);
 224     *           termios_p->c_oflag &= ~OPOST;
 225     *           termios_p->c_lflag &= ~(ECHO | ECHONL | ICANON | ISIG | IEXTEN);
 226     *           termios_p->c_cflag &= ~(CSIZE | PARENB);
 227     *           termios_p->c_cflag |= CS8;
 228   */
 229   setFlag (term, termios_ignbrk, false);
 230   setFlag (term, termios_ibrkint, false);
 231   setFlag (term, termios_iparmrk, false);
 232   setFlag (term, termios_istrip, false);
 233   setFlag (term, termios_inlcr, false);
 234   setFlag (term, termios_igncr, false);
 235   setFlag (term, termios_icrnl, false);
 236   setFlag (term, termios_ixon, false);
 237   setFlag (term, termios_opost, false);
 238   setFlag (term, termios_lecho, false);
 239   setFlag (term, termios_lechonl, false);
 240   setFlag (term, termios_licanon, false);
 241   setFlag (term, termios_lisig, false);
 242   setFlag (term, termios_liexten, false);
 243   setFlag (term, termios_parenb, false);
 244   setFlag (term, termios_cs8, true);
 245 }
 246
 247
 248 /*
 249    dononraw - sets all the flags associated with making this
 250               file descriptor into non raw input/output.
 251 */
 252
 253 static void dononraw (termios_TERMIOS term)
 254 {
 255   /*
 256     * we undo these settings, (although we leave the character size alone)
 257     *
 258     * from man 3 termios
 259     *           termios_p->c_iflag &= ~(IGNBRK | BRKINT | PARMRK | ISTRIP
 260     *                                   | INLCR | IGNCR | ICRNL | IXON);
 261     *           termios_p->c_oflag &= ~OPOST;
 262     *           termios_p->c_lflag &= ~(ECHO | ECHONL | ICANON | ISIG | IEXTEN);
 263     *           termios_p->c_cflag &= ~(CSIZE | PARENB);
 264     *           termios_p->c_cflag |= CS8;
 265   */
 266   setFlag (term, termios_ignbrk, true);
 267   setFlag (term, termios_ibrkint, true);
 268   setFlag (term, termios_iparmrk, true);
 269   setFlag (term, termios_istrip, true);
 270   setFlag (term, termios_inlcr, true);
 271   setFlag (term, termios_igncr, true);
 272   setFlag (term, termios_icrnl, true);
 273   setFlag (term, termios_ixon, true);
 274   setFlag (term, termios_opost, true);
 275   setFlag (term, termios_lecho, true);
 276   setFlag (term, termios_lechonl, true);
 277   setFlag (term, termios_licanon, true);
 278   setFlag (term, termios_lisig, true);
 279   setFlag (term, termios_liexten, true);
 280 }
 281
 282
 283 /*
 284    Init -
 285 */
 286
 287 static void Init (void)
 288 {
 289   unsigned int fdi;
 290
 291   for (fdi=0; fdi<=MaxDefaultFd; fdi++)
 292     {
 293       fdState.array[fdi].IsEof = false;
 294       fdState.array[fdi].IsRaw = false;
 295     }
 296 }
 297
 298
 299 /*
 300    IsDefaultFd - returns TRUE if, fd, is 0, 1 or 2.
 301 */
 302
 303 extern "C" void IO_Read (char *ch)
 304 {
 305   int r;
 306
 307   FIO_FlushBuffer (FIO_StdOut);
 308   FIO_FlushBuffer (FIO_StdErr);
 309   if (fdState.array[0].IsRaw)
 310     {
 311       if (fdState.array[0].IsEof)
 312         {
 313           (*ch) = ASCII_eof;
 314         }
 315       else
 316         {
 317           for (;;)
 318           {
 319             r = static_cast<int> (libc_read (FIO_GetUnixFileDescriptor (FIO_StdIn), ch, static_cast<size_t> (1)));
 320             if (r == 1)
 321               {
 322                 return ;
 323               }
 324             else if (r == -1)
 325               {
 326                 /* avoid dangling else.  */
 327                 r = errno_geterrno ();
 328                 if (r != errno_EAGAIN)
 329                   {
 330                     fdState.array[0].IsEof = true;
 331                     (*ch) = ASCII_eof;
 332                     return ;
 333                   }
 334               }
 335           }
 336         }
 337     }
 338   else
 339     {
 340       (*ch) = FIO_ReadChar (FIO_StdIn);
 341     }
 342 }
 343
 344
 345 /*
 346    doWrite - performs the write of a single character, ch,
 347              onto fd or f.
 348 */
 349
 350 extern "C" void IO_Write (char ch)
 351 {
 352   doWrite (1, FIO_StdOut, ch);
 353 }
 354
 355
 356 /*
 357    doWrite - performs the write of a single character, ch,
 358              onto fd or f.
 359 */
 360
 361 extern "C" void IO_Error (char ch)
 362 {
 363   doWrite (2, FIO_StdErr, ch);
 364 }
 365
 366 extern "C" void IO_UnBufferedMode (int fd, bool input)
 367 {
 368   termios_TERMIOS term;
 369   int result;
 370
 371   if (IsDefaultFd (fd))
 372     {
 373       fdState.array[fd].IsRaw = true;
 374     }
 375   term = termios_InitTermios ();
 376   if ((termios_tcgetattr (fd, term)) == 0)
 377     {
 378       doraw (term);
 379       if (input)
 380         {
 381           result = termios_tcsetattr (fd, termios_tcsflush (), term);
 382         }
 383       else
 384         {
 385           result = termios_tcsetattr (fd, termios_tcsdrain (), term);
 386         }
 387     }
 388   term = termios_KillTermios (term);
 389 }
 390
 391 extern "C" void IO_BufferedMode (int fd, bool input)
 392 {
 393   termios_TERMIOS term;
 394   int r;
 395
 396   if (IsDefaultFd (fd))
 397     {
 398       fdState.array[fd].IsRaw = false;
 399     }
 400   term = termios_InitTermios ();
 401   if ((termios_tcgetattr (fd, term)) == 0)
 402     {
 403       dononraw (term);
 404       if (input)
 405         {
 406           r = termios_tcsetattr (fd, termios_tcsflush (), term);
 407         }
 408       else
 409         {
 410           r = termios_tcsetattr (fd, termios_tcsdrain (), term);
 411         }
 412     }
 413   term = termios_KillTermios (term);
 414 }
 415
 416
 417 /*
 418    EchoOn - turns on echoing for file descriptor, fd.  This
 419             only really makes sence for a file descriptor opened
 420             for terminal input or maybe some specific file descriptor
 421             which is attached to a particular piece of hardware.
 422 */
 423
 424 extern "C" void IO_EchoOn (int fd, bool input)
 425 {
 426   termios_TERMIOS term;
 427   int result;
 428
 429   term = termios_InitTermios ();
 430   if ((termios_tcgetattr (fd, term)) == 0)
 431     {
 432       setFlag (term, termios_lecho, true);
 433       if (input)
 434         {
 435           result = termios_tcsetattr (fd, termios_tcsflush (), term);
 436         }
 437       else
 438         {
 439           result = termios_tcsetattr (fd, termios_tcsdrain (), term);
 440         }
 441     }
 442   term = termios_KillTermios (term);
 443 }
 444
 445
 446 /*
 447    EchoOff - turns off echoing for file descriptor, fd.  This
 448              only really makes sence for a file descriptor opened
 449              for terminal input or maybe some specific file descriptor
 450              which is attached to a particular piece of hardware.
 451 */
 452
 453 extern "C" void IO_EchoOff (int fd, bool input)
 454 {
 455   termios_TERMIOS term;
 456   int result;
 457
 458   term = termios_InitTermios ();
 459   if ((termios_tcgetattr (fd, term)) == 0)
 460     {
 461       setFlag (term, termios_lecho, false);
 462       if (input)
 463         {
 464           result = termios_tcsetattr (fd, termios_tcsflush (), term);
 465         }
 466       else
 467         {
 468           result = termios_tcsetattr (fd, termios_tcsdrain (), term);
 469         }
 470     }
 471   term = termios_KillTermios (term);
 472 }
 473
 474 extern "C" void _M2_IO_init (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
 475 {
 476   Init ();
 477 }
 478
 479 extern "C" void _M2_IO_fini (__attribute__((unused)) int argc,__attribute__((unused)) char *argv[],__attribute__((unused)) char *envp[])
 480 {
 481 }