The two routines Is_Other_Format and Is_Punctuation_Connector
are thus renamed (from Is_Other and Is_Punctuation) in packages
Ada.Wide_Character.Handling and Ada.Wide_Wide_Character.Handling
to reflect the final decision on names.
The following should compile as shown
1. with Ada.Wide_Characters.Handling;
2. use Ada.Wide_Characters.Handling;
3. procedure Wide_Char_Test is
4. Result : Boolean;
5. begin
6. Result := Is_Other_Format (Wide_Character'First);
7. Result := Is_Other (Wide_Character'First);
|
>>> "Is_Other" is undefined
8. Result := Is_Punctuation_Connector (Wide_Character'First);
9. Result := Is_Punctuation (Wide_Character'First);
|
>>> "Is_Punctuation" is undefined
10. end Wide_Char_Test;
Tested on x86_64-pc-linux-gnu, committed on trunk
2013-10-10 Robert Dewar <de...@adacore.com>
* a-wichha.adb, a-wichha.ads, a-zchhan.adb, a-zchhan.ads
(Is_Other_Format): New name for Is_Other.
(Is_Punctuation_Connector): New name for Is_Punctuation
Index: a-zchhan.adb
===================================================================
--- a-zchhan.adb (revision 203342)
+++ a-zchhan.adb (working copy)
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2010-2012, Free Software Foundation, Inc. --
+-- Copyright (C) 2010-2013, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -108,18 +108,19 @@
function Is_Mark (Item : Wide_Wide_Character) return Boolean
renames Ada.Wide_Wide_Characters.Unicode.Is_Mark;
- --------------
- -- Is_Other --
- --------------
+ ---------------------
+ -- Is_Other_Format --
+ ---------------------
- function Is_Other (Item : Wide_Wide_Character) return Boolean
+ function Is_Other_Format (Item : Wide_Wide_Character) return Boolean
renames Ada.Wide_Wide_Characters.Unicode.Is_Other;
- --------------------
- -- Is_Punctuation --
- --------------------
+ ------------------------------
+ -- Is_Punctuation_Connector --
+ ------------------------------
- function Is_Punctuation (Item : Wide_Wide_Character) return Boolean
+ function Is_Punctuation_Connector
+ (Item : Wide_Wide_Character) return Boolean
renames Ada.Wide_Wide_Characters.Unicode.Is_Punctuation;
--------------
Index: a-zchhan.ads
===================================================================
--- a-zchhan.ads (revision 203342)
+++ a-zchhan.ads (working copy)
@@ -82,13 +82,14 @@
-- categorized as mark_non_spacing or mark_spacing_combining, otherwise
-- returns false.
- function Is_Other (Item : Wide_Wide_Character) return Boolean;
- pragma Inline (Is_Other);
+ function Is_Other_Format (Item : Wide_Wide_Character) return Boolean;
+ pragma Inline (Is_Other_Format);
-- Returns True if the Wide_Wide_Character designated by Item is
-- categorized as other_format, otherwise returns false.
- function Is_Punctuation (Item : Wide_Wide_Character) return Boolean;
- pragma Inline (Is_Punctuation);
+ function Is_Punctuation_Connector
+ (Item : Wide_Wide_Character) return Boolean;
+ pragma Inline (Is_Punctuation_Connector);
-- Returns True if the Wide_Wide_Character designated by Item is
-- categorized as punctuation_connector, otherwise returns false.
Index: a-wichha.adb
===================================================================
--- a-wichha.adb (revision 203342)
+++ a-wichha.adb (working copy)
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 2010-2012, Free Software Foundation, Inc. --
+-- Copyright (C) 2010-2013, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -108,18 +108,18 @@
function Is_Mark (Item : Wide_Character) return Boolean
renames Ada.Wide_Characters.Unicode.Is_Mark;
- --------------
- -- Is_Other --
- --------------
+ ---------------------
+ -- Is_Other_Format --
+ ---------------------
- function Is_Other (Item : Wide_Character) return Boolean
+ function Is_Other_Format (Item : Wide_Character) return Boolean
renames Ada.Wide_Characters.Unicode.Is_Other;
- --------------------
- -- Is_Punctuation --
- --------------------
+ ------------------------------
+ -- Is_Punctuation_Connector --
+ ------------------------------
- function Is_Punctuation (Item : Wide_Character) return Boolean
+ function Is_Punctuation_Connector (Item : Wide_Character) return Boolean
renames Ada.Wide_Characters.Unicode.Is_Punctuation;
--------------
Index: a-wichha.ads
===================================================================
--- a-wichha.ads (revision 203342)
+++ a-wichha.ads (working copy)
@@ -78,13 +78,13 @@
-- Returns True if the Wide_Character designated by Item is categorized as
-- mark_non_spacing or mark_spacing_combining, otherwise returns false.
- function Is_Other (Item : Wide_Character) return Boolean;
- pragma Inline (Is_Other);
+ function Is_Other_Format (Item : Wide_Character) return Boolean;
+ pragma Inline (Is_Other_Format);
-- Returns True if the Wide_Character designated by Item is categorized as
-- other_format, otherwise returns false.
- function Is_Punctuation (Item : Wide_Character) return Boolean;
- pragma Inline (Is_Punctuation);
+ function Is_Punctuation_Connector (Item : Wide_Character) return Boolean;
+ pragma Inline (Is_Punctuation_Connector);
-- Returns True if the Wide_Character designated by Item is categorized as
-- punctuation_connector, otherwise returns false.
