home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / flex / aflexx-a / aflex.lha / aflex / src / parse_shift_reduce.a < prev    next >
Encoding:
Text File  |  1991-05-16  |  4.1 KB  |  251 lines
  1. package Parse_Shift_Reduce is
  2.  
  3.     type Small_Integer is range -32_000 .. 32_000;
  4.  
  5.     type Shift_Reduce_Entry is record
  6.         T   : Small_Integer;
  7.         Act : Small_Integer;
  8.     end record;
  9.     pragma Pack(Shift_Reduce_Entry);
  10.  
  11.     subtype Row is Integer range -1 .. Integer'Last;
  12.  
  13.   --pragma suppress(index_check);
  14.  
  15.     type Shift_Reduce_Array is array (Row  range <>) of Shift_Reduce_Entry;
  16.  
  17.     Shift_Reduce_Matrix : constant Shift_Reduce_Array :=
  18.         ( (-1,-1) -- Dummy Entry
  19.  
  20. -- state  0
  21. ,(-1,-2)
  22. -- state  1
  23. ,( 1, 4),(-1,-4)
  24. -- state  2
  25. ,( 0,-1001)
  26. ,(-1,-1000)
  27. -- state  3
  28. ,( 4, 6),( 5, 7),( 6, 8)
  29. ,(-1,-1000)
  30. -- state  4
  31. ,( 11, 11),(-1,-1000)
  32. -- state  5
  33. ,(-1,-1000)
  34.  
  35. -- state  6
  36. ,(-1,-6)
  37. -- state  7
  38. ,(-1,-7)
  39. -- state  8
  40. ,(-1,-8)
  41. -- state  9
  42. ,(-1,-13)
  43.  
  44. -- state  10
  45. ,( 7, 13),(-1,-1000)
  46. -- state  11
  47. ,(-1,-5)
  48. -- state  12
  49. ,(-1,-14)
  50.  
  51. -- state  13
  52. ,( 1, 17),( 8, 16),(-1,-1000)
  53. -- state  14
  54. ,( 1, 22)
  55. ,( 2, 32),( 9, 29),( 10, 21),( 12, 19)
  56. ,( 13, 23),( 24, 27),( 25, 30),( 26, 31)
  57. ,( 28, 33),(-1,-1)
  58. -- state  15
  59. ,( 7, 36),( 11, 35)
  60. ,(-1,-1000)
  61. -- state  16
  62. ,(-1,-10)
  63. -- state  17
  64. ,(-1,-11)
  65. -- state  18
  66. ,( 2, 32)
  67. ,( 9, 29),( 10, 39),( 12, 38),( 24, 27)
  68. ,( 25, 30),( 26, 31),( 28, 33),(-1,-1000)
  69.  
  70. -- state  19
  71. ,( 2, 32),( 9, 29),( 24, 27),( 25, 30)
  72. ,( 26, 31),( 28, 33),(-1,-1000)
  73. -- state  20
  74. ,( 16, 41)
  75. ,( 17, 43),( 18, 44),(-1,-27)
  76. -- state  21
  77. ,(-1,-20)
  78.  
  79. -- state  22
  80. ,(-1,-21)
  81. -- state  23
  82. ,( 1, 47),( 8, 46),(-1,-1000)
  83.  
  84. -- state  24
  85. ,( 2, 32),( 9, 29),( 24, 27),( 25, 30)
  86. ,( 26, 31),( 28, 33),(-1,-1000)
  87. -- state  25
  88. ,( 2, 32)
  89. ,( 9, 29),( 24, 27),( 25, 30),( 26, 31)
  90. ,( 28, 33),(-1,-30)
  91. -- state  26
  92. ,( 19, 50),( 20, 51)
  93. ,( 21, 52),( 22, 53),(-1,-33)
  94. -- state  27
  95. ,(-1,-40)
  96.  
  97. -- state  28
  98. ,(-1,-41)
  99. -- state  29
  100. ,(-1,-42)
  101. -- state  30
  102. ,(-1,-52)
  103. -- state  31
  104. ,( 2, 32)
  105. ,( 9, 29),( 24, 27),( 25, 30),( 26, 31)
  106. ,( 28, 33),(-1,-1000)
  107. -- state  32
  108. ,(-1,-45)
  109. -- state  33
  110. ,( 12, 57)
  111. ,(-1,-50)
  112. -- state  34
  113. ,( 11, 58),(-1,-1000)
  114. -- state  35
  115. ,(-1,-3)
  116.  
  117. -- state  36
  118. ,( 8, 59),(-1,-1000)
  119. -- state  37
  120. ,( 16, 41),( 17, 43)
  121. ,( 18, 44),(-1,-27)
  122. -- state  38
  123. ,( 2, 32),( 9, 29)
  124. ,( 24, 27),( 25, 30),( 26, 31),( 28, 33)
  125. ,(-1,-1000)
  126. -- state  39
  127. ,(-1,-19)
  128. -- state  40
  129. ,( 16, 41),( 17, 43)
  130. ,( 18, 44),(-1,-27)
  131. -- state  41
  132. ,(-1,-26)
  133. -- state  42
  134. ,(-1,-18)
  135.  
  136. -- state  43
  137. ,( 2, 32),( 9, 29),( 24, 27),( 25, 30)
  138. ,( 26, 31),( 28, 33),(-1,-1000)
  139. -- state  44
  140. ,(-1,-31)
  141.  
  142. -- state  45
  143. ,( 14, 64),( 15, 65),(-1,-1000)
  144. -- state  46
  145. ,(-1,-24)
  146.  
  147. -- state  47
  148. ,(-1,-25)
  149. -- state  48
  150. ,( 2, 32),( 9, 29),( 24, 27)
  151. ,( 25, 30),( 26, 31),( 28, 33),(-1,-29)
  152.  
  153. -- state  49
  154. ,( 19, 50),( 20, 51),( 21, 52),( 22, 53)
  155. ,(-1,-32)
  156. -- state  50
  157. ,(-1,-34)
  158. -- state  51
  159. ,(-1,-35)
  160. -- state  52
  161. ,(-1,-36)
  162.  
  163. -- state  53
  164. ,( 3, 66),(-1,-1000)
  165. -- state  54
  166. ,( 2, 68),( 25, 67)
  167. ,(-1,-1000)
  168. -- state  55
  169. ,( 17, 43),( 18, 44),( 27, 69)
  170. ,(-1,-1000)
  171. -- state  56
  172. ,( 2, 71),( 29, 70),(-1,-1000)
  173.  
  174. -- state  57
  175. ,(-1,-50)
  176. -- state  58
  177. ,(-1,-12)
  178. -- state  59
  179. ,(-1,-9)
  180. -- state  60
  181. ,(-1,-16)
  182.  
  183. -- state  61
  184. ,( 16, 41),( 17, 43),( 18, 44),(-1,-27)
  185.  
  186. -- state  62
  187. ,(-1,-17)
  188. -- state  63
  189. ,( 2, 32),( 9, 29),( 24, 27)
  190. ,( 25, 30),( 26, 31),( 28, 33),(-1,-28)
  191.  
  192. -- state  64
  193. ,(-1,-22)
  194. -- state  65
  195. ,( 8, 74),(-1,-1000)
  196. -- state  66
  197. ,( 15, 75)
  198. ,( 23, 76),(-1,-1000)
  199. -- state  67
  200. ,(-1,-43)
  201. -- state  68
  202. ,(-1,-51)
  203.  
  204. -- state  69
  205. ,(-1,-44)
  206. -- state  70
  207. ,(-1,-46)
  208. -- state  71
  209. ,( 30, 77),(-1,-49)
  210.  
  211. -- state  72
  212. ,( 2, 71),( 29, 78),(-1,-1000)
  213. -- state  73
  214. ,(-1,-15)
  215.  
  216. -- state  74
  217. ,(-1,-23)
  218. -- state  75
  219. ,( 3, 79),( 23, 80),(-1,-1000)
  220.  
  221. -- state  76
  222. ,(-1,-39)
  223. -- state  77
  224. ,( 2, 81),(-1,-1000)
  225. -- state  78
  226. ,(-1,-47)
  227.  
  228. -- state  79
  229. ,( 23, 82),(-1,-1000)
  230. -- state  80
  231. ,(-1,-38)
  232. -- state  81
  233. ,(-1,-48)
  234.  
  235. -- state  82
  236. ,(-1,-37)
  237. );
  238. --  The offset vector
  239. SHIFT_REDUCE_OFFSET : array (0.. 82) of Integer :=
  240. ( 0,
  241.  1, 3, 5, 9, 11, 12, 13, 14, 15, 16,
  242.  18, 19, 20, 23, 34, 37, 38, 39, 48, 55,
  243.  59, 60, 61, 64, 71, 78, 83, 84, 85, 86,
  244.  87, 94, 95, 97, 99, 100, 102, 106, 113, 114,
  245.  118, 119, 120, 127, 128, 131, 132, 133, 140, 145,
  246.  146, 147, 148, 150, 153, 157, 160, 161, 162, 163,
  247.  164, 168, 169, 176, 177, 179, 182, 183, 184, 185,
  248.  186, 188, 191, 192, 193, 196, 197, 199, 200, 202,
  249.  203, 204);
  250. end Parse_Shift_Reduce;
  251.