|
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: ┃ B T ┃
Length: 1582 (0x62e)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦e24fb53b7⟧
└─⟦this⟧
separate (Generic_Expression)
package body System_Defined is
function Evaluate (Using_Operator : Operators; Right : Slot.Object)
return Slot.Object is
use Slot.Operators;
I : Integer;
begin
case Using_Operator is
when '+' | '*' | '/' | '&' =>
raise Illegal_Operation;
when Abs_Op =>
return abs Right;
when '-' =>
return (-Right);
end case;
end Evaluate;
function Evaluate (Using_Operator : Operators; Left, Right : Slot.Object)
return Slot.Object is
use Slot.Operators;
I : Integer;
begin
case Using_Operator is
when '+' =>
return Left + Right;
when '-' =>
return Left - Right;
when '*' =>
return Left * Right;
when '/' =>
return Left / Right;
when '&' =>
return Left & Right;
when Abs_Op =>
return (abs Left);
end case;
end Evaluate;
function Image (Op : Operators) return String is
begin
case Op is
when '+' =>
return "+";
when '-' =>
return "-";
when '*' =>
return "*";
when '/' =>
return "/";
when '&' =>
return "&";
when Abs_Op =>
return "Abs";
end case;
end Image;
end System_Defined;