Algol 68 Genie

a68g-optimiser.h

     
   1  //! @file a68g-optimiser.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-2025 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  //! Definitions for the plugin compiler.
  25  
  26  #if !defined (__A68G_OPTIMISER_H__)
  27  #define __A68G_OPTIMISER_H__
  28  
  29  BOOL_T constant_unit (NODE_T *);
  30  BOOL_T folder_mode (MOID_T *);
  31  void build_script (void);
  32  void load_script (void);
  33  void plugin_driver_clean (int);
  34  void plugin_driver_code (void);
  35  void plugin_driver_compile (void);
  36  void plugin_driver_emit (FILE_T);
  37  void plugin_driver_genie (void);
  38  void push_unit (NODE_T *);
  39  void rewrite_script_source (void);
  40  
  41  // Library for code generator
  42  
  43  INT_T a68_add_int (INT_T, INT_T);
  44  INT_T a68_sub_int (INT_T, INT_T);
  45  INT_T a68_mul_int (INT_T, INT_T);
  46  INT_T a68_over_int (INT_T, INT_T);
  47  INT_T a68_mod_int (INT_T, INT_T);
  48  REAL_T a68_div_int (INT_T, INT_T);
  49  
  50  void a68_ln_complex (A68_REAL *, A68_REAL *);
  51  void a68_sqrt_complex (A68_REAL *, A68_REAL *);
  52  void a68_sin_complex (A68_REAL *, A68_REAL *);
  53  void a68_cos_complex (A68_REAL *, A68_REAL *);
  54  void a68_tan_complex (A68_REAL *, A68_REAL *);
  55  void a68_asin_complex (A68_REAL *, A68_REAL *);
  56  void a68_acos_complex (A68_REAL *, A68_REAL *);
  57  void a68_atan_complex (A68_REAL *, A68_REAL *);
  58  void a68_sinh_complex (A68_REAL *, A68_REAL *);
  59  void a68_cosh_complex (A68_REAL *, A68_REAL *);
  60  void a68_tanh_complex (A68_REAL *, A68_REAL *);
  61  void a68_asinh_real_complex (A68_REAL *, A68_REAL *);
  62  void a68_acosh_real_complex (A68_REAL *, A68_REAL *);
  63  void a68_atanh_real_complex (A68_REAL *, A68_REAL *);
  64  
  65  // Operators that are inlined in compiled code
  66  
  67  #define a68_eq_complex(x, y) (RE (x) == RE (y) && IM (x) == IM (y))
  68  #define a68_ne_complex(x, y) (! a68_eq_complex (x, y))
  69  #define a68_plusab_int(i, j) (VALUE ((A68_INT *) ADDRESS (i)) += (j), (i))
  70  #define a68_min_realusab_int(i, j) (VALUE ((A68_INT *) ADDRESS (i)) -= (j), (i))
  71  #define a68_timesab_int(i, j) (VALUE ((A68_INT *) ADDRESS (i)) *= (j), (i))
  72  #define a68_overab_int(i, j) (VALUE ((A68_INT *) ADDRESS (i)) /= (j), (i))
  73  #define a68_entier(x) ((int) floor (x))
  74  #define a68_plusab_real(i, j) (VALUE ((A68_REAL *) ADDRESS (i)) += (j), (i))
  75  #define a68_min_realusab_real(i, j) (VALUE ((A68_REAL *) ADDRESS (i)) -= (j), (i))
  76  #define a68_timesab_real(i, j) (VALUE ((A68_REAL *) ADDRESS (i)) *= (j), (i))
  77  #define a68_divab_real(i, j) (VALUE ((A68_REAL *) ADDRESS (i)) /= (j), (i))
  78  #define a68_re_complex(z) (RE (z))
  79  #define a68_im_complex(z) (IM (z))
  80  #define a68_abs_real_complex(z) a68_hypot_real (RE (z), IM (z))
  81  #define a68_arg_complex(z) atan2 (IM (z), RE (z))
  82  
  83  #define a68_i_complex(z, re, im) {\
  84    STATUS_RE (z) = INIT_MASK;\
  85    STATUS_IM (z) = INIT_MASK;\
  86    RE (z) = re;\
  87    IM (z) = im;}
  88  
  89  #define a68_min_realus_complex(z, x) {\
  90    STATUS_RE (z) = INIT_MASK;\
  91    STATUS_IM (z) = INIT_MASK;\
  92    RE (z) = -RE (x);\
  93    IM (z) = -IM (x);}
  94  
  95  #define a68_conj_complex(z, x) {\
  96    STATUS_RE (z) = INIT_MASK;\
  97    STATUS_IM (z) = INIT_MASK;\
  98    RE (z) = RE (x);\
  99    IM (z) = -IM (x);}
 100  
 101  #define a68_add_complex(z, x, y) {\
 102    STATUS_RE (z) = INIT_MASK;\
 103    STATUS_IM (z) = INIT_MASK;\
 104    RE (z) = RE (x) + RE (y);\
 105    IM (z) = IM (x) + IM (y);}
 106  
 107  #define a68_sub_complex(z, x, y) {\
 108    STATUS_RE (z) = INIT_MASK;\
 109    STATUS_IM (z) = INIT_MASK;\
 110    RE (z) = RE (x) - RE (y);\
 111    IM (z) = IM (x) - IM (y);}
 112  
 113  #define a68_mul_complex(z, x, y) {\
 114    STATUS_RE (z) = INIT_MASK;\
 115    STATUS_IM (z) = INIT_MASK;\
 116    RE (z) = RE (x) * RE (y) - IM (x) * IM (y);\
 117    IM (z) = IM (x) * RE (y) + RE (x) * IM (y);}
 118  
 119  #endif
Deze website is gearchiveerd door de KB, nationale bibliotheek.

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