|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xload_Main, seg_0052fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_Basic;
use Xlbt_Basic;
with Xlbt_Font;
use Xlbt_Font;
with Xlbt_Gc;
use Xlbt_Gc;
with Xlbt_Hint;
use Xlbt_Hint;
with Xlbt_Image;
use Xlbt_Image;
with Xlbt_String;
use Xlbt_String;
package Xload_Main is
------------------------------------------------------------------------------
-- Xload - a version of the xload program for R1000's
--
-- Author: Gary E. Barnes March 1991
--
-- Xload_Main - Used by all modules.
------------------------------------------------------------------------------
-- 03/14/91 GEB - Translate to Ada using only Xlib; Xt isn't ready yet.
------------------------------------------------------------------------------
-- \x0c
Quit : exception; -- Used for normal termination.
Abandon : exception; -- Used for abnormal termination.
------------------------------------------------------------------------------
-- Xload Resources
------------------------------------------------------------------------------
type Xload_Resources_Rec is
record
Foreground : X_Pixel; -- Default foreground color
Background : X_Pixel; -- Default background color
Cursor : X_Cursor; -- Name of cursor to use
Debug : Boolean; -- Debug printouts
Geometry : X_String_Pointer; -- Geometry for the board
Iconic : Boolean; -- Do we start as an icon?
Icon_Name : X_String_Pointer; -- Name for the icon
Icon_Geometry : X_String_Pointer; -- Size for the icon
Reverse_Video : Boolean; -- Do all in reverse?
Which_Load : Natural; -- 0,1,5,15 minute load avg
Use_Dashes : Boolean; -- Use dashed lines or not.
Interval : Positive; -- Update every this many seconds.
Levels : S_Short; -- Display this many lines
Font : X_Font_Struct; -- The font to use.
----Non-resources
Host : X_String_Pointer;
end record;
type Display_State is (S_Play, S_Sample);
Xload_Resources : Xload_Resources_Rec;-- Application resources
Dpy : X_Display; -- The display connection
Xload : X_Window; -- The top level window
Normal_Gc : X_Gc; -- Copy, fg=blk, bg=wht
Xor_Gc : X_Gc; -- Xor, fg=blk, bg=wht
procedure Main (Display : X_String;
Geometry : X_String := "70x40";
Which_Load : Natural := 1;
Interval : Positive := 10;
Levels : Positive := 2;
Font : X_String := "*cour*med*r*norm*--10*";
Use_Dashes : Boolean := False);
------------------------------------------------------------------------------
-- Our Main-Line Code.
------------------------------------------------------------------------------
end Xload_Main;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=21 rec1=00 rec2=01 rec3=020
[0x01] rec0=10 rec1=00 rec2=05 rec3=090
[0x02] rec0=01 rec1=00 rec2=02 rec3=062
[0x03] rec0=18 rec1=00 rec2=03 rec3=024
[0x04] rec0=05 rec1=00 rec2=04 rec3=000
tail 0x217008826819786f64cb6 0x42a00088462063203