Lines Matching defs:Text
17 -- This program compresses a string of text, and then decompresses the
18 -- compressed text into a buffer of the same size as the original text.
27 Text : constant String
32 Source : Stream_Element_Array (1 .. Text'Length);
33 for Source'Address use Text'Address;
36 Ada.Text_IO.Put (Text);
39 ("Uncompressed size : " & Positive'Image (Text'Length) & " bytes");
42 Compressed_Data : Stream_Element_Array (1 .. Text'Length);
71 Uncompressed_Data : Stream_Element_Array (1 .. Text'Length);
102 ("Decompressed text matches original text : "
Indexes created Mon Sep 29 18:09:42 GMT 2025