DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦08e265057⟧ TextFile

    Length: 1222 (0x4c6)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

separate (Ayacc)
procedure Print_Statistics is
    use Text_Io, Parse_Table, Rule_Table, Symbol_Table;
begin

    if Options.Summary then

        Put_Line (Rule'Image (Last_Rule - First_Rule + 1) & " Productions");

        Put_Line (Grammar_Symbol'Image (Last_Symbol (Nonterminal) -
                                        First_Symbol (Nonterminal) + 1) &
                  " Nonterminals");

        Put_Line (Grammar_Symbol'Image
                     (Last_Symbol (Terminal) - First_Symbol (Terminal) + 1) &
                  " Terminals");

        Put_Line (Integer'Image (Number_Of_States) & " States");

        Put_Line (Integer'Image (Shift_Reduce_Conflicts) &
                  " Shift/Reduce conflicts");

        Put_Line (Integer'Image (Reduce_Reduce_Conflicts) &
                  " Reduce/Reduce conflicts");

    else

        if Shift_Reduce_Conflicts /= 0 then
            Put_Line (Integer'Image (Shift_Reduce_Conflicts) &
                      " Shift/Reduce Conflicts");
        end if;
        if Reduce_Reduce_Conflicts /= 0 then
            Put_Line (Integer'Image (Reduce_Reduce_Conflicts) &
                      " Reduce/Reduce Conflicts");
        end if;

    end if;

end Print_Statistics;