DataMuseum.dk

top - download

    Length: 1362 (0x552)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Scanner;
with Object;
with Statements;  
with Class_Boolean;
with Class_Window;
with Class_Turtle;
with Class_Pen;
with Class_Printer;
with Requester;
with Easy_Y;
with Bug_Report;
with Message;
with Bounded_String;

procedure Start (File : String) is
    Root : Statements.Node;
    Objet : Object.Reference := Object.Void_Reference;
    Result : Object.Index;
    Button : Message.Unary;
    package Bs renames Bounded_String;

    use Object;

begin  
    Message.Put (This_Name => Bs.Value ("FIN", 80), Into => Button);
    Message.Put (This_Name => Bs.Value ("UNPARSE", 80), Into => Button);
    Scanner.Open (File);
    Class_Boolean.Create;
    Class_Window.Create;
    Class_Turtle.Create;
    Class_Pen.Create;  
    Statements.Parse (N => Root);
    Objet := Statements.Interpret (N => Root);
    Requester.Open (480, 450, Bs.Image (Class_Window.Get_Terminal_Name),
                    Button, Bs.Value ("Fin du programme", 80));
    Result := Requester.Choice (Button);
    Requester.Close;
    if Result = 1 then
        Class_Printer.Create;
        Class_Printer.Open (100, 100, Bs.Image
                                         (Class_Window.Get_Terminal_Name));

        Statements.Unparse (N => Root);
        Class_Printer.Close;
    end if;
    Scanner.Close;
exception
    when others =>
        Scanner.Close;
        raise;
end Start;