308 lines
17 KiB
Plaintext
308 lines
17 KiB
Plaintext
|
|
type token =
|
|
| VALUES
|
|
| TYPE
|
|
| STRING
|
|
| RIGHT_BRACKET
|
|
| RANGE
|
|
| LF
|
|
| LEFT_BRACKET
|
|
| INT
|
|
| IDENT of (
|
|
# 9 "parser/parser.mly"
|
|
(string)
|
|
# 15 "parser/parser__mock.ml.mock"
|
|
)
|
|
| EQUALS
|
|
| EOF
|
|
| DATE
|
|
| COMMA
|
|
|
|
# 1 "parser/parser.mly"
|
|
|
|
(* Header: Define the AST type *)
|
|
open Ast
|
|
|
|
# 27 "parser/parser__mock.ml.mock"
|
|
|
|
let menhir_begin_marker =
|
|
0
|
|
|
|
and (xv_values, xv_value, xv_range, xv_main, xv_columns, xv_column_value, xv_column_type, xv_column_name, xv_column) =
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 45 "parser/parser.mly"
|
|
_3
|
|
# 36 "parser/parser__mock.ml.mock"
|
|
: 'tv_value) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 45 "parser/parser.mly"
|
|
_2
|
|
# 40 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 45 "parser/parser.mly"
|
|
_1
|
|
# 44 "parser/parser__mock.ml.mock"
|
|
: 'tv_values) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_values ->
|
|
|
|
# 45 "parser/parser.mly"
|
|
( _3::_1 )
|
|
# 49 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 44 "parser/parser.mly"
|
|
_1
|
|
# 54 "parser/parser__mock.ml.mock"
|
|
: 'tv_value) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_values ->
|
|
|
|
# 44 "parser/parser.mly"
|
|
( [_1] )
|
|
# 59 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 53 "parser/parser.mly"
|
|
_1
|
|
# 64 "parser/parser__mock.ml.mock"
|
|
: (
|
|
# 9 "parser/parser.mly"
|
|
(string)
|
|
# 68 "parser/parser__mock.ml.mock"
|
|
)) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_value ->
|
|
|
|
# 53 "parser/parser.mly"
|
|
( _1 )
|
|
# 73 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 49 "parser/parser.mly"
|
|
_3
|
|
# 78 "parser/parser__mock.ml.mock"
|
|
: (
|
|
# 9 "parser/parser.mly"
|
|
(string)
|
|
# 82 "parser/parser__mock.ml.mock"
|
|
)) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 49 "parser/parser.mly"
|
|
_2
|
|
# 86 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 49 "parser/parser.mly"
|
|
_1
|
|
# 90 "parser/parser__mock.ml.mock"
|
|
: (
|
|
# 9 "parser/parser.mly"
|
|
(string)
|
|
# 94 "parser/parser__mock.ml.mock"
|
|
)) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_range ->
|
|
|
|
# 49 "parser/parser.mly"
|
|
( Range(_1, _3) )
|
|
# 99 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 17 "parser/parser.mly"
|
|
_2
|
|
# 104 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 17 "parser/parser.mly"
|
|
_1
|
|
# 108 "parser/parser__mock.ml.mock"
|
|
: 'tv_columns) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : (
|
|
# 12 "parser/parser.mly"
|
|
(data)
|
|
# 112 "parser/parser__mock.ml.mock"
|
|
) ->
|
|
(
|
|
# 17 "parser/parser.mly"
|
|
( Columns(List.rev(_1)) )
|
|
# 117 "parser/parser__mock.ml.mock"
|
|
: 'tv_main) in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 21 "parser/parser.mly"
|
|
_4
|
|
# 122 "parser/parser__mock.ml.mock"
|
|
: 'tv_column) (_startpos__4_ : Lexing.position) (_endpos__4_ : Lexing.position) (_startofs__4_ : int) (_endofs__4_ : int) (_loc__4_ : Lexing.position * Lexing.position) (
|
|
# 21 "parser/parser.mly"
|
|
_3
|
|
# 126 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 21 "parser/parser.mly"
|
|
_2
|
|
# 130 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 21 "parser/parser.mly"
|
|
_1
|
|
# 134 "parser/parser__mock.ml.mock"
|
|
: 'tv_columns) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_columns ->
|
|
|
|
# 21 "parser/parser.mly"
|
|
( _4::_1 )
|
|
# 139 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 20 "parser/parser.mly"
|
|
_1
|
|
# 144 "parser/parser__mock.ml.mock"
|
|
: 'tv_column) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_columns ->
|
|
|
|
# 20 "parser/parser.mly"
|
|
( [_1] )
|
|
# 149 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 40 "parser/parser.mly"
|
|
_5
|
|
# 154 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__5_ : Lexing.position) (_endpos__5_ : Lexing.position) (_startofs__5_ : int) (_endofs__5_ : int) (_loc__5_ : Lexing.position * Lexing.position) (
|
|
# 40 "parser/parser.mly"
|
|
_4
|
|
# 158 "parser/parser__mock.ml.mock"
|
|
: 'tv_range) (_startpos__4_ : Lexing.position) (_endpos__4_ : Lexing.position) (_startofs__4_ : int) (_endofs__4_ : int) (_loc__4_ : Lexing.position * Lexing.position) (
|
|
# 40 "parser/parser.mly"
|
|
_3
|
|
# 162 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 40 "parser/parser.mly"
|
|
_2
|
|
# 166 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 40 "parser/parser.mly"
|
|
_1
|
|
# 170 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column_value ->
|
|
|
|
# 40 "parser/parser.mly"
|
|
( _4 )
|
|
# 175 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 39 "parser/parser.mly"
|
|
_5
|
|
# 180 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__5_ : Lexing.position) (_endpos__5_ : Lexing.position) (_startofs__5_ : int) (_endofs__5_ : int) (_loc__5_ : Lexing.position * Lexing.position) (
|
|
# 39 "parser/parser.mly"
|
|
_4
|
|
# 184 "parser/parser__mock.ml.mock"
|
|
: 'tv_values) (_startpos__4_ : Lexing.position) (_endpos__4_ : Lexing.position) (_startofs__4_ : int) (_endofs__4_ : int) (_loc__4_ : Lexing.position * Lexing.position) (
|
|
# 39 "parser/parser.mly"
|
|
_3
|
|
# 188 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 39 "parser/parser.mly"
|
|
_2
|
|
# 192 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 39 "parser/parser.mly"
|
|
_1
|
|
# 196 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column_value ->
|
|
|
|
# 39 "parser/parser.mly"
|
|
( Values(List.rev(_4)) )
|
|
# 201 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 35 "parser/parser.mly"
|
|
_3
|
|
# 206 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 35 "parser/parser.mly"
|
|
_2
|
|
# 210 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 35 "parser/parser.mly"
|
|
_1
|
|
# 214 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column_type ->
|
|
|
|
# 35 "parser/parser.mly"
|
|
( Date )
|
|
# 219 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 34 "parser/parser.mly"
|
|
_3
|
|
# 224 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 34 "parser/parser.mly"
|
|
_2
|
|
# 228 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 34 "parser/parser.mly"
|
|
_1
|
|
# 232 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column_type ->
|
|
|
|
# 34 "parser/parser.mly"
|
|
( String )
|
|
# 237 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 33 "parser/parser.mly"
|
|
_3
|
|
# 242 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 33 "parser/parser.mly"
|
|
_2
|
|
# 246 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 33 "parser/parser.mly"
|
|
_1
|
|
# 250 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column_type ->
|
|
|
|
# 33 "parser/parser.mly"
|
|
( Int )
|
|
# 255 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 29 "parser/parser.mly"
|
|
_3
|
|
# 260 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 29 "parser/parser.mly"
|
|
_2
|
|
# 264 "parser/parser__mock.ml.mock"
|
|
: (
|
|
# 9 "parser/parser.mly"
|
|
(string)
|
|
# 268 "parser/parser__mock.ml.mock"
|
|
)) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 29 "parser/parser.mly"
|
|
_1
|
|
# 272 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column_name ->
|
|
|
|
# 29 "parser/parser.mly"
|
|
( _2 )
|
|
# 277 "parser/parser__mock.ml.mock"
|
|
in
|
|
let _ = fun (_startpos : Lexing.position) (_endpos : Lexing.position) (_endpos__0_ : Lexing.position) (_symbolstartpos : Lexing.position) (_startofs : int) (_endofs : int) (_endofs__0_ : int) (_symbolstartofs : int) (_sloc : Lexing.position * Lexing.position) (_loc : Lexing.position * Lexing.position) (
|
|
# 25 "parser/parser.mly"
|
|
_5
|
|
# 282 "parser/parser__mock.ml.mock"
|
|
: 'tv_column_value) (_startpos__5_ : Lexing.position) (_endpos__5_ : Lexing.position) (_startofs__5_ : int) (_endofs__5_ : int) (_loc__5_ : Lexing.position * Lexing.position) (
|
|
# 25 "parser/parser.mly"
|
|
_4
|
|
# 286 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__4_ : Lexing.position) (_endpos__4_ : Lexing.position) (_startofs__4_ : int) (_endofs__4_ : int) (_loc__4_ : Lexing.position * Lexing.position) (
|
|
# 25 "parser/parser.mly"
|
|
_3
|
|
# 290 "parser/parser__mock.ml.mock"
|
|
: 'tv_column_type) (_startpos__3_ : Lexing.position) (_endpos__3_ : Lexing.position) (_startofs__3_ : int) (_endofs__3_ : int) (_loc__3_ : Lexing.position * Lexing.position) (
|
|
# 25 "parser/parser.mly"
|
|
_2
|
|
# 294 "parser/parser__mock.ml.mock"
|
|
: unit) (_startpos__2_ : Lexing.position) (_endpos__2_ : Lexing.position) (_startofs__2_ : int) (_endofs__2_ : int) (_loc__2_ : Lexing.position * Lexing.position) (
|
|
# 25 "parser/parser.mly"
|
|
_1
|
|
# 298 "parser/parser__mock.ml.mock"
|
|
: 'tv_column_name) (_startpos__1_ : Lexing.position) (_endpos__1_ : Lexing.position) (_startofs__1_ : int) (_endofs__1_ : int) (_loc__1_ : Lexing.position * Lexing.position) : 'tv_column ->
|
|
|
|
# 25 "parser/parser.mly"
|
|
( Column(_1, _3, _5) )
|
|
# 303 "parser/parser__mock.ml.mock"
|
|
in
|
|
((let rec diverge() = diverge() in diverge()) : 'tv_values * 'tv_value * 'tv_range * 'tv_main * 'tv_columns * 'tv_column_value * 'tv_column_type * 'tv_column_name * 'tv_column)
|
|
|
|
and menhir_end_marker =
|
|
0
|