DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦5e408571a⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Refresh_Terminal_Information, seg_0066b6

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



procedure Refresh_Terminal_Information;
-- Refreshes systemwide terminal information from
--    !Machine.Editor_Data.[Terminal_Recognition,
--                          Terminal_Types,
--                          @_Keys,
--                          @_Commands]
-- Information from these objects is automatically read during system
-- boot, and it is therefore not necessary to call Refresh_Terminal_
-- Information from Machine.Initialize.  However, running this proce-
-- dure makes the system refresh its internal cache of the information
-- from these files without requiring the system to be rebooted.  This
-- should be done when any of these files are changed.  Users who login
-- subsequent to running this procedure will get the changed information.

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=0f rec1=00 rec2=01 rec3=001
    tail 0x21701dc5281c04ac9b84d 0x42a00088462060003