git.gag.com Git - debian/yforth/blob - floate.h

   1 /* yForth? - Written by Luca Padovani (C) 1996/97
   2  * ------------------------------------------------------------------------
   3  * This software is FreeWare as long as it comes with this header in each
   4  * source file, anyway you can use it or any part of it whatever
   5  * you want. It comes without any warranty, so use it at your own risk.
   6  * ------------------------------------------------------------------------
   7  * Module name:     floate.h
   8  * Abstract:        include file for "floating-extension" word set
   9  */
  10
  11 #ifdef DECLARE_WORDS
  12 #       ifdef PROTOTYPES
  13 #               undef PROTOTYPES
  14 #       endif
  15 #       undef __FLOATE_H__
  16 #else
  17 #       ifndef PROTOTYPES
  18 #               define PROTOTYPES
  19 #       endif
  20 #endif
  21
  22 #ifndef __FLOATE_H__
  23 #define __FLOATE_H__
  24
  25 #include "yforth.h"
  26 #include "macro.h"
  27
  28 /**************************************************************************/
  29 /* PROTOTYPES *************************************************************/
  30 /**************************************************************************/
  31
  32 code(d_f_store,                     "df!",                  0)
  33 code(d_f_fetch,                     "df@",                  0)
  34 code(align,                         "dfalign",              0)
  35 code(aligned,                       "dfaligned",            0)
  36 code(d_float_plus,                  "dfloat+",              0)
  37 code(d_floats,                      "dfloats",              0)
  38 code(f_star_star,                   "f**",                  0)
  39 code(f_dot,                         "f.",                   0)
  40 code(f_abs,                         "fabs",                 0)
  41 code(f_a_cos,                       "facos",                0)
  42 code(f_a_cosh,                      "facosh",               0)
  43 code(f_a_log,                       "falog",                0)
  44 code(f_a_sin,                       "fasin",                0)
  45 code(f_a_sinh,                      "fasinh",               0)
  46 code(f_a_tan,                       "fatan",                0)
  47 code(f_a_tan2,                      "fatan2",               0)
  48 code(f_a_tanh,                      "fatanh",               0)
  49 code(f_cos,                         "fcos",                 0)
  50 code(f_cosh,                        "fcosh",                0)
  51 code(f_e_dot,                       "fe.",                  0)
  52 code(f_exp,                         "fexp",                 0)
  53 code(f_exp_m_one,                   "fexpm1",               0)
  54 code(f_ln,                          "fln",                  0)
  55 code(f_ln_p_one,                    "flnp1",                0)
  56 code(f_log,                         "flog",                 0)
  57 code(f_s_dot,                       "fs.",                  0)
  58 code(f_sin,                         "fsin",                 0)
  59 code(f_sin_cos,                     "fsincos",              0)
  60 code(f_sinh,                        "fsinh",                0)
  61 code(f_sqrt,                        "fsqrt",                0)
  62 code(f_tan,                         "ftan",                 0)
  63 code(f_tanh,                        "ftanh",                0)
  64 code(f_proximate,                   "f~",                   0)
  65 code(precision,                     "precision",            0)
  66 code(set_precision,                 "set-precision",        0)
  67 code(s_f_store,                     "sf!",                  0)
  68 code(s_f_fetch,                     "sf@",                  0)
  69 code(align,                         "sfalign",              0)
  70 code(aligned,                       "sfaligned",            0)
  71 code(s_float_plus,                      "sfloat+",              0)
  72 code(s_floats,                      "sfloats",              0)
  73
  74 #ifdef PROTOTYPES
  75
  76 #endif
  77
  78 #endif
  79