expr-impl.h
上传用户:qaz666999
上传日期:2022-08-06
资源大小:2570k
文件大小:5k
源码类别:

数学计算

开发平台:

Unix_Linux

  1. /* Implementation specifics for expression evaluation.
  2. Copyright 2000, 2001, 2002, 2004 Free Software Foundation, Inc.
  3. This file is part of the GNU MP Library.
  4. The GNU MP Library is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU Lesser General Public License as published by
  6. the Free Software Foundation; either version 3 of the License, or (at your
  7. option) any later version.
  8. The GNU MP Library is distributed in the hope that it will be useful, but
  9. WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  10. or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  11. License for more details.
  12. You should have received a copy of the GNU Lesser General Public License
  13. along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
  14. /* Same tests as gmp.h. */
  15. #if  defined (__STDC__)                                 
  16.   || defined (__cplusplus)                              
  17.   || defined (_AIX)                                     
  18.   || defined (__DECC)                                   
  19.   || (defined (__mips) && defined (_SYSTYPE_SVR4))      
  20.   || defined (_MSC_VER)                                 
  21.   || defined (_WIN32)
  22. #define HAVE_STDARG 1
  23. #include <stdarg.h>
  24. #else
  25. #define HAVE_STDARG 0
  26. #include <varargs.h>
  27. #endif
  28. #include "expr.h"
  29. #define isasciidigit(c)   (isascii (c) && isdigit (c))
  30. #define isasciicsym(c)    (isascii (c) && (isalnum(c) || (c) == '_'))
  31. #define isasciidigit_in_base(c,base)                    
  32.   (isascii (c)                                          
  33.    && ((isdigit (c) && (c)-'0' < (base))                
  34.        || (isupper (c) && (c)-'A'+10 < (base))          
  35.        || (islower (c) && (c)-'a'+10 < (base))))
  36. union mpX_t {
  37.   mpz_t   z;
  38.   mpq_t   q;
  39.   mpf_t   f;
  40. };
  41. typedef union mpX_t *mpX_ptr;
  42. typedef __gmp_const union mpX_t *mpX_srcptr;
  43. typedef void (*mpexpr_fun_one_t) __GMP_PROTO ((mpX_ptr));
  44. typedef unsigned long (*mpexpr_fun_ui_one_t) __GMP_PROTO ((mpX_ptr));
  45. typedef void (*mpexpr_fun_0ary_t) __GMP_PROTO ((mpX_ptr));
  46. typedef int  (*mpexpr_fun_i_0ary_t) __GMP_PROTO ((void));
  47. typedef void (*mpexpr_fun_unary_t) __GMP_PROTO ((mpX_ptr, mpX_srcptr));
  48. typedef void (*mpexpr_fun_unary_ui_t) __GMP_PROTO ((mpX_ptr, unsigned long));
  49. typedef int  (*mpexpr_fun_i_unary_t) __GMP_PROTO ((mpX_srcptr));
  50. typedef int  (*mpexpr_fun_i_unary_ui_t) __GMP_PROTO ((unsigned long));
  51. typedef void (*mpexpr_fun_binary_t) __GMP_PROTO ((mpX_ptr, mpX_srcptr, mpX_srcptr));
  52. typedef void (*mpexpr_fun_binary_ui_t) __GMP_PROTO ((mpX_ptr, mpX_srcptr, unsigned long));
  53. typedef int  (*mpexpr_fun_i_binary_t) __GMP_PROTO ((mpX_srcptr, mpX_srcptr));
  54. typedef int  (*mpexpr_fun_i_binary_ui_t) __GMP_PROTO ((mpX_srcptr, unsigned long));
  55. typedef void (*mpexpr_fun_ternary_t)
  56.      __GMP_PROTO ((mpX_ptr, mpX_srcptr, mpX_srcptr, mpX_srcptr));
  57. typedef void (*mpexpr_fun_ternary_ui_t)
  58.      __GMP_PROTO ((mpX_ptr, mpX_srcptr, mpX_srcptr, unsigned long));
  59. typedef int (*mpexpr_fun_i_ternary_t)
  60.      __GMP_PROTO ((mpX_srcptr, mpX_srcptr, mpX_srcptr));
  61. typedef int (*mpexpr_fun_i_ternary_ui_t)
  62.      __GMP_PROTO ((mpX_srcptr, mpX_srcptr, unsigned long));
  63. typedef size_t (*mpexpr_fun_number_t)
  64.      __GMP_PROTO ((mpX_ptr, __gmp_const char *str, size_t len, int base));
  65. typedef void (*mpexpr_fun_swap_t) __GMP_PROTO ((mpX_ptr, mpX_ptr));
  66. typedef unsigned long (*mpexpr_fun_get_ui_t) __GMP_PROTO ((mpX_srcptr));
  67. typedef void (*mpexpr_fun_set_si_t) __GMP_PROTO ((mpX_srcptr, long));
  68. struct mpexpr_control_t {
  69.   __gmp_const struct mpexpr_operator_t  *op;
  70.   int                                   argcount;
  71. };
  72. #define MPEXPR_VARIABLES  26
  73. struct mpexpr_parse_t {
  74.   __gmp_const struct mpexpr_operator_t  *table;
  75.   mpX_ptr                               res;
  76.   int                                   base;
  77.   unsigned long                         prec;
  78.   __gmp_const char                      *e;
  79.   size_t                                elen;
  80.   mpX_srcptr                            *var;
  81.   int                                   error_code;
  82.   int                                   token;
  83.   __gmp_const struct mpexpr_operator_t  *token_op;
  84.   union mpX_t                           *data_stack;
  85.   int                                   data_top;
  86.   int                                   data_alloc;
  87.   int                                   data_inited;
  88.   struct mpexpr_control_t               *control_stack;
  89.   int                                   control_top;
  90.   int                                   control_alloc;
  91.   mpexpr_fun_0ary_t                     mpX_clear;
  92.   mpexpr_fun_i_unary_t                  mpX_ulong_p;
  93.   mpexpr_fun_get_ui_t                   mpX_get_ui;
  94.   mpexpr_fun_unary_ui_t                 mpX_init;
  95.   mpexpr_fun_number_t                   mpX_number;
  96.   mpexpr_fun_unary_t                    mpX_set;
  97.   mpexpr_fun_unary_t                    mpX_set_or_swap;
  98.   mpexpr_fun_set_si_t                   mpX_set_si;
  99.   mpexpr_fun_swap_t                     mpX_swap;
  100. };
  101. int mpexpr_evaluate __GMP_PROTO ((struct mpexpr_parse_t *p));
  102. int mpexpr_va_to_var __GMP_PROTO ((void *var[], va_list ap));
  103. size_t mpexpr_mpz_number __GMP_PROTO ((mpz_ptr res,
  104.                                   __gmp_const char *e, size_t elen, int base));