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

⟦1a27fb425⟧ Ada Source

    Length: 10240 (0x2800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Orb_Messages, seg_0549d7

Derivation

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

package body Orb_Messages is

    Source_Data : constant String (1 .. 20) := "19305414501723459876";
    Destinataire_Data : constant String (1 .. 20) := "19305414501667891234";
    Client_Data : constant String (1 .. 20) := "19305414501576541234";  
    Type_Of_Message_Data : constant String (61 .. 62) := "05";
    Type_Of_Status_Data : constant String (63 .. 64) := "02";
    Receive_Data : String (1 .. 64) :=
       Source_Data & Destinataire_Data & Client_Data &
          Type_Of_Message_Data & Type_Of_Status_Data;

    Tampon_Adress_String_And_Apply_Number :
       All_String.Adress_String_And_Apply_Number;
    Tampon_Adress_String : All_String.Adress_String;  
    Tampon_Adress_Message_Or_Status : All_String.Adress_Type_Message_Or_Status;

    function Read_Source_Adress_Internet_And_Apply_Number
                (My_Frame : T_Frame) return All_String.
                                            Adress_String_And_Apply_Number is
    begin
        -- Text_Io.Put_Line ("Read_Source_Adress_Internet_And_Apply_Number");
        Tampon_Adress_String_And_Apply_Number :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Source_Adress_Internet_And_Apply_Number,
               Constant_Start_End.End_Source_Adress_Internet_And_Apply_Number);
        return Tampon_Adress_String_And_Apply_Number;
    end Read_Source_Adress_Internet_And_Apply_Number;


    function Read_Source_Adress (My_Frame : T_Frame)
                                return All_String.Adress_String is
    begin
        -- Text_Io.Put_Line ("Read_Source_Adress");
        Tampon_Adress_String :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Source_Adress,
               Constant_Start_End.End_Source_Adress);
        return Tampon_Adress_String;
    end Read_Source_Adress;


    function Read_Destinataire_Adress_Internet_And_Apply_Number
                (My_Frame : T_Frame) return All_String.
                                            Adress_String_And_Apply_Number is
    begin
        -- Text_Io.Put_Line ("Read_Destinataire_Adress_Internet_And_Apply_Number");
        Tampon_Adress_String_And_Apply_Number :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.
                  Start_Destinataire_Adress_Internet_And_Apply_Number,
               Constant_Start_End.
                  End_Destinataire_Adress_Internet_And_Apply_Number);
        return Tampon_Adress_String_And_Apply_Number;
    end Read_Destinataire_Adress_Internet_And_Apply_Number;


    function Read_Destinataire_Adress  
                (My_Frame : T_Frame) return All_String.Adress_String is
    begin
        -- Text_Io.Put_Line ("Read_Destinataire_Adress");
        Tampon_Adress_String :=          Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Destinataire_Adress,
               Constant_Start_End.End_Destinataire_Adress);
        return Tampon_Adress_String;
    end Read_Destinataire_Adress;


    function Read_Client_Adress_Internet_And_Apply_Number
                (My_Frame : T_Frame) return All_String.
                                            Adress_String_And_Apply_Number is
    begin
        -- Text_Io.Put_Line ("Read_Clienall_String_Internet_And_Apply_Number");
        Tampon_Adress_String_And_Apply_Number :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Client_Adress_Internet_And_Apply_Number,
               Constant_Start_End.End_Client_Adress_Internet_And_Apply_Number);
        return Tampon_Adress_String_And_Apply_Number;
    end Read_Client_Adress_Internet_And_Apply_Number;


    function Read_Client_Adress (My_Frame : T_Frame)
                                return All_String.Adress_String is
    begin
        -- Text_Io.Put_Line ("Read_Clienall_String");
        Tampon_Adress_String :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Client_Adress,
               Constant_Start_End.End_Client_Adress);
        return Tampon_Adress_String;
    end Read_Client_Adress;


    function Read_Type_Of_Message (My_Frame : T_Frame) return Integer is
        Tampon : Integer;  
        My_Worked : Boolean;
    begin
        Tampon_Adress_Message_Or_Status :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Type_Message,
               Constant_Start_End.End_Type_Message);

        String_Utilities.String_To_Number
           (Source => Tampon_Adress_Message_Or_Status,
            Target => Tampon,
            Worked => My_Worked,
            Base => 10);  
        return Tampon;
    end Read_Type_Of_Message;


    function Read_Type_Of_Status (My_Frame : T_Frame) return Integer is
        Tampon : Integer;  
        My_Worked : Boolean;
    begin
        Tampon_Adress_Message_Or_Status :=
           Bounded_String.Extract
              (Bounded_String.Variable_String (My_Frame.Frame),
               Constant_Start_End.Start_Type_Status,
               Constant_Start_End.End_Type_Status);
        String_Utilities.String_To_Number
           (Source => Tampon_Adress_Message_Or_Status,
            Target => Tampon,
            Worked => My_Worked,
            Base => 10);  
        return Tampon;
    end Read_Type_Of_Status;


    procedure Init_Type_Of_Status
                 (S : T_Status.T_State; My_Frame : in out T_Frame) is
    begin
        Text_Io.Put_Line ("Init_Type_of_Status");
    end Init_Type_Of_Status;


    -- procedure Init_Type_Of_Message
    --              (M : T_Message.T_Mess; My_Frame : in out T_Frame) is
    -- begin
    --     Text_Io.Put_Line ("Init_Type_of_Message");
    -- end Init_Type_Of_Message;


    procedure Init_Type_Of_Message
                 (Message : Integer; My_Frame : in out T_Frame) is
    begin
        Text_Io.Put_Line ("Init_Type_of_Message");

    end Init_Type_Of_Message;


    procedure Exchange_Source_Destination (My_Frame : in out T_Frame) is
    begin
        Text_Io.Put_Line ("Exchange_Source_Destination");
    end Exchange_Source_Destination;


    procedure Put_Frame (My_Frame : T_Frame) is
    begin
        Text_Io.Put_Line (Bounded_String.Image
                             (Bounded_String.Variable_String (My_Frame.Frame)));
    end Put_Frame;


    procedure Init (My_Appli_Number : out Com_Defs.Com_Number;
                    Status : out Boolean) is
    begin  
        Text_Io.Put_Line ("Init");
        Com_Dialog.Init (My_Appli_Number, Status);
    end Init;


    procedure Remove (My_Appli_Number : in Com_Defs.Com_Number;
                      Status : out Boolean) is
    begin  
        Text_Io.Put_Line ("Remove");
        Com_Dialog.Remove (My_Appli_Number, Status);
    end Remove;


    procedure Send (My_Appli_Number : Com_Defs.Com_Number;
                    My_Adr_Dest : Transport_Defs.Host_Id;
                    My_Frame : T_Frame;
                    Status : out Boolean) is
    begin
        Text_Io.Put_Line ("Send");
        Com_Dialog.Send (My_Appli_Number, My_Adr_Dest, My_Frame.Frame, Status);
    end Send;


    procedure Receive (My_Appli_Number : in Com_Defs.Com_Number;
                       My_Quest_Number : in Com_Defs.Com_Number;
                       My_Frame : in out T_Frame;
                       Status : out Boolean) is
    begin
        Text_Io.Put_Line ("Receive");  
        Bounded_String.Append
           (Bounded_String.Variable_String (My_Frame.Frame), Receive_Data);
        Status := True;
        Text_Io.Put_Line ("Message recu : " &
                          Bounded_String.Image
                             (Bounded_String.Variable_String (My_Frame.Frame)));
    end Receive;

end Orb_Messages;

    nblk1=9
    nid=0
    hdr6=12
        [0x00] rec0=16 rec1=00 rec2=01 rec3=022
        [0x01] rec0=17 rec1=00 rec2=02 rec3=008
        [0x02] rec0=15 rec1=00 rec2=03 rec3=002
        [0x03] rec0=13 rec1=00 rec2=04 rec3=058
        [0x04] rec0=1b rec1=00 rec2=05 rec3=03c
        [0x05] rec0=1d rec1=00 rec2=06 rec3=062
        [0x06] rec0=23 rec1=00 rec2=07 rec3=004
        [0x07] rec0=1d rec1=00 rec2=08 rec3=00e
        [0x08] rec0=09 rec1=00 rec2=09 rec3=000
    tail 0x2175db25687b8885527da 0x42a00088462060003