pike.git / lib / modules / Parser.pmod / Pike.pmod

version» Context lines:

pike.git/lib/modules/Parser.pmod/Pike.pmod:1:   //   // This file needs to support old pikes that e.g. don't understand   // "#pike". Some of them fail when they see an unknown cpp directive.   //   // #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.      inherit "C.pmod";      #define UNKNOWN_TOKEN \    throw( ({sprintf("Unknown pike token: %O\n",data[pos..pos+20]) }) )      static mapping(string : int) backquoteops =   (["/":1,
pike.git/lib/modules/Parser.pmod/Pike.pmod:172:    }    if(data[start..start+1]=="..")    {    pos+=2;    break;    }    pos++;    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)    {    switch(data[pos])    {    case '0'..'9':    case 'a'..'f':    case 'A'..'F':    pos++;    continue;    }    break;    }    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')    {    pos++;    while(data[pos]>='0' && data[pos]<='9') pos++;    if(data[pos]=='e' || data[pos]=='E')    {    pos++;    while(data[pos]>='0' && data[pos]<='9') pos++;    }