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

⟦8c3b2ba51⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Parse_Goto, seg_030aaa

Derivation

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

E3 Source Code



package Parse_Goto is

    type Small_Integer is range -32_000 .. 32_000;

    type Goto_Entry is
        record
            Nonterm : Small_Integer;
            Newstate : Small_Integer;
        end record;

    --pragma suppress(index_check);

    subtype Row is Integer range -1 .. Integer'Last;

    type Goto_Parse_Table is array (Row range <>) of Goto_Entry;

    Goto_Matrix : constant Goto_Parse_Table :=
       ((-1, -1)  -- Dummy Entry.
-- State  0
        , (-3, 1), (-2, 2)
-- State  1
        , (-4, 3)
-- State  2

-- State  3
        , (-8, 10), (-5, 9)
-- State  4

-- State  5

-- State  6

-- State  7

-- State  8

-- State  9
        , (-6, 12)
-- State  10

-- State  11

-- State  12
        , (-7, 14)
-- State  13
        , (-9, 15)

-- State  14
        , (-18, 28), (-17, 26), (-16, 24),
        (-15, 25), (-12, 20), (-11, 18), (-10, 34)
-- State  15

-- State  16

-- State  17

-- State  18
        , (-18, 28), (-17, 26), (-16, 24), (-15, 25), (-12, 37)

-- State  19
        , (-18, 28), (-17, 26), (-16, 24), (-15, 25), (-12, 40)
-- State  20
        , (-13, 42)
-- State  21

-- State  22

-- State  23
        , (-14, 45)
-- State  24
        , (-18, 28), (-17, 26), (-15, 48)
-- State  25
        , (-18, 28), (-17, 49)

-- State  26

-- State  27

-- State  28

-- State  29

-- State  30
        , (-19, 54)
-- State  31
        , (-18, 28), (-17, 26), (-16, 24), (-15, 25), (-12, 55)
-- State  32

-- State  33
        , (-20, 56)
-- State  34

-- State  35

-- State  36

-- State  37
        , (-13, 60)

-- State  38
        , (-18, 28), (-17, 26), (-16, 24), (-15, 25), (-12, 61)
-- State  39

-- State  40
        , (-13, 62)
-- State  41

-- State  42

-- State  43
        , (-18, 28), (-17, 26), (-15, 63)
-- State  44

-- State  45

-- State  46

-- State  47

-- State  48
        , (-18, 28), (-17, 49)
-- State  49

-- State  50

-- State  51

-- State  52

-- State  53

-- State  54

-- State  55

-- State  56

-- State  57
        , (-20, 72)

-- State  58

-- State  59

-- State  60

-- State  61
        , (-13, 73)
-- State  62

-- State  63
        , (-18, 28), (-17, 49)
-- State  64

-- State  65

-- State  66

-- State  67

-- State  68

-- State  69

-- State  70

-- State  71

-- State  72

-- State  73

-- State  74

-- State  75

-- State  76

-- State  77

-- State  78

-- State  79

-- State  80

-- State  81

-- State  82

        );
--  The offset vector
    Goto_Offset : array (0 .. 82) of Integer :=
       (0, 2, 3, 3, 5, 5, 5, 5, 5, 5, 6, 6, 6, 7, 8, 15, 15, 15, 15, 20,
        25, 26, 26, 26, 27, 30, 32, 32, 32, 32, 32, 33, 38, 38, 39, 39,
        39, 39, 40, 45, 45, 46, 46, 46, 49, 49, 49, 49, 49, 51, 51, 51,
        51, 51, 51, 51, 51, 51, 52, 52, 52, 52, 53, 53, 55, 55, 55, 55,
        55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55);

    subtype Rule is Natural;
    subtype Nonterminal is Integer;

    Rule_Length : array (Rule range 0 .. 52) of Natural :=
       (2, 5, 0, 5, 0, 2, 1, 1, 1, 3, 1, 1, 4, 0, 0, 4, 3, 3,
        2, 2, 1, 1, 3, 3, 1, 1, 1, 0, 3, 2, 1, 2, 2, 1, 2, 2,
        2, 6, 5, 4, 1, 1, 1, 3, 3, 1, 3, 4, 4, 2, 0, 2, 0);
    Get_Lhs_Rule : array (Rule range 0 .. 52) of Nonterminal :=
       (-1, -2, -3, -4, -4, -4, -5, -8, -8, -9, -9, -9, -6, -6, -7, -10,
        -10, -10, -10, -10, -10, -10, -11, -14, -14, -14, -13, -13, -12,
        -12, -12, -16, -15, -15, -17, -17, -17, -17, -17, -17, -17,
        -17, -17, -17, -17, -17, -18, -18, -20, -20, -20, -19, -19);
end Parse_Goto;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=38 rec1=00 rec2=01 rec3=018
        [0x01] rec0=3f rec1=00 rec2=02 rec3=00a
        [0x02] rec0=4e rec1=00 rec2=03 rec3=04a
        [0x03] rec0=11 rec1=00 rec2=04 rec3=000
    tail 0x2172a408684a64e9fbcba 0x42a00088462060003