|
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 - metrics - downloadIndex: B T
Length: 1295 (0x50f)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Generic_Class_Implementation;
with Generic_Statement;
package body Int is
type Members is (Value);
type Arguments is (To);
package Implementation is
new Generic_Class_Implementation (Member_Names => Members,
Selector_Names => Selectors,
Argument_Names => Arguments);
package Statement is new Generic_Statement (Member_Names => Members,
Selector_Names => Selectors,
Argument_Names => Arguments);
use Implementation, Statement;
procedure Define_Method_For_Clear is separate;
procedure Define_Method_For_Put is separate;
procedure Define_Method_For_Set is separate;
function Make (With_Value : Integer) return Object.Reference is
Result : Object.Reference;
begin
-- bla bla bla
return Result;
end Make;
function Send (To : Object.Reference; The_Message : Message)
return Basic_Statement.Object is
Result : Basic_Statement.Object;
begin
-- bla bla bla
return Result;
end Send;
begin
Define_Method_For_Clear;
Define_Method_For_Put;
Define_Method_For_Set;
end Int;