DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b5640d018⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, function Add_Service, seg_054414, separate Service_Toolbox

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



separate (Service_Toolbox)

function Add_Service (Service_Class : in Orb_Defs.Class;
                      Service_Fct : in Orb_Defs.Funct;
                      Agent_Reference : in Service_Manager_Defs.Number_Of_Agent)
                     return Boolean is  
    Iterator, N : Number_Of_Service := Number_Of_Service'First;
begin  
    Text_Io.Put_Line ("Service_Toolbox.Add_Service");
    for Iterator in Number_Of_Service loop
        N := Iterator;
        exit when Service_Table (Iterator).Exist = False;
    end loop;
    if (Service_Table (N).Exist = False) then
        Text_Io.Put_Line ("Service_Toolbox.Add_Service");
        Service_Table (N).Class := Service_Class;
        Service_Table (N).Funct := Service_Fct;  
        Service_Table (N).Agent_Reference := Agent_Reference;
        Service_Table (N).Exist := True;
        return True;
    else
        return False;
    end if;  
    Text_Io.Put_Line ("Service Ajoute.");
end Add_Service;


E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=1c rec1=00 rec2=01 rec3=000
    tail 0x2154d010e87b668c74426 0x42a00088462060003