IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
if (Read == '=')
{
Current.End(Symbol.GreaterOrEqualThan);
return(States.Base);
}
Current.End(Symbol.GreaterThan);
return(States.Base.Read(Current, Read, States));
}
IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
if (Read == '=')
{
Current.End(Symbol.Assigment);
return(States.Base);
}
Current.End(Symbol.Colon);
return(States.Base.Read(Current, Read, States));
}
IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
switch (Read)
{
case 'a':
Current.Append('\a');
return(States.StringLiteral);
case 'n':
Current.AppendNewLine();
return(States.StringLiteral);
case '"':
Current.End(Symbol.StringLiteral);
return(States.Base);
case '\\':
Current.Append('\\');
return(States.StringLiteral);
default:
Current.Append('\\');
return(States.StringLiteral.Read(Current, Read, States));
}
}
IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
if (char.IsLetterOrDigit(Read) || Read == '_')
{
return(States.Identifier.Read(Current, Read, States));
}
Current.End(endSymbol);
return(States.Base.Read(Current, Read, States));
}
IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
if (char.IsNumber(Read))
{
Current.Append(Read);
return(this);
}
Current.End(Symbol.RealLiteral);
return(States.Base.Read(Current, Read, States));
}
IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
if (char.IsWhiteSpace(Read))
{
return(this);
}
if (char.IsLetter(Read))
{
Current.Append(Read);
switch (Read)
{
case 'a':
/*assert, and, array*/
return(States.A);
case 'b':
/*begin, boolean */
return(States.B);
case 'd':
return(States.Do);
case 'e':
/* else, end */
return(States.E);
case 'f':
/* false, function*/
return(States.F);
case 'i':
/*integer, if*/
return(States.I);
case 'n':
return(States.Not);
case 'o':
return(States.O);
case 'p':
/* procedure, program */
return(States.P);
case 'r':
/* real, read*/
return(States.R);
case 's':
/* size, string*/
return(States.S);
case 't':
/* then, true */
return(States.T);
case 'v':
return(States.Variable);
case 'w':
/* while, writeln*/
return(States.W);
default:
return(States.Identifier);
}
}
if (char.IsNumber(Read))
{
Current.Append(Read);
return(States.IntegerLiteral);
}
switch (Read)
{
case '{':
return(States.CommentOpen);
case '/':
return(States.ForwardSlash);
case ':':
return(States.Colon);
case '\\':
return(States.StringLiteralStart);
case '<':
return(States.Less);
case '>':
return(States.Greater);
case '%':
Current.End(Symbol.Modulo);
return(this);
case ',':
Current.End(Symbol.Comma);
return(this);
case '.':
Current.End(Symbol.Period);
return(this);
case '&':
Current.End(Symbol.LogicalAnd);
return(this);
case '!':
Current.End(Symbol.LogicalNot);
return(this);
case '=':
Current.End(Symbol.Equality);
return(this);
case '+':
Current.End(Symbol.Addition);
return(this);
case '*':
Current.End(Symbol.Multiplication);
return(this);
case ';':
Current.End(Symbol.SemiColon);
return(this);
case '(':
Current.End(Symbol.ClosureOpen);
return(this);
case ')':
Current.End(Symbol.ClosureClose);
return(this);
case '-':
Current.End(Symbol.Substraction);
return(this);
case '[':
Current.End(Symbol.IndexOpen);
return(this);
case ']':
Current.End(Symbol.IndexClose);
return(this);
}
throw new LexerException("Invalid character " + Read, Current.Line);
}
IScannerState IScannerState.Read(TokenConstruction Current, char Read, StateStorage States)
{
Current.End(Symbol.Division);
return(States.Base.Read(Current, Read, States));
}
