|
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: 12288 (0x3000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Point, seg_0115ae, seg_0117cf
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Class_Behavior;
with Collection;
with Instance;
package body Point is
type Etat_Structure is
record
X, Y : Natural;
end record;
package Behavior is new Class_Behavior (Element => Etat_Structure,
With_Name => Class_Name,
With_Dates => Is_Dated,
With_Date_Mode => Date_Mode);
------------------------------------------------------------------------------
function X (O : Object) return Natural is
begin
return Behavior.Get (O).X;
end X;
------------------------------------------------------------------------------
function Y (O : Object) return Natural is
begin
return Behavior.Get (O).Y;
end Y;
------------------------------------------------------------------------------
function Instances return Collection.Object is
begin
return Behavior.Instances;
end Instances;
------------------------------------------------------------------------------
function Exist (With_X, With_Y : Natural) return Boolean is
function Is_Value (O : Object) return Boolean is
begin
return Behavior.Get (O).X = With_X and Behavior.Get (O).Y = With_Y;
end Is_Value;
function Exist_Value is new Collection.Exist (Is_Value);
begin
return Exist_Value (Instances);
end Exist;
------------------------------------------------------------------------------
function Add (With_X, With_Y : Natural) return Object is
Un_Etat : Etat_Structure;
begin
Un_Etat.X := With_X;
Un_Etat.Y := With_Y;
return Behavior.Allocate (The_Element => Un_Etat);
end Add;
------------------------------------------------------------------------------
procedure Change (O : Object; With_X, With_Y : Natural) is
Un_Etat : Etat_Structure;
begin
Un_Etat := Behavior.Get (The_Reference => O);
Un_Etat.X := With_X;
Un_Etat.Y := With_Y;
Behavior.Set (The_Reference => O, With_Value => Un_Etat);
end Change;
------------------------------------------------------------------------------
procedure Delete (O : Object) is
begin
Behavior.Dispose (The_Reference => O);
end Delete;
------------------------------------------------------------------------------
procedure Clean is
begin
Behavior.Clear;
end Clean;
end Point;
nblk1=b
nid=6
hdr6=6
[0x00] rec0=21 rec1=00 rec2=01 rec3=050
[0x01] rec0=1c rec1=00 rec2=09 rec3=04c
[0x02] rec0=17 rec1=00 rec2=07 rec3=000
[0x03] rec0=11 rec1=00 rec2=06 rec3=000
[0x04] rec0=1b rec1=00 rec2=07 rec3=058
[0x05] rec0=15 rec1=00 rec2=06 rec3=000
[0x06] rec0=18 rec1=00 rec2=03 rec3=008
[0x07] rec0=16 rec1=00 rec2=05 rec3=050
[0x08] rec0=1c rec1=00 rec2=09 rec3=016
[0x09] rec0=0d rec1=00 rec2=04 rec3=000
[0x0a] rec0=16 rec1=90 rec2=00 rec3=000
tail 0x2170d51d08238398f4e54 0x42a00088462063c03
Free Block Chain:
0x6: 0000 00 03 01 98 00 0f 20 20 20 20 65 6e 64 20 43 68 ┆ end Ch┆
0x3: 0000 00 05 00 46 00 43 20 20 20 20 20 20 20 20 20 20 ┆ F C ┆
0x5: 0000 00 0a 00 47 80 2a 20 49 73 5f 42 65 74 77 65 65 ┆ G * Is_Betwee┆
0xa: 0000 00 08 03 fc 80 07 2d 2d 2d 2d 2d 2d 2d 07 00 3a ┆ ------- :┆
0x8: 0000 00 0b 00 14 80 0e 6c 6c 5f 50 72 65 64 69 63 61 ┆ ll_Predica┆
0xb: 0000 00 04 00 0d 80 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------┆
0x4: 0000 00 02 01 74 80 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ t C----------┆
0x2: 0000 00 00 03 fc 80 14 2e 50 6c 61 63 65 20 3d 20 49 ┆ .Place = I┆