package body Ada.Wide_Characters.Unicode is
package G renames GNAT.UTF_32;
function Get_Category (U : Wide_Character) return Category is
begin
return Category (G.Get_Category (Wide_Character'Pos (U)));
end Get_Category;
function Is_Digit (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Digit (Wide_Character'Pos (U));
end Is_Digit;
function Is_Digit (C : Category) return Boolean is
begin
return G.Is_UTF_32_Digit (G.Category (C));
end Is_Digit;
function Is_Letter (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Letter (Wide_Character'Pos (U));
end Is_Letter;
function Is_Letter (C : Category) return Boolean is
begin
return G.Is_UTF_32_Letter (G.Category (C));
end Is_Letter;
function Is_Line_Terminator (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Line_Terminator (Wide_Character'Pos (U));
end Is_Line_Terminator;
function Is_Mark (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Mark (Wide_Character'Pos (U));
end Is_Mark;
function Is_Mark (C : Category) return Boolean is
begin
return G.Is_UTF_32_Mark (G.Category (C));
end Is_Mark;
function Is_Non_Graphic (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Non_Graphic (Wide_Character'Pos (U));
end Is_Non_Graphic;
function Is_Non_Graphic (C : Category) return Boolean is
begin
return G.Is_UTF_32_Non_Graphic (G.Category (C));
end Is_Non_Graphic;
function Is_Other (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Other (Wide_Character'Pos (U));
end Is_Other;
function Is_Other (C : Category) return Boolean is
begin
return G.Is_UTF_32_Other (G.Category (C));
end Is_Other;
function Is_Punctuation (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Punctuation (Wide_Character'Pos (U));
end Is_Punctuation;
function Is_Punctuation (C : Category) return Boolean is
begin
return G.Is_UTF_32_Punctuation (G.Category (C));
end Is_Punctuation;
function Is_Space (U : Wide_Character) return Boolean is
begin
return G.Is_UTF_32_Space (Wide_Character'Pos (U));
end Is_Space;
function Is_Space (C : Category) return Boolean is
begin
return G.Is_UTF_32_Space (G.Category (C));
end Is_Space;
function To_Upper_Case
(U : Wide_Character) return Wide_Character
is
begin
return
Wide_Character'Val
(G.UTF_32_To_Upper_Case (Wide_Character'Pos (U)));
end To_Upper_Case;
end Ada.Wide_Characters.Unicode;