|
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: 14336 (0x3800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Prediction1_Inc_Up_Not_Ok_Rule, package body Prediction1_Inc_Up_Ok_Rule, package body Prediction2_Dec_Up_Not_Ok_Rule, package body Prediction2_Dec_Up_Ok_Rule, package body Prediction3_Dec_Down_Not_Ok_Rule, package body Prediction3_Dec_Down_Ok_Rule, package body Prediction4_Inc_Down_Not_Ok_Rule, package body Prediction4_Inc_Down_Ok_Rule, package body Quadrant1_Inc_Up_Rule, package body Quadrant2_Dec_Up_Rule, package body Quadrant3_Dec_Down_Rule, package body Quadrant4_Inc_Down_Rule, package body Qualit_Epsilon_Rule_Bundle, seg_04c91d, separate Qualit_Generic_Agent
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
separate (Qualit_Generic_Agent)
package body Qualit_Epsilon_Rule_Bundle is
use Kbs;
use Kbs.Fact_Base.Predicate;
use Kbs.Fact_Base.Predicate.System_Defined_Predicate;
type Rule_Names is (Quadrant1_Inc_Up, Prediction1_Inc_Up_Ok,
Prediction1_Inc_Up_Not_Ok, Quadrant2_Dec_Up,
Prediction2_Dec_Up_Ok, Prediction2_Dec_Up_Not_Ok,
Quadrant3_Dec_Down, Prediction3_Dec_Down_Ok,
Prediction3_Dec_Down_Not_Ok,
Quadrant4_Inc_Down, Prediction4_Inc_Down_Ok,
Prediction4_Inc_Down_Not_Ok, No_More);
------------------------------------------------------------------------
package Quadrant1_Inc_Up_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Quadrant1_Inc_Up_Rule;
package body Quadrant1_Inc_Up_Rule is separate;
-----------------------------------------------------------------------
package Prediction1_Inc_Up_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction1_Inc_Up_Ok_Rule;
package body Prediction1_Inc_Up_Ok_Rule is separate;
------------------------------------------------------------------------
package Prediction1_Inc_Up_Not_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction1_Inc_Up_Not_Ok_Rule;
package body Prediction1_Inc_Up_Not_Ok_Rule is separate;
------------------------------------------------------------------------
package Quadrant2_Dec_Up_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Quadrant2_Dec_Up_Rule;
package body Quadrant2_Dec_Up_Rule is separate;
------------------------------------------------------------------------
package Prediction2_Dec_Up_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction2_Dec_Up_Ok_Rule;
package body Prediction2_Dec_Up_Ok_Rule is separate;
------------------------------------------------------------------------
package Prediction2_Dec_Up_Not_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction2_Dec_Up_Not_Ok_Rule;
package body Prediction2_Dec_Up_Not_Ok_Rule is separate;
------------------------------------------------------------------------
package Quadrant3_Dec_Down_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Quadrant3_Dec_Down_Rule;
package body Quadrant3_Dec_Down_Rule is separate;
------------------------------------------------------------------------
package Prediction3_Dec_Down_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction3_Dec_Down_Ok_Rule;
package body Prediction3_Dec_Down_Ok_Rule is separate;
------------------------------------------------------------------------
package Prediction3_Dec_Down_Not_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction3_Dec_Down_Not_Ok_Rule;
package body Prediction3_Dec_Down_Not_Ok_Rule is separate;
------------------------------------------------------------------------
package Quadrant4_Inc_Down_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Quadrant4_Inc_Down_Rule;
package body Quadrant4_Inc_Down_Rule is separate;
------------------------------------------------------------------------
package Prediction4_Inc_Down_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction4_Inc_Down_Ok_Rule;
package body Prediction4_Inc_Down_Ok_Rule is separate;
------------------------------------------------------------------------
package Prediction4_Inc_Down_Not_Ok_Rule is
function Premiss return Fact_Queries;
procedure Action (Objects : Fact_Collection);
end Prediction4_Inc_Down_Not_Ok_Rule;
package body Prediction4_Inc_Down_Not_Ok_Rule is separate;
------------------------------------------------------------------------
package Rule_Bundle is
new Rule_Base.Generic_Rule_Bundle
(The_Bundle => Epsilon_Rule_Bundle,
Rule_Names => Rule_Names,
Nothing => Rule_Names'Last,
Rule_1 => Quadrant1_Inc_Up,
Premiss_1 => Quadrant1_Inc_Up_Rule.Premiss,
Action_1 => Quadrant1_Inc_Up_Rule.Action,
Rule_2 => Prediction1_Inc_Up_Ok,
Premiss_2 => Prediction1_Inc_Up_Ok_Rule.Premiss,
Action_2 => Prediction1_Inc_Up_Ok_Rule.Action,
Rule_3 => Prediction1_Inc_Up_Not_Ok,
Premiss_3 => Prediction1_Inc_Up_Not_Ok_Rule.Premiss,
Action_3 => Prediction1_Inc_Up_Not_Ok_Rule.Action,
Rule_4 => Quadrant2_Dec_Up,
Premiss_4 => Quadrant2_Dec_Up_Rule.Premiss,
Action_4 => Quadrant2_Dec_Up_Rule.Action,
Rule_5 => Prediction2_Dec_Up_Ok,
Premiss_5 => Prediction2_Dec_Up_Ok_Rule.Premiss,
Action_5 => Prediction2_Dec_Up_Ok_Rule.Action,
Rule_6 => Prediction2_Dec_Up_Not_Ok,
Premiss_6 => Prediction2_Dec_Up_Not_Ok_Rule.Premiss,
Action_6 => Prediction2_Dec_Up_Not_Ok_Rule.Action,
Rule_7 => Quadrant3_Dec_Down,
Premiss_7 => Quadrant3_Dec_Down_Rule.Premiss,
Action_7 => Quadrant3_Dec_Down_Rule.Action,
Rule_8 => Prediction3_Dec_Down_Ok,
Premiss_8 => Prediction3_Dec_Down_Ok_Rule.Premiss,
Action_8 => Prediction3_Dec_Down_Ok_Rule.Action,
Rule_9 => Prediction3_Dec_Down_Not_Ok,
Premiss_9 => Prediction3_Dec_Down_Not_Ok_Rule.Premiss,
Action_9 => Prediction3_Dec_Down_Not_Ok_Rule.Action,
Rule_10 => Quadrant4_Inc_Down,
Premiss_10 => Quadrant4_Inc_Down_Rule.Premiss,
Action_10 => Quadrant4_Inc_Down_Rule.Action,
Rule_11 => Prediction4_Inc_Down_Ok,
Premiss_11 => Prediction4_Inc_Down_Ok_Rule.Premiss,
Action_11 => Prediction4_Inc_Down_Ok_Rule.Action,
Rule_12 => Prediction4_Inc_Down_Not_Ok,
Premiss_12 => Prediction4_Inc_Down_Not_Ok_Rule.Premiss,
Action_12 => Prediction4_Inc_Down_Not_Ok_Rule.Action);
procedure Epsilon_Rules_Do_Action
(For_Rule : Rule_Id; On_Facts : Fact_Collection) is
begin
Rule_Bundle.Do_Action (For_Rule, On_Facts);
end Epsilon_Rules_Do_Action;
end Qualit_Epsilon_Rule_Bundle;
nblk1=d
nid=4
hdr6=16
[0x00] rec0=1c rec1=00 rec2=01 rec3=01e
[0x01] rec0=00 rec1=00 rec2=0d rec3=002
[0x02] rec0=1b rec1=00 rec2=08 rec3=044
[0x03] rec0=00 rec1=00 rec2=0c rec3=006
[0x04] rec0=1b rec1=00 rec2=07 rec3=062
[0x05] rec0=00 rec1=00 rec2=0b rec3=006
[0x06] rec0=1b rec1=00 rec2=06 rec3=068
[0x07] rec0=1c rec1=00 rec2=0a rec3=032
[0x08] rec0=15 rec1=00 rec2=05 rec3=03c
[0x09] rec0=16 rec1=00 rec2=03 rec3=018
[0x0a] rec0=0e rec1=00 rec2=09 rec3=000
[0x0b] rec0=19 rec1=00 rec2=03 rec3=000
[0x0c] rec0=0e rec1=00 rec2=03 rec3=001
tail 0x2175371a6870d4627ad72 0x42a00088462063c03
Free Block Chain:
0x4: 0000 00 02 01 7c 80 29 50 72 65 64 69 63 74 69 6f 6e ┆ | )Prediction┆
0x2: 0000 00 00 00 05 80 02 65 6d 02 3e 20 50 72 65 64 69 ┆ em > Predi┆