|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1523 (0x5f3)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦e24fb53b7⟧
└─⟦this⟧
with Bbr_Attributes;
with Bbr_Do_Action;
with Bbr_Frames;
with Bbr_Kbs;
with Output_Stream;
use Bbr_Attributes;
use Bbr_Frames;
use Bbr_Kbs;
use Output_Stream;
procedure Bbr_Test is
procedure Load_Initial_Working_Memory is
begin
Robots.Add ((Colour => Green, State => Free));
Robots.Add ((Colour => Red, State => Busy));
Robots.Add ((Colour => Red, State => Free));
Robots.Add ((Colour => Blue, State => Free));
Robots.Add ((Colour => Green, State => Busy));
Balls.Add ((Size => 50, Colour => Blue, Place => On_Heap));
Balls.Add ((Size => 75, Colour => Green, Place => On_Heap));
Balls.Add ((Size => 95, Colour => Red, Place => On_Heap));
Balls.Add ((Size => 100, Colour => Blue, Place => On_Heap));
Boxes.Add ((Size => 750, Colour => Red, State => Free));
Boxes.Add ((Size => 10000, Colour => Green, State => Free));
Boxes.Add ((Size => 150, Colour => Red, State => Busy));
end Load_Initial_Working_Memory;
procedure Play_With_Balls_Boxes_And_Robots is
new Kbs.Rule_Base.Infere (Do_Action => Bbr_Do_Action);
procedure Put_Working_Memory is
new Kbs.Fact_Base.Working_Memory.Generic_Put (Put => Bbr_Frames.Put);
begin
Load_Initial_Working_Memory;
Put_Working_Memory (Standard_Output);
New_Line (Standard_Output);
for I in 1 .. Kbs.Rule_Base.Count loop
Kbs.Rule_Base.Put (I, Standard_Output);
end loop;
Play_With_Balls_Boxes_And_Robots;
end Bbr_Test;