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; |