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

experimenting with character classes

Browse Source
This commit is contained in:
hyung-hwan
2021-10-16 02:04:46 +00:00
parent c2cba622cd
commit 62dbee51b8
2 changed files with 130 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
h2/lib2/h3-cc.ads Normal file
View File

@ -0,0 +1,26 @@
generic
type Item_Type is (<>); -- any discrete type
package H3.CC is
-- <ctype.h>-like character classification package
-- unicode-based. no system locale honored.
type Class is (ALPHA, ALNUM, BLANK, CNTRL, DIGIT, GRAPH, LOWER, PRINT, PUNCT, SPACE, XDIGIT, UPPER);
function Is_Class (V: in Item_Type; C: in Class) return Standard.Boolean;
function Is_Alpha (V: in Item_Type) return Standard.Boolean;
function Is_Alnum (V: in Item_Type) return Standard.Boolean;
function Is_Blank (V: in Item_Type) return Standard.Boolean;
function Is_Cntrl (V: in Item_Type) return Standard.Boolean;
function Is_Digit (V: in Item_Type) return Standard.Boolean;
function Is_Graph (V: in Item_Type) return Standard.Boolean;
function Is_Print (V: in Item_Type) return Standard.Boolean;
function Is_Punct (V: in Item_Type) return Standard.Boolean;
function Is_Space (V: in Item_Type) return Standard.Boolean;
function Is_Xdigit (V: in Item_Type) return Standard.Boolean;
function Is_Lower (V: in Item_Type) return Standard.Boolean;
function Is_Upper (V: in Item_Type) return Standard.Boolean;
function To_Lower (V: in Item_Type) return Item_Type;
function To_Upper (V: in Item_Type) return Item_Type;
end H3.CC;