|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbt_Rm2, seg_004fed
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Xlbt_Basic3;
use Xlbt_Basic3;
with Xlbt_Rm3;
package Xlbt_Rm2 is
------------------------------------------------------------------------------
-- X Library Resource Manager - Extended User Interface
--
-- Xlbt_Rm2 - Resource Manager Data Types
------------------------------------------------------------------------------
-- Copyright 1989 - 1991 by Rational, Santa Clara, California.
-- Copyright 1987 - 1989 by Digital Equipment Corporation, Maynard, Mass.
-- Copyright 1987 - 1989 by Massachusetts Institute of Technology,
-- Cambridge, Massachusetts.
--
-- All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the names of Digital, MIT, or Rational
-- not be used in advertising or publicity pertaining to distribution of
-- the software without specific, written prior permission.
--
-- Digital, MIT, and Rational disclaim all warranties with regard to this
-- software, including all implied warranties of merchantability and fitness,
-- in no event shall Digital, MIT, or Rational be liable for any special,
-- indirect or consequential damages or any damages whatsoever resulting from
-- loss of use, data or profits, whether in an action of contract, negligence
-- or other tortious action, arising out of or in connection with the use or
-- performance of this software.
------------------------------------------------------------------------------
--\x0c
package R3 renames Xlbt_Rm3;
------------------------------------------------------------------------------
-- X_Rm_Option_Desc
------------------------------------------------------------------------------
subtype X_Rm_Option_Desc is R3.X_Rm_Option_Desc;
------------------------------------------------------------------------------
-- X_Rm_Quark
------------------------------------------------------------------------------
subtype X_Rm_Quark_Array is R3.X_Rm_Quark_Array;
function "=" (A, B : X_Rm_Quark_Array) return Boolean renames R3."=";
------------------------------------------------------------------------------
-- X_Rm_Database - A record (possibly) containing a Hash Bucket pointer.
------------------------------------------------------------------------------
subtype X_Rm_Database_Rec is R3.X_Rm_Database_Rec;
------------------------------------------------------------------------------
-- X_Rm_Search_List
------------------------------------------------------------------------------
subtype X_Rm_Search_List_Entry is R3.X_Rm_Search_List_Entry;
function "&" (A : R3.X_Rm_Search_List;
B : R3.X_Rm_Search_List_Entry) return R3.X_Rm_Search_List
renames R3."&";
function "&" (A, B : R3.X_Rm_Search_List) return R3.X_Rm_Search_List
renames R3."&";
function "=" (A, B : X_Rm_Search_List_Entry) return Boolean renames R3."=";
------------------------------------------------------------------------------
-- X_Rm_Hash_Bucket - records a value and possibly dependent/refined values.
------------------------------------------------------------------------------
subtype X_Rm_Hash_Bucket_Rec is R3.X_Rm_Hash_Bucket_Rec;
subtype X_Rm_Hash_Bucket is R3.X_Rm_Hash_Bucket;
subtype X_Rm_Hash_Bucket_Array is R3.X_Rm_Hash_Bucket_Array;
subtype X_Rm_Hash_Table is R3.X_Rm_Hash_Table;
function "=" (A, B : X_Rm_Hash_Bucket) return Boolean renames R3."=";
function "=" (A, B : X_Rm_Hash_Table) return Boolean renames R3."=";
None_X_Rm_Hash_Bucket : X_Rm_Hash_Bucket renames R3.None_X_Rm_Hash_Bucket;
None_X_Rm_Hash_Table : X_Rm_Hash_Table renames R3.None_X_Rm_Hash_Table;
None_X_Rm_Hash_Bucket_Rec : X_Rm_Hash_Bucket_Rec
renames R3.None_X_Rm_Hash_Bucket_Rec;
procedure Free_X_Rm_Hash_Bucket (Bucket : in out X_Rm_Hash_Bucket)
renames R3.Free_X_Rm_Hash_Bucket;
procedure Free_X_Rm_Hash_Table (Table : in out X_Rm_Hash_Table)
renames R3.Free_X_Rm_Hash_Table;
------------------------------------------------------------------------------
-- X_Rm_File_Type - Text_Io.File_Type is limited private; ths is not.
------------------------------------------------------------------------------
subtype X_Rm_File_Type is R3.X_Rm_File_Type;
function "=" (A, B : X_Rm_File_Type) return Boolean renames R3."=";
None_X_Rm_File_Type : X_Rm_File_Type renames R3.None_X_Rm_File_Type;
procedure Free_X_Rm_File_Type (File : in out X_Rm_File_Type)
renames R3.Free_X_Rm_File_Type;
------------------------------------------------------------------------------
-- X_Rm_Quark_Bit_List - array of bits used to speed RM processing
------------------------------------------------------------------------------
subtype X_Rm_Quark_Bit_Array is R3.X_Rm_Quark_Bit_Array;
subtype X_Rm_Quark_Bit_List is R3.X_Rm_Quark_Bit_List;
function "=" (A, B : X_Rm_Quark_Bit_List) return Boolean renames R3."=";
None_X_Rm_Quark_Bit_List : X_Rm_Quark_Bit_List
renames R3.None_X_Rm_Quark_Bit_List;
procedure Free_X_Rm_Quark_Bit_List (List : in out X_Rm_Quark_Bit_List)
renames R3.Free_X_Rm_Quark_Bit_List;
end Xlbt_Rm2;
nblk1=7
nid=0
hdr6=e
[0x00] rec0=17 rec1=00 rec2=01 rec3=05a
[0x01] rec0=14 rec1=00 rec2=02 rec3=028
[0x02] rec0=1a rec1=00 rec2=03 rec3=060
[0x03] rec0=13 rec1=00 rec2=04 rec3=024
[0x04] rec0=00 rec1=00 rec2=07 rec3=026
[0x05] rec0=17 rec1=00 rec2=05 rec3=084
[0x06] rec0=10 rec1=00 rec2=06 rec3=000
tail 0x2170077de81978515ec4e 0x42a00088462063203