|
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 - metrics - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Message, seg_0367a6, seg_03684d, seg_0368e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with List_Generic, Bounded_String, Object, Argument;
package Message is
type Selector is (Sans_Parametre, Plus, Moins, Multiplier,
Diviser, Inferieur, Superieur, Inferieur_Egal,
Superieur_Egal, Egal, Et, Ou);
subtype Tiny_String is Bounded_String.Variable_String (160);
type List is private;
function Get (S : Selector) return String;
function Get (L : Message.List) return Message.Tiny_String;
procedure Next (L : in out Message.List; Mess : in out Message.Tiny_String);
function Put (L : Message.List; Mess : Message.Tiny_String)
return Message.List;
procedure Init (L : in out Message.List);
function How_Many (L : Message.List) return Natural;
function Send (To_Object : Object.Reference;
The_Messages : Message.List;
With_Arguments : Argument.List) return Object.Reference;
function Send (To_Object : Object.Reference;
The_Message : Message.Selector;
With_Arguments : Argument.List) return Object.Reference;
function Send (To_Object : Object.Reference;
The_Message : Message.Tiny_String) return Object.Reference;
private
package Mess_List is new List_Generic (Tiny_String);
type List is
record
Iter : Mess_List.Iterator;
List : Mess_List.List;
end record;
end Message;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=18 rec1=00 rec2=01 rec3=05e
[0x01] rec0=11 rec1=00 rec2=02 rec3=001
tail 0x217337bcc84df5cc4e0df 0x42a00088462060003