|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1054 (0x41e) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦9cf21f446⟧ └─⟦this⟧
-- ------------------------------------------------------------------------- -- CIFO section titled "Asynchronous Entry Call". -- ------------------------------------------------------------------------- -- The CIFO documents ask for: -- -- generic -- type PARAMETER is limited private; -- with procedure ENTRY_TO_BE_CALLED (PARAM : in PARAMETER); -- procedure NON_WAITING_ENTRY_CALL (PARAM : in PARAMETER); -- -- Instead we provide: generic type PARAMETER is private; with procedure ENTRY_TO_BE_CALLED (PARAM : in PARAMETER); package ENTRY_CALLER is procedure NON_WAITING_ENTRY_CALL (PARAM : PARAMETER); end; -- It is used in much the same way as the one in the CIFO -- document, but its instantiation is different. Instead of: -- -- procedure MY_CALL(I:INTEGER) -- is new NON_WAITING_ENTRY_CALL(INTEGER, T.E); -- MY_CALL(100); -- -- a program does -- -- package CALLER is new ENTRY_CALLER(INTEGER, T.E); -- procedure MY_CALL(I:INTEGER) renames CALLER.NON_WAITING_ENTRY_CALL; -- MY_CALL(100)