Algol 68 Genie

a68g-generic.h

     
   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-2024 J. Marcel van der Veer [algol68g@xs4all.nl].
   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 [http://www.gnu.org/licenses/].
  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
Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.