Mercurial > hg > xemacs-beta

comparison src/lread.c @ 5213:7abb91db1e64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Accept #B<binary>, #O<octal>, and #X<hex>. 2010-05-24 Mike Sperber <mike@xemacs.org> * lread.c (read1): Accept #B<binary>, #O<octal>, and #X<hex>, just like GNU Emacs.
author Mike Sperber <sperber@deinprogramm.de>
date Mon, 24 May 2010 10:43:29 +0200
parents cdca98f2d36f
children 5efbd1253905
comparison
equal deleted inserted replaced
5212:4f98237e23fc 5213:7abb91db1e64
2650 } 2650 }
2651 case '$': return Vload_file_name_internal; 2651 case '$': return Vload_file_name_internal;
2652 /* bit vectors */ 2652 /* bit vectors */
2653 case '*': return read_bit_vector (readcharfun); 2653 case '*': return read_bit_vector (readcharfun);
2654 /* #o10 => 8 -- octal constant syntax */ 2654 /* #o10 => 8 -- octal constant syntax */
2655 case 'o': return read_integer (readcharfun, 8); 2655 case 'o': case 'O': return read_integer (readcharfun, 8);
2656 /* #xdead => 57005 -- hex constant syntax */ 2656 /* #xdead => 57005 -- hex constant syntax */
2657 case 'x': return read_integer (readcharfun, 16); 2657 case 'x': case 'X': return read_integer (readcharfun, 16);
2658 /* #b010 => 2 -- binary constant syntax */ 2658 /* #b010 => 2 -- binary constant syntax */
2659 case 'b': return read_integer (readcharfun, 2); 2659 case 'b': case 'B': return read_integer (readcharfun, 2);
2660 /* #r"raw\stringt" -- raw string syntax */ 2660 /* #r"raw\stringt" -- raw string syntax */
2661 case 'r': return read_raw_string(readcharfun); 2661 case 'r': return read_raw_string(readcharfun);
2662 /* #s(foobar key1 val1 key2 val2) -- structure syntax */ 2662 /* #s(foobar key1 val1 key2 val2) -- structure syntax */
2663 case 's': return read_structure (readcharfun); 2663 case 's': return read_structure (readcharfun);
2664 case '<': 2664 case '<':