26 lines
1.2 KiB
Ada
26 lines
1.2 KiB
Ada
|
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;
|