diff options
Diffstat (limited to 'source/lexer.elna')
| -rw-r--r-- | source/lexer.elna | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/source/lexer.elna b/source/lexer.elna index b3250d0..9008139 100644 --- a/source/lexer.elna +++ b/source/lexer.elna @@ -67,7 +67,7 @@ type start_location: TextLocation; end_location: TextLocation end - TransitionAction = proc(^Lexer, ^LexerToken) + TransitionAction = proc(lexer: ^Lexer; token: ^LexerToken) Transition = record action: TransitionAction; next_state: TransitionState @@ -298,7 +298,7 @@ begin end end -proc compare_keyword(keyword: String; token_start: BufferPosition; token_end: ^Char) -> Bool +proc compare_keyword(keyword: String; token_start: BufferPosition; token_end: ^Char): Bool var result: Bool index: Word @@ -585,7 +585,7 @@ begin token^.value.integerKind := atoi(@token^.value.identifierKind[2]) end -proc set_default_transition(current_state: TransitionState; default_action: TransitionAction; next_state: TransitionState) -> Int +proc set_default_transition(current_state: TransitionState; default_action: TransitionAction; next_state: TransitionState): Int var default_transition: Transition state_index: Int @@ -889,7 +889,7 @@ begin end (* Returns the last read token. *) -proc lexer_current*(lexer: ^Lexer) -> LexerToken +proc lexer_current*(lexer: ^Lexer): LexerToken var current_class: TransitionClass current_state: TransitionState @@ -921,7 +921,7 @@ begin end (* Read and return the next token. *) -proc lexer_lex*(lexer: ^Lexer) -> LexerToken +proc lexer_lex*(lexer: ^Lexer): LexerToken var result: LexerToken begin |