|
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: 1575 (0x627)
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_Expression is
use System_Defined;
function Make_Binary
(Operator : Operators; Left, Right : Object) return Object is
The_Code : Binary_Expression.Object;
begin
The_Code := Binary_Expression.Make (Operator, Left, Right);
return New_Node (For_Code => (Sub_Class => Binary,
The_Binary_Code => The_Code));
end Make_Binary;
function Make_Unary
(Operator : Operators; Operand : Object) return Object is
The_Code : Unary_Expression.Object;
begin
The_Code := Unary_Expression.Make (Operator, Operand);
return New_Node (For_Code => (Sub_Class => Unary,
The_Unary_Code => The_Code));
end Make_Unary;
function "+" (Left, Right : Object) return Object is
begin
return Make_Binary (Operators'('+'), Left, Right);
end "+";
function "-" (Left, Right : Object) return Object is
begin
return Make_Binary (Operators'('-'), Left, Right);
end "-";
function "*" (Left, Right : Object) return Object is
begin
return Make_Binary (Operators'('*'), Left, Right);
end "*";
function "/" (Left, Right : Object) return Object is
begin
return Make_Binary (Operators'('/'), Left, Right);
end "/";
function "abs" (Right : Object) return Object is
begin
return Make_Unary (Operators'(Abs_Op), Right);
end "abs";
end System_Defined_Expression;