DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦72dd1e80a⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Parse, seg_038bbc

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Lex;
with Shownet_File;
with Intermediate_Code, Spectacle_Definition;
with Text_Io;  
with Error, Symbol, Binary_Tree, Scene;
procedure Test_Parse is  
    Ok : Boolean := True;
    T : Natural := 0;
    Ms : Scene.P_Scene;
begin  
    Error.Initialize;
    Symbol.Initialize;
    Lex.Open ("Testprojet");  
    Lex.Next;
    Shownet_File.Parse (Ok);
    Lex.Close;  
    if Error.Exist then
        Error.Display_In_Source ("Testprojet");
    end if;
    --Symbol.Put;
    -- Text_Io.Put_Line ("");
    --Binary_Tree.Put_Node (Symbol.Get_Start_Point ("Main"));
    Text_Io.Put_Line ("**************");
    Intermediate_Code.Open ("code", Text_Io.Out_File);
    Spectacle_Definition.Generate (Symbol.Get_Start_Point ("main"), T);
    Intermediate_Code.Close;
    Intermediate_Code.Open ("code", Text_Io.In_File);
    Scene.Lire_Scene (Ms);
    Intermediate_Code.Close;
    Scene.Jouer_Scene (Ms);
    --Symbol.Put;
end Test_Parse;

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=22 rec1=00 rec2=01 rec3=000
        [0x01] rec0=02 rec1=00 rec2=02 rec3=001
    tail 0x217366d5884e83bf103f7 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 31 80 19 2d 20 53 63 65 6e 65 2e 4a 6f  ┆   1  - Scene.Jo┆