DataMuseum.dk

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⟧ 

TextFile

-- -------------------------------------------------------------------------
-- 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)