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: ┃ < T ┃

⟦9f5930a8b⟧ TextFile

    Length: 887 (0x377)
    Types: TextFile
    Names: »«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

  Date: 1993-Mar-18 10:33:38 
 
     1: with Callback;
     2: with System;
     3: with Text_Io;
     4: procedure Callback_Test is
     5: 
     6:     procedure Call_Callback_C;
     7:     pragma Interface (C, Call_Callback_C);
     8:     pragma Interface_Information (Call_Callback_C, ".Call_Callback");
     9: 
    10:     procedure Set_P1_C (Ptr : System.Address);
    11:     pragma Interface (C, Set_P1_C);
    12:     pragma Interface_Information (Set_P1_C, ".Set_P1");
    13: 
    14: begin
    15:     Text_Io.Put_Line ("callback_test: in");
    16: 
    17:     Set_P1_C (Callback.P1'Address);
    18: 
    19:     Call_Callback_C;
    20: 
    21:     Text_Io.Put_Line ("callback_test: out");
    22: end Callback_Test;
    23: pragma Main;
               ----
>>> WARNING: Unrecognized pragma


Syntax errors: 0  Semantic errors: 0  Warnings: 1  Lines compiled: 23