Source file menhir_parser.ml

module MenhirBasics = struct
  
  exception Error
  
  let _eRR =
    fun _s ->
      raise Error
  
  type token = 
    | STRING of 
# 145 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 15 "src/toml.7.1.0/menhir_parser.ml"
  
    | SET
    | RBRACK
    | RBRACE
    | LBRACK
    | LBRACE
    | KEY of 
# 147 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 25 "src/toml.7.1.0/menhir_parser.ml"
  
    | INTEGER of 
# 143 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 30 "src/toml.7.1.0/menhir_parser.ml"
  
    | INIT
    | FLOAT of 
# 144 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 36 "src/toml.7.1.0/menhir_parser.ml"
  
    | EQUAL
    | EOF
    | DOT
    | DATE of 
# 146 "src/toml.7.1.0/menhir_parser.mly"
       (float)
# 44 "src/toml.7.1.0/menhir_parser.ml"
  
    | COMMA
    | CLEAR
    | BOOL of 
# 142 "src/toml.7.1.0/menhir_parser.mly"
       (bool)
# 51 "src/toml.7.1.0/menhir_parser.ml"
  
  
end

include MenhirBasics

# 1 "src/toml.7.1.0/menhir_parser.mly"
  
open Types

type op =
  | OpInit of value   (* ==, only set if not already set *)
  | OpEqual of value  (* =, set for the first time *)
  | OpSet of value    (* :=, always set *)
  | OpUnset           (* -=, remove value if exists *)

type t = Value of value
       | Table of (Table.Key.t, t) Hashtbl.t
       | Tables of ((Table.Key.t, t) Hashtbl.t) list

(* Indicate if the given table is a [Regular] table (i.e. its name
 * is its real name), or if it is a [ArrayElement] (i.e. its name
 * is the name of the array containing the table). *)
type table_tag = Regular | ArrayElement

(* [lookup_table root keys]
 * For a given path [keys], look over [root] and fetch a table.
 * Creates empty subtables all along the way if needed. *)
let lookup_table root keys =
  List.fold_left
    (fun t k ->
       try match Hashtbl.find t k with
         | Table t   -> t
         | Value _   -> failwith ("lookup_table.")
         | Tables [] -> let sub = Hashtbl.create 0 in
           Hashtbl.replace t k (Tables [sub]) ;
           sub
         (* Return the last table defined *)
         | Tables t -> List.hd (List.rev t)
       with Not_found -> let sub = Hashtbl.create 0 in
         Hashtbl.add t k (Table sub) ;
         sub)
    root keys

(* [add_value t k v] add to the value [v], at the key [k],
 * in the table [t]. Fails if a value is already binded to [k]. *)
let add_value t k v =
  match v with
  | OpEqual v ->
     if Hashtbl.mem t k then
       if !Types.override then
         Hashtbl.remove t k
       else
         Printf.kprintf failwith "add_value failed: key %S already exists"
           (Table.Key.to_string k) ;

     Hashtbl.add t k (Value v)
  | OpInit v ->
     if not ( Hashtbl.mem t k ) then Hashtbl.add t k (Value v)
  | OpSet v ->
     if Hashtbl.mem t k then Hashtbl.remove t k ;
     Hashtbl.add t k (Value v)
  | OpUnset ->
     if Hashtbl.mem t k then Hashtbl.remove t k

(* [add_to_table root ks kvs] add [kvs] to table found following path
 * [ks] from [root] table.
 * Use it for a table not in array of tables. *)
let add_to_table root ks kvs =
  let t = lookup_table root ks in
  List.iter (fun (k, v) -> add_value t k v) kvs

(* [add_to_nested_table root ks kvs] add [kvs] to nested
 * table found following path [ks] from [root].
 * Use it for a table which is in an array of tables.  *)
let add_to_nested_table root ks kvs =

  (* [ts] are intermediate tables key,
   * [k] is the value key. *)
  let (ts, k) = let rec aux acc = function
      | [ x ]  -> (List.rev acc, x)
      | h :: q -> aux (h :: acc) q
      | []     -> assert false
    in aux [] ks in

  let t = lookup_table root ts in

  (* [insert_in_new_table ts kvs] create a new table, insert
   * [kvs], a (key * value) list into it, and pakc it with
   * tables [ts] into an array of table. *)
  let insert_table ts kvs =
    let t = Hashtbl.create 0 in
    List.iter(fun (k, v) -> add_value t k v) kvs ;
    Tables (ts @ [ t ]) in

  try match Hashtbl.find t k with
    | Tables ts -> Hashtbl.replace t k (insert_table ts kvs);
    | Table _   -> failwith (Printf.sprintf "%s is a table, not an array of tables" (Table.Key.to_string k))
    | Value _   -> failwith ("add_to_nested_table")
  with Not_found  -> Hashtbl.add t k (insert_table [] kvs)

(* Convert a value of local type [t] into a [Value.value]  *)
let rec convert = function
  | Table t   -> TTable (htbl_to_map t)
  | Value v   -> v
  | Tables ts ->
    TArray (NodeTable (List.filter (fun t -> Hashtbl.length t > 0) ts
                       |> List.map htbl_to_map))

and htbl_to_map h =
  Hashtbl.fold (fun k v map -> Table.add k (convert v) map)
    h Table.empty

let to_table key_values key_value_groups =
  let t = Hashtbl.create 0 in
  List.iter (fun ((tag, ks), kvs) ->
      match tag with
      | Regular      -> add_to_table t ks kvs
      | ArrayElement -> add_to_nested_table t ks kvs)
    (* Create a dummy table with empty key for values
     * which are direct children of root table.  *)
    (((Regular, []), key_values) :: key_value_groups) ;
  match convert (Table t) with TTable t -> t | _ -> assert false

let to_table2 key_values key_value_groups =
  let t = Hashtbl.create 0 in

  let add_to_table t ks v =
    match List.rev ks with
    | [] -> assert false
    | k :: rks ->
       add_to_table t (List.rev rks) [k, v]
  in

  List.iter (fun ((tag, ks), kvs) ->
      match tag with
      | Regular      ->
         List.iter (fun (k, v) -> add_to_table t ( ks @  k ) v) kvs
      | ArrayElement ->
         add_to_nested_table t ks (List.map (function
                                       | [x], v -> x,v
                                       | _ -> assert false) kvs)
    )
    ( ((Regular, []), key_values) :: key_value_groups );
  match convert (Table t) with TTable t -> t | _ -> assert false

# 198 "src/toml.7.1.0/menhir_parser.ml"

type ('s, 'r) _menhir_state = 
  | MenhirState000 : ('s, _menhir_box_toml) _menhir_state
    (** State 000.
        Stack shape : <empty>.
        Start symbol: toml. *)

  | MenhirState006 : (('s, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_state
    (** State 006.
        Stack shape : list(keysValue).
        Start symbol: toml. *)

  | MenhirState007 : ((('s, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_state
    (** State 007.
        Stack shape : list(keysValue) LBRACK.
        Start symbol: toml. *)

  | MenhirState008 : (((('s, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_state
    (** State 008.
        Stack shape : list(keysValue) LBRACK LBRACK.
        Start symbol: toml. *)

  | MenhirState013 : (('s, _menhir_box_toml) _menhir_cell1_key, _menhir_box_toml) _menhir_state
    (** State 013.
        Stack shape : key.
        Start symbol: toml. *)

  | MenhirState019 : ((('s, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_group_header, _menhir_box_toml) _menhir_state
    (** State 019.
        Stack shape : list(keysValue) group_header.
        Start symbol: toml. *)

  | MenhirState020 : (((('s, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_group_header, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_state
    (** State 020.
        Stack shape : list(keysValue) group_header list(keysValue).
        Start symbol: toml. *)

  | MenhirState022 : (('s, _menhir_box_toml) _menhir_cell1_keysValue, _menhir_box_toml) _menhir_state
    (** State 022.
        Stack shape : keysValue.
        Start symbol: toml. *)

  | MenhirState025 : (('s, _menhir_box_toml) _menhir_cell1_key_path, _menhir_box_toml) _menhir_state
    (** State 025.
        Stack shape : key_path.
        Start symbol: toml. *)

  | MenhirState027 : (('s, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_state
    (** State 027.
        Stack shape : LBRACK.
        Start symbol: toml. *)

  | MenhirState028 : (('s, _menhir_box_toml) _menhir_cell1_STRING, _menhir_box_toml) _menhir_state
    (** State 028.
        Stack shape : STRING.
        Start symbol: toml. *)

  | MenhirState030 : (('s, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_STRING, _menhir_box_toml) _menhir_state
    (** State 030.
        Stack shape : COMMA STRING.
        Start symbol: toml. *)

  | MenhirState036 : (('s, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_state
    (** State 036.
        Stack shape : LBRACK.
        Start symbol: toml. *)

  | MenhirState037 : (('s, _menhir_box_toml) _menhir_cell1_LBRACE, _menhir_box_toml) _menhir_state
    (** State 037.
        Stack shape : LBRACE.
        Start symbol: toml. *)

  | MenhirState041 : (('s, _menhir_box_toml) _menhir_cell1_keyValue, _menhir_box_toml) _menhir_state
    (** State 041.
        Stack shape : keyValue.
        Start symbol: toml. *)

  | MenhirState044 : (('s, _menhir_box_toml) _menhir_cell1_key, _menhir_box_toml) _menhir_state
    (** State 044.
        Stack shape : key.
        Start symbol: toml. *)

  | MenhirState051 : (('s, _menhir_box_toml) _menhir_cell1_key, _menhir_box_toml) _menhir_state
    (** State 051.
        Stack shape : key.
        Start symbol: toml. *)

  | MenhirState053 : (('s, _menhir_box_toml) _menhir_cell1_key, _menhir_box_toml) _menhir_state
    (** State 053.
        Stack shape : key.
        Start symbol: toml. *)

  | MenhirState058 : (('s, _menhir_box_toml) _menhir_cell1_INTEGER, _menhir_box_toml) _menhir_state
    (** State 058.
        Stack shape : INTEGER.
        Start symbol: toml. *)

  | MenhirState060 : (('s, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_INTEGER, _menhir_box_toml) _menhir_state
    (** State 060.
        Stack shape : COMMA INTEGER.
        Start symbol: toml. *)

  | MenhirState065 : (('s, _menhir_box_toml) _menhir_cell1_FLOAT, _menhir_box_toml) _menhir_state
    (** State 065.
        Stack shape : FLOAT.
        Start symbol: toml. *)

  | MenhirState067 : (('s, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_FLOAT, _menhir_box_toml) _menhir_state
    (** State 067.
        Stack shape : COMMA FLOAT.
        Start symbol: toml. *)

  | MenhirState072 : (('s, _menhir_box_toml) _menhir_cell1_DATE, _menhir_box_toml) _menhir_state
    (** State 072.
        Stack shape : DATE.
        Start symbol: toml. *)

  | MenhirState074 : (('s, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_DATE, _menhir_box_toml) _menhir_state
    (** State 074.
        Stack shape : COMMA DATE.
        Start symbol: toml. *)

  | MenhirState079 : (('s, _menhir_box_toml) _menhir_cell1_BOOL, _menhir_box_toml) _menhir_state
    (** State 079.
        Stack shape : BOOL.
        Start symbol: toml. *)

  | MenhirState081 : (('s, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_BOOL, _menhir_box_toml) _menhir_state
    (** State 081.
        Stack shape : COMMA BOOL.
        Start symbol: toml. *)

  | MenhirState086 : (('s, _menhir_box_toml) _menhir_cell1_inline_table, _menhir_box_toml) _menhir_state
    (** State 086.
        Stack shape : inline_table.
        Start symbol: toml. *)

  | MenhirState087 : ((('s, _menhir_box_toml) _menhir_cell1_inline_table, _menhir_box_toml) _menhir_cell1_COMMA, _menhir_box_toml) _menhir_state
    (** State 087.
        Stack shape : inline_table COMMA.
        Start symbol: toml. *)

  | MenhirState088 : (((('s, _menhir_box_toml) _menhir_cell1_inline_table, _menhir_box_toml) _menhir_cell1_COMMA, _menhir_box_toml) _menhir_cell1_inline_table, _menhir_box_toml) _menhir_state
    (** State 088.
        Stack shape : inline_table COMMA inline_table.
        Start symbol: toml. *)

  | MenhirState093 : ((('s, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_cell1_array_start, _menhir_box_toml) _menhir_state
    (** State 093.
        Stack shape : LBRACK array_start.
        Start symbol: toml. *)

  | MenhirState095 : ((('s, _menhir_box_toml) _menhir_cell1_array_start, _menhir_box_toml) _menhir_cell1_COMMA, _menhir_box_toml) _menhir_state
    (** State 095.
        Stack shape : array_start COMMA.
        Start symbol: toml. *)

  | MenhirState096 : (((('s, _menhir_box_toml) _menhir_cell1_array_start, _menhir_box_toml) _menhir_cell1_COMMA, _menhir_box_toml) _menhir_cell1_array_start, _menhir_box_toml) _menhir_state
    (** State 096.
        Stack shape : array_start COMMA array_start.
        Start symbol: toml. *)

  | MenhirState103 : (('s, _menhir_box_toml) _menhir_cell1_key_path, _menhir_box_toml) _menhir_state
    (** State 103.
        Stack shape : key_path.
        Start symbol: toml. *)

  | MenhirState105 : (('s, _menhir_box_toml) _menhir_cell1_key_path, _menhir_box_toml) _menhir_state
    (** State 105.
        Stack shape : key_path.
        Start symbol: toml. *)


and ('s, 'r) _menhir_cell1_array_start = 
  | MenhirCell1_array_start of 's * ('s, 'r) _menhir_state * (Types.array)

and ('s, 'r) _menhir_cell1_group_header = 
  | MenhirCell1_group_header of 's * ('s, 'r) _menhir_state * (table_tag * Types.Table.key list)

and ('s, 'r) _menhir_cell1_inline_table = 
  | MenhirCell1_inline_table of 's * ('s, 'r) _menhir_state * (Types.table)

and ('s, 'r) _menhir_cell1_key = 
  | MenhirCell1_key of 's * ('s, 'r) _menhir_state * (Types.Table.key)

and ('s, 'r) _menhir_cell1_keyValue = 
  | MenhirCell1_keyValue of 's * ('s, 'r) _menhir_state * (Types.Table.key * op)

and ('s, 'r) _menhir_cell1_key_path = 
  | MenhirCell1_key_path of 's * ('s, 'r) _menhir_state * (Types.Table.key list)

and ('s, 'r) _menhir_cell1_keysValue = 
  | MenhirCell1_keysValue of 's * ('s, 'r) _menhir_state * (Types.Table.key list * op)

and ('s, 'r) _menhir_cell1_list_keysValue_ = 
  | MenhirCell1_list_keysValue_ of 's * ('s, 'r) _menhir_state * ((Types.Table.key list * op) list)

and ('s, 'r) _menhir_cell1_BOOL = 
  | MenhirCell1_BOOL of 's * ('s, 'r) _menhir_state * 
# 142 "src/toml.7.1.0/menhir_parser.mly"
       (bool)
# 400 "src/toml.7.1.0/menhir_parser.ml"


and 's _menhir_cell0_BOOL = 
  | MenhirCell0_BOOL of 's * 
# 142 "src/toml.7.1.0/menhir_parser.mly"
       (bool)
# 407 "src/toml.7.1.0/menhir_parser.ml"


and ('s, 'r) _menhir_cell1_COMMA = 
  | MenhirCell1_COMMA of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_DATE = 
  | MenhirCell1_DATE of 's * ('s, 'r) _menhir_state * 
# 146 "src/toml.7.1.0/menhir_parser.mly"
       (float)
# 417 "src/toml.7.1.0/menhir_parser.ml"


and 's _menhir_cell0_DATE = 
  | MenhirCell0_DATE of 's * 
# 146 "src/toml.7.1.0/menhir_parser.mly"
       (float)
# 424 "src/toml.7.1.0/menhir_parser.ml"


and ('s, 'r) _menhir_cell1_FLOAT = 
  | MenhirCell1_FLOAT of 's * ('s, 'r) _menhir_state * 
# 144 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 431 "src/toml.7.1.0/menhir_parser.ml"


and 's _menhir_cell0_FLOAT = 
  | MenhirCell0_FLOAT of 's * 
# 144 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 438 "src/toml.7.1.0/menhir_parser.ml"


and ('s, 'r) _menhir_cell1_INTEGER = 
  | MenhirCell1_INTEGER of 's * ('s, 'r) _menhir_state * 
# 143 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 445 "src/toml.7.1.0/menhir_parser.ml"


and 's _menhir_cell0_INTEGER = 
  | MenhirCell0_INTEGER of 's * 
# 143 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 452 "src/toml.7.1.0/menhir_parser.ml"


and ('s, 'r) _menhir_cell1_LBRACE = 
  | MenhirCell1_LBRACE of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_LBRACK = 
  | MenhirCell1_LBRACK of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_STRING = 
  | MenhirCell1_STRING of 's * ('s, 'r) _menhir_state * 
# 145 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 465 "src/toml.7.1.0/menhir_parser.ml"


and 's _menhir_cell0_STRING = 
  | MenhirCell0_STRING of 's * 
# 145 "src/toml.7.1.0/menhir_parser.mly"
       (string)
# 472 "src/toml.7.1.0/menhir_parser.ml"


and _menhir_box_toml = 
  | MenhirBox_toml of (Types.table) [@@unboxed]

let _menhir_action_01 =
  fun _2 _3 ->
    (
# 213 "src/toml.7.1.0/menhir_parser.mly"
                                 ( _2 :: _3 )
# 483 "src/toml.7.1.0/menhir_parser.ml"
     : (bool list))

let _menhir_action_02 =
  fun () ->
    (
# 214 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 491 "src/toml.7.1.0/menhir_parser.ml"
     : (bool list))

let _menhir_action_03 =
  fun _2 _3 ->
    (
# 213 "src/toml.7.1.0/menhir_parser.mly"
                                 ( _2 :: _3 )
# 499 "src/toml.7.1.0/menhir_parser.ml"
     : (float list))

let _menhir_action_04 =
  fun () ->
    (
# 214 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 507 "src/toml.7.1.0/menhir_parser.ml"
     : (float list))

let _menhir_action_05 =
  fun _2 _3 ->
    (
# 213 "src/toml.7.1.0/menhir_parser.mly"
                                 ( _2 :: _3 )
# 515 "src/toml.7.1.0/menhir_parser.ml"
     : (string list))

let _menhir_action_06 =
  fun () ->
    (
# 214 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 523 "src/toml.7.1.0/menhir_parser.ml"
     : (string list))

let _menhir_action_07 =
  fun _2 _3 ->
    (
# 213 "src/toml.7.1.0/menhir_parser.mly"
                                 ( _2 :: _3 )
# 531 "src/toml.7.1.0/menhir_parser.ml"
     : (string list))

let _menhir_action_08 =
  fun () ->
    (
# 214 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 539 "src/toml.7.1.0/menhir_parser.ml"
     : (string list))

let _menhir_action_09 =
  fun _2 _3 ->
    (
# 213 "src/toml.7.1.0/menhir_parser.mly"
                                 ( _2 :: _3 )
# 547 "src/toml.7.1.0/menhir_parser.ml"
     : (string list))

let _menhir_action_10 =
  fun () ->
    (
# 214 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 555 "src/toml.7.1.0/menhir_parser.ml"
     : (string list))

let _menhir_action_11 =
  fun _2 _3 ->
    (
# 213 "src/toml.7.1.0/menhir_parser.mly"
                                 ( _2 :: _3 )
# 563 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.table list))

let _menhir_action_12 =
  fun () ->
    (
# 214 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 571 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.table list))

let _menhir_action_13 =
  fun () ->
    (
# 203 "src/toml.7.1.0/menhir_parser.mly"
           ( NodeEmpty )
# 579 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_14 =
  fun _1 _2 ->
    (
# 204 "src/toml.7.1.0/menhir_parser.mly"
                         ( NodeBool(_1 :: _2) )
# 587 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_15 =
  fun _1 _2 ->
    (
# 205 "src/toml.7.1.0/menhir_parser.mly"
                               ( NodeInt(List.map int_of_string (_1 :: _2)) )
# 595 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_16 =
  fun _1 _2 ->
    (
# 206 "src/toml.7.1.0/menhir_parser.mly"
                           ( NodeFloat(List.map float_of_string ( _1 :: _2)) )
# 603 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_17 =
  fun _1 _2 ->
    (
# 207 "src/toml.7.1.0/menhir_parser.mly"
                             ( NodeString(_1 :: _2) )
# 611 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_18 =
  fun _1 _2 ->
    (
# 208 "src/toml.7.1.0/menhir_parser.mly"
                         ( NodeDate(_1 :: _2) )
# 619 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_19 =
  fun _2 _3 ->
    (
# 209 "src/toml.7.1.0/menhir_parser.mly"
                                        ( NodeArray(_2 :: _3) )
# 627 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_20 =
  fun _1 _2 ->
    (
# 210 "src/toml.7.1.0/menhir_parser.mly"
                                         ( NodeTable(_1 :: _2) )
# 635 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array))

let _menhir_action_21 =
  fun _3 ->
    (
# 164 "src/toml.7.1.0/menhir_parser.mly"
                                        ( ArrayElement, _3 )
# 643 "src/toml.7.1.0/menhir_parser.ml"
     : (table_tag * Types.Table.key list))

let _menhir_action_22 =
  fun _2 ->
    (
# 165 "src/toml.7.1.0/menhir_parser.mly"
                                        ( Regular, _2 )
# 651 "src/toml.7.1.0/menhir_parser.ml"
     : (table_tag * Types.Table.key list))

let _menhir_action_23 =
  fun key_values ->
    (
# 196 "src/toml.7.1.0/menhir_parser.mly"
                                                       (
  to_table key_values [] )
# 660 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.table))

let _menhir_action_24 =
  fun xs ->
    let key_values = 
# 241 "<standard.mly>"
    ( xs )
# 668 "src/toml.7.1.0/menhir_parser.ml"
     in
    (
# 200 "src/toml.7.1.0/menhir_parser.mly"
                                               ( key_values )
# 673 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key * op) list))

let _menhir_action_25 =
  fun _1 ->
    (
# 168 "src/toml.7.1.0/menhir_parser.mly"
          ( Table.Key.of_string _1 )
# 681 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key))

let _menhir_action_26 =
  fun _1 ->
    (
# 169 "src/toml.7.1.0/menhir_parser.mly"
          ( Table.Key.of_string _1 )
# 689 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key))

let _menhir_action_27 =
  fun _1 ->
    (
# 170 "src/toml.7.1.0/menhir_parser.mly"
              ( Table.Key.of_string _1 )
# 697 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key))

let _menhir_action_28 =
  fun _1 _3 ->
    (
# 181 "src/toml.7.1.0/menhir_parser.mly"
                   ( (_1, OpEqual _3) )
# 705 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key * op))

let _menhir_action_29 =
  fun _1 _3 ->
    (
# 182 "src/toml.7.1.0/menhir_parser.mly"
                  ( (_1, OpInit _3) )
# 713 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key * op))

let _menhir_action_30 =
  fun _1 _3 ->
    (
# 183 "src/toml.7.1.0/menhir_parser.mly"
                 ( (_1, OpSet _3) )
# 721 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key * op))

let _menhir_action_31 =
  fun _1 ->
    (
# 184 "src/toml.7.1.0/menhir_parser.mly"
             ( (_1, OpUnset) )
# 729 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key * op))

let _menhir_action_32 =
  fun k ->
    (
# 172 "src/toml.7.1.0/menhir_parser.mly"
                                                 ( k )
# 737 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list))

let _menhir_action_33 =
  fun _1 _3 ->
    (
# 175 "src/toml.7.1.0/menhir_parser.mly"
                        ( (_1, OpEqual _3) )
# 745 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list * op))

let _menhir_action_34 =
  fun _1 _3 ->
    (
# 176 "src/toml.7.1.0/menhir_parser.mly"
                       ( (_1, OpInit _3) )
# 753 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list * op))

let _menhir_action_35 =
  fun _1 _3 ->
    (
# 177 "src/toml.7.1.0/menhir_parser.mly"
                      ( (_1, OpSet _3) )
# 761 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list * op))

let _menhir_action_36 =
  fun _1 ->
    (
# 178 "src/toml.7.1.0/menhir_parser.mly"
                  ( (_1, OpUnset) )
# 769 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list * op))

let _menhir_action_37 =
  fun () ->
    (
# 216 "<standard.mly>"
    ( [] )
# 777 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key list * op) list))

let _menhir_action_38 =
  fun x xs ->
    (
# 219 "<standard.mly>"
    ( x :: xs )
# 785 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key list * op) list))

let _menhir_action_39 =
  fun () ->
    (
# 216 "<standard.mly>"
    ( [] )
# 793 "src/toml.7.1.0/menhir_parser.ml"
     : (((table_tag * Types.Table.key list) * (Types.Table.key list * op) list)
  list))

let _menhir_action_40 =
  fun x xs y ->
    let x = 
# 172 "<standard.mly>"
    ( (x, y) )
# 802 "src/toml.7.1.0/menhir_parser.ml"
     in
    (
# 219 "<standard.mly>"
    ( x :: xs )
# 807 "src/toml.7.1.0/menhir_parser.ml"
     : (((table_tag * Types.Table.key list) * (Types.Table.key list * op) list)
  list))

let _menhir_action_41 =
  fun () ->
    (
# 145 "<standard.mly>"
    ( [] )
# 816 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key * op) list))

let _menhir_action_42 =
  fun x ->
    (
# 148 "<standard.mly>"
    ( x )
# 824 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key * op) list))

let _menhir_action_43 =
  fun _3 _4 ->
    (
# 217 "src/toml.7.1.0/menhir_parser.mly"
                                              ( _3 :: _4 )
# 832 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array list))

let _menhir_action_44 =
  fun () ->
    (
# 218 "src/toml.7.1.0/menhir_parser.mly"
                  ( [] )
# 840 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.array list))

let _menhir_action_45 =
  fun () ->
    (
# 111 "<standard.mly>"
    ( None )
# 848 "src/toml.7.1.0/menhir_parser.ml"
     : (unit option))

let _menhir_action_46 =
  fun x ->
    (
# 114 "<standard.mly>"
    ( Some x )
# 856 "src/toml.7.1.0/menhir_parser.ml"
     : (unit option))

let _menhir_action_47 =
  fun x ->
    (
# 250 "<standard.mly>"
    ( [ x ] )
# 864 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key * op) list))

let _menhir_action_48 =
  fun x xs ->
    (
# 253 "<standard.mly>"
    ( x :: xs )
# 872 "src/toml.7.1.0/menhir_parser.ml"
     : ((Types.Table.key * op) list))

let _menhir_action_49 =
  fun x ->
    (
# 250 "<standard.mly>"
    ( [ x ] )
# 880 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list))

let _menhir_action_50 =
  fun x xs ->
    (
# 253 "<standard.mly>"
    ( x :: xs )
# 888 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.Table.key list))

let _menhir_action_51 =
  fun _1 _2 ->
    (
# 161 "src/toml.7.1.0/menhir_parser.mly"
   ( to_table2 _1 _2 )
# 896 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.table))

let _menhir_action_52 =
  fun _1 ->
    (
# 187 "src/toml.7.1.0/menhir_parser.mly"
         ( TBool(_1) )
# 904 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_action_53 =
  fun _1 ->
    (
# 188 "src/toml.7.1.0/menhir_parser.mly"
            ( TInt(int_of_string _1) )
# 912 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_action_54 =
  fun _1 ->
    (
# 189 "src/toml.7.1.0/menhir_parser.mly"
          ( TFloat(float_of_string _1) )
# 920 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_action_55 =
  fun _1 ->
    (
# 190 "src/toml.7.1.0/menhir_parser.mly"
           ( TString(_1) )
# 928 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_action_56 =
  fun _1 ->
    (
# 191 "src/toml.7.1.0/menhir_parser.mly"
         ( TDate _1 )
# 936 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_action_57 =
  fun _2 ->
    (
# 192 "src/toml.7.1.0/menhir_parser.mly"
                       ( TArray(_2) )
# 944 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_action_58 =
  fun _1 ->
    (
# 193 "src/toml.7.1.0/menhir_parser.mly"
                 ( TTable(_1) )
# 952 "src/toml.7.1.0/menhir_parser.ml"
     : (Types.value))

let _menhir_print_token : token -> string =
  fun _tok ->
    match _tok with
    | STRING _ ->
        "STRING"
    | SET ->
        "SET"
    | RBRACK ->
        "RBRACK"
    | RBRACE ->
        "RBRACE"
    | LBRACK ->
        "LBRACK"
    | LBRACE ->
        "LBRACE"
    | KEY _ ->
        "KEY"
    | INTEGER _ ->
        "INTEGER"
    | INIT ->
        "INIT"
    | FLOAT _ ->
        "FLOAT"
    | EQUAL ->
        "EQUAL"
    | EOF ->
        "EOF"
    | DOT ->
        "DOT"
    | DATE _ ->
        "DATE"
    | COMMA ->
        "COMMA"
    | CLEAR ->
        "CLEAR"
    | BOOL _ ->
        "BOOL"

let _menhir_fail : unit -> 'a =
  fun () ->
    Printf.eprintf "Internal failure -- please contact the parser generator's developers.\n%!";
    assert false

include struct
  
  [@@@ocaml.warning "-4-37"]
  
  let _menhir_run_017 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_ -> _ -> _menhir_box_toml =
    fun _menhir_stack _v ->
      let MenhirCell1_list_keysValue_ (_menhir_stack, _, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_51 _1 _2 in
      MenhirBox_toml _v
  
  let rec _menhir_run_021 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_group_header, _menhir_box_toml) _menhir_cell1_list_keysValue_ -> _ -> _menhir_box_toml =
    fun _menhir_stack _v ->
      let MenhirCell1_list_keysValue_ (_menhir_stack, _, y) = _menhir_stack in
      let MenhirCell1_group_header (_menhir_stack, _menhir_s, x) = _menhir_stack in
      let xs = _v in
      let _v = _menhir_action_40 x xs y in
      _menhir_goto_list_pair_group_header_list_keysValue___ _menhir_stack _v _menhir_s
  
  and _menhir_goto_list_pair_group_header_list_keysValue___ : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_ as 'stack) -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _v _menhir_s ->
      match _menhir_s with
      | MenhirState006 ->
          _menhir_run_017 _menhir_stack _v
      | MenhirState020 ->
          _menhir_run_021 _menhir_stack _v
      | _ ->
          _menhir_fail ()
  
  let rec _menhir_run_001 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_25 _1 in
      _menhir_goto_key _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_key : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState000 ->
          _menhir_run_012 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState007 ->
          _menhir_run_012 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState008 ->
          _menhir_run_012 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState013 ->
          _menhir_run_012 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState019 ->
          _menhir_run_012 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState022 ->
          _menhir_run_012 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState037 ->
          _menhir_run_043 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState041 ->
          _menhir_run_043 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_012 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match (_tok : MenhirBasics.token) with
      | DOT ->
          let _menhir_stack = MenhirCell1_key (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState013 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | KEY _v ->
              _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | INTEGER _v ->
              _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | CLEAR | EQUAL | INIT | RBRACK | SET ->
          let x = _v in
          let _v = _menhir_action_49 x in
          _menhir_goto_separated_nonempty_list_DOT_key_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_002 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_26 _1 in
      _menhir_goto_key _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_003 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_27 _1 in
      _menhir_goto_key _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_separated_nonempty_list_DOT_key_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState000 ->
          _menhir_run_005 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState007 ->
          _menhir_run_005 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState008 ->
          _menhir_run_005 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState019 ->
          _menhir_run_005 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState022 ->
          _menhir_run_005 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState013 ->
          _menhir_run_014 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_005 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let k = _v in
      let _v = _menhir_action_32 k in
      _menhir_goto_key_path _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_key_path : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState008 ->
          _menhir_run_009 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState007 ->
          _menhir_run_015 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState000 ->
          _menhir_run_024 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState019 ->
          _menhir_run_024 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState022 ->
          _menhir_run_024 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_009 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_cell1_LBRACK -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RBRACK ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | RBRACK ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let MenhirCell1_LBRACK (_menhir_stack, _) = _menhir_stack in
              let MenhirCell1_LBRACK (_menhir_stack, _menhir_s) = _menhir_stack in
              let _3 = _v in
              let _v = _menhir_action_21 _3 in
              _menhir_goto_group_header _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
          | _ ->
              _eRR ())
      | _ ->
          _eRR ()
  
  and _menhir_goto_group_header : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_ as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_group_header (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | STRING _v_0 ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState019
      | KEY _v_1 ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState019
      | INTEGER _v_2 ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v_2 MenhirState019
      | EOF | LBRACK ->
          let _v_3 = _menhir_action_37 () in
          _menhir_run_020 _menhir_stack _menhir_lexbuf _menhir_lexer _v_3 MenhirState019 _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_020 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_group_header as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_list_keysValue_ (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | LBRACK ->
          _menhir_run_007 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState020
      | EOF ->
          let _v_0 = _menhir_action_39 () in
          _menhir_run_021 _menhir_stack _v_0
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_007 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_ as 'stack) -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LBRACK (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState007 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | STRING _v ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | LBRACK ->
          let _menhir_stack = MenhirCell1_LBRACK (_menhir_stack, _menhir_s) in
          let _menhir_s = MenhirState008 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | KEY _v ->
              _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | INTEGER _v ->
              _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | KEY _v ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | INTEGER _v ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_015 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_list_keysValue_, _menhir_box_toml) _menhir_cell1_LBRACK -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      match (_tok : MenhirBasics.token) with
      | RBRACK ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let MenhirCell1_LBRACK (_menhir_stack, _menhir_s) = _menhir_stack in
          let _2 = _v in
          let _v = _menhir_action_22 _2 in
          _menhir_goto_group_header _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_024 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match (_tok : MenhirBasics.token) with
      | SET ->
          let _menhir_stack = MenhirCell1_key_path (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState025 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_026 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | LBRACK ->
              _menhir_run_027 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_045 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_046 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_047 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_048 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | INIT ->
          let _menhir_stack = MenhirCell1_key_path (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState103 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_026 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | LBRACK ->
              _menhir_run_027 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_045 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_046 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_047 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_048 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | EQUAL ->
          let _menhir_stack = MenhirCell1_key_path (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState105 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_026 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | LBRACK ->
              _menhir_run_027 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_045 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_046 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_047 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_048 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | CLEAR ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _1 = _v in
          let _v = _menhir_action_36 _1 in
          _menhir_goto_keysValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_026 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_55 _1 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_value : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState044 ->
          _menhir_run_049 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState051 ->
          _menhir_run_052 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState053 ->
          _menhir_run_054 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState025 ->
          _menhir_run_102 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState103 ->
          _menhir_run_104 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState105 ->
          _menhir_run_106 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_049 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_30 _1 _3 in
      _menhir_goto_keyValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_keyValue : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          let _menhir_stack = MenhirCell1_keyValue (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState041 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | KEY _v ->
              _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | INTEGER _v ->
              _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | RBRACE ->
          let x = _v in
          let _v = _menhir_action_47 x in
          _menhir_goto_separated_nonempty_list_COMMA_keyValue_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_goto_separated_nonempty_list_COMMA_keyValue_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      match _menhir_s with
      | MenhirState037 ->
          _menhir_run_038 _menhir_stack _menhir_lexbuf _menhir_lexer _v
      | MenhirState041 ->
          _menhir_run_042 _menhir_stack _menhir_lexbuf _menhir_lexer _v
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_038 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_LBRACE -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v ->
      let x = _v in
      let _v = _menhir_action_42 x in
      _menhir_goto_loption_separated_nonempty_list_COMMA_keyValue__ _menhir_stack _menhir_lexbuf _menhir_lexer _v
  
  and _menhir_goto_loption_separated_nonempty_list_COMMA_keyValue__ : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_LBRACE -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v ->
      let xs = _v in
      let _v = _menhir_action_24 xs in
      let _tok = _menhir_lexer _menhir_lexbuf in
      let MenhirCell1_LBRACE (_menhir_stack, _menhir_s) = _menhir_stack in
      let key_values = _v in
      let _v = _menhir_action_23 key_values in
      _menhir_goto_inline_table _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_inline_table : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState025 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState044 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState051 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState053 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState103 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState105 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState027 ->
          _menhir_run_086 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState036 ->
          _menhir_run_086 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState095 ->
          _menhir_run_086 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState087 ->
          _menhir_run_088 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_050 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _1 = _v in
      let _v = _menhir_action_58 _1 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_086 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_inline_table (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_087 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState086
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_089 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState086
      | _ ->
          _eRR ()
  
  and _menhir_run_087 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_inline_table as 'stack) -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | LBRACE ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState087
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_037 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LBRACE (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState037 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | STRING _v ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | KEY _v ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | INTEGER _v ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | RBRACE ->
          let _v = _menhir_action_41 () in
          _menhir_goto_loption_separated_nonempty_list_COMMA_keyValue__ _menhir_stack _menhir_lexbuf _menhir_lexer _v
      | _ ->
          _eRR ()
  
  and _menhir_goto_option_COMMA_ : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      match _menhir_s with
      | MenhirState028 ->
          _menhir_run_031 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState030 ->
          _menhir_run_031 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState058 ->
          _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState060 ->
          _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState065 ->
          _menhir_run_068 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState067 ->
          _menhir_run_068 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState072 ->
          _menhir_run_075 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState074 ->
          _menhir_run_075 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState079 ->
          _menhir_run_082 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState081 ->
          _menhir_run_082 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState086 ->
          _menhir_run_089 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState088 ->
          _menhir_run_089 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState093 ->
          _menhir_run_097 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | MenhirState096 ->
          _menhir_run_097 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_031 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_10 () in
      _menhir_goto_array_end_STRING_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_end_STRING_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState030 ->
          _menhir_run_033 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState028 ->
          _menhir_run_034 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_033 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_STRING -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell0_STRING (_menhir_stack, _2) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_09 _2 _3 in
      _menhir_goto_array_end_STRING_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_034 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_STRING -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_STRING (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_17 _1 _2 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_start : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState036 ->
          _menhir_run_093 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState095 ->
          _menhir_run_096 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState027 ->
          _menhir_run_101 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_093 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_LBRACK as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_array_start (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_094 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState093
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_097 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState093
      | _ ->
          _eRR ()
  
  and _menhir_run_094 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_array_start as 'stack) -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | LBRACK ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          let _menhir_s = MenhirState095 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_028 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | RBRACK ->
              _menhir_run_035 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACK ->
              _menhir_run_036 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_058 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_065 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_072 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_079 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_028 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_STRING (_menhir_stack, _menhir_s, _v) in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_029 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState028
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_031 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState028
      | _ ->
          _eRR ()
  
  and _menhir_run_029 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | STRING _v ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          let _menhir_stack = MenhirCell0_STRING (_menhir_stack, _v) in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | COMMA ->
              _menhir_run_029 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState030
          | RBRACK ->
              let _ = _menhir_action_45 () in
              _menhir_run_031 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState030
          | _ ->
              _eRR ())
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_035 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_13 () in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_036 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LBRACK (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState036 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | STRING _v ->
          _menhir_run_028 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | RBRACK ->
          _menhir_run_035 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LBRACK ->
          _menhir_run_036 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LBRACE ->
          _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | INTEGER _v ->
          _menhir_run_058 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | FLOAT _v ->
          _menhir_run_065 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | DATE _v ->
          _menhir_run_072 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | BOOL _v ->
          _menhir_run_079 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_058 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_INTEGER (_menhir_stack, _menhir_s, _v) in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_059 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | _ ->
          _eRR ()
  
  and _menhir_run_059 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | INTEGER _v ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          let _menhir_stack = MenhirCell0_INTEGER (_menhir_stack, _v) in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | COMMA ->
              _menhir_run_059 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState060
          | RBRACK ->
              let _ = _menhir_action_45 () in
              _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState060
          | _ ->
              _eRR ())
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_061 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_08 () in
      _menhir_goto_array_end_INTEGER_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_end_INTEGER_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState060 ->
          _menhir_run_063 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState058 ->
          _menhir_run_064 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_063 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_INTEGER -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell0_INTEGER (_menhir_stack, _2) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_07 _2 _3 in
      _menhir_goto_array_end_INTEGER_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_064 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_INTEGER -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_INTEGER (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_15 _1 _2 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_065 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_FLOAT (_menhir_stack, _menhir_s, _v) in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_066 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState065
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_068 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState065
      | _ ->
          _eRR ()
  
  and _menhir_run_066 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | FLOAT _v ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          let _menhir_stack = MenhirCell0_FLOAT (_menhir_stack, _v) in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | COMMA ->
              _menhir_run_066 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState067
          | RBRACK ->
              let _ = _menhir_action_45 () in
              _menhir_run_068 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState067
          | _ ->
              _eRR ())
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_068 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_06 () in
      _menhir_goto_array_end_FLOAT_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_end_FLOAT_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState067 ->
          _menhir_run_070 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState065 ->
          _menhir_run_071 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_070 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_FLOAT -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell0_FLOAT (_menhir_stack, _2) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_05 _2 _3 in
      _menhir_goto_array_end_FLOAT_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_071 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_FLOAT -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_FLOAT (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_16 _1 _2 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_072 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_DATE (_menhir_stack, _menhir_s, _v) in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_073 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState072
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_075 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState072
      | _ ->
          _eRR ()
  
  and _menhir_run_073 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | DATE _v ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          let _menhir_stack = MenhirCell0_DATE (_menhir_stack, _v) in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | COMMA ->
              _menhir_run_073 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState074
          | RBRACK ->
              let _ = _menhir_action_45 () in
              _menhir_run_075 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState074
          | _ ->
              _eRR ())
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_075 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_04 () in
      _menhir_goto_array_end_DATE_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_end_DATE_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState074 ->
          _menhir_run_077 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState072 ->
          _menhir_run_078 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_077 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_DATE -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell0_DATE (_menhir_stack, _2) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_03 _2 _3 in
      _menhir_goto_array_end_DATE_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_078 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_DATE -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_DATE (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_18 _1 _2 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_079 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_BOOL (_menhir_stack, _menhir_s, _v) in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_080 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState079
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_082 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState079
      | _ ->
          _eRR ()
  
  and _menhir_run_080 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | BOOL _v ->
          let _menhir_stack = MenhirCell1_COMMA (_menhir_stack, _menhir_s) in
          let _menhir_stack = MenhirCell0_BOOL (_menhir_stack, _v) in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | COMMA ->
              _menhir_run_080 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState081
          | RBRACK ->
              let _ = _menhir_action_45 () in
              _menhir_run_082 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState081
          | _ ->
              _eRR ())
      | RBRACK ->
          let x = () in
          let _ = _menhir_action_46 x in
          _menhir_goto_option_COMMA_ _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_082 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_02 () in
      _menhir_goto_array_end_BOOL_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_end_BOOL_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState081 ->
          _menhir_run_084 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState079 ->
          _menhir_run_085 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_084 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_COMMA _menhir_cell0_BOOL -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell0_BOOL (_menhir_stack, _2) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_01 _2 _3 in
      _menhir_goto_array_end_BOOL_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_085 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_BOOL -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_BOOL (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_14 _1 _2 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_097 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_array_start as 'stack) -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_44 () in
      _menhir_goto_nested_array_end _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_nested_array_end : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_array_start as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState096 ->
          _menhir_run_099 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState093 ->
          _menhir_run_100 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_099 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_array_start, _menhir_box_toml) _menhir_cell1_COMMA, _menhir_box_toml) _menhir_cell1_array_start -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_array_start (_menhir_stack, _, _3) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _4 = _v in
      let _v = _menhir_action_43 _3 _4 in
      _menhir_goto_nested_array_end _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_100 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_LBRACK, _menhir_box_toml) _menhir_cell1_array_start -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_array_start (_menhir_stack, _, _2) = _menhir_stack in
      let MenhirCell1_LBRACK (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_19 _2 _3 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_096 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_array_start, _menhir_box_toml) _menhir_cell1_COMMA as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_array_start (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_094 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState096
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_097 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState096
      | _ ->
          _eRR ()
  
  and _menhir_run_101 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_LBRACK -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_LBRACK (_menhir_stack, _menhir_s) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_57 _2 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_089 : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_inline_table as 'stack) -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_12 () in
      _menhir_goto_array_end_inline_table_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_array_end_inline_table_ : type  ttv_stack. ((ttv_stack, _menhir_box_toml) _menhir_cell1_inline_table as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState088 ->
          _menhir_run_091 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | MenhirState086 ->
          _menhir_run_092 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_091 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_inline_table, _menhir_box_toml) _menhir_cell1_COMMA, _menhir_box_toml) _menhir_cell1_inline_table -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_inline_table (_menhir_stack, _, _2) = _menhir_stack in
      let MenhirCell1_COMMA (_menhir_stack, _menhir_s) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_11 _2 _3 in
      _menhir_goto_array_end_inline_table_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_092 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_inline_table -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_inline_table (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _2 = _v in
      let _v = _menhir_action_20 _1 _2 in
      _menhir_goto_array_start _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_088 : type  ttv_stack. (((ttv_stack, _menhir_box_toml) _menhir_cell1_inline_table, _menhir_box_toml) _menhir_cell1_COMMA as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_inline_table (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | COMMA ->
          _menhir_run_087 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState088
      | RBRACK ->
          let _ = _menhir_action_45 () in
          _menhir_run_089 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState088
      | _ ->
          _eRR ()
  
  and _menhir_run_042 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_keyValue -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v ->
      let MenhirCell1_keyValue (_menhir_stack, _menhir_s, x) = _menhir_stack in
      let xs = _v in
      let _v = _menhir_action_48 x xs in
      _menhir_goto_separated_nonempty_list_COMMA_keyValue_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
  
  and _menhir_run_052 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_29 _1 _3 in
      _menhir_goto_keyValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_054 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_28 _1 _3 in
      _menhir_goto_keyValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_102 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key_path -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key_path (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_35 _1 _3 in
      _menhir_goto_keysValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_keysValue : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_keysValue (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | STRING _v_0 ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState022
      | KEY _v_1 ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState022
      | INTEGER _v_2 ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v_2 MenhirState022
      | EOF | LBRACK ->
          let _v_3 = _menhir_action_37 () in
          _menhir_run_023 _menhir_stack _menhir_lexbuf _menhir_lexer _v_3 _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_023 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_keysValue -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_keysValue (_menhir_stack, _menhir_s, x) = _menhir_stack in
      let xs = _v in
      let _v = _menhir_action_38 x xs in
      _menhir_goto_list_keysValue_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_list_keysValue_ : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState000 ->
          _menhir_run_006 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState019 ->
          _menhir_run_020 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState022 ->
          _menhir_run_023 _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_006 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_list_keysValue_ (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | LBRACK ->
          _menhir_run_007 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState006
      | EOF ->
          let _v_0 = _menhir_action_39 () in
          _menhir_run_017 _menhir_stack _v_0
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_104 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key_path -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key_path (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_34 _1 _3 in
      _menhir_goto_keysValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_106 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key_path -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key_path (_menhir_stack, _menhir_s, _1) = _menhir_stack in
      let _3 = _v in
      let _v = _menhir_action_33 _1 _3 in
      _menhir_goto_keysValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_027 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_LBRACK (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState027 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | STRING _v ->
          _menhir_run_028 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | RBRACK ->
          _menhir_run_035 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LBRACK ->
          _menhir_run_036 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | LBRACE ->
          _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
      | INTEGER _v ->
          _menhir_run_058 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | FLOAT _v ->
          _menhir_run_065 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | DATE _v ->
          _menhir_run_072 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | BOOL _v ->
          _menhir_run_079 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | _ ->
          _eRR ()
  
  and _menhir_run_045 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_53 _1 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_046 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_54 _1 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_047 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_56 _1 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_048 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _1 = _v in
      let _v = _menhir_action_52 _1 in
      _menhir_goto_value _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_014 : type  ttv_stack. (ttv_stack, _menhir_box_toml) _menhir_cell1_key -> _ -> _ -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_key (_menhir_stack, _menhir_s, x) = _menhir_stack in
      let xs = _v in
      let _v = _menhir_action_50 x xs in
      _menhir_goto_separated_nonempty_list_DOT_key_ _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_043 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_toml) _menhir_state -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match (_tok : MenhirBasics.token) with
      | SET ->
          let _menhir_stack = MenhirCell1_key (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState044 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_026 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | LBRACK ->
              _menhir_run_027 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_045 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_046 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_047 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_048 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | INIT ->
          let _menhir_stack = MenhirCell1_key (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState051 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_026 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | LBRACK ->
              _menhir_run_027 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_045 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_046 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_047 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_048 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | EQUAL ->
          let _menhir_stack = MenhirCell1_key (_menhir_stack, _menhir_s, _v) in
          let _menhir_s = MenhirState053 in
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STRING _v ->
              _menhir_run_026 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | LBRACK ->
              _menhir_run_027 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | LBRACE ->
              _menhir_run_037 _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s
          | INTEGER _v ->
              _menhir_run_045 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | FLOAT _v ->
              _menhir_run_046 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | DATE _v ->
              _menhir_run_047 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | BOOL _v ->
              _menhir_run_048 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
          | _ ->
              _eRR ())
      | CLEAR ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _1 = _v in
          let _v = _menhir_action_31 _1 in
          _menhir_goto_keyValue _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  let _menhir_run_000 : type  ttv_stack. ttv_stack -> _ -> _ -> _menhir_box_toml =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | STRING _v ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState000
      | KEY _v ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState000
      | INTEGER _v ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState000
      | EOF | LBRACK ->
          let _v = _menhir_action_37 () in
          _menhir_run_006 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState000 _tok
      | _ ->
          _eRR ()
  
end

let toml =
  fun _menhir_lexer _menhir_lexbuf ->
    let _menhir_stack = () in
    let MenhirBox_toml v = _menhir_run_000 _menhir_stack _menhir_lexbuf _menhir_lexer in
    v

# 220 "src/toml.7.1.0/menhir_parser.mly"
  

# 2252 "src/toml.7.1.0/menhir_parser.ml"