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 - metrics - download
Index: B T

⟦679c46981⟧ TextFile

    Length: 821 (0x335)
    Types: TextFile
    Names: »B«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

package body Date is

    Current_Date : Date.Reference := Date.Reference (0);


    function New_Date (With_Mode : Overflow_Mode := Date.Error_Mode)
                      return Date.Reference is
    begin
        begin  
            if With_Mode = Turn_Mode then
                if Current_Date = Date.Max_Value then
                    Current_Date := 1;
                else
                    Current_Date := Current_Date + 1;
                end if;
            elsif With_Mode = Error_Mode then
                Current_Date := Current_Date + 1;
            else
                raise Illegal_Mode;
            end if;
            return Current_Date;
        exception
            when Constraint_Error =>
                raise Date_Overflow;
        end;
        raise Date_Overflow;
    end New_Date;

end Date;