|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Set_Of_Token, seg_04476b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Token_Pkg;
use Token_Pkg;
package body Set_Of_Token is
------------------------------------------------------------------------
-- <UNIT> Set_of_Token
------------------------------------------------------------------------
--
-- <DESCRIPTION> This package defines types and operations for working
-- with array of tokens.
--
-- <AUTHOR> Barthe Raphael, Beck Didier, Kempe Laurent
-- <VERSION> 1.0
-- <DATE> 12-Jan-95
-- <MODIFY> 12-Jan-95
--
-- <PKG USED>
------------------------------------------------------------------------
function Make (List : Tokens) return Object is
--------------------------------------------------------------------------------
-- <SUBPROGRAM>
-- <UNIT> Make
--
-- <DESCRIPTION> Build an unity of tokens
--
-- <EXCEPTIONS> Nothing
--
--------------------------------------------------------------------------------
Local_Object : Object := (others => False);
begin
for I in List'Range loop
Local_Object (List (I)) := True;
end loop;
return Local_Object;
end Make;
function Make (One_Token : Token) return Object is
--------------------------------------------------------------------------------
-- <SUBPROGRAM>
-- <UNIT> Make
--
-- <DESCRIPTION>
--
-- <EXCEPTIONS> Nothing
--
--------------------------------------------------------------------------------
Local_Object : Object := (others => False);
begin
Local_Object (One_Token) := True;
return Local_Object;
end Make;
function Is_Member (My_Token : Token; My_Object : Object) return Boolean is
--------------------------------------------------------------------------------
-- <SUBPROGRAM>
-- <UNIT> Member
--
-- <DESCRIPTION> check if one_token is in the object
--
-- <EXCEPTIONS> Nothing
--
--------------------------------------------------------------------------------
begin
return My_Object (My_Token);
end Is_Member;
end Set_Of_Token;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1e rec1=00 rec2=01 rec3=046
[0x01] rec0=21 rec1=00 rec2=02 rec3=054
[0x02] rec0=07 rec1=00 rec2=03 rec3=001
tail 0x217458ef0863e89a49bb6 0x42a00088462060003