Branch: Tag:

2002-10-10

2002-10-10 02:41:55 by Martin Nilsson <mani@lysator.liu.se>

Parse binary numbers.

Rev: lib/modules/Parser.pmod/Pike.pmod:1.23

4:   //   // #pike __REAL_VERSION__   // - // $Id: Pike.pmod,v 1.22 2002/07/14 17:05:52 nilsson Exp $ + // $Id: Pike.pmod,v 1.23 2002/10/10 02:41:55 nilsson Exp $      //! This module parses and tokanizes Pike source code.   
179:    break;       case '0'..'9': -  if(data[pos]=='0' && (data[pos+1]=='x' || data[pos+1]=='X')) -  { +  if(data[pos]=='0') { +  if(data[pos+1]=='x' || data[pos+1]=='X') {    pos+=2;    while(1)    {
196:    }    break;    } +  else if(data[pos+1]=='b' || data[pos+1]=='B') { +  pos+=2; +  while(1) { +  if(data[pos]!='0' && data[pos]!='1') +  break; +  pos++; +  } +  } +  }    while(data[pos]>='0' && data[pos]<='9') pos++;    if(data[pos]=='.' && data[pos+1]>='0' && data[pos+1]<='9')    {