Mercurial > hg > xemacs-beta
comparison src/lread.c @ 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 | 75d0292c1bff |
children | f4eb31866c38 fd8a9a4d81d9 |
comparison
equal
deleted
inserted
replaced
4328:dfd878799ef0 | 4329:d9eb5ea14f65 |
---|---|
2027 return result; | 2027 return result; |
2028 } | 2028 } |
2029 overflow: | 2029 overflow: |
2030 #ifdef HAVE_BIGNUM | 2030 #ifdef HAVE_BIGNUM |
2031 { | 2031 { |
2032 bignum_set_string (scratch_bignum, (const char *) buf, 0); | 2032 bignum_set_string (scratch_bignum, (const char *) buf, base); |
2033 return make_bignum_bg (scratch_bignum); | 2033 return make_bignum_bg (scratch_bignum); |
2034 } | 2034 } |
2035 #else | 2035 #else |
2036 return Fsignal (Qinvalid_read_syntax, | 2036 return Fsignal (Qinvalid_read_syntax, |
2037 list3 (build_msg_string | 2037 list3 (build_msg_string |