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

⟦1045c390f⟧ TextFile

    Length: 417 (0x1a1)
    Types: TextFile
    Names: »CALL_CALLBACK_C«

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

int (*Ada_subprogram)();

void register_subprogram ( int (*f)() )
{
  Ada_subprogram = f;
  printf( "C routine register_subprogram has registered the subprogram\n");
}

void call_ada_from_c()
{
  int Result;
  printf
    ( "C routine call_ada_from_c is calling the registered Ada subprogram...\n");
  Result = (*Ada_subprogram)(11, 22, 33, 44);
  printf( "...the result from the Ada subprogram was %d\n", Result );
}