Parent:
[c017f0]
(diff)
Child:
[8d1c2d]
(diff)
Download this file
CommonIO.def.m2cc
59 lines (47 with data), 2.7 kB
DEFINITION MODULE CommonIO;
(*========================================================================*)
(* WICHTIG: BITTE NUR DIE DATEI SysLib.def.m2cc EDITIEREN !!! *)
(*========================================================================*)
(* Es sind 2 Versionen enthalten die mit *)
(* *)
(* m2cc -D __{Parameter}__ < CommonIO.def.m2cc > CommonIO.def *)
(* *)
(* mit Parameter = {XDS|GM2} erzeugt werden koennen. *)
(* *)
(* XDS : Parameter werden fuer den XDS Modula-2 Compilter gesetzt *)
(* GM2 : Parameter werden fuer den GNU Modula-2 Compilter gesetzt *)
(* *)
(* Kontrolliert die IO-Module TIO,FIO,SIO sowie Streams *)
(* *)
(* Controls the IO-Module TIO,FIO,SIO and Streams, not for direct use *)
(* There are two version contained - one for XDS and on for GM2, they can *)
(* obtained with the m2cc command line shown above *)
(*------------------------------------------------------------------------*)
(* Offene Punkte *)
(* *)
(* - Verbesserte Praeprozessordirektiven um mehr Varianten abbilden zu *)
(* koennen *)
(*------------------------------------------------------------------------*)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id: CommonIO.def.m2cc,v 1.1 2018/01/14 15:30:34 mriedl Exp $ *)
IMPORT ASCII,SYSTEM;
(* UNIX *)
CONST EoL = ASCII.lf; (* Zeichen f"ur Zeilenende. *)
EoF = ASCII.sub; (* Zeichen f"ur Dateiende. *)
#ifdef __XDS__
(* MSDOS | OS/2 | WinDoof *)
<* IF (__WINDOWS__) THEN *>
CONST EoL = ASCII.rs; (* Zeichen f"ur Zeilenende. *)
EoF = ASCII.sub; (* Zeichen f"ur Dateiende. *)
<* END *>
#endif
CONST CrLf = FALSE; (* TRUE f"ur MSDOS | OS/2 *)
MaxBit = 31; (* Maximalzahl Bits je BITSET *)
#ifdef __GM2__
TYPE FilePrt = SYSTEM.CARDINAL64;
#endif
#ifdef __XDS__
TYPE FilePrt = SYSTEM.CARD64;
#endif
END CommonIO.