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

⟦246539805⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Conversion, seg_054991

Derivation

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

package body Conversion is
    function Number_To_String2
                (Convert : in Integer) return All_String.
                                              Adress_Type_Message_Or_Status is
    begin
        return String_Utilities.Number_To_String
                  (Value => Convert, Base => 10, Width => 2, Leading => '0');
    end Number_To_String2;


    function String2_To_Number
                (To_Convert : in All_String.Adress_Type_Message_Or_Status)
                return Integer is
        Converted : Integer;  
        My_Worked : Boolean;
    begin
        String_Utilities.String_To_Number (Source => To_Convert,
                                           Target => Converted,
                                           Worked => My_Worked,
                                           Base => 10);  
        return Converted;

    end String2_To_Number;

    function Number_To_String4 (Convert : in Com_Defs.Com_Number)
                               return All_String.String4 is  
    begin
        return String_Utilities.Number_To_String
                  (Value => Convert, Base => 10, Width => 4, Leading => '0');
    end Number_To_String4;

    function String4_To_Number (To_Convert : in All_String.String4)
                               return Com_Defs.Com_Number is  
        Converted : Com_Defs.Com_Number;  
        My_Worked : Boolean;
    begin
        String_Utilities.String_To_Number (Source => To_Convert,
                                           Target => Converted,
                                           Worked => My_Worked,
                                           Base => 10);  
        return Converted;
    end String4_To_Number;

    function Convert_Id_To_String (Convert : in Transport_Defs.Host_Id)
                                  return Com_Defs.V_String is
    begin
        return Com_Defs.V_String (Bounded_String.Value
                                     ("193054146133", Com_Defs.Frame_Length));
-- A ECRIRE
    end Convert_Id_To_String;

    function Convert_String_To_Id (S : in Com_Defs.V_String)
                                  return Transport_Defs.Host_Id is  
        Converted : Transport_Defs.Host_Id (1 .. 4);  
        My_Worked : Boolean;
    begin  
        Converted := (193, 54, 146, 133);
        return Converted;
-- A ECRIRE
    end Convert_String_To_Id;

end Conversion;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1b rec1=00 rec2=01 rec3=02a
        [0x01] rec0=16 rec1=00 rec2=02 rec3=064
        [0x02] rec0=0f rec1=00 rec2=03 rec3=000
    tail 0x2175dad2487b887ea1ec9 0x42a00088462060003