|
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: 19456 (0x4c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Add_Model_Markers_Rule, package body Coincide_Top_With_Search_Top_Rule, package body Delete_Initial_Move_Answers_Rule, package body Find_Request_Rule, package body Fruit_Display_Gourou_Rule_Bundle_5, package body Get_Model_Label_Rule, package body Get_Search_Top_Label_Rule, package body Is_Top_And_Selected_Equal_Rule, package body Move_Top_Block_Request_Rule, package body Put_Block_Rule, package body Put_Top_Copied_Marker_Up_Rule, package body Search_Top_Request_Rule, package body Search_Top_Rule, package body Search_Top_With_Upper_Limit_Rule, seg_04bfeb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Slot;
with Alias;
with Output_Stream;
with Fruit_Frames_5;
package body Fruit_Display_Gourou_Rule_Bundle_5 is
use Kbs;
use Kbs.Fact_Base.Predicate;
use Kbs.Fact_Base.Predicate.System_Defined_Predicate;
type Rule_Names is (Find_Request, Search_Top_Request,
Search_Top, Put_Block, Get_Model_Label,
Get_Search_Top_Label, Coincide_Top_With_Search_Top,
Is_Top_And_Selected_Equal, Put_Top_Copied_Marker_Up,
Move_Top_Block_Request, Search_Top_With_Upper_Limit,
Delete_Initial_Move_Answers,
Add_Model_Markers, No_More);
------------------------------------------------------------------------
package Get_Model_Label_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Get_Model_Label_Rule;
package body Get_Model_Label_Rule is separate;
------------------------------------------------------------------------
package Find_Request_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Find_Request_Rule;
package body Find_Request_Rule is separate;
------------------------------------------------------------------------
package Search_Top_Request_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Search_Top_Request_Rule;
package body Search_Top_Request_Rule is separate;
------------------------------------------------------------------------
package Search_Top_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Search_Top_Rule;
package body Search_Top_Rule is separate;
------------------------------------------------------------------------
package Put_Block_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Put_Block_Rule;
package body Put_Block_Rule is separate;
------------------------------------------------------------------------
package Get_Search_Top_Label_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Get_Search_Top_Label_Rule;
package body Get_Search_Top_Label_Rule is separate;
------------------------------------------------------------------------
package Coincide_Top_With_Search_Top_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Coincide_Top_With_Search_Top_Rule;
package body Coincide_Top_With_Search_Top_Rule is separate;
------------------------------------------------------------------------
package Is_Top_And_Selected_Equal_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Is_Top_And_Selected_Equal_Rule;
package body Is_Top_And_Selected_Equal_Rule is separate;
------------------------------------------------------------------------
package Put_Top_Copied_Marker_Up_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Put_Top_Copied_Marker_Up_Rule;
package body Put_Top_Copied_Marker_Up_Rule is separate;
------------------------------------------------------------------------
package Move_Top_Block_Request_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Move_Top_Block_Request_Rule;
package body Move_Top_Block_Request_Rule is separate;
------------------------------------------------------------------------
package Search_Top_With_Upper_Limit_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Search_Top_With_Upper_Limit_Rule;
package body Search_Top_With_Upper_Limit_Rule is separate;
------------------------------------------------------------------------
package Delete_Initial_Move_Answers_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Delete_Initial_Move_Answers_Rule;
package body Delete_Initial_Move_Answers_Rule is separate;
------------------------------------------------------------------------
package Add_Model_Markers_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Add_Model_Markers_Rule;
package body Add_Model_Markers_Rule is separate;
------------------------------------------------------------------------
package Rule_Bundle is
new Rule_Base.Generic_Rule_Bundle
(The_Bundle => Fruit_Kbs_5.Fruit_Gourou_Rule_Bundle,
Rule_Names => Rule_Names,
Nothing => Rule_Names'Last,
Rule_1 => Find_Request,
Premiss_1 => Find_Request_Rule.Premiss,
Action_1 => Find_Request_Rule.Action,
Rule_2 => Search_Top_Request,
Premiss_2 => Search_Top_Request_Rule.Premiss,
Action_2 => Search_Top_Request_Rule.Action,
Rule_3 => Search_Top,
Premiss_3 => Search_Top_Rule.Premiss,
Action_3 => Search_Top_Rule.Action,
Rule_4 => Put_Block,
Premiss_4 => Put_Block_Rule.Premiss,
Action_4 => Put_Block_Rule.Action,
Rule_5 => Get_Model_Label,
Premiss_5 => Get_Model_Label_Rule.Premiss,
Action_5 => Get_Model_Label_Rule.Action,
Rule_6 => Get_Search_Top_Label,
Premiss_6 => Get_Search_Top_Label_Rule.Premiss,
Action_6 => Get_Search_Top_Label_Rule.Action,
Rule_7 => Coincide_Top_With_Search_Top,
Premiss_7 => Coincide_Top_With_Search_Top_Rule.Premiss,
Action_7 => Coincide_Top_With_Search_Top_Rule.Action,
Rule_8 => Is_Top_And_Selected_Equal,
Premiss_8 => Is_Top_And_Selected_Equal_Rule.Premiss,
Action_8 => Is_Top_And_Selected_Equal_Rule.Action,
Rule_9 => Put_Top_Copied_Marker_Up,
Premiss_9 => Put_Top_Copied_Marker_Up_Rule.Premiss,
Action_9 => Put_Top_Copied_Marker_Up_Rule.Action,
Rule_10 => Move_Top_Block_Request,
Premiss_10 => Move_Top_Block_Request_Rule.Premiss,
Action_10 => Move_Top_Block_Request_Rule.Action,
Rule_11 => Search_Top_With_Upper_Limit,
Premiss_11 => Search_Top_With_Upper_Limit_Rule.Premiss,
Action_11 => Search_Top_With_Upper_Limit_Rule.Action,
Rule_12 => Delete_Initial_Move_Answers,
Premiss_12 => Delete_Initial_Move_Answers_Rule.Premiss,
Action_12 => Delete_Initial_Move_Answers_Rule.Action,
Rule_13 => Add_Model_Markers,
Premiss_13 => Add_Model_Markers_Rule.Premiss,
Action_13 => Add_Model_Markers_Rule.Action);
procedure Do_Action (For_Rule : Rule_Id; On_Facts : Fact_Collection) is
begin
Rule_Bundle.Do_Action (For_Rule, On_Facts);
end Do_Action;
end Fruit_Display_Gourou_Rule_Bundle_5;
nblk1=12
nid=4
hdr6=12
[0x00] rec0=1d rec1=00 rec2=01 rec3=02e
[0x01] rec0=1e rec1=00 rec2=0b rec3=016
[0x02] rec0=00 rec1=00 rec2=11 rec3=006
[0x03] rec0=1b rec1=00 rec2=0a rec3=07e
[0x04] rec0=1b rec1=00 rec2=10 rec3=066
[0x05] rec0=1c rec1=00 rec2=09 rec3=044
[0x06] rec0=1c rec1=00 rec2=0f rec3=01e
[0x07] rec0=15 rec1=00 rec2=0c rec3=00c
[0x08] rec0=18 rec1=00 rec2=02 rec3=000
[0x09] rec0=14 rec1=00 rec2=0c rec3=074
[0x0a] rec0=10 rec1=00 rec2=02 rec3=000
[0x0b] rec0=1b rec1=00 rec2=0d rec3=05e
[0x0c] rec0=1a rec1=00 rec2=0c rec3=052
[0x0d] rec0=17 rec1=00 rec2=04 rec3=022
[0x0e] rec0=17 rec1=00 rec2=02 rec3=01c
[0x0f] rec0=15 rec1=00 rec2=05 rec3=03c
[0x10] rec0=0c rec1=00 rec2=06 rec3=000
[0x11] rec0=17 rec1=00 rec2=02 rec3=000
tail 0x21751dade8693351e5876 0x42a00088462063c03
Free Block Chain:
0x4: 0000 00 06 03 63 80 38 20 20 20 20 20 20 20 20 41 63 ┆ c 8 Ac┆
0x6: 0000 00 05 00 04 80 01 52 01 02 00 00 00 00 2c 20 20 ┆ R , ┆
0x5: 0000 00 0d 03 fc 80 1e 20 52 75 6c 65 5f 31 35 20 20 ┆ Rule_15 ┆
0xd: 0000 00 07 03 fc 80 0a 6f 6e 5f 52 75 6c 65 20 69 73 ┆ on_Rule is┆
0x7: 0000 00 08 00 4b 80 28 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ K (----------┆
0x8: 0000 00 0e 03 fc 00 00 00 00 4c 20 20 20 20 2d 2d 2d ┆ L ---┆
0xe: 0000 00 12 00 06 80 03 2d 2d 2d 03 02 02 02 02 02 02 ┆ --- ┆
0x12: 0000 00 03 00 0f 80 0c 63 65 64 75 72 65 20 41 63 74 ┆ cedure Act┆
0x3: 0000 00 00 00 e0 80 03 6e 29 3b 03 00 00 00 00 00 00 ┆ n); ┆