Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 603:1c880911c386

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-01 08:23:09 by martinb] Fix a bunch of 128-bit bugs
author martinb
date Fri, 01 Jun 2001 08:23:12 +0000
parents 5fd7ba8b56e7
children 13e3d7ae7155
comparison
equal deleted inserted replaced
602:b9f1a2e84ead 603:1c880911c386
2837 /* Same goes for this function. */ 2837 /* Same goes for this function. */
2838 void write_string_1 (const Bufbyte *, Bytecount, Lisp_Object); 2838 void write_string_1 (const Bufbyte *, Bytecount, Lisp_Object);
2839 void print_cons (Lisp_Object, Lisp_Object, int); 2839 void print_cons (Lisp_Object, Lisp_Object, int);
2840 void print_vector (Lisp_Object, Lisp_Object, int); 2840 void print_vector (Lisp_Object, Lisp_Object, int);
2841 void print_string (Lisp_Object, Lisp_Object, int); 2841 void print_string (Lisp_Object, Lisp_Object, int);
2842
2843 /* The number of bytes required to store the decimal printed
2844 representation of an integral type. Add a few bytes for truncation,
2845 optional sign prefix, and null byte terminator.
2846 2.40824 == log (256) / log (10). */
2847 #define DECIMAL_PRINT_SIZE(integral_type) \
2848 ((size_t) (2.40824 * sizeof (integral_type)) + 3)
2842 void long_to_string (char *, long); 2849 void long_to_string (char *, long);
2850
2843 void print_internal (Lisp_Object, Lisp_Object, int); 2851 void print_internal (Lisp_Object, Lisp_Object, int);
2844 void print_symbol (Lisp_Object, Lisp_Object, int); 2852 void print_symbol (Lisp_Object, Lisp_Object, int);
2845 void print_float (Lisp_Object, Lisp_Object, int); 2853 void print_float (Lisp_Object, Lisp_Object, int);
2846 extern int print_escape_newlines; 2854 extern int print_escape_newlines;
2847 extern int print_readably; 2855 extern int print_readably;