It is all clear now.

Thank you (Adam and Bob) for the answers and thanks for the references
to the RM.

Hugo

On Dec 24, 1:43 am, Adam Beneschan irvine.com> wrote:

On 24 дек, 13:20, "John B. Matthews" nospam.com> wrote:

This post isn't quite correct. There is no such thing as terminal
emulator on plain Win32 installation. Terminal emulator is supposed
to map stream of bytes to a matrix of characters. There are also
some details such as signal hangling (e. g. SIGWINCH), but these
are minory issues. Generally, UNIX Terminals operate on streams.
Windows console doesn't.

On 24 дек, 03:22, tolkamp wrote:

Try this:
"A Win32 version of Mike Feldman's SCREEN package"
http://users.ncrvnet.nl/gmvdijk/packages.html

It should work better.

Stefan Soos writes:

I consider this a bug in the gnatcheck manual; you should send a
report to AdaCore. They might even answer your question :)

You might try.

Put ( ASCII.ESC & "[2J" ) ; -- ANSI escape seq for clearing screen

Also do a search for "ANSI ESCAPE CODES" for other codes.

In <763c9600-b888-4d85-9fe9-2f1e5286eadf@i24g2000prf.googlegroups.com>, tolkamp writes:

I would like to announce Gela ASIS 0.2 release.

http://www.ten15.org/wiki/gela_asis

Gela ASIS is platform/compiler independent implementation of Ada
Semantic Interface Specification (ASIS). Gela ASIS implements core
ASIS Version 2.0 and most of ASIS Issues (SI99), so it's capable to
process Ada 2005 code.

Recent changes are:
* Makefile to easy build and install Gela ASIS
* implementation of Ada 2005 issues
* implementation of private operations
* implementation of Asis.Compilation_Units.Relations

Best regards

Hi all,

Imagine a server with fixed number of worker tasks. There is no queue
of jobs and jobs are immediately passed to one of the tasks that is
currently idle. There is a separate task (or just the main one) that
provides jobs for worker tasks.

I am concerned with the proper structure of objects - I mean in the
sense of recommended Ada practice.
Obviously there is a need for some shared resource where the
requesting task will put the job and from where the worker task will
pick it up.

This is more or less what I came up with, where the "channel" is a
single processing pipeline:

type Worker_State is (Idle, Ready, Working);

Hi all,
I've gotten stuck again. I'm trying to compile an Ada project using
the .gpr file. I went through the examples to try and get those to
work. I can't compile Example 4 from the ada mode info pages. I load
the project file, but then there is no "Set main and build" option in
my menu. I'm using emacs 23.0.60 with the latest ada-mode with all
customization options set at the default.

I try to compile hello_4.adb and I get this:

cd /home/joe/prog/ada/examples/Example_4/Gnat_Project/Other/
gnatmake -o hello_4 hello_4 -g -cargs -gnatq -gnatQ -bargs -largs

gcc-4.3 -c -g -gnatq -gnatQ hello_4.adb
hello_4.adb:1:06: file "hello_pkg.ads" not found
hello_4.adb:5:04: "Hello_Pkg" is undefined
gnatmake: "hello_4.adb" compilation error

I can get it to compile by customizing "Ada Prj Default Gnatmake Opts"
to include the -P switch with the location to the gpr file. It seems
like I'm just missing an important variable in this option.

Also, how do you enable syntax highlighting for .gpr files?

I'm attempting to build a large system using gnat project files, I
have multiple libraries to be built some that have Ada and C.

Unfortuantely I've found to compile the Ada and C i have to use
gprbuild BUT gprbuild fails (reports a gcc error) to build some of the
large libraries (where as gnatmake WILL build them)

Any ideas?

I think that the command line list of files sent to gcc by gprlib is
to long, but i can't work out how gnatmake doesn't get this same
error.

Any lessons learnt using these tools would be appreciated.

Dear *,
I was doing some experiments with dispatching operations
and I discovered something that made me curious... Consider
the following 3-file set: 1 package (base.ad?) with a
"root" abstract type (Root) and two derived types
(Derived_1 and Derived_2) and 1 "main" (test_bas.adb)

----------------------- Filename : base.ads ----------------
package Base is
type Root is abstract tagged null record;

-- Uncomment LINE A or LINE B, but not both
-- === LINE A ===
-- procedure Print(X : Root) is abstract;

type Derived_1 is new Root with
record
A : Integer;
end record;