Ada 编程/库/Ada.Strings.UTF_Encoding

计算 » 计算机科学 » 计算机编程 » Ada 编程

---

此语言特性已在 Ada 2012 中引入。

Ada.Strings.UTF_Encoding 是自 Ada 2012 以来 预定义语言环境 的一个单元。

规范

--                     Standard Ada library specification
--   Copyright (c) 2004-2016 AXE Consultants
--   Copyright (c) 2004, 2005, 2006 Ada-Europe
--   Copyright (c) 2000 The MITRE Corporation, Inc.
--   Copyright (c) 1992, 1993, 1994, 1995 Intermetrics, Inc.
--   SPDX-License-Identifier: BSD-3-Clause and LicenseRef-AdaReferenceManual
-- -------------------------------------------------------------------------

package Ada.Strings.UTF_Encoding is
   pragma Pure (UTF_Encoding);

   --  Declarations common to the string encoding packages
   type Encoding_Scheme is (UTF_8, UTF_16BE, UTF_16LE);

   subtype UTF_String is String;

   subtype UTF_8_String is String;

   subtype UTF_16_Wide_String is Wide_String;

   Encoding_Error : exception;

   BOM_8    : constant UTF_8_String :=
                Character'Val(16#EF#) &
                Character'Val(16#BB#) &
                Character'Val(16#BF#);

   BOM_16BE : constant UTF_String :=
                Character'Val(16#FE#) &
                Character'Val(16#FF#);

   BOM_16LE : constant UTF_String :=
                Character'Val(16#FF#) &
                Character'Val(16#FE#);

   BOM_16   : constant UTF_16_Wide_String :=
               (1 => Wide_Character'Val(16#FEFF#));

   function Encoding (Item    : UTF_String;
                      Default : Encoding_Scheme := UTF_8)
      return Encoding_Scheme;

end Ada.Strings.UTF_Encoding;

参见

• Ada 编程/库/Ada
• Ada 编程/库/Ada.Strings

外部示例

• 在以下位置搜索 示例 的 Ada.Strings.UTF_Encoding：Rosetta Code，GitHub (gists)，任何 Alire 仓库 或 此。
• 在以下位置搜索与 Ada.Strings.UTF_Encoding 相关的 帖子：Stack Overflow，comp.lang.ada 或 任何与 Ada 相关的页面。

Ada 参考手册

Ada 2012

• A.4.11：字符串编码 ^{[带注释的]}

开源实现

FSF GNAT

• 规范：a-stuten.ads
• 主体：a-stuten.adb

drake

• 规范：strings/a-stuten.ads
• 主体：strings/a-stuten.adb