Re: text_io and grid printing

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On 2018-05-17 16:51, Mehdi Saada wrote:
> I wanted to use set_col and set_line to print things as in a grid, (to print a matrix) but it seems I was wrong ?
> Set_Col (1); Put ("1"); Set_Col (2); Put ("2"); Set_Col (3); Put ("3");
> Gives "123"
> but Set_Col (2); Put ("2"); Set_Col (1); Put ("1"); Set_Col (3); Put ("3");
> gives
>   2
> 1 3
> 
> Is there something with linux' implementation ? How do you use to print things like a grid in a portable ? Are you forced to use some complicated curse-like library for that ?

No. You need string formatting. Try this:
------------------------------------------------
with Ada.Text_IO;            use Ada.Text_IO;
with Strings_Edit;           use Strings_Edit;
with Strings_Edit.Integers;  use Strings_Edit.Integers;

procedure Test is
    Line    : String (1..80);
    Pointer : Integer;
begin
    Pointer := Line'First;
    Put (Destination => Line, Pointer => Pointer, Value => 1, Field => 
8, Justify => Right);
    Put (Destination => Line, Pointer => Pointer, Value => 2, Field => 
8, Justify => Right);
    Put (Destination => Line, Pointer => Pointer, Value => 3, Field => 
8, Justify => Right);
    Put_Line (Line (Line'First..Pointer - 1));
    Pointer := Line'First;
    Put (Destination => Line, Pointer => Pointer, Value => 4, Field => 
8, Justify => Right);
    Put (Destination => Line, Pointer => Pointer, Value => 5, Field => 
8, Justify => Right);
    Put (Destination => Line, Pointer => Pointer, Value => 6, Field => 
8, Justify => Right);
    Put_Line (Line (Line'First..Pointer - 1));
end Test;
---------------------------------------------------
This prints:
        1       2       3
        4       5       6

Of course you can place fields in any order by setting Pointer to the 
beginning of the field.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de