Top Prev Next Up Down
Classlist
List the content of one or more DAT-files. Call of the procedure
is ./classlist <DAT-file> . if no DAT-file is
given the procedure list information about the call to the
console.
In the procedure the 'kernel' of the process is following code
001|
Y2018.Text.Util.UrvPack.load(mp,""
& datFileName);
002| Ada.Text_IO.Put_Line ("" &
"\t=== "c & datFileName & "
==="c);
003|
lis:=Y2018.Text.Util.UrvPack.map_Names(mp);
004|
this:=Y2018.Text.Util.UrvPack.MapName.First(lis);
005| while
Y2018.Text.Util.UrvPack.MapName.Has_Element(this) loop
006| __urvMap :=
Y2018.Text.Util.UrvPack.MapName.Element(this);
007| __urvSet:=Y2018.Text.Util.UrvPack.get_Set(mp,urvMap);
008|
__Y2018.Text.Util.UrvPack.list_Set(urvSet,"\t---
"c & urvMap & " ---"c);
009|
__Y2018.Text.Util.UrvPack.MapName.Next(this);
010| end loop;
Note lines:
- line 001 - load the mappool 'mp'
(MapPool utilities)
- line 003 - retreive set names to
Set_TY.Set (Ordered set)
- line 005 - loop through the set
- line 007 - get the named set
- line 008 - list the set to
STDOUT
Classlist can be used for listing the content of the DAT-file but
also for checking that this is a legal DAT-file.