|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 644 (0x284)
Types: TextFile
Names: »V«
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦a5bbbb819⟧
└─⟦this⟧
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦eec0a994f⟧
└─⟦this⟧
package Ci is
procedure Login (Terminal : String := "!machine.devices.terminal_1";
Timeout : Duration := 60.0);
-- Prompt for username/password. If they are OK, prompte for session,
-- and start a new job running Interpret (below) on that session.
-- When the interpreter job terminates, repeat the process.
procedure Interpret (Terminal : String := "!machine.devices.terminal_1";
Timeout : Duration := 60.0);
-- Prompt for and execute environment commands.
-- Return when the command "quit" is entered, or
-- the specified Timeout elapses with no input.
end Ci;