+// $Id$
using System;
using System.IO;
START_LIST,
END_LIST,
SYMBOL,
- INTEGER,
+ INTEGER,
STRING,
REAL,
BOOLEAN
};
private Lexer lexer;
private Lexer.TokenType token;
-
+
public Parser(StreamReader stream) {
lexer = new Lexer(stream);
}
depth = 0;
return false;
}
-
+
/*
Console.WriteLine("Token: " + token.ToString() + " - " +
lexer.TokenString);
return true;
}
+ public static void ParseIntList(Parser parser, System.Collections.Generic.List<int> intList) {
+ int d = parser.Depth;
+ while(parser.Depth >= d) {
+ intList.Add(parser.IntegerValue);
+ parser.Parse();
+ }
+ }
+
private LispType type;
public LispType Type {
get { return type; }
get { return Int32.Parse(lexer.TokenString); }
}
public bool BoolValue {
- get { return StringValue == "t" ? true : false; }
+ get { return StringValue == "t"; }
}
public float FloatValue {
get { return Single.Parse(lexer.TokenString); }