|
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 - metrics - downloadIndex: B T
Length: 1416 (0x588)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »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;
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 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 Abs_Op =>
return "Abs";
end case;
end Image;
end System_Defined;