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

9
h2/lib2/h3-runes.adb
View File

@ -5,9 +5,6 @@ package body H3.Runes is
package UC renames System.UTF_32;
use type System.UTF_32.Category;
SP: constant Rune := Rune'Val(32);
HT: constant Rune := Rune'Val(9);
function Is_Alpha (V: in Rune) return Boolean is
begin
return UC.Is_UTF_32_Letter(Rune'Pos(V));
@ -31,7 +28,7 @@ package body H3.Runes is
function Is_Blank (V: in Rune) return Boolean is
begin
return V = SP or else V = HT;
return V = Runes.V.Space or else V = Runes.V.HT;
end Is_Blank;
function Is_Blank (C: in Code) return Boolean is
@ -61,7 +58,7 @@ package body H3.Runes is
function Is_Graph (V: in Rune) return Boolean is
begin
return Is_Print(V) and then V /= SP;
return Is_Print(V) and then V /= Runes.V.Space;
end Is_Graph;
function Is_Graph (C: in Code) return Boolean is
@ -104,7 +101,7 @@ package body H3.Runes is
begin
return UC.Is_UTF_32_Space(Rune'Pos(V)) or else
UC.Is_UTF_32_Line_Terminator(Rune'Pos(V)) or else
V = HT;
V = Runes.V.HT;
end Is_Space;
function Is_Space (C: in Code) return Boolean is