gcc/m2/gm2-libs-iso/RTio.mod

   1 (* RTio.mod implements low level routines for creating and destroying ChanIds.
   2
   3 Copyright (C) 2008-2024 Free Software Foundation, Inc.
   4 Contributed by Gaius Mulley <gaius.mulley@southwales.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 Under Section 7 of GPL version 3, you are granted additional
  19 permissions described in the GCC Runtime Library Exception, version
  20 3.1, as published by the Free Software Foundation.
  21
  22 You should have received a copy of the GNU General Public License and
  23 a copy of the GCC Runtime Library Exception along with this program;
  24 see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
  25 <http://www.gnu.org/licenses/>.  *)
  26
  27 IMPLEMENTATION MODULE RTio ;
  28
  29 FROM Storage IMPORT ALLOCATE, DEALLOCATE ;
  30
  31
  32 TYPE
  33    ChanId = POINTER TO RECORD
  34                           did  : IOLink.DeviceId ;
  35                           dtp  : IOLink.DeviceTablePtr ;
  36                           file : FIO.File ;
  37                        END ;
  38
  39
  40 (*
  41    InitChanId - return a new ChanId.
  42 *)
  43
  44 PROCEDURE InitChanId () : ChanId ;
  45 VAR
  46    c: ChanId ;
  47 BEGIN
  48    NEW(c) ;
  49    RETURN( c )
  50 END InitChanId ;
  51
  52
  53 (*
  54    InitChanId - deallocate a ChanId.
  55 *)
  56
  57 PROCEDURE KillChanId (c: ChanId) : ChanId ;
  58 BEGIN
  59    DISPOSE(c) ;
  60    RETURN( NIL )
  61 END KillChanId ;
  62
  63
  64 (*
  65    NilChanId - return a NIL pointer.
  66 *)
  67
  68 PROCEDURE NilChanId () : ChanId ;
  69 BEGIN
  70    RETURN( NIL )
  71 END NilChanId ;
  72
  73
  74 (*
  75    GetDeviceId - returns the device id, from, c.
  76 *)
  77
  78 PROCEDURE GetDeviceId (c: ChanId) : IOLink.DeviceId ;
  79 BEGIN
  80    RETURN( c^.did )
  81 END GetDeviceId ;
  82
  83
  84 (*
  85    SetDeviceId - returns the device id, from, c.
  86 *)
  87
  88 PROCEDURE SetDeviceId (c: ChanId; d: IOLink.DeviceId) ;
  89 BEGIN
  90    c^.did := d
  91 END SetDeviceId ;
  92
  93
  94 (*
  95    GetDevicePtr - returns the device table ptr, from, c.
  96 *)
  97
  98 PROCEDURE GetDevicePtr (c: ChanId) : IOLink.DeviceTablePtr ;
  99 BEGIN
 100    RETURN( c^.dtp )
 101 END GetDevicePtr ;
 102
 103 (*
 104    SetDevicePtr - sets the device table ptr in, c.
 105 *)
 106
 107 PROCEDURE SetDevicePtr (c: ChanId; p: IOLink.DeviceTablePtr) ;
 108 BEGIN
 109    c^.dtp := p
 110 END SetDevicePtr ;
 111
 112
 113 (*
 114    GetFile - returns the file field from, c.
 115 *)
 116
 117 PROCEDURE GetFile (c: ChanId) : FIO.File ;
 118 BEGIN
 119    RETURN( c^.file )
 120 END GetFile ;
 121
 122
 123 (*
 124    SetFile - sets the file field in, c.
 125 *)
 126
 127 PROCEDURE SetFile (c: ChanId; f: FIO.File) ;
 128 BEGIN
 129    c^.file := f
 130 END SetFile ;
 131
 132
 133 END RTio.