|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Print_Statistics, seg_030b0b, separate Ayacc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1f rec1=00 rec2=01 rec3=018
[0x01] rec0=0b rec1=00 rec2=02 rec3=001
tail 0x2172a445484a64fbb6ea4 0x42a00088462060003