|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 32373 (0x7e75)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦51e199216⟧
└─⟦this⟧
with Text_Io, Complement, Identifier, Field_Identifier_Array,
Enumeration_Array, Complement_Identifier_Array;
use Text_Io, Complement;
procedure Test_Complement is
C, C1 : Complement.Object;
Id, Id1, Id2 : Identifier.Object;
Val_Enum : Natural;
Ok : Boolean;
begin
Complement_Identifier_Array.Show;
Complement_Identifier_Array.Put (Identifier.From_String ("e1"));
Complement_Identifier_Array.Put (Identifier.From_String ("e2"));
Complement_Identifier_Array.Put (Identifier.From_String ("e3"));
Complement_Identifier_Array.Put (Identifier.From_String ("e4"));
Complement_Identifier_Array.Put (Identifier.From_String ("e5"));
Complement_Identifier_Array.Put (Identifier.From_String ("e6"));
Complement_Identifier_Array.Put (Identifier.From_String ("e7"));
Complement_Identifier_Array.Put (Identifier.From_String ("e8"));
Complement_Identifier_Array.Put (Identifier.From_String ("e9"));
Id1 := Identifier.From_String ("etat_porte");
Id2 := Identifier.From_String ("ouverte");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Id2 := Identifier.From_String ("fermee");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Id2 := Identifier.From_String ("verrouillee");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Id2 := Identifier.From_String ("deverrouillee");
Enumeration_Array.Put_Literal (Id1, Id2, Ok);
Val_Enum := Enumeration_Array.Enum (Identifier.Image (Id1));
Enumeration_Array.Show;
-- Put_Line ("-- UNKNOWN --");
-- Show (C);
-- Id := Identifier.From_String ("simple");
-- Put_Line ("-- put_name --");
-- Put_Name (C, Id, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_number_field --");
-- Id := Identifier.From_String ("vie");
-- Field_Identifier_Array.Put (Id);
-- Create_Number_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_number --");
-- Field_Put_Number (C, Field_Identifier_Array.Index (Id), 124, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_sentence_field --");
-- Id := Identifier.From_String ("description");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "C'est un petit homme vert !", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_enumerate_field --");
-- Id := Identifier.From_String ("etat");
-- Field_Identifier_Array.Put (Id);
-- Create_Enumerate_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_enumerate --");
-- Field_Put_Enumerate (C, Field_Identifier_Array.Index (Id), Val_Enum,
-- Enumeration_Array.Literal
-- (Val_Enum, Identifier.Image (Id2)), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("C is subject ? " & Boolean'Image (Is_A_Subject (C)));
-- Put_Line ("C is animate ? " & Boolean'Image (Is_An_Animate (C)));
-- Put_Line ("C is place ? " & Boolean'Image (Is_A_Place (C)));
-- Put_Line ("C is entity ? " & Boolean'Image (Is_An_Entity (C)));
-- Put_Line ("C is word? " & Boolean'Image (Is_A_Word (C)));
-- Put_Line ("C is verb ? " & Boolean'Image (Is_A_Verb (C)));
--
-- Put_Line ("Name : " & Name (C));
-- Put_Line ("Place : " & Natural'Image (Place (C)));
-- Put_Line ("field number : " &
-- Integer'Image (Field_Number
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("vie")))));
-- Put_Line ("field sentence : " &
-- Field_Sentence (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("description"))));
-- Put_Line ("field enumeration : " &
-- Integer'Image (Field_Enumeration
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("field literal : " &
-- Integer'Image (Field_Literal
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("verb number : " & Integer'Image (Verb_Number (C)));
--
-------------------------------------
-- group_identifier_array.put(identifier.from_string("objet"),ok);
-- group_identifier_array.put(identifier.from_string("viande"),ok);
-- group_identifier_array.put(identifier.from_string("meuble"),ok);
-- group_identifier_array.show;
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("meuble"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- list_group_init(c);
-- while not list_group_done(c) loop
-- put_line("group name : " & list_group_name(c));
-- list_group_next(c);
--end loop;
------------------------------
-- Show (C);
--
-- Put_Line ("-- word --");
-- Show (C);
-- Put_Word (C, Identifier.From_String ("DedanS"));
-- Id := Identifier.From_String ("simple");
-- Put_Line ("-- put_name --");
-- Put_Name (C, Id, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_number_field --");
-- Id := Identifier.From_String ("vie");
-- Field_Identifier_Array.Put (Id);
-- Create_Number_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_number --");
-- Field_Put_Number (C, Field_Identifier_Array.Index (Id), 124, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_sentence_field --");
-- Id := Identifier.From_String ("description");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "C'est un petit homme vert !", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_enumerate_field --");
-- Id := Identifier.From_String ("etat");
-- Field_Identifier_Array.Put (Id);
-- Create_Enumerate_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_enumerate --");
-- Field_Put_Enumerate (C, Field_Identifier_Array.Index (Id), Val_Enum,
-- Enumeration_Array.Literal
-- (Val_Enum, Identifier.Image (Id2)), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("C is subject ? " & Boolean'Image (Is_A_Subject (C)));
-- Put_Line ("C is animate ? " & Boolean'Image (Is_An_Animate (C)));
-- Put_Line ("C is place ? " & Boolean'Image (Is_A_Place (C)));
-- Put_Line ("C is entity ? " & Boolean'Image (Is_An_Entity (C)));
-- Put_Line ("C is word? " & Boolean'Image (Is_A_Word (C)));
-- Put_Line ("C is verb ? " & Boolean'Image (Is_A_Verb (C)));
--
-- Put_Line ("Name : " & Name (C));
-- Put_Line ("Place : " & Natural'Image (Place (C)));
-- Put_Line ("field number : " &
-- Integer'Image (Field_Number
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("vie")))));
-- Put_Line ("field sentence : " &
-- Field_Sentence (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("description"))));
-- Put_Line ("field enumeration : " &
-- Integer'Image (Field_Enumeration
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("field literal : " &
-- Integer'Image (Field_Literal
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("verb number : " & Integer'Image (Verb_Number (C)));
--
-------------------------------------
-- group_identifier_array.put(identifier.from_string("objet"),ok);
-- group_identifier_array.put(identifier.from_string("viande"),ok);
-- group_identifier_array.put(identifier.from_string("meuble"),ok);
-- group_identifier_array.show;
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("meuble"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- list_group_init(c);
-- while not list_group_done(c) loop
-- put_line("group name : " & list_group_name(c));
-- list_group_next(c);
--end loop;
------------------------------
-- Show (C);
--
-- Put_Line ("-- verb --");
-- Show (C);
-- Put_Verb (C, Identifier.From_String ("AllEr"), 5);
-- Id := Identifier.From_String ("simple");
-- Put_Line ("-- put_name --");
-- Put_Name (C, Id, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_number_field --");
-- Id := Identifier.From_String ("vie");
-- Field_Identifier_Array.Put (Id);
-- Create_Number_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_number --");
-- Field_Put_Number (C, Field_Identifier_Array.Index (Id), 124, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_sentence_field --");
-- Id := Identifier.From_String ("description");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "C'est un petit homme vert !", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_enumerate_field --");
-- Id := Identifier.From_String ("etat");
-- Field_Identifier_Array.Put (Id);
-- Create_Enumerate_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_enumerate --");
-- Field_Put_Enumerate (C, Field_Identifier_Array.Index (Id), Val_Enum,
-- Enumeration_Array.Literal
-- (Val_Enum, Identifier.Image (Id2)), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("C is subject ? " & Boolean'Image (Is_A_Subject (C)));
-- Put_Line ("C is animate ? " & Boolean'Image (Is_An_Animate (C)));
-- Put_Line ("C is place ? " & Boolean'Image (Is_A_Place (C)));
-- Put_Line ("C is entity ? " & Boolean'Image (Is_An_Entity (C)));
-- Put_Line ("C is word? " & Boolean'Image (Is_A_Word (C)));
-- Put_Line ("C is verb ? " & Boolean'Image (Is_A_Verb (C)));
--
-- Put_Line ("Name : " & Name (C));
-- Put_Line ("Place : " & Natural'Image (Place (C)));
-- Put_Line ("field number : " &
-- Integer'Image (Field_Number
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("vie")))));
-- Put_Line ("field sentence : " &
-- Field_Sentence (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("description"))));
-- Put_Line ("field enumeration : " &
-- Integer'Image (Field_Enumeration
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("field literal : " &
-- Integer'Image (Field_Literal
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("verb number : " & Integer'Image (Verb_Number (C)));
--
-------------------------------------
-- group_identifier_array.put(identifier.from_string("objet"),ok);
-- group_identifier_array.put(identifier.from_string("viande"),ok);
-- group_identifier_array.put(identifier.from_string("meuble"),ok);
-- group_identifier_array.show;
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("meuble"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- list_group_init(c);
-- while not list_group_done(c) loop
-- put_line("group name : " & list_group_name(c));
-- list_group_next(c);
--end loop;
------------------------------
-- Show (C);
Show (Animate_Object);
Show (Place_Object);
Show (Entity_Object);
-- Copy (Entity_Object, C);
--
-- Put_Line ("-- entite --");
-- Show (C);
--
-- Put_Line ("-- put_place --");
-- Put_Place (C, 2, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
--
-- Id := Identifier.From_String ("Porte");
-- Put_Line ("-- put_name --");
-- Put_Name (C, Id, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_number_field --");
-- Id := Identifier.From_String ("vie");
-- Field_Identifier_Array.Put (Id);
-- Create_Number_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_number --");
-- Field_Put_Number (C, Field_Identifier_Array.Index (Id), 124, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_sentence_field --");
-- Id := Identifier.From_String ("description");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "C'est un petit homme vert !", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_enumerate_field --");
-- Id := Identifier.From_String ("etat");
-- Field_Identifier_Array.Put (Id);
-- Create_Enumerate_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_enumerate --");
-- Field_Put_Enumerate (C, Field_Identifier_Array.Index (Id), Val_Enum,
-- Enumeration_Array.Literal
-- (Val_Enum, Identifier.Image (Id2)), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Show (C);
--
-- Copy (C, C1);
-- Id := Identifier.From_String ("histoire");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "Il etait une fois ...", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- put_place --");
-- Put_Place (C1, 4, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Id := Identifier.From_String ("vie");
-- Put_Line ("vie is number ? " &
-- Boolean'Image (Field_Is_A_Number
-- (C, Field_Identifier_Array.Index (Id))));
-- Put_Line ("vie is enumerate ? " &
-- Boolean'Image (Field_Is_An_Enumerate
-- (C, Field_Identifier_Array.Index (Id))));
-- Put_Line ("vie is sentence ? " &
-- Boolean'Image (Field_Is_A_Sentence
-- (C, Field_Identifier_Array.Index (Id))));
-- Put_Line ("vie is exist? " &
-- Boolean'Image (Field_Exist (C,
-- Field_Identifier_Array.Index (Id))));
--
-- Put_Line ("C is subject ? " & Boolean'Image (Is_A_Subject (C)));
-- Put_Line ("C is animate ? " & Boolean'Image (Is_An_Animate (C)));
-- Put_Line ("C is place ? " & Boolean'Image (Is_A_Place (C)));
-- Put_Line ("C is entity ? " & Boolean'Image (Is_An_Entity (C)));
-- Put_Line ("C is word? " & Boolean'Image (Is_A_Word (C)));
-- Put_Line ("C is verb ? " & Boolean'Image (Is_A_Verb (C)));
--
-- Put_Line ("Name : " & Name (C));
-- Put_Line ("Place : " & Natural'Image (Place (C)));
-- Put_Line ("field number : " &
-- Integer'Image (Field_Number
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("vie")))));
-- Put_Line ("field sentence : " &
-- Field_Sentence (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("description"))));
-- Put_Line ("field enumeration : " &
-- Integer'Image (Field_Enumeration
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("field literal : " &
-- Integer'Image (Field_Literal
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("verb number : " & Integer'Image (Verb_Number (C)));
--
-------------------------------------
-- group_identifier_array.put(identifier.from_string("objet"),ok);
-- group_identifier_array.put(identifier.from_string("viande"),ok);
-- group_identifier_array.put(identifier.from_string("meuble"),ok);
-- group_identifier_array.show;
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("meuble"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- list_group_init(c);
-- while not list_group_done(c) loop
-- put_line("group name : " & list_group_name(c));
-- list_group_next(c);
--end loop;
------------------------------
-- Show (C);
-- Show (C1);
-- Copy (Animate_Object, C);
--
-- Put_Line ("-- anime --");
-- Show (C);
--
-- Put_Line ("-- put_place --");
-- Put_Place (C, 2, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
--
-- Id := Identifier.From_String ("Porte");
-- Put_Line ("-- put_name --");
-- Put_Name (C, Id, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_number_field --");
-- Id := Identifier.From_String ("vie");
-- Field_Identifier_Array.Put (Id);
-- Create_Number_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_number --");
-- Field_Put_Number (C, Field_Identifier_Array.Index (Id), 124, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_sentence_field --");
-- Id := Identifier.From_String ("description");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "C'est un petit homme vert !", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- create_enumerate_field --");
-- Id := Identifier.From_String ("etat");
-- Field_Identifier_Array.Put (Id);
-- Create_Enumerate_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_enumerate --");
-- Field_Put_Enumerate (C, Field_Identifier_Array.Index (Id), Val_Enum,
-- Enumeration_Array.Literal
-- (Val_Enum, Identifier.Image (Id2)), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Movement (C, 1);
-- Put_Movement (C, 5);
-- Put_Movement (C, 5);
-- Put_Movement (C, 4);
-- Put_Movement (C, 7);
-- Put_Movement (C, 3);
-- -- Movement_Init (C);
-- for I in 1 .. 12 loop
-- Put_Line ("place : " & Natural'Image (Place (C)));
-- Move (C);
-- end loop;
--
-- Show (C);
--
-- Copy (C, C1);
-- Id := Identifier.From_String ("histoire");
-- Field_Identifier_Array.Put (Id);
-- Create_Sentence_Field (C, Field_Identifier_Array.Index (Id), Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
-- Put_Line ("-- field_put_sentence --");
-- Field_Put_Sentence (C, Field_Identifier_Array.Index (Id),
-- "Il etait une fois ...", Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Put_Line ("-- put_place --");
-- Put_Place (C1, 4, Ok);
-- Put_Line ("ok : " & Boolean'Image (Ok));
--
-- Id := Identifier.From_String ("vie");
-- Put_Line ("vie is number ? " &
-- Boolean'Image (Field_Is_A_Number
-- (C, Field_Identifier_Array.Index (Id))));
-- Put_Line ("vie is enumerate ? " &
-- Boolean'Image (Field_Is_An_Enumerate
-- (C, Field_Identifier_Array.Index (Id))));
-- Put_Line ("vie is sentence ? " &
-- Boolean'Image (Field_Is_A_Sentence
-- (C, Field_Identifier_Array.Index (Id))));
-- Put_Line ("vie is exist? " &
-- Boolean'Image (Field_Exist (C,
-- Field_Identifier_Array.Index (Id))));
--
-- Put_Line ("C is subject ? " & Boolean'Image (Is_A_Subject (C)));
-- Put_Line ("C is animate ? " & Boolean'Image (Is_An_Animate (C)));
-- Put_Line ("C is place ? " & Boolean'Image (Is_A_Place (C)));
-- Put_Line ("C is entity ? " & Boolean'Image (Is_An_Entity (C)));
-- Put_Line ("C is word? " & Boolean'Image (Is_A_Word (C)));
-- Put_Line ("C is verb ? " & Boolean'Image (Is_A_Verb (C)));
--
-- Put_Line ("Name : " & Name (C));
-- Put_Line ("Place : " & Natural'Image (Place (C)));
-- Put_Line ("field number : " &
-- Integer'Image (Field_Number
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("vie")))));
-- Put_Line ("field sentence : " &
-- Field_Sentence (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("description"))));
-- Put_Line ("field enumeration : " &
-- Integer'Image (Field_Enumeration
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("field literal : " &
-- Integer'Image (Field_Literal
-- (C, Field_Identifier_Array.Index
-- (Identifier.From_String ("etat")))));
-- Put_Line ("verb number : " & Integer'Image (Verb_Number (C)));
--
-- Put_Movement (C1, 6);
-- Put_Movement (C1, 3);
-- Put_Movement (C1, 2);
--
-------------------------------------
-- group_identifier_array.put(identifier.from_string("objet"),ok);
-- group_identifier_array.put(identifier.from_string("viande"),ok);
-- group_identifier_array.put(identifier.from_string("meuble"),ok);
-- group_identifier_array.show;
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("meuble"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- list_group_init(c);
-- while not list_group_done(c) loop
-- put_line("group name : " & list_group_name(c));
-- list_group_next(c);
--end loop;
-------------------------------- Show (C);
-- Show (C1);
Copy (Place_Object, C);
Put_Line ("-- place --");
Show (C);
Put_Line ("-- put_place --");
Put_Place (C, 2, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Id := Identifier.From_String ("Porte");
Put_Line ("-- put_name --");
Put_Name (C, Id, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- create_number_field --");
Id := Identifier.From_String ("vie");
Field_Identifier_Array.Put (Id);
Create_Number_Field
(C, Field_Identifier_Array.Index (Identifier.Image (Id)), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- field_put_number --");
Field_Put_Number
(C, Field_Identifier_Array.Index (Identifier.Image (Id)), 124, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- create_sentence_field --");
Id := Identifier.From_String ("description");
Field_Identifier_Array.Put (Id);
Create_Sentence_Field
(C, Field_Identifier_Array.Index (Identifier.Image (Id)), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- field_put_sentence --");
Field_Put_Sentence
(C, Field_Identifier_Array.Index (Identifier.Image (Id)),
Identifier.From_String ("C'est un petit homme vert !"), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- create_enumerate_field --");
Id := Identifier.From_String ("etat");
Field_Identifier_Array.Put (Id);
Create_Enumerate_Field (C, Field_Identifier_Array.Index
(Identifier.Image (Id)), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- field_put_enumerate --");
Field_Put_Enumerate
(C, Field_Identifier_Array.Index (Identifier.Image (Id)), Val_Enum,
Enumeration_Array.Literal (Val_Enum, Identifier.Image (Id2)), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("exits exist : " & Boolean'Image (Exits_Exist (C)));
Put_Line ("-- put exit --");
Put_Exit (C, 1, 2, 3, 4, 5, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- put exit --");
Put_Exit (C, 1, 3, 4, 5, 6, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- put exit --");
Put_Exit (C, 1, 2, 3, 4, 5, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("exit exist 3 : " & Boolean'Image (Exit_Exist (C, 3)));
Put_Line ("exit exist 2 : " & Boolean'Image (Exit_Exist (C, 2)));
Put_Line ("exit exist 4 : " & Boolean'Image (Exit_Exist (C, 4)));
Put_Line ("exit name 3 : " & Natural'Image (Exit_Name (C, 3)));
Put_Line ("exit name 2 : " & Natural'Image (Exit_Name (C, 2)));
Put_Line ("exit name 4 : " & Natural'Image (Exit_Name (C, 4)));
Put_Line ("next place 3 : " & Natural'Image (Next_Place (C, 3)));
Put_Line ("next place 2 : " & Natural'Image (Next_Place (C, 2)));
Put_Line ("next place 4 : " & Natural'Image (Next_Place (C, 4)));
Put_Line ("next dir 3 : " & Natural'Image (Next_Direction (C, 3)));
Put_Line ("next dir 2 : " & Natural'Image (Next_Direction (C, 2)));
Put_Line ("next dir 4 : " & Natural'Image (Next_Direction (C, 4)));
List_Exits_Init (C);
while not List_Exits_Done (C) loop
Put_Line ("name : " & Natural'Image (List_Exits_Name (C)));
List_Exits_Next (C);
end loop;
Show (C);
Copy (C, C1);
Id := Identifier.From_String ("histoire");
Field_Identifier_Array.Put (Id);
Create_Sentence_Field
(C, Field_Identifier_Array.Index (Identifier.Image (Id)), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- field_put_sentence --");
Field_Put_Sentence (C, Field_Identifier_Array.Index (Identifier.Image (Id)),
Identifier.From_String ("Il etait une fois ..."), Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Put_Line ("-- put_place --");
Put_Place (C1, 4, Ok);
Put_Line ("ok : " & Boolean'Image (Ok));
Id := Identifier.From_String ("vie");
Put_Line ("vie is number ? " &
Boolean'Image (Field_Is_A_Number
(C, Field_Identifier_Array.Index
(Identifier.Image (Id)))));
Put_Line ("vie is enumerate ? " &
Boolean'Image (Field_Is_An_Enumerate
(C, Field_Identifier_Array.Index
(Identifier.Image (Id)))));
Put_Line ("vie is sentence ? " &
Boolean'Image (Field_Is_A_Sentence
(C, Field_Identifier_Array.Index
(Identifier.Image (Id)))));
Put_Line ("vie is exist? " &
Boolean'Image (Field_Belong (C, Field_Identifier_Array.Index
(Identifier.Image (Id)))));
Put_Line ("C is subject ? " & Boolean'Image (Is_A_Subject (C)));
Put_Line ("C is animate ? " & Boolean'Image (Is_An_Animate (C)));
Put_Line ("C is place ? " & Boolean'Image (Is_A_Place (C)));
Put_Line ("C is entity ? " & Boolean'Image (Is_An_Entity (C)));
Put_Line ("C is word? " & Boolean'Image (Is_A_Word (C)));
Put_Line ("C is verb ? " & Boolean'Image (Is_A_Verb (C)));
Put_Line ("Name : " & Name (C));
Put_Line ("Place : " & Natural'Image (Place (C)));
Put_Line ("field number : " &
Integer'Image (Field_Number
(C, Field_Identifier_Array.Index ("vie"))));
Put_Line ("field sentence : " &
Field_Sentence (C, Field_Identifier_Array.Index ("description")));
Put_Line ("field enumeration : " &
Integer'Image (Field_Enumeration
(C, Field_Identifier_Array.Index ("etat"))));
Put_Line ("field literal : " &
Integer'Image (Field_Literal
(C, Field_Identifier_Array.Index ("etat"))));
Put_Line ("verb number : " & Natural'Image (Synonym (C)));
-------------------------------------
-- group_identifier_array.put(identifier.from_string("objet"),ok);
-- group_identifier_array.put(identifier.from_string("viande"),ok);
-- group_identifier_array.put(identifier.from_string("meuble"),ok);
-- group_identifier_array.show;
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("meuble"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- put_group(c,group_identifier_array.index("objet"),ok);
-- put_line("group ok : " & boolean'image(ok));
-- list_group_init(c);
-- while not list_group_done(c) loop
-- put_line("group name : " & list_group_name(c));
-- list_group_next(c);
--end loop;
------------------------------
Show (C);
Show (C1);
Enumeration_Array.Show;
Field_Identifier_Array.Show;
Complement_Identifier_Array.Show;
end Test_Complement