Mercurial > hg > xemacs-beta

comparison src/number.c @ 2001:cc5b615380f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-04-08 15:23:07 by james] Various fixes to repair the C++ build.
author james
date Thu, 08 Apr 2004 15:23:09 +0000
parents ea0e08ca2c78
children a9cdbfb4716e
comparison
equal deleted inserted replaced
2000:645edb8ae417 2001:cc5b615380f8
22 22
23 #include <config.h> 23 #include <config.h>
24 #include <limits.h> 24 #include <limits.h>
25 #include "lisp.h" 25 #include "lisp.h"
26 26
27 Lisp_Object Qintegerp, Qrationalp, Qfloatingp, Qrealp, Qnumberp; 27 Lisp_Object Qrationalp, Qfloatingp, Qrealp;
28 Lisp_Object Vdefault_float_precision; 28 Lisp_Object Vdefault_float_precision;
29 Fixnum Vmost_negative_fixnum, Vmost_positive_fixnum; 29 Fixnum Vmost_negative_fixnum, Vmost_positive_fixnum;
30 static Lisp_Object Qunsupported_type; 30 static Lisp_Object Qunsupported_type;
31 static Lisp_Object Vbigfloat_max_prec; 31 static Lisp_Object Vbigfloat_max_prec;
32 static int number_initialized; 32 static int number_initialized;
705 #ifdef HAVE_BIGFLOAT 705 #ifdef HAVE_BIGFLOAT
706 INIT_LRECORD_IMPLEMENTATION (bigfloat); 706 INIT_LRECORD_IMPLEMENTATION (bigfloat);
707 #endif 707 #endif
708 708
709 /* Type predicates */ 709 /* Type predicates */
710 DEFSYMBOL (Qintegerp);
711 DEFSYMBOL (Qrationalp); 710 DEFSYMBOL (Qrationalp);
712 DEFSYMBOL (Qfloatingp); 711 DEFSYMBOL (Qfloatingp);
713 DEFSYMBOL (Qrealp); 712 DEFSYMBOL (Qrealp);
714 DEFSYMBOL (Qnumberp);
715 #ifndef HAVE_BIGNUM 713 #ifndef HAVE_BIGNUM
716 DEFSYMBOL (Qbignump); 714 DEFSYMBOL (Qbignump);
717 #endif 715 #endif
718 #ifndef HAVE_RATIO 716 #ifndef HAVE_RATIO
719 DEFSYMBOL (Qratiop); 717 DEFSYMBOL (Qratiop);
730 DEFSUBR (Fratiop); 728 DEFSUBR (Fratiop);
731 DEFSUBR (Frationalp); 729 DEFSUBR (Frationalp);
732 DEFSUBR (Fnumerator); 730 DEFSUBR (Fnumerator);
733 DEFSUBR (Fdenominator); 731 DEFSUBR (Fdenominator);
734 DEFSUBR (Fbigfloatp); 732 DEFSUBR (Fbigfloatp);
733 DEFSUBR (Ffloatingp);
735 DEFSUBR (Frealp); 734 DEFSUBR (Frealp);
736 DEFSUBR (Fcanonicalize_number); 735 DEFSUBR (Fcanonicalize_number);
737 DEFSUBR (Fcoerce_number); 736 DEFSUBR (Fcoerce_number);
738 737
739 /* Errors */ 738 /* Errors */