Add a command line parsing procedure

source/Lexer.elna

@@ -1,8 +1,10 @@
 implementation module Lexer;
 
-from FIO import ReadNBytes;
-from SYSTEM import ADR;
+from FIO import ReadNBytes, StdErr;
+from SYSTEM import ADR, TSIZE;
 
+from DynamicStrings import String, InitStringCharStar, KillString;
+from StringConvert import StringToInteger;
 from Storage import DEALLOCATE, ALLOCATE;
 from Strings import Length;
 from MemUtils import MemCopy, MemZero;
@@ -211,13 +213,13 @@ begin
   end
 end;
 
-proc compare_keyword(Keyword: ARRAY OF CHAR,  TokenStart: PLexerBuffer,  TokenEnd: PLexerBuffer) -> BOOLEAN;
+proc compare_keyword(Keyword: ARRAY OF CHAR, TokenStart: PLexerBuffer, TokenEnd: PLexerBuffer) -> BOOLEAN;
 var
   result: BOOLEAN;
   index: CARDINAL;
 begin
   index := 0;
-  result := TRUE;
+  result := true;
 
   while (index < Length(Keyword)) & (TokenStart <> TokenEnd) & result DO
     result := (Keyword[index] = TokenStart^) or (Lower(Keyword[index]) = TokenStart^);
@@ -229,20 +231,20 @@ begin
 end;
 
 (* Reached the end of file. *)
-proc transition_action_eof(lexer: PLexer,  token: PLexerToken);
+proc transition_action_eof(lexer: PLexer, token: PLexerToken);
 begin
   token^.kind := lexerKindEof
 end;
 
 (* Add the character to the token currently read and advance to the next character. *)
-proc transition_action_accumulate(lexer: PLexer,  token: PLexerToken);
+proc transition_action_accumulate(lexer: PLexer, token: PLexerToken);
 begin
   INC(lexer^.Current)
 end;
 
 (* The current character is not a part of the token. Finish the token already
  * read. Don't advance to the next character. *)
-proc transition_action_finalize(lexer: PLexer,  token: PLexerToken);
+proc transition_action_finalize(lexer: PLexer, token: PLexerToken);
 begin
   if lexer^.Start^ = ':' then
     token^.kind := lexerKindColon
@@ -265,7 +267,7 @@ begin
 end;
 
 (* An action for tokens containing multiple characters. *)
-proc transition_action_composite(lexer: PLexer,  token: PLexerToken);
+proc transition_action_composite(lexer: PLexer, token: PLexerToken);
 begin
   if lexer^.Start^ = '<' then
     if lexer^.Current^ = '>' then
@@ -291,14 +293,14 @@ begin
 end;
 
 (* Skip a space. *)
-proc transition_action_skip(lexer: PLexer,  token: PLexerToken);
+proc transition_action_skip(lexer: PLexer, token: PLexerToken);
 begin
   INC(lexer^.Current);
   INC(lexer^.Start)
 end;
 
 (* Delimited string action. *)
-proc transition_action_delimited(lexer: PLexer,  token: PLexerToken);
+proc transition_action_delimited(lexer: PLexer, token: PLexerToken);
 begin
   if lexer^.Start^ = '(' then
     token^.kind := lexerKindComment
@@ -313,7 +315,7 @@ begin
 end;
 
 (* Finalize keyword or identifier. *)
-proc transition_action_key_id(lexer: PLexer,  token: PLexerToken);
+proc transition_action_key_id(lexer: PLexer, token: PLexerToken);
 begin
   token^.kind := lexerKindIdentifier;
 
@@ -409,17 +411,17 @@ begin
   end;
   if compare_keyword('TRUE', lexer^.Start, lexer^.Current) then
     token^.kind := lexerKindBoolean;
-    token^.booleanKind := TRUE
+    token^.booleanKind := true
   end;
   if compare_keyword('FALSE', lexer^.Start, lexer^.Current) then
     token^.kind := lexerKindBoolean;
-    token^.booleanKind := FALSE
+    token^.booleanKind := false
   end
 end;
 
 (* Action for tokens containing only one character. The character cannot be
  * followed by other characters forming a composite token. *)
-proc transition_action_single(lexer: PLexer,  token: PLexerToken);
+proc transition_action_single(lexer: PLexer, token: PLexerToken);
 begin
   if lexer^.Current^ = '&' then
     token^.kind := lexerKindAnd
@@ -467,12 +469,24 @@ begin
 end;
 
 (* Handle an integer literal. *)
-proc transition_action_integer(lexer: PLexer,  token: PLexerToken);
+proc transition_action_integer(lexer: PLexer, token: PLexerToken);
+var
+  buffer: String;
+  integer_length: CARDINAL;
+  found: BOOLEAN;
 begin
-  token^.kind := lexerKindInteger
+  token^.kind := lexerKindInteger;
+
+  integer_length := lexer^.Current - lexer^.Start;
+  MemZero(ADR(token^.identifierKind), TSIZE(Identifier));
+  MemCopy(lexer^.Start, integer_length, ADR(token^.identifierKind[1]));
+
+  buffer := InitStringCharStar(ADR(token^.identifierKind[1]));
+  token^.integerKind := StringToInteger(buffer, 10, found);
+  buffer := KillString(buffer)
 end;
 
-proc set_default_transition(CurrentState: TransitionState,  DefaultAction: TransitionAction,  NextState: TransitionState);
+proc set_default_transition(CurrentState: TransitionState, DefaultAction: TransitionAction, NextState: TransitionState);
 var
   DefaultTransition: Transition;
 begin
@@ -757,7 +771,7 @@ begin
   transitions[ORD(transitionStateDecimalSuffix) + 1][ORD(transitionClassX) + 1].NextState := transitionStateEnd
 end;
 
-proc lexer_initialize(lexer: PLexer,  Input: File);
+proc lexer_initialize(lexer: PLexer, Input: File);
 begin
   lexer^.Input := Input;
   lexer^.Length := 0;