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 ┃

⟦19b160851⟧ TextFile

    Length: 1789 (0x6fd)
    Types: TextFile
    Names: »V«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »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 (20);


    type List is private;
    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 Is_In (This_List : Message.List; The_Message : Message.Tiny_String)
                   return Boolean;  
    function Is_In (This_List : Message.List; The_Message : String)
                   return Boolean;

    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;
                   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;