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

⟦0fc4e8a4f⟧ TextFile

    Length: 647 (0x287)
    Types: TextFile
    Names: »B«

Derivation

└─⟦bad92a95e⟧ Bits:30000535 8mm tape, Rational 1000, RPC 1_0_2
    └─ ⟦bb34fe6e2⟧ »DATA« 
        └─⟦15d8b76c6⟧ 
            └─⟦this⟧

TextFile

package body Complex_Defs is
    package body Interchange_Operations is
        procedure Put (Into : Stream_Id; Data : Number) is
        begin
            Put (Into, Interchange.Float (Data.Real));
            Put (Into, Interchange.Float (Data.Imag));
        end Put;


        procedure Get (From : Stream_Id; Data : out Number) is
        begin
            Get (From, Interchange.Float (Data.Real));
            Get (From, Interchange.Float (Data.Imag));
        end Get;
    end Interchange_Operations;


    package body Proc_Number is
    end Proc_Number;


    package body Exception_Number is
    end Exception_Number;
end Complex_Defs;