|
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