|
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: 1486 (0x5ce)
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⟧
with Text_Io;
package body Booleen is
function True return Object is
begin
return B_True;
end True;
function False return Object is
begin
return B_False;
end False;
function "not" (From : in Object) return Object is
begin
if From = True then
return False;
else
return True;
end if;
end "not";
function "and" (Left, Right : in Object) return Object is
begin
if Left = True then
if Right = True then
return True;
end if;
end if;
return False;
end "and";
function "or" (Left, Right : in Object) return Object is
begin
if Left = False then
if Right = False then
return False;
end if;
end if;
return True;
end "or";
function "xor" (Left, Right : in Object) return Object is
begin
if Left = Right then
return True;
else
return False;
end if;
end "xor";
function ">=" (Left, Right : in Object) return Object is
begin
if Object'Pos (Left) >= Object'Pos (Right) then
return True;
else
return False;
end if;
end ">=";
procedure Put (B : in Object) is
begin
if B = False then
Text_Io.Put ("0");
else
Text_Io.Put ("1");
end if;
end Put;
end Booleen;