raw
zfp_genesis             1 ------------------------------------------------------------------------------
zfp_genesis             2 ------------------------------------------------------------------------------
zfp_genesis             3 -- You do not have, nor can you ever acquire the right to use, copy or      --
zfp_genesis             4 -- distribute this software ; Should you use this software for any purpose, --
zfp_genesis             5 -- or copy and distribute it to anyone or in any manner, you are breaking   --
zfp_genesis             6 -- the laws of whatever soi-disant jurisdiction, and you promise to         --
zfp_genesis             7 -- continue doing so for the indefinite future. In any case, please         --
zfp_genesis             8 -- always : read and understand any software ; verify any PGP signatures    --
zfp_genesis             9 -- that you use - for any purpose.                                          --
zfp_genesis            10 --                                                                          --
zfp_genesis            11 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm .     --
zfp_genesis            12 ------------------------------------------------------------------------------
zfp_genesis            13 ------------------------------------------------------------------------------
zfp_genesis            14 
zfp_genesis            15 --  Version for use with C run time
zfp_genesis            16 
zfp_genesis            17 package body Ada.Text_IO is
zfp_genesis            18 
zfp_genesis            19    --------------
zfp_genesis            20    -- New_Line --
zfp_genesis            21    --------------
zfp_genesis            22 
zfp_genesis            23    procedure New_Line is
zfp_genesis            24    begin
zfp_genesis            25       Put (ASCII.LF);
zfp_genesis            26    end New_Line;
zfp_genesis            27 
zfp_genesis            28    ---------
zfp_genesis            29    -- Put --
zfp_genesis            30    ---------
zfp_genesis            31 
zfp_genesis            32    procedure Put (Item : Character) is
zfp_genesis            33       function Putchar (C : Integer) return Integer;
zfp_genesis            34       pragma Import (C, Putchar);
zfp_genesis            35 
zfp_genesis            36       Ignore : Integer;
zfp_genesis            37 
zfp_genesis            38    begin
zfp_genesis            39       Ignore := Putchar (Character'Pos (Item));
zfp_genesis            40    end Put;
zfp_genesis            41 
zfp_genesis            42    procedure Put (Item : String) is
zfp_genesis            43    begin
zfp_genesis            44       for J in Item'Range loop
zfp_genesis            45          Put (Item (J));
zfp_genesis            46       end loop;
zfp_genesis            47    end Put;
zfp_genesis            48 
zfp_genesis            49    --------------
zfp_genesis            50    -- Put_Line --
zfp_genesis            51    --------------
zfp_genesis            52 
zfp_genesis            53    procedure Put_Line (Item : String) is
zfp_genesis            54    begin
zfp_genesis            55       Put (Item);
zfp_genesis            56       New_Line;
zfp_genesis            57    end Put_Line;
zfp_genesis            58 
zfp_genesis            59 end Ada.Text_IO;