DataMuseum.dk

top - download

    Length: 1514 (0x5ea)
    Types: TextFile
    Names: »B«

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Statements, Object, Scanner, Text_Io, String_Classe, Arguments,
     Bloc, Expression, List, More_Statements, Primary, Tiny_Error;
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;

    exception
        when String_Classe.Id_String_Overflow |
             String_Classe.String_Class_Full =>
            Tiny_Error.String_Class_Full;
        when String_Classe.String_Large_Overflow =>
            Tiny_Error.String_Large_Overflow;
        when Arguments.Point_Lacks | More_Statements.Point_Lacks =>
            Tiny_Error.Point_Lacks;  
        when Bloc.Ending_Accolade_Lacks =>
            Tiny_Error.Ending_Accolade_Lacks;
        when Expression.Prendre_Lacks =>
            Tiny_Error.Prendre_Lacks;
        when List.Mismatch_Argument =>
            Tiny_Error.Mismatch_Argument_List;  
        when Primary.Ending_Parenthese_Lacks =>
            Tiny_Error.Ending_Parenthese_Lacks;

    end Run;

end Tiny_Talk;