Re: 4 beginner's questions on the PL Ada

[Robert A Duff <bobduff@shell01.TheWorld.com>]

Emanuel Berg <embe8573@student.uu.se> writes:

> Aha! I don't use new, I just setup the tasks specifications and
> bodies (three of them), and then
>
> begin
>   null;
> end;
>
> I assumed I got three tasks, concurrently, one of each type, all
> unique with regards to their human readable name, with no need for
> the control block hex?

Yes.  In that case, it might be reasonable to write a function to
chop off the hex part, something like:

    function My_Image return String is
        X : constant String := Image(Current_Task);
    begin
        for J in reverse X'Range loop
            if X(J) = '_' then
                return X(X'First..J-1);
            end if;
        end loop;
        return X;
    end My_Image;

I didn't compile the above -- it might have typos/bugs.

I assume this is all for debugging/logging/tracing.
So it doesn't really matter too much what My_Image does,
so long as it doesn't crash.  If/when you start using "new",
or switch to a different Ada compiler, you can tweak that function.

- Bob