comparison src/lisp.h @ 4329:d9eb5ea14f65

Provide %b in #'format; use it for converting between ints and bit vectors. lisp/ChangeLog addition: 2007-12-17 Aidan Kehoe <kehoea@parhasard.net> * subr.el (integer-to-bit-vector): New. * subr.el (bit-vector-to-integer): New. Provide naive implementations using the Lisp reader for these. src/ChangeLog addition: 2007-12-17 Aidan Kehoe <kehoea@parhasard.net> * doprnt.c (emacs_doprnt_1): Add support for formatted printing of both longs and bignums as base 2. * editfns.c (Fformat): Document the new %b escape for #'format. * lisp.h: Make ulong_to_bit_string available beside long_to_string. * lread.c: Fix a bug where the integer base was being ignored in certain contexts; thank you Sebastian Freundt. This is necessary for correct behaviour of #'integer-to-bit-vector and #'bit-vector-to-integer, just added to subr.el * print.c (ulong_to_bit_string): New. Analagous to long_to_string, but used all the time when %b is encountered, since we can't pass that to sprintf. man/ChangeLog addition: 2007-12-17 Aidan Kehoe <kehoea@parhasard.net> * lispref/strings.texi (Formatting Strings): Document %b for binary output.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 17 Dec 2007 08:44:14 +0100
parents ac5a714be3a2
children a2af1ff1761f
comparison
equal deleted inserted replaced
4328:dfd878799ef0 4329:d9eb5ea14f65
4980 floating point computations to define a compile-time integral 4980 floating point computations to define a compile-time integral
4981 constant. */ 4981 constant. */
4982 #define DECIMAL_PRINT_SIZE(integral_type) \ 4982 #define DECIMAL_PRINT_SIZE(integral_type) \
4983 (((2410824 * sizeof (integral_type)) / 1000000) + 3) 4983 (((2410824 * sizeof (integral_type)) / 1000000) + 3)
4984 void long_to_string (char *, long); 4984 void long_to_string (char *, long);
4985 void ulong_to_bit_string (char *, unsigned long);
4985 extern int print_escape_newlines; 4986 extern int print_escape_newlines;
4986 extern MODULE_API int print_readably; 4987 extern MODULE_API int print_readably;
4987 Lisp_Object internal_with_output_to_temp_buffer (Lisp_Object, 4988 Lisp_Object internal_with_output_to_temp_buffer (Lisp_Object,
4988 Lisp_Object (*) (Lisp_Object), 4989 Lisp_Object (*) (Lisp_Object),
4989 Lisp_Object, Lisp_Object); 4990 Lisp_Object, Lisp_Object);