Source file Formatted_io_parser.ml

module MenhirBasics = struct
  
  exception Error
  
  let _eRR =
    fun _s ->
      raise Error
  
  type token = 
    | ZERO
    | X
    | WS
    | U
    | TOK_string of (
# 60 "parsers/c/lib/parser/Formatted_io_parser.mly"
       (string)
# 19 "parsers/c/lib/parser/Formatted_io_parser.ml"
  )
    | STAR
    | SPACE
    | SHARP
    | S
    | PLUS
    | P
    | O
    | NUM of (
# 55 "parsers/c/lib/parser/Formatted_io_parser.mly"
       (int)
# 31 "parsers/c/lib/parser/Formatted_io_parser.ml"
  )
    | MINUS
    | LL
    | L
    | I
    | HH
    | H
    | G
    | F
    | EOF
    | E
    | DOT
    | D
    | CAP_L
    | C
    | A
  
end

include MenhirBasics

# 24 "parsers/c/lib/parser/Formatted_io_parser.mly"
  
  open Formatted_io_placeholder


  let mk_output_placeholder width precision typ =
    let mk w p t = Placeholder {
	op_width = w;
	op_precision = p;
	op_typ = t;
      }
    in
    let width_arg_placeholder = match snd width with
      | true -> [mk None None (Int UNSIGNED_INT)]
      | _ -> []
    in
    let precision_arg_placeholder = match snd precision with
      | true -> [mk None None (Int UNSIGNED_INT)]
      | _ -> []
    in
    width_arg_placeholder @ precision_arg_placeholder @ [mk (fst width) (fst precision) typ]


  let mk_input_placeholder width typ =
    {
      ip_width = width;
      ip_typ = typ;
    }


# 83 "parsers/c/lib/parser/Formatted_io_parser.ml"

type ('s, 'r) _menhir_state = 
  | MenhirState000 : ('s, _menhir_box_parse_input_format) _menhir_state
    (** State 000.
        Stack shape : .
        Start symbol: parse_input_format. *)

  | MenhirState001 : (('s, _menhir_box_parse_input_format) _menhir_cell1_TOK_string, _menhir_box_parse_input_format) _menhir_state
    (** State 001.
        Stack shape : TOK_string.
        Start symbol: parse_input_format. *)

  | MenhirState002 : (('s, _menhir_box_parse_input_format) _menhir_cell1_STAR, _menhir_box_parse_input_format) _menhir_state
    (** State 002.
        Stack shape : STAR.
        Start symbol: parse_input_format. *)

  | MenhirState050 : ((('s, _menhir_box_parse_input_format) _menhir_cell1_STAR, _menhir_box_parse_input_format) _menhir_cell1_input_placeholder, _menhir_box_parse_input_format) _menhir_state
    (** State 050.
        Stack shape : STAR input_placeholder.
        Start symbol: parse_input_format. *)

  | MenhirState052 : (('s, _menhir_box_parse_input_format) _menhir_cell1_input_placeholder, _menhir_box_parse_input_format) _menhir_state
    (** State 052.
        Stack shape : input_placeholder.
        Start symbol: parse_input_format. *)

  | MenhirState058 : ('s, _menhir_box_parse_output_format) _menhir_state
    (** State 058.
        Stack shape : .
        Start symbol: parse_output_format. *)

  | MenhirState068 : (('s, _menhir_box_parse_output_format) _menhir_cell1_output_format, _menhir_box_parse_output_format) _menhir_state
    (** State 068.
        Stack shape : output_format.
        Start symbol: parse_output_format. *)

  | MenhirState121 : (('s, _menhir_box_parse_output_format) _menhir_cell1_output_flag, _menhir_box_parse_output_format) _menhir_state
    (** State 121.
        Stack shape : output_flag.
        Start symbol: parse_output_format. *)


and ('s, 'r) _menhir_cell1_input_placeholder = 
  | MenhirCell1_input_placeholder of 's * ('s, 'r) _menhir_state * (Formatted_io_placeholder.input_placeholder)

and ('s, 'r) _menhir_cell1_input_width = 
  | MenhirCell1_input_width of 's * ('s, 'r) _menhir_state * (int option)

and ('s, 'r) _menhir_cell1_output_flag = 
  | MenhirCell1_output_flag of 's * ('s, 'r) _menhir_state * (unit)

and ('s, 'r) _menhir_cell1_output_flag_list = 
  | MenhirCell1_output_flag_list of 's * ('s, 'r) _menhir_state * (unit)

and ('s, 'r) _menhir_cell1_output_format = 
  | MenhirCell1_output_format of 's * ('s, 'r) _menhir_state * (Formatted_io_placeholder.output_format list)

and 's _menhir_cell0_output_precision = 
  | MenhirCell0_output_precision of 's * (int option * bool)

and 's _menhir_cell0_output_width = 
  | MenhirCell0_output_width of 's * (int option * bool)

and ('s, 'r) _menhir_cell1_STAR = 
  | MenhirCell1_STAR of 's * ('s, 'r) _menhir_state

and ('s, 'r) _menhir_cell1_TOK_string = 
  | MenhirCell1_TOK_string of 's * ('s, 'r) _menhir_state * (
# 60 "parsers/c/lib/parser/Formatted_io_parser.mly"
       (string)
# 155 "parsers/c/lib/parser/Formatted_io_parser.ml"
)

and _menhir_box_parse_output_format = 
  | MenhirBox_parse_output_format of (Formatted_io_placeholder.output_format list) [@@unboxed]

and _menhir_box_parse_input_format = 
  | MenhirBox_parse_input_format of (Formatted_io_placeholder.input_placeholder list) [@@unboxed]

let _menhir_action_002 =
  fun t w ->
    (
# 159 "parsers/c/lib/parser/Formatted_io_parser.mly"
                              ( mk_input_placeholder w t )
# 169 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.input_placeholder))

let _menhir_action_003 =
  fun () ->
    (
# 153 "parsers/c/lib/parser/Formatted_io_parser.mly"
    ( [] )
# 177 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.input_placeholder list))

let _menhir_action_004 =
  fun tl ->
    (
# 154 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                         ( tl )
# 185 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.input_placeholder list))

let _menhir_action_005 =
  fun tl ->
    (
# 155 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                                     ( tl )
# 193 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.input_placeholder list))

let _menhir_action_006 =
  fun hd tl ->
    (
# 156 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                                     ( hd :: tl )
# 201 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.input_placeholder list))

let _menhir_action_007 =
  fun () ->
    (
# 167 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_CHAR )
# 209 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_008 =
  fun () ->
    (
# 170 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_CHAR )
# 217 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_009 =
  fun () ->
    (
# 170 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_CHAR )
# 225 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_010 =
  fun () ->
    (
# 171 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_SHORT )
# 233 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_011 =
  fun () ->
    (
# 171 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_SHORT )
# 241 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_012 =
  fun () ->
    (
# 172 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_INT )
# 249 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_013 =
  fun () ->
    (
# 172 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_INT )
# 257 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_014 =
  fun () ->
    (
# 173 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG )
# 265 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_015 =
  fun () ->
    (
# 173 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG )
# 273 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_016 =
  fun () ->
    (
# 174 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG_LONG )
# 281 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_017 =
  fun () ->
    (
# 174 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG_LONG )
# 289 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_018 =
  fun () ->
    (
# 177 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_CHAR )
# 297 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_019 =
  fun () ->
    (
# 177 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_CHAR )
# 305 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_020 =
  fun () ->
    (
# 177 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_CHAR )
# 313 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_021 =
  fun () ->
    (
# 178 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_SHORT )
# 321 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_022 =
  fun () ->
    (
# 178 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_SHORT )
# 329 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_023 =
  fun () ->
    (
# 178 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_SHORT )
# 337 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_024 =
  fun () ->
    (
# 179 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_INT )
# 345 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_025 =
  fun () ->
    (
# 179 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_INT )
# 353 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_026 =
  fun () ->
    (
# 179 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_INT )
# 361 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_027 =
  fun () ->
    (
# 180 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_LONG )
# 369 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_028 =
  fun () ->
    (
# 180 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_LONG )
# 377 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_029 =
  fun () ->
    (
# 180 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_LONG )
# 385 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_030 =
  fun () ->
    (
# 181 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_LONG_LONG )
# 393 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_031 =
  fun () ->
    (
# 181 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_LONG_LONG )
# 401 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_032 =
  fun () ->
    (
# 181 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( Int UNSIGNED_LONG_LONG )
# 409 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_033 =
  fun () ->
    (
# 184 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float FLOAT )
# 417 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_034 =
  fun () ->
    (
# 184 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float FLOAT )
# 425 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_035 =
  fun () ->
    (
# 184 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float FLOAT )
# 433 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_036 =
  fun () ->
    (
# 184 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float FLOAT )
# 441 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_037 =
  fun () ->
    (
# 185 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float DOUBLE )
# 449 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_038 =
  fun () ->
    (
# 185 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float DOUBLE )
# 457 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_039 =
  fun () ->
    (
# 185 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float DOUBLE )
# 465 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_040 =
  fun () ->
    (
# 185 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float DOUBLE )
# 473 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_041 =
  fun () ->
    (
# 186 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 481 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_042 =
  fun () ->
    (
# 186 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 489 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_043 =
  fun () ->
    (
# 186 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 497 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_044 =
  fun () ->
    (
# 186 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 505 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_045 =
  fun () ->
    (
# 189 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( String )
# 513 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_046 =
  fun () ->
    (
# 190 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Pointer )
# 521 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_047 =
  fun n ->
    (
# 162 "parsers/c/lib/parser/Formatted_io_parser.mly"
          ( Some n )
# 529 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option))

let _menhir_action_048 =
  fun () ->
    (
# 163 "parsers/c/lib/parser/Formatted_io_parser.mly"
          ( None )
# 537 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option))

let _menhir_action_049 =
  fun () ->
    (
# 100 "parsers/c/lib/parser/Formatted_io_parser.mly"
          (  )
# 545 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_050 =
  fun () ->
    (
# 101 "parsers/c/lib/parser/Formatted_io_parser.mly"
          (  )
# 553 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_051 =
  fun () ->
    (
# 102 "parsers/c/lib/parser/Formatted_io_parser.mly"
          (  )
# 561 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_052 =
  fun () ->
    (
# 103 "parsers/c/lib/parser/Formatted_io_parser.mly"
          (  )
# 569 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_053 =
  fun () ->
    (
# 104 "parsers/c/lib/parser/Formatted_io_parser.mly"
          (  )
# 577 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_054 =
  fun () ->
    (
# 96 "parsers/c/lib/parser/Formatted_io_parser.mly"
    ( )
# 585 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_055 =
  fun () ->
    (
# 97 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( )
# 593 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (unit))

let _menhir_action_056 =
  fun v ->
    (
# 91 "parsers/c/lib/parser/Formatted_io_parser.mly"
                 ( [String v] )
# 601 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.output_format list))

let _menhir_action_057 =
  fun p t w ->
    (
# 92 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                                                    ( mk_output_placeholder w p t )
# 609 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.output_format list))

let _menhir_action_058 =
  fun () ->
    (
# 87 "parsers/c/lib/parser/Formatted_io_parser.mly"
    ( [] )
# 617 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.output_format list))

let _menhir_action_059 =
  fun hd tl ->
    (
# 88 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( hd @ tl )
# 625 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.output_format list))

let _menhir_action_060 =
  fun n ->
    (
# 112 "parsers/c/lib/parser/Formatted_io_parser.mly"
              ( Some n, false )
# 633 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_061 =
  fun () ->
    (
# 113 "parsers/c/lib/parser/Formatted_io_parser.mly"
              ( Some 0, false )
# 641 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_062 =
  fun () ->
    (
# 114 "parsers/c/lib/parser/Formatted_io_parser.mly"
              ( None, true )
# 649 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_063 =
  fun () ->
    (
# 115 "parsers/c/lib/parser/Formatted_io_parser.mly"
              ( None, false )
# 657 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_064 =
  fun () ->
    (
# 119 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_CHAR )
# 665 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_065 =
  fun () ->
    (
# 122 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_CHAR )
# 673 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_066 =
  fun () ->
    (
# 122 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_CHAR )
# 681 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_067 =
  fun () ->
    (
# 123 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_SHORT )
# 689 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_068 =
  fun () ->
    (
# 123 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_SHORT )
# 697 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_069 =
  fun () ->
    (
# 124 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_INT )
# 705 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_070 =
  fun () ->
    (
# 124 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_INT )
# 713 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_071 =
  fun () ->
    (
# 125 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG )
# 721 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_072 =
  fun () ->
    (
# 125 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG )
# 729 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_073 =
  fun () ->
    (
# 126 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG_LONG )
# 737 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_074 =
  fun () ->
    (
# 126 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int SIGNED_LONG_LONG )
# 745 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_075 =
  fun () ->
    (
# 129 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_CHAR )
# 753 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_076 =
  fun () ->
    (
# 129 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_CHAR )
# 761 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_077 =
  fun () ->
    (
# 129 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_CHAR )
# 769 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_078 =
  fun () ->
    (
# 130 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_SHORT )
# 777 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_079 =
  fun () ->
    (
# 130 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_SHORT )
# 785 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_080 =
  fun () ->
    (
# 130 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_SHORT )
# 793 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_081 =
  fun () ->
    (
# 131 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_INT )
# 801 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_082 =
  fun () ->
    (
# 131 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_INT )
# 809 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_083 =
  fun () ->
    (
# 131 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_INT )
# 817 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_084 =
  fun () ->
    (
# 132 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_LONG )
# 825 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_085 =
  fun () ->
    (
# 132 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_LONG )
# 833 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_086 =
  fun () ->
    (
# 132 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_LONG )
# 841 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_087 =
  fun () ->
    (
# 133 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_LONG_LONG )
# 849 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_088 =
  fun () ->
    (
# 133 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_LONG_LONG )
# 857 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_089 =
  fun () ->
    (
# 133 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Int UNSIGNED_LONG_LONG )
# 865 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_090 =
  fun () ->
    (
# 136 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Float FLOAT )
# 873 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_091 =
  fun () ->
    (
# 136 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Float FLOAT )
# 881 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_092 =
  fun () ->
    (
# 136 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Float FLOAT )
# 889 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_093 =
  fun () ->
    (
# 136 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Float FLOAT )
# 897 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_094 =
  fun () ->
    (
# 137 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 905 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_095 =
  fun () ->
    (
# 137 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 913 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_096 =
  fun () ->
    (
# 137 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 921 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_097 =
  fun () ->
    (
# 137 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                           ( Float LONG_DOUBLE )
# 929 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_098 =
  fun () ->
    (
# 140 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( String )
# 937 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_099 =
  fun () ->
    (
# 141 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( WideString )
# 945 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_100 =
  fun () ->
    (
# 142 "parsers/c/lib/parser/Formatted_io_parser.mly"
                           ( Pointer )
# 953 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.placeholder_type))

let _menhir_action_101 =
  fun n ->
    (
# 107 "parsers/c/lib/parser/Formatted_io_parser.mly"
          ( Some n, false )
# 961 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_102 =
  fun () ->
    (
# 108 "parsers/c/lib/parser/Formatted_io_parser.mly"
          ( None, true )
# 969 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_103 =
  fun () ->
    (
# 109 "parsers/c/lib/parser/Formatted_io_parser.mly"
          ( None, false )
# 977 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (int option * bool))

let _menhir_action_104 =
  fun l ->
    (
# 150 "parsers/c/lib/parser/Formatted_io_parser.mly"
                                 ( l )
# 985 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.input_placeholder list))

let _menhir_action_105 =
  fun l ->
    (
# 84 "parsers/c/lib/parser/Formatted_io_parser.mly"
                              ( l )
# 993 "parsers/c/lib/parser/Formatted_io_parser.ml"
     : (Formatted_io_placeholder.output_format list))

let _menhir_print_token : token -> string =
  fun _tok ->
    match _tok with
    | A ->
        "A"
    | C ->
        "C"
    | CAP_L ->
        "CAP_L"
    | D ->
        "D"
    | DOT ->
        "DOT"
    | E ->
        "E"
    | EOF ->
        "EOF"
    | F ->
        "F"
    | G ->
        "G"
    | H ->
        "H"
    | HH ->
        "HH"
    | I ->
        "I"
    | L ->
        "L"
    | LL ->
        "LL"
    | MINUS ->
        "MINUS"
    | NUM _ ->
        "NUM"
    | O ->
        "O"
    | P ->
        "P"
    | PLUS ->
        "PLUS"
    | S ->
        "S"
    | SHARP ->
        "SHARP"
    | SPACE ->
        "SPACE"
    | STAR ->
        "STAR"
    | TOK_string _ ->
        "TOK_string"
    | U ->
        "U"
    | WS ->
        "WS"
    | X ->
        "X"
    | ZERO ->
        "ZERO"

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_056 : type  ttv_stack. ttv_stack -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _v ->
      let l = _v in
      let _v = _menhir_action_104 l in
      MenhirBox_parse_input_format _v
  
  let rec _menhir_run_053 : type  ttv_stack. (ttv_stack, _menhir_box_parse_input_format) _menhir_cell1_input_placeholder -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _v ->
      let MenhirCell1_input_placeholder (_menhir_stack, _menhir_s, hd) = _menhir_stack in
      let tl = _v in
      let _v = _menhir_action_006 hd tl in
      _menhir_goto_input_placeholder_list _menhir_stack _v _menhir_s
  
  and _menhir_goto_input_placeholder_list : type  ttv_stack. ttv_stack -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _menhir_box_parse_input_format =
    fun _menhir_stack _v _menhir_s ->
      match _menhir_s with
      | MenhirState000 ->
          _menhir_run_056 _menhir_stack _v
      | MenhirState001 ->
          _menhir_run_054 _menhir_stack _v
      | MenhirState052 ->
          _menhir_run_053 _menhir_stack _v
      | MenhirState050 ->
          _menhir_run_051 _menhir_stack _v
      | _ ->
          _menhir_fail ()
  
  and _menhir_run_054 : type  ttv_stack. (ttv_stack, _menhir_box_parse_input_format) _menhir_cell1_TOK_string -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _v ->
      let MenhirCell1_TOK_string (_menhir_stack, _menhir_s, _) = _menhir_stack in
      let tl = _v in
      let _v = _menhir_action_004 tl in
      _menhir_goto_input_placeholder_list _menhir_stack _v _menhir_s
  
  and _menhir_run_051 : type  ttv_stack. ((ttv_stack, _menhir_box_parse_input_format) _menhir_cell1_STAR, _menhir_box_parse_input_format) _menhir_cell1_input_placeholder -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _v ->
      let MenhirCell1_input_placeholder (_menhir_stack, _, _) = _menhir_stack in
      let MenhirCell1_STAR (_menhir_stack, _menhir_s) = _menhir_stack in
      let tl = _v in
      let _v = _menhir_action_005 tl in
      _menhir_goto_input_placeholder_list _menhir_stack _v _menhir_s
  
  let rec _menhir_run_001 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _menhir_stack = MenhirCell1_TOK_string (_menhir_stack, _menhir_s, _v) in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TOK_string _v_0 ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState001
      | STAR ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState001
      | NUM _v_1 ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState001
      | EOF ->
          let _v_2 = _menhir_action_003 () in
          _menhir_run_054 _menhir_stack _v_2
      | A | C | CAP_L | D | E | F | G | H | HH | I | L | O | P | S | U | X ->
          let _menhir_s = MenhirState001 in
          let _v = _menhir_action_048 () in
          _menhir_goto_input_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_002 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _menhir_stack = MenhirCell1_STAR (_menhir_stack, _menhir_s) in
      let _menhir_s = MenhirState002 in
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | NUM _v ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s
      | A | C | CAP_L | D | E | F | G | H | HH | I | L | O | P | S | U | X ->
          let _v = _menhir_action_048 () in
          _menhir_goto_input_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_003 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let n = _v in
      let _v = _menhir_action_047 n in
      _menhir_goto_input_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_input_width : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_input_width (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | X ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_025 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | U ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_024 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | S ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_045 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | P ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_046 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | O ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_026 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | L ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_028 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_027 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_029 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_015 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | G ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_039 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | F ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_038 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | E ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_037 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_014 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | A ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_040 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | I ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_013 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | HH ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_019 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_018 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_020 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_009 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_008 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | H ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_022 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_021 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_023 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_011 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_010 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | G ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_035 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | F ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_034 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | E ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_033 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | D ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_012 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | CAP_L ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_031 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_030 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_032 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_017 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | G ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_043 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | F ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_042 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | E ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_041 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_016 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | A ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_044 () in
              _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | C ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_007 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | A ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_036 () in
          _menhir_goto_input_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _eRR ()
  
  and _menhir_goto_input_typ : type  ttv_stack. (ttv_stack, _menhir_box_parse_input_format) _menhir_cell1_input_width -> _ -> _ -> _ -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell1_input_width (_menhir_stack, _menhir_s, w) = _menhir_stack in
      let t = _v in
      let _v = _menhir_action_002 t w in
      _menhir_goto_input_placeholder _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_input_placeholder : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState000 ->
          _menhir_run_052 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState001 ->
          _menhir_run_052 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState052 ->
          _menhir_run_052 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState050 ->
          _menhir_run_052 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState002 ->
          _menhir_run_050 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_052 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_input_format) _menhir_state -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_input_placeholder (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | TOK_string _v_0 ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState052
      | STAR ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState052
      | NUM _v_1 ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState052
      | EOF ->
          let _v_2 = _menhir_action_003 () in
          _menhir_run_053 _menhir_stack _v_2
      | A | C | CAP_L | D | E | F | G | H | HH | I | L | O | P | S | U | X ->
          let _menhir_s = MenhirState052 in
          let _v = _menhir_action_048 () in
          _menhir_goto_input_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_050 : type  ttv_stack. ((ttv_stack, _menhir_box_parse_input_format) _menhir_cell1_STAR as 'stack) -> _ -> _ -> _ -> ('stack, _menhir_box_parse_input_format) _menhir_state -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_input_placeholder (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | TOK_string _v_0 ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState050
      | STAR ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState050
      | NUM _v_1 ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState050
      | EOF ->
          let _v_2 = _menhir_action_003 () in
          _menhir_run_051 _menhir_stack _v_2
      | A | C | CAP_L | D | E | F | G | H | HH | I | L | O | P | S | U | X ->
          let _menhir_s = MenhirState050 in
          let _v = _menhir_action_048 () in
          _menhir_goto_input_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  let _menhir_run_000 : type  ttv_stack. ttv_stack -> _ -> _ -> _menhir_box_parse_input_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | TOK_string _v ->
          _menhir_run_001 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState000
      | STAR ->
          _menhir_run_002 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState000
      | NUM _v ->
          _menhir_run_003 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState000
      | EOF ->
          let _v = _menhir_action_003 () in
          _menhir_run_056 _menhir_stack _v
      | A | C | CAP_L | D | E | F | G | H | HH | I | L | O | P | S | U | X ->
          let _menhir_s = MenhirState000 in
          let _v = _menhir_action_048 () in
          _menhir_goto_input_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | _ ->
          _eRR ()
  
  let _menhir_run_066 : type  ttv_stack. ttv_stack -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _v ->
      let l = _v in
      let _v = _menhir_action_105 l in
      MenhirBox_parse_output_format _v
  
  let rec _menhir_run_069 : type  ttv_stack. (ttv_stack, _menhir_box_parse_output_format) _menhir_cell1_output_format -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _v ->
      let MenhirCell1_output_format (_menhir_stack, _menhir_s, hd) = _menhir_stack in
      let tl = _v in
      let _v = _menhir_action_059 hd tl in
      _menhir_goto_output_format_list _menhir_stack _v _menhir_s
  
  and _menhir_goto_output_format_list : type  ttv_stack. ttv_stack -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _v _menhir_s ->
      match _menhir_s with
      | MenhirState068 ->
          _menhir_run_069 _menhir_stack _v
      | MenhirState058 ->
          _menhir_run_066 _menhir_stack _v
      | _ ->
          _menhir_fail ()
  
  let rec _menhir_run_059 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_051 () in
      _menhir_goto_output_flag _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_output_flag : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_output_flag (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | ZERO ->
          _menhir_run_059 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState121
      | SPACE ->
          _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState121
      | SHARP ->
          _menhir_run_062 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState121
      | PLUS ->
          _menhir_run_063 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState121
      | MINUS ->
          _menhir_run_064 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState121
      | A | C | CAP_L | D | DOT | E | F | G | H | HH | I | L | LL | NUM _ | O | P | S | STAR | U | WS | X ->
          let _ = _menhir_action_054 () in
          _menhir_run_122 _menhir_stack _menhir_lexbuf _menhir_lexer _tok
      | _ ->
          _eRR ()
  
  and _menhir_run_061 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_053 () in
      _menhir_goto_output_flag _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_062 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_052 () in
      _menhir_goto_output_flag _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_063 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_049 () in
      _menhir_goto_output_flag _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_064 : type  ttv_stack. ttv_stack -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let _v = _menhir_action_050 () in
      _menhir_goto_output_flag _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_122 : type  ttv_stack. (ttv_stack, _menhir_box_parse_output_format) _menhir_cell1_output_flag -> _ -> _ -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _tok ->
      let MenhirCell1_output_flag (_menhir_stack, _menhir_s, _) = _menhir_stack in
      let _v = _menhir_action_055 () in
      _menhir_goto_output_flag_list _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_output_flag_list : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      match _menhir_s with
      | MenhirState121 ->
          _menhir_run_122 _menhir_stack _menhir_lexbuf _menhir_lexer _tok
      | MenhirState058 ->
          _menhir_run_070 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
      | MenhirState068 ->
          _menhir_run_070 _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_run_070 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_output_flag_list (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | STAR ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_102 () in
          _menhir_goto_output_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | NUM _v_1 ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let n = _v_1 in
          let _v = _menhir_action_101 n in
          _menhir_goto_output_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | A | C | CAP_L | D | DOT | E | F | G | H | HH | I | L | LL | O | P | S | U | WS | X ->
          let _v = _menhir_action_103 () in
          _menhir_goto_output_width _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _menhir_fail ()
  
  and _menhir_goto_output_width : type  ttv_stack. (ttv_stack, _menhir_box_parse_output_format) _menhir_cell1_output_flag_list -> _ -> _ -> _ -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let _menhir_stack = MenhirCell0_output_width (_menhir_stack, _v) in
      match (_tok : MenhirBasics.token) with
      | DOT ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | STAR ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_062 () in
              _menhir_goto_output_precision _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | NUM _v_1 ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let n = _v_1 in
              let _v = _menhir_action_060 n in
              _menhir_goto_output_precision _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | A | C | CAP_L | D | E | F | G | H | HH | I | L | LL | O | P | S | U | WS | X ->
              let _v = _menhir_action_061 () in
              _menhir_goto_output_precision _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | A | C | CAP_L | D | E | F | G | H | HH | I | L | LL | O | P | S | U | WS | X ->
          let _v = _menhir_action_063 () in
          _menhir_goto_output_precision _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _eRR ()
  
  and _menhir_goto_output_precision : type  ttv_stack. (ttv_stack, _menhir_box_parse_output_format) _menhir_cell1_output_flag_list _menhir_cell0_output_width -> _ -> _ -> _ -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let _menhir_stack = MenhirCell0_output_precision (_menhir_stack, _v) in
      match (_tok : MenhirBasics.token) with
      | X ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_082 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | WS ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_099 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | U ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_081 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | S ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_098 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | P ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_100 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | O ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_083 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | LL ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_088 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_087 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_089 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_074 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_073 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | L ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_085 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_084 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_086 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_072 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_071 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | I ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_070 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | HH ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_076 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_075 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_077 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_066 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_065 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | H ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | X ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_079 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | U ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_078 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | O ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_080 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | I ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_068 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | D ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_067 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | G ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_092 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | F ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_091 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | E ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_090 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | D ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_069 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | CAP_L ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          (match (_tok : MenhirBasics.token) with
          | G ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_096 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | F ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_095 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | E ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_094 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | A ->
              let _tok = _menhir_lexer _menhir_lexbuf in
              let _v = _menhir_action_097 () in
              _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
          | _ ->
              _eRR ())
      | C ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_064 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | A ->
          let _tok = _menhir_lexer _menhir_lexbuf in
          let _v = _menhir_action_093 () in
          _menhir_goto_output_typ _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok
      | _ ->
          _eRR ()
  
  and _menhir_goto_output_typ : type  ttv_stack. (ttv_stack, _menhir_box_parse_output_format) _menhir_cell1_output_flag_list _menhir_cell0_output_width _menhir_cell0_output_precision -> _ -> _ -> _ -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _tok ->
      let MenhirCell0_output_precision (_menhir_stack, p) = _menhir_stack in
      let MenhirCell0_output_width (_menhir_stack, w) = _menhir_stack in
      let MenhirCell1_output_flag_list (_menhir_stack, _menhir_s, _) = _menhir_stack in
      let t = _v in
      let _v = _menhir_action_057 p t w in
      _menhir_goto_output_format _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  and _menhir_goto_output_format : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok ->
      let _menhir_stack = MenhirCell1_output_format (_menhir_stack, _menhir_s, _v) in
      match (_tok : MenhirBasics.token) with
      | ZERO ->
          _menhir_run_059 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState068
      | TOK_string _v_0 ->
          _menhir_run_060 _menhir_stack _menhir_lexbuf _menhir_lexer _v_0 MenhirState068
      | SPACE ->
          _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState068
      | SHARP ->
          _menhir_run_062 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState068
      | PLUS ->
          _menhir_run_063 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState068
      | MINUS ->
          _menhir_run_064 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState068
      | A | C | CAP_L | D | DOT | E | F | G | H | HH | I | L | LL | NUM _ | O | P | S | STAR | U | WS | X ->
          let _v_1 = _menhir_action_054 () in
          _menhir_run_070 _menhir_stack _menhir_lexbuf _menhir_lexer _v_1 MenhirState068 _tok
      | EOF ->
          let _v_2 = _menhir_action_058 () in
          _menhir_run_069 _menhir_stack _v_2
  
  and _menhir_run_060 : type  ttv_stack. ttv_stack -> _ -> _ -> _ -> (ttv_stack, _menhir_box_parse_output_format) _menhir_state -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      let v = _v in
      let _v = _menhir_action_056 v in
      _menhir_goto_output_format _menhir_stack _menhir_lexbuf _menhir_lexer _v _menhir_s _tok
  
  let _menhir_run_058 : type  ttv_stack. ttv_stack -> _ -> _ -> _menhir_box_parse_output_format =
    fun _menhir_stack _menhir_lexbuf _menhir_lexer ->
      let _tok = _menhir_lexer _menhir_lexbuf in
      match (_tok : MenhirBasics.token) with
      | ZERO ->
          _menhir_run_059 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | TOK_string _v ->
          _menhir_run_060 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState058
      | SPACE ->
          _menhir_run_061 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | SHARP ->
          _menhir_run_062 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | PLUS ->
          _menhir_run_063 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | MINUS ->
          _menhir_run_064 _menhir_stack _menhir_lexbuf _menhir_lexer MenhirState058
      | A | C | CAP_L | D | DOT | E | F | G | H | HH | I | L | LL | NUM _ | O | P | S | STAR | U | WS | X ->
          let _v = _menhir_action_054 () in
          _menhir_run_070 _menhir_stack _menhir_lexbuf _menhir_lexer _v MenhirState058 _tok
      | EOF ->
          let _v = _menhir_action_058 () in
          _menhir_run_066 _menhir_stack _v
  
end

let parse_output_format =
  fun _menhir_lexer _menhir_lexbuf ->
    let _menhir_stack = () in
    let MenhirBox_parse_output_format v = _menhir_run_058 _menhir_stack _menhir_lexbuf _menhir_lexer in
    v

let parse_input_format =
  fun _menhir_lexer _menhir_lexbuf ->
    let _menhir_stack = () in
    let MenhirBox_parse_input_format v = _menhir_run_000 _menhir_stack _menhir_lexbuf _menhir_lexer in
    v