Annotation of OpenXM_contrib/gmp/demos/expr/expr-impl.h, Revision 1.1.1.1
1.1 ohara 1: /* Implementation specifics for expression evaluation.
2:
3: Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
4:
5: This file is part of the GNU MP Library.
6:
7: The GNU MP Library is free software; you can redistribute it and/or modify
8: it under the terms of the GNU Lesser General Public License as published by
9: the Free Software Foundation; either version 2.1 of the License, or (at your
10: option) any later version.
11:
12: The GNU MP Library is distributed in the hope that it will be useful, but
13: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14: or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
15: License for more details.
16:
17: You should have received a copy of the GNU Lesser General Public License
18: along with the GNU MP Library; see the file COPYING.LIB. If not, write to
19: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
20: MA 02111-1307, USA. */
21:
22:
23: #include "expr-config.h"
24:
25:
26: /* Same tests as gmp.h. */
27: #if defined (__STDC__) \
28: || defined (__cplusplus) \
29: || defined (_AIX) \
30: || (defined (__mips) && defined (_SYSTYPE_SVR4)) \
31: || defined (_MSC_VER) \
32: || defined(_WIN32)
33: #define HAVE_STDARG 1
34: #include <stdarg.h>
35: #else
36: #define HAVE_STDARG 0
37: #include <varargs.h>
38: #endif
39:
40: #if HAVE_MPFR
41: #include "mpfr.h"
42: #endif
43:
44: #include "expr.h"
45:
46:
47: /* Rouding mode for mpfr_expr. Change as desired. */
48: #define ROUND GMP_RNDZ
49:
50:
51: #define isasciidigit(c) (isascii (c) && isdigit (c))
52: #define isasciicsym(c) (isascii (c) && (isalnum(c) || (c) == '_'))
53:
54: #define isasciidigit_in_base(c,base) \
55: (isascii (c) \
56: && ((isdigit (c) && (c)-'0' < (base)) \
57: || (isupper (c) && (c)-'A'+10 < (base)) \
58: || (islower (c) && (c)-'a'+10 < (base))))
59:
60:
61: union mpX_t {
62: mpz_t z;
63: mpq_t q;
64: mpf_t f;
65: #if HAVE_MPFR
66: mpfr_t r;
67: #endif
68: };
69:
70: typedef union mpX_t *mpX_ptr;
71: typedef __gmp_const union mpX_t *mpX_srcptr;
72:
73: typedef void (*mpexpr_fun_one_t) __GMP_PROTO ((mpX_ptr));
74: typedef unsigned long (*mpexpr_fun_ui_one_t) __GMP_PROTO ((mpX_ptr));
75:
76: typedef void (*mpexpr_fun_0ary_t) __GMP_PROTO ((mpX_ptr));
77: typedef int (*mpexpr_fun_i_0ary_t) __GMP_PROTO ((void));
78:
79: typedef void (*mpexpr_fun_unary_t) __GMP_PROTO ((mpX_ptr, mpX_srcptr));
80: typedef void (*mpexpr_fun_unary_ui_t) __GMP_PROTO ((mpX_ptr, unsigned long));
81: typedef int (*mpexpr_fun_i_unary_t) __GMP_PROTO ((mpX_srcptr));
82: typedef int (*mpexpr_fun_i_unary_ui_t) __GMP_PROTO ((unsigned long));
83:
84: typedef void (*mpexpr_fun_binary_t) __GMP_PROTO ((mpX_ptr, mpX_srcptr, mpX_srcptr));
85: typedef void (*mpexpr_fun_binary_ui_t) __GMP_PROTO ((mpX_ptr, mpX_srcptr, unsigned long));
86: typedef int (*mpexpr_fun_i_binary_t) __GMP_PROTO ((mpX_srcptr, mpX_srcptr));
87: typedef int (*mpexpr_fun_i_binary_ui_t) __GMP_PROTO ((mpX_srcptr, unsigned long));
88:
89: typedef void (*mpexpr_fun_ternary_t)
90: __GMP_PROTO ((mpX_ptr, mpX_srcptr, mpX_srcptr, mpX_srcptr));
91: typedef void (*mpexpr_fun_ternary_ui_t)
92: __GMP_PROTO ((mpX_ptr, mpX_srcptr, mpX_srcptr, unsigned long));
93: typedef int (*mpexpr_fun_i_ternary_t)
94: __GMP_PROTO ((mpX_srcptr, mpX_srcptr, mpX_srcptr));
95: typedef int (*mpexpr_fun_i_ternary_ui_t)
96: __GMP_PROTO ((mpX_srcptr, mpX_srcptr, unsigned long));
97:
98: typedef size_t (*mpexpr_fun_number_t)
99: __GMP_PROTO ((mpX_ptr, __gmp_const char *str, size_t len, int base));
100: typedef void (*mpexpr_fun_swap_t) __GMP_PROTO ((mpX_ptr, mpX_ptr));
101: typedef unsigned long (*mpexpr_fun_get_ui_t) __GMP_PROTO ((mpX_srcptr));
102: typedef void (*mpexpr_fun_set_si_t) __GMP_PROTO ((mpX_srcptr, long));
103:
104: struct mpexpr_control_t {
105: __gmp_const struct mpexpr_operator_t *op;
106: int argcount;
107: };
108:
109: #define MPEXPR_VARIABLES 26
110:
111: struct mpexpr_parse_t {
112: __gmp_const struct mpexpr_operator_t *table;
113:
114: mpX_ptr res;
115: int base;
116: unsigned long prec;
117: __gmp_const char *e;
118: size_t elen;
119: mpX_srcptr *var;
120: int error_code;
121:
122: int token;
123: __gmp_const struct mpexpr_operator_t *token_op;
124:
125: union mpX_t *data_stack;
126: int data_top;
127: int data_alloc;
128: int data_inited;
129:
130: struct mpexpr_control_t *control_stack;
131: int control_top;
132: int control_alloc;
133:
134:
135: mpexpr_fun_0ary_t mpX_clear;
136: mpexpr_fun_i_unary_t mpX_ulong_p;
137: mpexpr_fun_get_ui_t mpX_get_ui;
138: mpexpr_fun_unary_ui_t mpX_init;
139: mpexpr_fun_number_t mpX_number;
140: mpexpr_fun_unary_t mpX_set;
141: mpexpr_fun_unary_t mpX_set_or_swap;
142: mpexpr_fun_set_si_t mpX_set_si;
143: mpexpr_fun_swap_t mpX_swap;
144: };
145:
146:
147: int mpexpr_evaluate __GMP_PROTO ((struct mpexpr_parse_t *p));
148: int mpexpr_va_to_var __GMP_PROTO ((void *var[], va_list ap));
149: size_t mpexpr_mpz_number __GMP_PROTO ((mpz_ptr res,
150: __gmp_const char *e, size_t elen, int base));
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to expr-impl.h CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / demos / expr