|
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 - download
Length: 16384 (0x4000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbmt_Parameters, seg_004f15
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with System;
package Xlbmt_Parameters is
------------------------------------------------------------------------------
-- X Library Machine Types
--
-- Xlbmt_Parameters - Machine/Compiler specific X Library parameters.
------------------------------------------------------------------------------
-- 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
--/ if R1000 then
X_Output_Buffer_Size : constant := 4096 * 4;
-- Maximum X output buffer size; in bytes. Our code assumes that this
-- is always a multiple of 4 and greater than 256+32. You can make it
-- as big as you want as long as it is <= 16K. 16K is the minimum
-- guaranteed size. All servers will accepts a minimum of 16K.
-- If you make it > 16K then it will not work for some servers.
X_Input_Buffer_Size : constant := 1024 * 4;
-- Maximum X input buffer size; in bytes. Our code assumes that this
-- is a multiple of 4 and it must be at least 32. You can make it as
-- big as you want. Larger values work better when "large" replies are
-- expected.
X_Max_Q_Free : constant := 100;
-- Maximum number of free events on a single display queue.
X_Error_Database : constant String := "!Tools.X_Windows.X_Data.X_Error_DB";
X_Option_File : constant String := "X11_defaults";
-- Name of user default resources file in his home directory.
X_Environment_File : constant String := "X11_defaults_";
-- First part of the name of a per-host user default resources file
-- in his home directory. E.g. if current host is Bozo then the
-- file is "!User.Somebody.X11_Defaults_Bozo".
X_Key_Sym_Db_File : constant String :=
"!Tools.X_Windows.X_Data.X_Key_Sym_Db";
-- File containing a list of site-specific key symbol resources.
-- Each line of the file consists of "name : code". Where code is
-- a hex number, e.g. "NewKey : FA32".
-- Comments and blank lines may be included. Comments lines have '!' as
-- the first non-blank character.
X_Var_Xenvironment : constant String := "XENVIRONMENT";
----Environment variable called "XENVIRONMENT" on Unix.
--/ elsif Cdf_Hpux then
--//
--// X_Output_Buffer_Size : constant := 4096;
--// -- Maximum X output buffer size; in bytes. Our code assumes that this
--// -- is always a multiple of 4 and greater than 256+32. You can make it
--// -- as big as you want as long as it is <= 16K. 16K is the minimum
--// -- guaranteed size. All servers will accepts a minimum of 16K.
--// -- If you make it > 16K then it will not work for some servers.
--//
--// X_Input_Buffer_Size : constant := 1024;
--// -- Maximum X input buffer size; in bytes. Our code assumes that this
--// -- is a multiple of 4 and it must be at least 32. You can make it as
--// -- big as you want. Larger values work better when "large" replies are
--// -- expected.
--//
--// X_Max_Q_Free : constant := 100;
--// -- Maximum number of free events on a single display queue.
--//
--// X_Error_Database : constant String := "/usr/lib/X11/ada/X_Error_Db";
--//
--// X_Option_File : constant String := ".Xdefaults";
--// -- Name of user default resources file in his home directory.
--//
--// X_Environment_File : constant String := ".Xdefaults_";
--// -- First part of the name of a per-host user default resources file
--// -- in his home directory. E.g. if current host is Bozo then the
--// -- file is "~Somebody/.Xdefaults_Bozo".
--//
--// X_Key_Sym_Db_File : constant String := "/usr/lib/X11/ada/X_Key_Sym_Db";
--// -- File containing a list of site-specific key symbol resources.
--// -- Each line of the file consists of "name : code". Where code is
--// -- a hex number, e.g. "NewKey : FA32".
--// -- Comments and blank lines may be included. Comments lines have '!' as
--// -- the first non-blank character.
--//
--// X_Var_Xenvironment : constant String := "XENVIRONMENT";
--// ----Environment variable called "XENVIRONMENT" on Unix.
--//
--/ elsif TeleGen2 and then Unix then
--//
--// X_Output_Buffer_Size : constant := 4096;
--// -- Maximum X output buffer size; in bytes. Our code assumes that this
--// -- is always a multiple of 4 and greater than 256+32. You can make it
--// -- as big as you want as long as it is <= 16K. 16K is the minimum
--// -- guaranteed size. All servers will accepts a minimum of 16K.
--// -- If you make it > 16K then it will not work for some servers.
--//
--// X_Input_Buffer_Size : constant := 1024;
--// -- Maximum X input buffer size; in bytes. Our code assumes that this
--// -- is a multiple of 4 and it must be at least 32. You can make it as
--// -- big as you want. Larger values work better when "large" replies are
--// -- expected.
--//
--// X_Max_Q_Free : constant := 100;
--// -- Maximum number of free events on a single display queue.
--//
--// X_Error_Database : constant String :=
--// "/usr/lib/X11/ada/X_Error_Db";
--//
--// X_Option_File : constant String := ".Xdefaults";
--// -- Name of user default resources file in his home directory.
--//
--// X_Environment_File : constant String := ".Xdefaults_";
--// -- First part of the name of a per-host user default resources file
--// -- in his home directory. E.g. if current host is Bozo then the
--// -- file is "~Somebody/.Xdefaults_Bozo".
--//
--// X_Key_Sym_Db_File : constant String :=
--// "/usr/lib/X11/ada/X_Key_Sym_Db";
--// -- File containing a list of site-specific key symbol resources.
--// -- Each line of the file consists of "name : code". Where code is
--// -- a hex number, e.g. "NewKey : FA32".
--// -- Comments and blank lines may be included. Comments lines have '!' as
--// -- the first non-blank character.
--//
--// X_Var_Xenvironment : constant String := "XENVIRONMENT";
--// ----Environment variable called "XENVIRONMENT" on Unix.
--//
--/ else
--//
--// X_Output_Buffer_Size : constant := 4096;
--// -- Maximum X output buffer size; in bytes. Our code assumes that this
--// -- is always a multiple of 4 and greater than 256+32. You can make it
--// -- as big as you want as long as it is <= 16K. 16K is the minimum
--// -- guaranteed size. All servers will accepts a minimum of 16K.
--// -- If you make it > 16K then it will not work for some servers.
--//
--// X_Input_Buffer_Size : constant := 1024;
--// -- Maximum X input buffer size; in bytes. Our code assumes that this
--// -- is a multiple of 4 and it must be at least 32. You can make it as
--// -- big as you want. Larger values work better when "large" replies are
--// -- expected.
--//
--// X_Max_Q_Free : constant := 100;
--// -- Maximum number of free events on a single display queue.
--//
--// X_Error_Database : constant String := "!Machine.X_Data.X_Error_Db";
--//
--// X_Option_File : constant String := "X11_defaults";
--// -- Name of user default resources file in his home directory.
--//
--// X_Environment_File : constant String := "X11_defaults_";
--// -- First part of the name of a per-host user default resources file
--// -- in his home directory. E.g. if current host is Bozo then the
--// -- file is "!User.Somebody.X11_Defaults_Bozo".
--//
--// X_Key_Sym_Db_File : constant String := "!Machine.X_Data.X_Key_Sym_Db";
--// -- File containing a list of site-specific key symbol resources.
--// -- Each line of the file consists of "name : code". Where code is
--// -- a hex number, e.g. "NewKey : FA32".
--// -- Comments and blank lines may be included. Comments lines have '!' as
--// -- the first non-blank character.
--//
--// X_Var_Xenvironment : constant String := "XENVIRONMENT";
--// ----Environment variable called "XENVIRONMENT" on Unix.
--//
--/ end if;
X_Cursor_Font_Name : constant String := "cursor"; -- standard cursor fonts
X_Protocol : constant := 11; -- current protocol version
X_Protocol_Revision : constant := 0; -- current minor version
------------------------------------------------------------------------------
-- Constants for record representation specifications.
--
-- These are intended to be "machine independent" in the sense that they
-- always mean what the X protocol needs them to mean. The exact values
-- change from machine to machine.
--
-- The "1st" byte of a 32-bit word is always the first byte of that same
-- storage when that storage is treated as an array of bytes instead of as a
-- 32-bit value. I.e. it is the 0'th byte in the machine addressing sense.
--
-- Bits within a record representation clause are numbered in some order.
-- That order is an arbitrary decision made by the compiler implementor. It
-- may or may not be related to any bit addressing capability provided by the
-- hardware. Read your compiler manual in order to determine whether bit 0
-- in a record field's representation is the "left" (sign) bit or the "right"
-- (even/odd) bit of the field.
------------------------------------------------------------------------------
X_Word : constant := 32 / System.Storage_Unit;
-- Number of storage units in 32-bit word.
--/ if Record_Rep_Storage_Unit_8 then
X_Byte0a : constant := 0; -- 1st byte in a 32-bit word
X_Byte0b : constant := 7;
X_Byte1a : constant := 8; -- 2nd byte in a 32-bit word
X_Byte1b : constant := 15;
X_Byte2a : constant := 16; -- 3rd byte in a 32-bit word
X_Byte2b : constant := 23;
X_Byte3a : constant := 24; -- 4th byte in a 32-bit word
X_Byte3b : constant := 31;
X_Half0a : constant := 0; -- 1st half word in a 32-bit word
X_Half0b : constant := 15;
X_Half1a : constant := 16; -- 2nd half word in a 32-bit word
X_Half1b : constant := 31;
X_Word0a : constant := 0; -- Full 32-bit word
X_Word0b : constant := 31;
--/ elsif Record_Rep_Storage_Unit_16 then
--//
--// X_Byte0a : constant := 8; -- 1st byte in a 32-bit word
--// X_Byte0b : constant := 15;
--// X_Byte1a : constant := 0; -- 2nd byte in a 32-bit word
--// X_Byte1b : constant := 7;
--// X_Byte2a : constant := 24; -- 3rd byte in a 32-bit word
--// X_Byte2b : constant := 31;
--// X_Byte3a : constant := 16; -- 4th byte in a 32-bit word
--// X_Byte3b : constant := 23;
--//
--// X_Half0a : constant := 0; -- 1st half word in a 32-bit word
--// X_Half0b : constant := 15;
--// X_Half1a : constant := 16; -- 2nd half word in a 32-bit word
--// X_Half1b : constant := 31;
--//
--// X_Word0a : constant := 0; -- Full 32-bit word
--// X_Word0b : constant := 31;
--//
--/ elsif Record_Rep_Storage_Unit_32 then
--//
--// X_Byte0a : constant := 24; -- 1st byte in a 32-bit word
--// X_Byte0b : constant := 31;
--// X_Byte1a : constant := 16; -- 2nd byte in a 32-bit word
--// X_Byte1b : constant := 23;
--// X_Byte2a : constant := 8; -- 3rd byte in a 32-bit word
--// X_Byte2b : constant := 15;
--// X_Byte3a : constant := 0; -- 4th byte in a 32-bit word
--// X_Byte3b : constant := 7;
--//
--// X_Half0a : constant := 16; -- 1st half word in a 32-bit word
--// X_Half0b : constant := 31;
--// X_Half1a : constant := 0; -- 2nd half word in a 32-bit word
--// X_Half1b : constant := 15;
--//
--// X_Word0a : constant := 0; -- Full 32-bit word
--// X_Word0b : constant := 31;
--//
--/ end if; -- Record_Rep_Storage_Unit_??
end Xlbmt_Parameters;
nblk1=f
nid=0
hdr6=1e
[0x00] rec0=16 rec1=00 rec2=01 rec3=008
[0x01] rec0=11 rec1=00 rec2=02 rec3=06c
[0x02] rec0=15 rec1=00 rec2=03 rec3=032
[0x03] rec0=14 rec1=00 rec2=04 rec3=064
[0x04] rec0=15 rec1=00 rec2=05 rec3=03e
[0x05] rec0=11 rec1=00 rec2=06 rec3=08e
[0x06] rec0=16 rec1=00 rec2=07 rec3=048
[0x07] rec0=13 rec1=00 rec2=08 rec3=008
[0x08] rec0=14 rec1=00 rec2=09 rec3=086
[0x09] rec0=15 rec1=00 rec2=0a rec3=07c
[0x0a] rec0=00 rec1=00 rec2=0f rec3=012
[0x0b] rec0=15 rec1=00 rec2=0b rec3=016
[0x0c] rec0=18 rec1=00 rec2=0c rec3=034
[0x0d] rec0=17 rec1=00 rec2=0d rec3=042
[0x0e] rec0=0a rec1=00 rec2=0e rec3=000
tail 0x2170065b28197808c1c76 0x42a00088462063203