Anonymous user
Decision tables: Difference between revisions
m
no edit summary
No edit summary |
mNo edit summary |
||
Line 46:
end Generic_Decision_Table;
</lang>
That was easy! Now we implement the printer troubleshooting application:
<lang Ada>with Generic_Decision_Table, Ada.Text_IO;
Line 98:
R: DT.Rule_A := (((True, False, True), Power_Cable),
((True, True, True), Printer_Computer_Cable),
((True, False, True), Printer_Computer_Cable),
((True, True, True), Software_Installed),
((True, False, True), Software_Installed),
((False, True, True), Software_Installed),
((False, False, True), Software_Installed),
((True, True, True), New_Ink),
((True, True, False), New_Ink),
((False, True, True), New_Ink),
((False, True, False), New_Ink),
((True, True, False), Paper_Jam),
((True, False, False), Paper_Jam)
);
begin
DT.React(R);
end Printer_Decision_Table;</lang>
Sample output:
| |||