Re: texttools and standard library packages

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 13-12-11 04:25 , agent@drrob1.com wrote:
> I am a total newbie in regards to Ada, but have been using stony brook
> modula2 for many years.
> 
> I am trying to use the source texttools-2-1-0 and to compile the
> ttdemo program.  I am getting an error saying that To255 is undefined.
> I cannot find where this is.
> 
> Where do I look, or what library to I have to import (with,use)?

After downloading texttools-2-1-0 (from
http://www.pegasoft.ca/downloads/), it seems that all occurrences of
"To255" are in comments, and there is no "ttdemo" example. This suggests
to me that "To255" was a feature of an earlier version of texttools, and
that "ttdemo" has not been updated to work with version 2.1.0. The
README file says this:

-- quote from texttools-2-1-0 README:
Version 2.1.0 has a new ... conversion from bounded strings to unbounded
strings.  The gen_list generic linked list package has been
deprecated in favour of the standard Ada list packages introduced in Ada
2005.

TIA 1.2.2 will not build with Texttools 2.1.0 due to these changes.
-- end quote

You could try some of the other example programs included in the
texttools-2-1-0 installation kit. Presumably, these should work with
this version of texttools; at least they do not use "To255".

I don't know if this is the same "ttdemo" program that you are using,
but there is a "ttdemo" at
http://beru.univ-brest.fr/~singhoff/DOC/LANG/ADA/BOOK/15.html, in which
To255 occurs for the first time in this statement:

  OpenWindow( To255( "Demo Window" ), -- title at top of window
     0, 0, 78, 23,          -- the coordinates of the window
     Style      => normal,  -- type of window, usually "normal"
     HasInfoBar => true );  -- true if control information is

Looking at the declaration of OpenWindow in package Windows
(windows.ads), the first parameter should now be an ordinary String:

   procedure OpenWindow( title : in String ; l, t, r, b : integer;
          Style : AWindowStyle := Normal; HasInfoBar : boolean := false;
          CallBack : AWindowDrawingCallBack := null );

Probably you could just remove all occurrences of To255(), and change
the first line of the statement to

  OpenWindow( "Demo Window",  -- title at top of window


-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
      .      @       .