pike.git/ src/ stralloc.c

1999-10-26

1999-10-26 17:52:52 by Fredrik Noring <noring@nocrew.org>

• 56564500edfbcc3f2a8fb3bae6329537eeea1d14 (10 lines) (+7/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Added 0b/0B syntax and %b operator for binary numbers.

Rev: src/lexer.h:1.9
Rev: src/modules/Gmp/mpz_glue.c:1.58
Rev: src/opcodes.c:1.52
Rev: src/stralloc.c:1.72
Rev: src/testsuite.in:1.209

25:   #define HUGE HUGE_VAL   #endif /*!HUGE*/    - RCSID("$Id: stralloc.c,v 1.71 1999/10/24 01:08:39 noring Exp $"); + RCSID("$Id: stralloc.c,v 1.72 1999/10/26 17:52:49 noring Exp $");      #define BEGIN_HASH_SIZE 997   #define MAX_AVG_LINK_LENGTH 3
1888:    base = 10;    else if(INDEX_PCHARP(str,1) == 'x' || INDEX_PCHARP(str,1) == 'X')    base = 16; +  else if(INDEX_PCHARP(str,1) == 'b' || INDEX_PCHARP(str,1) == 'B') +  base = 2;    else    base = 8;    }
1899:    if(!isalnum(c) || (xx = DIGIT(c)) >= base)    return 0; /* No number formed. */    -  if(implicit_base && base == 16 && c == '0' && +  if(implicit_base && c == '0' &&    INDEX_PCHARP(str,2) < 256 && /* Don't trust isxdigit... */    isxdigit(INDEX_PCHARP(str,2)) && -  (INDEX_PCHARP(str,1) == 'x' || INDEX_PCHARP(str,1) == 'X')) +  ((base==16 && (INDEX_PCHARP(str,1)=='x' || INDEX_PCHARP(str,1)=='X')) || +  (base==2 && (INDEX_PCHARP(str,1)=='b' || INDEX_PCHARP(str,1)=='B'))))    {    /* Skip over leading "0x" or "0X". */    INC_PCHARP(str,2);