Head toma un trozo del principio de Source. Para utilizarla hay que incluir la librería Ada.Strings.Bounded.
function Head (Source : in Bounded_String; Count : in Natural; Pad : in Character := Space; Drop : in Truncation := Error) return Bounded_String; procedure Head (Source : in out Bounded_String; Count : in Natural; Justify : in Alignment := Left; Pad : in Character := Space; Drop : in Truncation := Error);
with Ada.Strings; use Ada.Strings with Ada.Strings.Bounded; -- Librería de ristras de tamaño limitado ... package Str100 is new Ada.Strings.Bounded.Generic_Bounded_Length(100); use Str100; ... SL: Str100.Bounded_String; ... SL := To_Bounded_String ("Universidad de Las Palmas de Gran Canaria"); SL := Head (SL, 10); -- SL = "Universida"
SL := To_Bounded_String ("Casa"); SL := Head (SL, 10); -- SL = "Casa "