|
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: 8192 (0x2000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Generic_Expression, seg_02cc7b, seg_02cecf
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧ └─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Alias; with Output_Stream; generic type User_Defined_Operators is (<>); with function User_Defined_Evaluate (Using_Operator : User_Defined_Operators; Left, Right : Integer) return Integer is <>; with function User_Defined_Image (Op : User_Defined_Operators) return String is User_Defined_Operators'Image; package Generic_Expression is type Object is private; Null_Expression : constant Object; -- primary expression constructors function Value (For_Integer : Integer) return Object; function Value (For_Alias : Alias.Name) return Object; -- user defined expression constructors generic Operator : User_Defined_Operators; function Unary_User_Expression (Using_Value : Object) return Object; generic Operator : User_Defined_Operators; function Binary_User_Expression (Left, Right : Object) return Object; -- general operations function Evaluate (The_Expression : Object) return Integer; procedure Put (The_Object : Object; Where : Output_Stream.Object); package System_Defined_Expression is function "+" (Left, Right : Object) return Object; function "-" (Left, Right : Object) return Object; function "*" (Left, Right : Object) return Object; function "/" (Left, Right : Object) return Object; function "abs" (Using_Value : Object) return Object; end System_Defined_Expression; Illegal_Operation : exception; private type Sub_Classes is (Primary, Unary, Binary, Undefined); type Object_Structure (Sub_Class : Sub_Classes); type Object is access Object_Structure; Null_Expression : constant Object := null; end Generic_Expression;
nblk1=7 nid=3 hdr6=4 [0x00] rec0=21 rec1=00 rec2=01 rec3=080 [0x01] rec0=1a rec1=00 rec2=06 rec3=000 [0x02] rec0=03 rec1=00 rec2=03 rec3=000 [0x03] rec0=08 rec1=00 rec2=07 rec3=000 [0x04] rec0=08 rec1=00 rec2=05 rec3=000 [0x05] rec0=42 rec1=02 rec2=35 rec3=402 [0x06] rec0=9a rec1=d4 rec2=00 rec3=002 tail 0x215255b52840c7659763a 0x42a00088462063c03 Free Block Chain: 0x3: 0000 00 07 00 2b 80 08 3a 3d 20 6e 75 6c 6c 3b 08 00 ┆ + := null; ┆ 0x7: 0000 00 05 00 07 80 04 74 72 75 63 04 76 65 72 66 6c ┆ truc verfl┆ 0x5: 0000 00 02 03 fc 80 0d 73 73 69 6f 6e 2e 4f 62 6a 65 ┆ ssion.Obje┆ 0x2: 0000 00 04 00 10 80 0d 20 72 65 74 75 72 6e 20 45 78 ┆ return Ex┆ 0x4: 0000 00 00 03 fc 80 03 73 20 20 03 00 31 20 20 20 20 ┆ s 1 ┆