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