Algol 68 Genie

a68g-mach.h

     
   1  //! @file a68g-mach.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  //! Machine parameters.
  25  
  26  #if ! defined (__A68G_MACH_H__)
  27  #define __A68G_MACH_H__
  28  
  29  #if (A68_LEVEL >= 3)
  30  #define A68_MAX_INT (a68g_i64mach (9))
  31  #else
  32  #define A68_MAX_INT (a68g_i32mach (9))
  33  #endif
  34  
  35  #define A68_STDIN  (a68g_i32mach (1))
  36  #define A68_STDOUT (a68g_i32mach (2))
  37  #define A68_STDPUN (a68g_i32mach (3))
  38  #define A68_STDERR (a68g_i32mach (4))
  39  
  40  #define A68_REAL_MIN (a68g_r64mach (1))
  41  #define A68_REAL_MAX (a68g_r64mach (2))
  42  #define A68_REAL_EPS (a68g_r64mach (4))
  43  #define A68_REAL_MIN_EXP ((int) a68g_r64mach (6))
  44  #define A68_REAL_MAX_EXP ((int) a68g_r64mach (7))
  45  #define A68_REAL_DIG ((int) a68g_r64mach (8))
  46  #define A68_REAL_MAN ((int) a68g_r64mach (9))
  47  
  48  #define A68_DOUBLE_MIN (a68g_r128mach (1))
  49  #define A68_DOUBLE_MAX (a68g_r128mach (2))
  50  #define A68_DOUBLE_EPS (a68g_r128mach (4))
  51  #define A68_DOUBLE_MIN_EXP ((int) a68g_r128mach (6))
  52  #define A68_DOUBLE_MAX_EXP ((int) a68g_r128mach (7))
  53  #define A68_DOUBLE_DIG ((int) a68g_r128mach (8))
  54  #define A68_DOUBLE_MAN ((int) a68g_r128mach (9))
  55  
  56  int a68g_i32mach (int);
  57  GPROC genie_i32mach;
  58  
  59  REAL_T a68g_r64mach (int);
  60  GPROC genie_r64mach;
  61  
  62  #if (A68_LEVEL >= 3)
  63  
  64  INT_T a68g_i64mach (int);
  65  GPROC genie_i64mach;
  66  
  67  DOUBLE_T a68g_r128mach (int);
  68  GPROC genie_r128mach;
  69  
  70  #endif
  71  
  72  #endif
Deze website is gearchiveerd door de KB, nationale bibliotheek.

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