Algol 68 Genie

a68g-generic.h

You can download the current version of Algol 68 Genie and its documentation here.
   1 //! @file a68g-generic.h
   2 //! @author J. Marcel van der Veer
   3 //!
   4 //! @section Copyright
   5 //!
   6 //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
   7 //! Copyright 2001-2023 J. Marcel van der Veer .
   8 //!
   9 //! @section License
  10 //!
  11 //! This program is free software; you can redistribute it and/or modify it 
  12 //! under the terms of the GNU General Public License as published by the 
  13 //! Free Software Foundation; either version 3 of the License, or 
  14 //! (at your option) any later version.
  15 //!
  16 //! This program is distributed in the hope that it will be useful, but 
  17 //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
  18 //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 
  19 //! more details. You should have received a copy of the GNU General Public 
  20 //! License along with this program. If not, see .
  21 
  22 //! @section Synopsis
  23 //!
  24 //! Platform dependent definitions.
  25 
  26 #if !defined (__A68G_LEGACY_H__)
  27 #define __A68G_LEGACY_H__
  28 
  29 typedef int INT_T;
  30 typedef unt UNSIGNED_T;
  31 typedef UNSIGNED_T ADDR_T;
  32 typedef REAL_T A68_LONG_COMPLEX[2];
  33 typedef REAL_T DOUBLE_T;
  34 
  35 typedef int *A68_ALIGN_T;
  36 
  37 #define A68_LD "%d"
  38 #define A68_LU "%u"
  39 #define A68_LX "%x"
  40 
  41 #define a68_strtoi strtol
  42 #define a68_strtou strtoul
  43 
  44 #define A68_FRAME_ALIGN(s) ((int) ((s) % 8) == 0 ? (s) : ((s) - (s) % 8 + 8))
  45 
  46 typedef REAL_T MP_REAL_T;
  47 typedef int MP_INT_T;
  48 typedef unt MP_BITS_T;
  49 typedef MP_REAL_T MP_T;
  50 
  51 #define FLOOR_MP floor
  52 
  53 extern void stand_longlong_bits (void);
  54 
  55 #endif