|
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: 710 (0x2c6)
Types: TextFile
Names: »B«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Statements, Object, Scanner, Text_Io;
package body Tiny_Talk is
type Node_Structure is
record
State : Statements.Node := Statements.Empty_Node;
end record;
procedure Run is
N : Node;
Result : Object.Reference;
Failed : Boolean;
begin
Scanner.Open ("tinytest");
Scanner.Next;
N := new Node_Structure;
Statements.Parse (N.State, Failed);
if not Failed then
Text_Io.Put_Line ("I am going in statements.interpret");
Result := Statements.Interpret (N.State, Result);
else
Text_Io.Put_Line ("Parse has failed");
end if;
end Run;
end Tiny_Talk;