|
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: 1776 (0x6f0)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦0a9b2eba3⟧
└─⟦this⟧
with expertSystem ; use expertSystem;
procedure b2 is
cpt : natural;
package mab is
procedure ftb;
end mab;
package body mab is
type object is record
contenu : natural:=1;
end record;
package behavior is new classBehavior(object,"BIG FLOWER");
function castor_C return tupleCollection.object is
tc : tupleCollection.object;
begin
return tc;
end castor_C;
procedure castor_A (MG : tuple.object) is
begin
put_line(" What a famous castor !");
end castor_A;
function flower_C return tupleCollection.object is
tc : tupleCollection.object;
ref : expertSystem.reference:=nullReference;
fl : object;
begin
if cpt=10 then
return tc;
else
fl.contenu:=cpt*10;
ref:=behavior.allocate(fl);
tupleCollection.add(tc,ref);
return tc;
end if;
end flower_C;
procedure flower_A (MG : tuple.object) is
begin
put_line(" What a beautiful flower !");
cpt:=cpt+1;
end flower_A;
package lfb is new engine(
context_name => " Flowers ",
resolution => LEX,
used_rules => 12,
name_1 => "find a castor..",
condition_1 => castor_C,
action_1 => castor_A,
name_12 => "find a flower..",
condition_12 => flower_C,
action_12 => flower_A);
procedure ftb is
result : boolean;
begin
behavior.clear;
put_line("---------------------------------------------------");
put_line("PROGRAM FLOWER : looking for flower in a green land");
put_line("---------------------------------------------------");
cpt:=0;
result:=lfb.inference(ANY);
end ftb;
end mab;
begin
debugger.resetDebug(debugger.text);
debugger.refreshDebug;
debugger.setDebugOn(debugger.conditionEvalued);
mab.ftb;
end b2