DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦9d55b8016⟧ TextFile

    Length: 1434 (0x59a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

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;