|
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: 672 (0x2a0)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦12c68c704⟧
└─⟦this⟧
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦220843204⟧
└─⟦this⟧
with Machine;
with System;
package Default is
-- return Default information about the caller
function Get_Task_Id return Machine.Task_Id renames Machine.Get_Task_Id;
function Job return Machine.Job_Id;
function Session return Machine.Session_Id;
subtype Process_Id is Machine.Job_Id;
function "=" (L, R : Process_Id) return Boolean renames System."=";
Nil : constant Process_Id := Machine.Nil_Job;
function Process return Process_Id renames Job;
function Hash (Key : Process_Id := Process) return Integer;
pragma Subsystem (Om_Mechanisms);
pragma Module_Name (4, 910);
end Default;