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 - metrics - download
Index: T V

⟦416ea787f⟧ TextFile

    Length: 1112 (0x458)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with Pipe;
with Batch_Stream;
package Batch_Commands is
    type Command is private;

    type Instruction is (Submit, Cancel, Shutdown);

    function Make (Stream_Number : Natural;
                   Inst : Instruction;
                   Job_Description : Batch_Stream.Job_Descriptor)
                  return Command;

    function Stream_Number (In_Command : Command) return Natural;

    function The_Instruction (In_Command : Command) return Instruction;

    function Job_Description (In_Command : Command)
                             return Batch_Stream.Job_Descriptor;

    type Channel is private;

    procedure Initialize;
    procedure Open_Read_Channel (The_Channel : in out Channel);
    procedure Close_Read_Channel (The_Channel : in out Channel);

    procedure Put (The_Command : Command);

    function Get (From_Channel : Channel) return Command;

private

    type Command is
        record
            Stream_Number : Natural;
            Instr : Instruction;
            The_Job : Batch_Stream.Job_Descriptor;
        end record;

    type Channel is new Pipe.Handle;
end Batch_Commands;