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

⟦12c985179⟧ Ada Source

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

Derivation

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

with Calendar;
with Text_Io;

package body Run is


    -- ***********************************
    function Days_Function return String is
        The_Time : Calendar.Time;
    begin
        The_Time := Calendar.Clock;
        return Integer'Image (Calendar.Day (The_Time));
    end Days_Function;


    -- ***********************************
    function Mont_Function return String is
        The_Time : Calendar.Time;
    begin
        The_Time := Calendar.Clock;  
        return Integer'Image (Calendar.Month (The_Time));
    end Mont_Function;


    -- ***********************************
    function Year_Function return String is
        The_Time : Calendar.Time;
    begin
        The_Time := Calendar.Clock;
        return Integer'Image (Calendar.Year (The_Time));
    end Year_Function;

    -- ***********************************
    procedure Treatment (The_Name : String;
                         The_Answer : out Our_String.Variable_String) is
        type Type_Of_Functions is (Days, Mont, Year, None);

        package The_Enum is new Text_Io.Enumeration_Io (Type_Of_Functions);
        The_Function : Type_Of_Functions;
        Last : Natural;
        The_Days : String (1 .. 3);
        The_Mont : String (1 .. 2);
        The_Year : String (1 .. 5);


    begin
        The_Enum.Get (The_Name, The_Function, Last);

        case The_Function is
            when Days =>
                Text_Io.Put_Line ("avant the_days = function");
                The_Days := Days_Function;
                Text_Io.Put_Line ("run avant the_answer =");
                The_Answer := Our_String.Value (The_Days);

            when Mont =>
                The_Mont := Mont_Function;
                The_Answer := Our_String.Value (The_Mont);

            when Year =>
                The_Year := Year_Function;
                The_Answer := Our_String.Value (The_Year);

            when others =>               null;
        end case;

    end Treatment;


end Run;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=24 rec1=00 rec2=01 rec3=076
        [0x01] rec0=1e rec1=00 rec2=02 rec3=002
        [0x02] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x217631fb887c5438d7183 0x42a00088462060003