public static object ReadPrototypeHandler(LispReader stream, char ch)
{
var list = stream.ReadDelimitedList("}");
var obj = new Prototype(AsArray(list));
return(obj);
}
public static object ReadVectorHandler2(LispReader stream, string ch, int arg)
{
if (stream.ReadChar() != '(')
{
throw stream.MakeScannerException("Invalid #() expression");
}
var list = stream.ReadDelimitedList(")");
var obj = new Vector();
obj.AddRange(list);
if (arg == -1)
{
// default no action
}
else if (arg < obj.Count)
{
throw new LispException("Vector {0} contains more than {1} items", ToPrintString(obj), arg);
}
else if (arg > obj.Count)
{
var filler = obj.Count == 0 ? (object)null : obj[obj.Count - 1];
while (obj.Count < arg)
{
obj.Add(filler);
}
}
return(obj);
}
public static object ReadQuasiQuoteHandler(LispReader stream, char ch)
{
var exp1 = stream.Read();
var exp2 = QuasiQuoteExpandRest(exp1);
return(exp2);
}
public static object ReadNumberHandler(LispReader stream, string ch, int arg)
{
var token = stream.ReadToken();
switch (ch)
{
case "r":
{
return(Number.ParseNumberBase(token, arg));
}
case "o":
{
return(Number.ParseNumberBase(token, 8));
}
case "b":
{
return(Number.ParseNumberBase(token, 2));
}
case "x":
{
return(Number.ParseNumberBase(token, 16));
}
default:
{
// not reached
return(null);
}
}
}
public static object ReadIfExprHandler(LispReader stream, string ch, int arg)
{
Vector branch = null;
var term = ReadBranch(stream, true, BranchMode.Eval, ref branch);
while (term == Symbols.HashElif)
{
var haveBranch = branch != null;
term = ReadBranch(stream, true, haveBranch ? BranchMode.False : BranchMode.Eval, ref branch);
}
if (term == Symbols.HashElse)
{
var haveBranch = branch != null;
term = ReadBranch(stream, false, haveBranch ? BranchMode.False : BranchMode.True, ref branch);
}
if (term != Symbols.HashEndif)
{
throw stream.MakeScannerException("EOF: Missing #endif");
}
if (branch != null && branch.Count > 0)
{
return(MakeListStar(Symbols.CompileTimeBranch, branch));
}
else
{
return(VOID.Value);
}
}
public static object ReadVectorHandler(LispReader stream, char ch)
{
var list = stream.ReadDelimitedList("]");
var obj = new Vector();
obj.AddRange(list);
return(obj);
}
public static object ReadCharacterHandler(LispReader stream, string ch, int arg)
{
stream.UnreadChar();
var name = MakeString(stream.Read());
var chr = DecodeCharacterName(name);
return(chr);
}
public static object ReadStructHandler(LispReader stream, string ch, int arg)
{
if (stream.ReadChar() != '(')
{
throw stream.MakeScannerException("Invalid #s() expression");
}
var list = stream.ReadDelimitedList(")");
var obj = new Prototype(AsArray(list));
return(obj);
}
public static Symbol ReadBranch(LispReader stream, bool hasTest, BranchMode mode, ref Vector branch)
{
var haveFeatures = false;
if (hasTest)
{
var test = stream.Read();
switch (mode)
{
case BranchMode.False:
{
haveFeatures = false;
break;
}
case BranchMode.True:
{
haveFeatures = true;
break;
}
case BranchMode.Eval:
default:
{
haveFeatures = EvalFeatureExpr(test);
break;
}
}
}
else
{
haveFeatures = mode == BranchMode.True;
}
if (haveFeatures)
{
branch = new Vector();
}
while (true)
{
var obj = haveFeatures ? stream.Read() : stream.ReadSuppressed();
if (obj == Symbols.HashElif || obj == Symbols.HashElse || obj == Symbols.HashEndif)
{
return((Symbol)obj);
}
else if (haveFeatures)
{
branch.Add(obj);
}
}
}
public static object ReadComplexNumberHandler(LispReader stream, string ch, int arg)
{
if (stream.ReadChar() != '(')
{
throw stream.MakeScannerException("Invalid #c expression");
}
var nums = stream.ReadDelimitedList(")");
int count = Length(nums);
double real = count >= 1 ? AsDouble(nums.Car) : 0;
double imag = count >= 2 ? AsDouble(nums.Cdr.Car) : 0;
return(new Complex(real, imag));
}
public static object ReadCommaHandler(LispReader stream, char ch)
{
var ch2 = stream.ReadChar();
if (ch2 == '@' || ch2 == '.')
{
// Destructive splicing is handled as ordinary splicing
return(MakeList(Symbols.UnquoteSplicing, stream.Read()));
}
else
{
stream.UnreadChar();
return(MakeList(Symbols.Unquote, stream.Read()));
}
}
public static object ReadPlusExprHandler(LispReader stream, string ch, int arg)
{
object test = stream.Read();
bool haveFeatures = EvalFeatureExpr(test);
if (!haveFeatures)
{
stream.ReadSuppressed();
return(VOID.Value);
}
else
{
return(stream.Read());
}
}
public static object ReadExecuteHandler(LispReader stream, string ch, int arg)
{
var expr = stream.Read();
var readEval = GetDynamic(Symbols.ReadEval);
if (readEval == null)
{
readEval = false; //stream.loading;
}
if (!ToBool(readEval))
{
throw stream.MakeScannerException("Invalid use of '#.' (prohibited by $read-eval variable)");
}
var value = Eval(expr);
return(value);
}
public static object ReadIfExprHandler(LispReader stream, string ch, int arg)
{
Vector branch = null;
var term = ReadBranch(stream, true, BranchMode.Eval, ref branch);
while (term == Symbols.HashElif)
{
var haveBranch = branch != null;
term = ReadBranch(stream, true, haveBranch ? BranchMode.False : BranchMode.Eval, ref branch);
}
if (term == Symbols.HashElse)
{
var haveBranch = branch != null;
term = ReadBranch(stream, false, haveBranch ? BranchMode.False : BranchMode.True, ref branch);
}
if (term != Symbols.HashEndif)
{
throw stream.MakeScannerException("EOF: Missing #endif");
}
if (branch != null && branch.Count > 0)
{
return MakeListStar(Symbols.CompileTimeBranch, branch);
}
else
{
return VOID.Value;
}
}
public static object ReadInfixHandler(LispReader stream, string ch, int arg)
{
return stream.ParseInfixExpression();
}
public static object ReadStringHandler(LispReader stream, char ch)
{
// C# string "...."
return(ParseInterpolateString(stream.ParseString()));
}
public static object ReadShortLambdaExpressionHandler(LispReader stream, string ch, int arg)
{
// put '(' back syncing with ReadQuasiQuoteLambdaExpressionHandler
stream.UnreadChar();
return(stream.ParseShortLambdaExpression(false, ")"));
}
public static object ReadEndifExprHandler(LispReader stream, string ch, int arg)
{
return Symbols.HashEndif;
}
public static object ReadNumberHandler(LispReader stream, string ch, int arg)
{
var token = stream.ReadToken();
switch (ch)
{
case "r":
{
return Number.ParseNumberBase(token, arg);
}
case "o":
{
return Number.ParseNumberBase(token, 8);
}
case "b":
{
return Number.ParseNumberBase(token, 2);
}
case "x":
{
return Number.ParseNumberBase(token, 16);
}
default:
{
// not reached
return null;
}
}
}
public static object ReadExecuteHandler(LispReader stream, string ch, int arg)
{
var expr = stream.Read();
var readEval = GetDynamic(Symbols.ReadEval);
if (readEval == null)
{
readEval = false; //stream.loading;
}
if (!ToBool(readEval))
{
throw stream.MakeScannerException("Invalid use of '#.' (prohibited by $read-eval variable)");
}
var value = Eval(expr);
return value;
}
public static object ReadLineCommentHandler(LispReader stream, char ch)
{
// ;
stream.ReadLine();
return VOID.Value;
}
public static object ReadQuasiQuoteLambdaExpressionHandler(LispReader stream, string ch, int arg)
{
return stream.ParseShortLambdaExpression(true, ")");
}
public static object ReadLineCommentHandler2(LispReader stream, string ch, int arg)
{
// #!
stream.ReadLine();
return VOID.Value;
}
public static object ReadQuasiQuoteHandler(LispReader stream, char ch)
{
var exp1 = stream.Read();
var exp2 = QuasiQuoteExpandRest(exp1);
return exp2;
}
public static object ReadPrototypeHandler(LispReader stream, char ch)
{
var list = stream.ReadDelimitedList("}");
var obj = new Prototype(AsArray(list));
return obj;
}
public static object ReadPlusExprHandler(LispReader stream, string ch, int arg)
{
object test = stream.Read();
bool haveFeatures = EvalFeatureExpr(test);
if (!haveFeatures)
{
stream.ReadSuppressed();
return VOID.Value;
}
else
{
return stream.Read();
}
}
public static Symbol ReadBranch(LispReader stream, bool hasTest, BranchMode mode, ref Vector branch)
{
var haveFeatures = false;
if (hasTest)
{
var test = stream.Read();
switch (mode)
{
case BranchMode.False:
{
haveFeatures = false;
break;
}
case BranchMode.True:
{
haveFeatures = true;
break;
}
case BranchMode.Eval:
default:
{
haveFeatures = EvalFeatureExpr(test);
break;
}
}
}
else
{
haveFeatures = mode == BranchMode.True;
}
if (haveFeatures)
{
branch = new Vector();
}
while (true)
{
var obj = haveFeatures ? stream.Read() : stream.ReadSuppressed();
if (obj == Symbols.HashElif || obj == Symbols.HashElse || obj == Symbols.HashEndif)
{
return (Symbol)obj;
}
else if (haveFeatures)
{
branch.Add(obj);
}
}
}
public static object ReadLineCommentHandler(LispReader stream, char ch)
{
// ;
stream.ReadLine();
return(VOID.Value);
}
public static object ReadExprCommentHandler(LispReader stream, string ch, int arg)
{
stream.ReadSuppressed();
return VOID.Value;
}
public static object ReadListHandler(LispReader stream, char ch)
{
return(stream.ReadDelimitedList(")"));
}
public static object ReadQuoteHandler(LispReader stream, char ch)
{
return MakeList(Symbols.Quote, stream.Read());
}
public static object ReadListHandler(LispReader stream, char ch)
{
return stream.ReadDelimitedList(")");
}
public static object ReadEndifExprHandler(LispReader stream, string ch, int arg)
{
return(Symbols.HashEndif);
}
public static object ReadRegexHandler(LispReader stream, string ch, int arg)
{
var rx = stream.ParseRegexString(ch[0]);
return rx;
}
public static object ReadExprCommentHandler(LispReader stream, string ch, int arg)
{
stream.ReadSuppressed();
return(VOID.Value);
}
public static object ReadShortLambdaExpressionHandler(LispReader stream, string ch, int arg)
{
// put '(' back syncing with ReadQuasiQuoteLambdaExpressionHandler
stream.UnreadChar();
return stream.ParseShortLambdaExpression(false, ")");
}
public static object ReadInfixHandler(LispReader stream, string ch, int arg)
{
return(stream.ParseInfixExpression());
}
public static object ReadSpecialStringHandler(LispReader stream, string ch, int arg)
{
var str = stream.ParseSpecialString();
return str;
}
public static object ReadLineCommentHandler2(LispReader stream, string ch, int arg)
{
// #!
stream.ReadLine();
return(VOID.Value);
}
public static object ReadCommaHandler(LispReader stream, char ch)
{
var ch2 = stream.ReadChar();
if (ch2 == '@' || ch2 == '.')
{
// Destructive splicing is handled as ordinary splicing
return MakeList(Symbols.UnquoteSplicing, stream.Read());
}
else
{
stream.UnreadChar();
return MakeList(Symbols.Unquote, stream.Read());
}
}
public static object ReadQuoteHandler(LispReader stream, char ch)
{
return(MakeList(Symbols.Quote, stream.Read()));
}
public static object ReadComplexNumberHandler(LispReader stream, string ch, int arg)
{
if (stream.ReadChar() != '(')
{
throw stream.MakeScannerException("Invalid #c expression");
}
var nums = stream.ReadDelimitedList(")");
int count = Length(nums);
double real = count >= 1 ? AsDouble(nums.Car) : 0;
double imag = count >= 2 ? AsDouble(nums.Cdr.Car) : 0;
return new Complex(real, imag);
}
public static object ReadStringHandler(LispReader stream, char ch)
{
// C# string "...."
return ParseInterpolateString(stream.ParseString());
}
public static object ReadCharacterHandler(LispReader stream, string ch, int arg)
{
stream.UnreadChar();
var name = MakeString(stream.Read());
var chr = DecodeCharacterName(name);
return chr;
}
public static object ReadQuasiQuoteLambdaExpressionHandler(LispReader stream, string ch, int arg)
{
return(stream.ParseShortLambdaExpression(true, ")"));
}
public static object ReadStringHandler2(LispReader stream, string ch, int arg)
{
// C# string @"..."
return ParseInterpolateString(stream.ParseMultiLineString());
}
public static object ReadRegexHandler(LispReader stream, string ch, int arg)
{
var rx = stream.ParseRegexString(ch[0]);
return(rx);
}
public static object ReadStructHandler(LispReader stream, string ch, int arg)
{
if (stream.ReadChar() != '(')
{
throw stream.MakeScannerException("Invalid #s() expression");
}
var list = stream.ReadDelimitedList(")");
var obj = new Prototype(AsArray(list));
return obj;
}
public static object ReadSpecialStringHandler(LispReader stream, string ch, int arg)
{
var str = stream.ParseSpecialString();
return(str);
}
public static object ReadUninternedSymbolHandler(LispReader stream, string ch, int arg)
{
throw stream.MakeScannerException("Uninterned symbols are not supported.");
}
public static object ReadStringHandler2(LispReader stream, string ch, int arg)
{
// C# string @"..."
return(ParseInterpolateString(stream.ParseMultiLineString()));
}
public static object ReadVectorHandler(LispReader stream, char ch)
{
var list = stream.ReadDelimitedList("]");
var obj = new Vector();
obj.AddRange(list);
return obj;
}
public static object ReadUninternedSymbolHandler(LispReader stream, string ch, int arg)
{
throw stream.MakeScannerException("Uninterned symbols are not supported.");
}
public static object ReadVectorHandler2(LispReader stream, string ch, int arg)
{
if (stream.ReadChar() != '(')
{
throw stream.MakeScannerException("Invalid #() expression");
}
var list = stream.ReadDelimitedList(")");
var obj = new Vector();
obj.AddRange(list);
if (arg == -1)
{
// default no action
}
else if (arg < obj.Count)
{
throw new LispException("Vector {0} contains more than {1} items", ToPrintString(obj), arg);
}
else if (arg > obj.Count)
{
var filler = obj.Count == 0 ? (object)null : obj[obj.Count - 1];
while (obj.Count < arg)
{
obj.Add(filler);
}
}
return obj;
}
public static object ReadBlockCommentHandler(LispReader stream, string ch, int arg)
{
// Nested comments are allowed.
stream.ReadBlockComment("#|", "|#");
return(VOID.Value);
}
public static object ReadBlockCommentHandler(LispReader stream, string ch, int arg)
{
// Nested comments are allowed.
stream.ReadBlockComment("#|", "|#");
return VOID.Value;
}
