#include <antlr/config.hpp>
#include <antlr/IOException.hpp>
#include <antlr/ANTLRUtil.hpp>
#include <istream>
#include <cctype>
#include <string>
#ifdef ANTLR_CXX_SUPPORTS_NAMESPACE
namespace antlr {
#endif
ANTLR_USE_NAMESPACE(std)istream& eatwhite( ANTLR_USE_NAMESPACE(std)istream& is )
{
char c;
while( is.get(c) )
{
#ifdef ANTLR_CCTYPE_NEEDS_STD
if( !ANTLR_USE_NAMESPACE(std)isspace(c) )
#else
if( !isspace(c) )
#endif
{
is.putback(c);
break;
}
}
return is;
}
ANTLR_USE_NAMESPACE(std)string read_string( ANTLR_USE_NAMESPACE(std)istream& in )
{
char ch;
ANTLR_USE_NAMESPACE(std)string ret("");
enum { START, READING, ESCAPE, FINISHED };
int state = START;
eatwhite(in);
while( state != FINISHED && in.get(ch) )
{
switch( state )
{
case START:
if( ch != '"' )
throw IOException("string must start with '\"'");
state = READING;
continue;
case READING:
if( ch == '\\' ) {
state = ESCAPE;
continue;
}
if( ch == '"' ) {
state = FINISHED;
continue;
}
ret += ch; continue;
case ESCAPE:
switch(ch)
{
case '\\':
ret += ch;
state = READING;
continue;
case '"':
ret += ch;
state = READING;
continue;
case '0':
ret += '\0';
state = READING;
continue;
default: ret += '\\';
ret += ch;
state = READING;
continue;
}
}
}
if( state != FINISHED )
throw IOException("badly formatted string: "+ret);
return ret;
}
ANTLR_USE_NAMESPACE(std)string read_identifier( ANTLR_USE_NAMESPACE(std)istream& in )
{
char ch;
ANTLR_USE_NAMESPACE(std)string ret("");
eatwhite(in);
while( in.get(ch) )
{
#ifdef ANTLR_CCTYPE_NEEDS_STD
if( ANTLR_USE_NAMESPACE(std)isupper(ch) ||
ANTLR_USE_NAMESPACE(std)islower(ch) ||
ANTLR_USE_NAMESPACE(std)isdigit(ch) ||
ch == '_' )
#else
if( isupper(ch) || islower(ch) || isdigit(ch) || ch == '_' )
#endif
ret += ch;
else
{
in.putback(ch);
break;
}
}
return ret;
}
void read_AttributeNValue( ANTLR_USE_NAMESPACE(std)istream& in,
ANTLR_USE_NAMESPACE(std)string& attribute,
ANTLR_USE_NAMESPACE(std)string& value )
{
attribute = read_identifier(in);
char ch;
if( in.get(ch) && ch == '=' )
value = read_string(in);
else
throw IOException("invalid attribute=value thing "+attribute);
}
#ifdef ANTLR_CXX_SUPPORTS_NAMESPACE
}
#endif