awa_unit_2.4.0_59135a52/dynamo/src/yaml/text.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
--  part of ParserTools, (c) 2017 Felix Krause
--  released under the terms of the MIT license, see the file "copying.txt"

with Ada.Strings.Hash;

package body Text is

   function "&" (Left, Right : Reference) return String is
       (Ada.Strings.Unbounded.To_String (Left) & Ada.Strings.Unbounded.To_String (Right));

   function Hash (Object : Reference) return Ada.Containers.Hash_Type is
     (Ada.Strings.Hash (Ada.Strings.Unbounded.To_String (Object)));

end Text;