hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed to use the subpackaged rune symbols in the rune classification functions

Browse Source
This commit is contained in:
hyung-hwan
2021-11-02 00:31:30 +00:00
parent 714309e044
commit 001115770d
3 changed files with 21 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
h2/lib2/h3-compilers.adb
View File

@ -45,6 +45,9 @@ ada.text_io.put_line("");
null;
when TK_CSTR =>
null;
when TK_DIRECTIVE =>
--Push_Feed_Layer (...
null;
when TK_EOF =>
null;
when TK_EOL =>
@ -124,11 +127,11 @@ ada.text_io.put_line("");
procedure Feed_Char_Code (C: in out Compiler; Code: in R.Code) is
begin
<<Start_Over>>
if R.Is_Eof(Code) then
if R.Is_Eof(Code) then
ada.text_io.put_line ("EOF");
else
else
ada.text_io.put_line (R.To_Rune(Code)'Img);
end if;
end if;
case C.Lx.State is
when LX_START =>
if R.Is_Eof(Code) then
@ -150,10 +153,20 @@ ada.text_io.put_line("");
Set_Lexer_State (C, LX_OP_LESS, Code);
elsif R.Is_Rune(Code, R.V.Right_Arrow) then
Set_Lexer_State (C, LX_OP_GREATER, Code);
elsif R.Is_Rune(Code, R.V.Number_Sign) then
Set_Lexer_State (C, LX_DIRECTIVE);
else
raise Syntax_Error;
end if;
when LX_DIRECTIVE =>
if R.Is_Alnum(Code) or else R.Is_Rune(Code, R.V.Underline) then
Feed_Token (C, Code);
else
End_Token (C, TK_DIRECTIVE);
goto Start_Over;
end if;
when LX_OP_GREATER =>
if R.Is_Rune(Code, R.V.Equal_Sign) then
End_Token (C, TK_GE, Code);