|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 1537 (0x601)
Types: TextFile
Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
package System_Operators is
type Operators is (
-- predicates
Is_Equal_Op,
Is_Less_Op,
Is_Less_Or_Equal_Op,
Is_Greater_Op,
Is_Greater_Or_Equal_Op,
Is_Different_Op,
Is_Any_Op,
-- arithmetic expressions
'+',
'-',
'*',
'/',
Abs_Op);
for Operators use (Is_Equal_Op => 1,
Is_Less_Op => 2,
Is_Less_Or_Equal_Op => 3,
Is_Greater_Op => 4,
Is_Greater_Or_Equal_Op => 5,
Is_Different_Op => 6,
Is_Any_Op => 7,
'+' => 8,
'-' => 9,
'*' => 10,
'/' => 11,
Abs_Op => 12);
function Match (Using_Operator : Operators;
Value : Integer;
Against : Integer) return Boolean;
function Evaluate (Using_Operator : Operators; Left, Right : Integer)
return Integer;
Illegal_Operation : exception;
end System_Operators;