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