|
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: 863 (0x35f)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Lex, Error, Debug;
package body Actor_Type is
procedure Parse (T : out Symbol.Symbol_Type; Success : out Boolean) is
begin
Success := True;
case Lex.Get is
when Lex.Binaire =>
T := Symbol.Binary_Actor;
Debug.Put (20);
Lex.Next;
when Lex.Fugitif =>
T := Symbol.Fugitive_Actor;
Debug.Put (21);
Lex.Next;
when Lex.Discret =>
T := Symbol.Discrete_Actor;
Debug.Put (22);
Lex.Next;
when Lex.Temporel =>
T := Symbol.Time_Actor;
Debug.Put (23);
Lex.Next;
when others =>
Error.Append (44);
Success := False;
end case;
end Parse;
end Actor_Type;