type token = | ARGUMENT of ( # 27 "debugger/debugger_parser.mly" string # 6 "debugger/debugger_parser.ml" ) | LIDENT of ( # 28 "debugger/debugger_parser.mly" string # 11 "debugger/debugger_parser.ml" ) | UIDENT of ( # 29 "debugger/debugger_parser.mly" string # 16 "debugger/debugger_parser.ml" ) | OPERATOR of ( # 30 "debugger/debugger_parser.mly" string # 21 "debugger/debugger_parser.ml" ) | INTEGER of ( # 31 "debugger/debugger_parser.mly" int64 # 26 "debugger/debugger_parser.ml" ) | STAR | MINUS | DOT | COLON | HASH | AT | DOLLAR | BANG | LPAREN | RPAREN | LBRACKET | RBRACKET | EOL open Parsing let _ = parse_error;; # 18 "debugger/debugger_parser.mly" open Int64ops open Input_handling open Longident open Parser_aux open Debugcom # 52 "debugger/debugger_parser.ml" let yytransl_const = [| 262 (* STAR *); 263 (* MINUS *); 264 (* DOT *); 265 (* COLON *); 266 (* HASH *); 267 (* AT *); 268 (* DOLLAR *); 269 (* BANG *); 270 (* LPAREN *); 271 (* RPAREN *); 272 (* LBRACKET *); 273 (* RBRACKET *); 274 (* EOL *); 0|] let yytransl_block = [| 257 (* ARGUMENT *); 258 (* LIDENT *); 259 (* UIDENT *); 260 (* OPERATOR *); 261 (* INTEGER *); 0|] let yylhs = "\255\255\ \001\000\001\000\002\000\003\000\003\000\004\000\005\000\006\000\ \007\000\007\000\022\000\022\000\008\000\008\000\009\000\009\000\ \023\000\023\000\023\000\023\000\023\000\024\000\024\000\019\000\ \020\000\020\000\020\000\020\000\021\000\010\000\010\000\011\000\ \012\000\012\000\013\000\013\000\014\000\025\000\025\000\025\000\ \025\000\025\000\025\000\025\000\025\000\025\000\015\000\015\000\ \016\000\016\000\016\000\016\000\016\000\016\000\017\000\017\000\ \018\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000" let yylen = "\002\000\ \002\000\001\000\002\000\002\000\001\000\002\000\002\000\001\000\ \002\000\001\000\002\000\001\000\002\000\001\000\002\000\001\000\ \001\000\003\000\001\000\003\000\005\000\001\000\003\000\002\000\ \001\000\001\000\003\000\000\000\002\000\001\000\001\000\002\000\ \001\000\001\000\001\000\000\000\002\000\001\000\001\000\002\000\ \003\000\005\000\005\000\003\000\002\000\003\000\002\000\001\000\ \001\000\001\000\003\000\002\000\004\000\004\000\003\000\001\000\ \001\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\ \002\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\ \002\000\002\000\002\000\002\000\002\000\002\000" let yydefred = "\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\057\000\ \058\000\002\000\000\000\059\000\000\000\060\000\005\000\000\000\ \061\000\000\000\062\000\008\000\063\000\000\000\064\000\010\000\ \000\000\014\000\065\000\000\000\000\000\066\000\012\000\016\000\ \030\000\031\000\067\000\000\000\068\000\033\000\069\000\034\000\ \035\000\070\000\000\000\071\000\017\000\022\000\019\000\039\000\ \000\000\000\000\000\000\072\000\048\000\038\000\000\000\000\000\ \000\000\000\000\050\000\073\000\049\000\000\000\026\000\000\000\ \074\000\000\000\056\000\000\000\075\000\076\000\000\000\077\000\ \000\000\078\000\001\000\003\000\004\000\006\000\007\000\009\000\ \013\000\011\000\015\000\032\000\037\000\040\000\045\000\000\000\ \000\000\000\000\047\000\000\000\000\000\052\000\000\000\029\000\ \000\000\024\000\046\000\018\000\023\000\020\000\000\000\044\000\ \041\000\000\000\000\000\051\000\000\000\000\000\055\000\000\000\ \000\000\000\000\000\000\053\000\054\000\021\000\043\000\042\000" let yydgoto = "\022\000\ \025\000\028\000\030\000\033\000\035\000\037\000\039\000\043\000\ \046\000\057\000\053\000\055\000\058\000\060\000\068\000\076\000\ \081\000\040\000\086\000\082\000\083\000\048\000\070\000\071\000\ \072\000" let yysindex = "\117\000\ \004\255\016\255\011\255\029\255\044\255\052\255\051\255\020\255\ \054\255\102\255\102\255\006\255\102\255\102\255\137\255\040\255\ \142\255\048\255\107\255\142\255\142\255\000\000\004\255\000\000\ \000\000\000\000\048\255\000\000\011\255\000\000\000\000\048\255\ \000\000\048\255\000\000\000\000\000\000\048\255\000\000\000\000\ \029\255\000\000\000\000\048\255\044\255\000\000\000\000\000\000\ \000\000\000\000\000\000\048\255\000\000\000\000\000\000\000\000\ \000\000\000\000\048\255\000\000\000\000\000\000\000\000\000\000\ \069\255\150\255\150\255\000\000\000\000\000\000\072\255\094\255\ \022\255\142\255\000\000\000\000\000\000\015\255\000\000\000\000\ \000\000\055\255\000\000\079\255\000\000\000\000\048\255\000\000\ \048\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\071\255\ \080\255\034\255\000\000\029\255\058\255\000\000\051\255\000\000\ \074\255\000\000\000\000\000\000\000\000\000\000\085\255\000\000\ \000\000\086\255\096\255\000\000\051\255\029\255\000\000\000\000\ \084\255\127\255\129\255\000\000\000\000\000\000\000\000\000\000" let yyrindex = "\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\147\000\130\255\000\000\000\000\ \060\255\000\000\000\000\157\000\140\255\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\083\255\000\000\000\000\000\000\000\000\000\000\001\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\002\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" let yygindex = "\000\000\ \136\000\000\000\131\000\243\255\116\000\083\000\248\255\000\000\ \000\000\104\000\000\000\000\000\152\000\000\000\095\000\000\000\ \000\000\003\000\000\000\249\255\148\000\000\000\149\000\246\255\ \004\000" let yytablesize = 276 let yytable = "\042\000\ \025\000\027\000\075\000\026\000\023\000\031\000\084\000\049\000\ \050\000\084\000\084\000\047\000\088\000\089\000\056\000\029\000\ \027\000\069\000\077\000\078\000\085\000\024\000\106\000\024\000\ \038\000\026\000\041\000\097\000\024\000\092\000\108\000\031\000\ \024\000\032\000\094\000\120\000\095\000\024\000\121\000\024\000\ \096\000\061\000\062\000\063\000\073\000\064\000\098\000\122\000\ \034\000\123\000\074\000\065\000\066\000\067\000\100\000\038\000\ \036\000\024\000\044\000\036\000\045\000\101\000\125\000\084\000\ \028\000\024\000\109\000\126\000\024\000\103\000\104\000\024\000\ \024\000\102\000\069\000\094\000\128\000\028\000\106\000\105\000\ \110\000\116\000\117\000\118\000\112\000\115\000\113\000\028\000\ \129\000\114\000\130\000\112\000\028\000\119\000\124\000\061\000\ \062\000\063\000\134\000\064\000\131\000\106\000\127\000\049\000\ \050\000\065\000\066\000\067\000\061\000\062\000\063\000\024\000\ \133\000\051\000\052\000\054\000\132\000\001\000\002\000\003\000\ \004\000\005\000\006\000\007\000\008\000\009\000\010\000\011\000\ \012\000\013\000\014\000\015\000\016\000\017\000\018\000\019\000\ \020\000\021\000\061\000\062\000\063\000\135\000\064\000\079\000\ \080\000\136\000\036\000\036\000\065\000\066\000\067\000\061\000\ \062\000\063\000\024\000\064\000\028\000\028\000\091\000\093\000\ \099\000\065\000\066\000\067\000\111\000\059\000\107\000\087\000\ \090\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ \000\000\000\000\000\000\000\000\000\000\025\000\027\000\000\000\ \022\000\023\000\025\000\027\000\000\000\000\000\000\000\000\000\ \000\000\000\000\025\000\027\000" let yycheck = "\008\000\ \000\000\000\000\016\000\001\000\001\001\003\000\017\000\002\001\ \003\001\020\000\021\000\009\000\020\000\021\000\012\000\005\001\ \001\001\015\000\016\000\016\000\018\000\018\001\008\001\018\001\ \005\001\023\000\007\001\041\000\018\001\027\000\009\001\029\000\ \018\001\005\001\032\000\002\001\034\000\018\001\005\001\018\001\ \038\000\002\001\003\001\004\001\005\001\006\001\044\000\014\001\ \005\001\016\001\011\001\012\001\013\001\014\001\052\000\005\001\ \005\001\018\001\005\001\005\001\007\001\059\000\005\001\074\000\ \005\001\018\001\074\000\010\001\018\001\066\000\067\000\018\001\ \018\001\005\001\072\000\073\000\003\001\018\001\008\001\008\001\ \078\000\002\001\003\001\004\001\082\000\015\001\008\001\005\001\ \004\001\087\000\005\001\089\000\010\001\014\001\108\000\002\001\ \003\001\004\001\015\001\006\001\005\001\008\001\111\000\002\001\ \003\001\012\001\013\001\014\001\002\001\003\001\004\001\018\001\ \126\000\010\000\011\000\012\000\125\000\001\000\002\000\003\000\ \004\000\005\000\006\000\007\000\008\000\009\000\010\000\011\000\ \012\000\013\000\014\000\015\000\016\000\017\000\018\000\019\000\ \020\000\021\000\002\001\003\001\004\001\015\001\006\001\002\001\ \003\001\017\001\000\000\018\001\012\001\013\001\014\001\002\001\ \003\001\004\001\018\001\006\001\000\000\018\001\023\000\029\000\ \045\000\012\001\013\001\014\001\082\000\014\000\072\000\019\000\ \021\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ \255\255\255\255\255\255\255\255\255\255\005\001\005\001\255\255\ \008\001\008\001\010\001\010\001\255\255\255\255\255\255\255\255\ \255\255\255\255\018\001\018\001" let yynames_const = "\ STAR\000\ MINUS\000\ DOT\000\ COLON\000\ HASH\000\ AT\000\ DOLLAR\000\ BANG\000\ LPAREN\000\ RPAREN\000\ LBRACKET\000\ RBRACKET\000\ EOL\000\ " let yynames_block = "\ ARGUMENT\000\ LIDENT\000\ UIDENT\000\ OPERATOR\000\ INTEGER\000\ " let yyact = [| (fun _ -> failwith "parser") ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in let _2 = (Parsing.peek_val __caml_parser_env 0 : string list) in Obj.repr( # 118 "debugger/debugger_parser.mly" ( _1::_2 ) # 277 "debugger/debugger_parser.ml" : string list)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 120 "debugger/debugger_parser.mly" ( [] ) # 284 "debugger/debugger_parser.ml" : string list)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 124 "debugger/debugger_parser.mly" ( _1 ) # 292 "debugger/debugger_parser.ml" : string)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : int64) in let _2 = (Parsing.peek_val __caml_parser_env 0 : int list) in Obj.repr( # 130 "debugger/debugger_parser.mly" ( (to_int _1) :: _2 ) # 300 "debugger/debugger_parser.ml" : int list)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 132 "debugger/debugger_parser.mly" ( [] ) # 307 "debugger/debugger_parser.ml" : int list)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : int64) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 136 "debugger/debugger_parser.mly" ( to_int _1 ) # 315 "debugger/debugger_parser.ml" : int)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : int64) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 140 "debugger/debugger_parser.mly" ( _1 ) # 323 "debugger/debugger_parser.ml" : int64)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : int64) in Obj.repr( # 144 "debugger/debugger_parser.mly" ( to_int _1 ) # 330 "debugger/debugger_parser.ml" : int)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : int64) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 148 "debugger/debugger_parser.mly" ( Some (to_int _1) ) # 338 "debugger/debugger_parser.ml" : int option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 150 "debugger/debugger_parser.mly" ( None ) # 345 "debugger/debugger_parser.ml" : int option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : int64) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 154 "debugger/debugger_parser.mly" ( Some _1 ) # 353 "debugger/debugger_parser.ml" : 'opt_int64_eol)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 156 "debugger/debugger_parser.mly" ( None ) # 360 "debugger/debugger_parser.ml" : 'opt_int64_eol)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 0 : int) in Obj.repr( # 160 "debugger/debugger_parser.mly" ( Some (- _2) ) # 367 "debugger/debugger_parser.ml" : int option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : int option) in Obj.repr( # 162 "debugger/debugger_parser.mly" ( _1 ) # 374 "debugger/debugger_parser.ml" : int option)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 0 : int64) in Obj.repr( # 166 "debugger/debugger_parser.mly" ( Some (Int64.neg _2) ) # 381 "debugger/debugger_parser.ml" : int64 option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : 'opt_int64_eol) in Obj.repr( # 168 "debugger/debugger_parser.mly" ( _1 ) # 388 "debugger/debugger_parser.ml" : int64 option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 174 "debugger/debugger_parser.mly" ( Lident _1 ) # 395 "debugger/debugger_parser.ml" : 'longident)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : 'module_path) in let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 176 "debugger/debugger_parser.mly" ( Ldot(Location.mknoloc _1, Location.mknoloc _3) ) # 403 "debugger/debugger_parser.ml" : 'longident)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 178 "debugger/debugger_parser.mly" ( Lident _1 ) # 410 "debugger/debugger_parser.ml" : 'longident)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : 'module_path) in let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 180 "debugger/debugger_parser.mly" ( Ldot(Location.mknoloc _1, Location.mknoloc _3) ) # 418 "debugger/debugger_parser.ml" : 'longident)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 4 : 'module_path) in let _4 = (Parsing.peek_val __caml_parser_env 1 : string) in Obj.repr( # 182 "debugger/debugger_parser.mly" ( Ldot(Location.mknoloc _1, Location.mknoloc _4) ) # 426 "debugger/debugger_parser.ml" : 'longident)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 187 "debugger/debugger_parser.mly" ( Lident _1 ) # 433 "debugger/debugger_parser.ml" : 'module_path)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : 'module_path) in let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 189 "debugger/debugger_parser.mly" ( Ldot(Location.mknoloc _1, Location.mknoloc _3) ) # 441 "debugger/debugger_parser.ml" : 'module_path)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : 'longident) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 193 "debugger/debugger_parser.mly" ( _1 ) # 449 "debugger/debugger_parser.ml" : Longident.t)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 196 "debugger/debugger_parser.mly" ( Some (Lident _1) ) # 456 "debugger/debugger_parser.ml" : Longident.t option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 197 "debugger/debugger_parser.mly" ( Some (Lident _1) ) # 463 "debugger/debugger_parser.ml" : Longident.t option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : 'module_path) in let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 198 "debugger/debugger_parser.mly" ( Some (Ldot(Location.mknoloc _1, Location.mknoloc _3)) ) # 472 "debugger/debugger_parser.ml" : Longident.t option)) ; (fun __caml_parser_env -> Obj.repr( # 200 "debugger/debugger_parser.mly" ( None ) # 478 "debugger/debugger_parser.ml" : Longident.t option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : Longident.t option) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 203 "debugger/debugger_parser.mly" ( _1 ) # 486 "debugger/debugger_parser.ml" : Longident.t option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 206 "debugger/debugger_parser.mly" ( _1 ) # 493 "debugger/debugger_parser.ml" : string)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 207 "debugger/debugger_parser.mly" ( _1 ) # 500 "debugger/debugger_parser.ml" : string)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 210 "debugger/debugger_parser.mly" ( _1 ) # 508 "debugger/debugger_parser.ml" : string)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 213 "debugger/debugger_parser.mly" ( Some _1 ) # 515 "debugger/debugger_parser.ml" : string option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 214 "debugger/debugger_parser.mly" ( None ) # 522 "debugger/debugger_parser.ml" : string option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 217 "debugger/debugger_parser.mly" ( Some _1 ) # 529 "debugger/debugger_parser.ml" : string option)) ; (fun __caml_parser_env -> Obj.repr( # 218 "debugger/debugger_parser.mly" ( None ) # 535 "debugger/debugger_parser.ml" : string option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : string option) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 221 "debugger/debugger_parser.mly" ( _1 ) # 543 "debugger/debugger_parser.ml" : string option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : 'longident) in Obj.repr( # 226 "debugger/debugger_parser.mly" ( E_ident _1 ) # 550 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> Obj.repr( # 227 "debugger/debugger_parser.mly" ( E_result ) # 556 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 0 : int64) in Obj.repr( # 228 "debugger/debugger_parser.mly" ( E_name (to_int _2) ) # 563 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : 'expression) in let _3 = (Parsing.peek_val __caml_parser_env 0 : int64) in Obj.repr( # 229 "debugger/debugger_parser.mly" ( E_item(_1, (to_int _3)) ) # 571 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 4 : 'expression) in let _4 = (Parsing.peek_val __caml_parser_env 1 : int64) in Obj.repr( # 230 "debugger/debugger_parser.mly" ( E_item(_1, (to_int _4)) ) # 579 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 4 : 'expression) in let _4 = (Parsing.peek_val __caml_parser_env 1 : int64) in Obj.repr( # 231 "debugger/debugger_parser.mly" ( E_item(_1, (to_int _4)) ) # 587 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : 'expression) in let _3 = (Parsing.peek_val __caml_parser_env 0 : string) in Obj.repr( # 232 "debugger/debugger_parser.mly" ( E_field(_1, _3) ) # 595 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 0 : 'expression) in Obj.repr( # 233 "debugger/debugger_parser.mly" ( E_field(_2, "contents") ) # 602 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 1 : 'expression) in Obj.repr( # 234 "debugger/debugger_parser.mly" ( _2 ) # 609 "debugger/debugger_parser.ml" : 'expression)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : 'expression) in let _2 = (Parsing.peek_val __caml_parser_env 0 : Parser_aux.expression list) in Obj.repr( # 240 "debugger/debugger_parser.mly" ( _1::_2 ) # 617 "debugger/debugger_parser.ml" : Parser_aux.expression list)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 241 "debugger/debugger_parser.mly" ( [] ) # 624 "debugger/debugger_parser.ml" : Parser_aux.expression list)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 247 "debugger/debugger_parser.mly" ( BA_none ) # 631 "debugger/debugger_parser.ml" : Parser_aux.break_arg)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : int) in Obj.repr( # 248 "debugger/debugger_parser.mly" ( BA_pc {frag = main_frag; pos = _1} ) # 639 "debugger/debugger_parser.ml" : Parser_aux.break_arg)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : int64) in let _3 = (Parsing.peek_val __caml_parser_env 0 : int) in Obj.repr( # 250 "debugger/debugger_parser.mly" ( BA_pc {frag = to_int _1; pos = _3} ) # 648 "debugger/debugger_parser.ml" : Parser_aux.break_arg)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 1 : 'expression) in let _2 = (Parsing.peek_val __caml_parser_env 0 : unit) in Obj.repr( # 252 "debugger/debugger_parser.mly" ( BA_function _1 ) # 656 "debugger/debugger_parser.ml" : Parser_aux.break_arg)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 2 : Longident.t option) in let _3 = (Parsing.peek_val __caml_parser_env 1 : int64) in let _4 = (Parsing.peek_val __caml_parser_env 0 : int option) in Obj.repr( # 253 "debugger/debugger_parser.mly" ( BA_pos1 (_2, (to_int _3), _4)) # 665 "debugger/debugger_parser.ml" : Parser_aux.break_arg)) ; (fun __caml_parser_env -> let _2 = (Parsing.peek_val __caml_parser_env 2 : Longident.t option) in let _4 = (Parsing.peek_val __caml_parser_env 0 : int) in Obj.repr( # 254 "debugger/debugger_parser.mly" ( BA_pos2 (_2, _4) ) # 673 "debugger/debugger_parser.ml" : Parser_aux.break_arg)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 2 : Longident.t option) in let _2 = (Parsing.peek_val __caml_parser_env 1 : int) in let _3 = (Parsing.peek_val __caml_parser_env 0 : int option) in Obj.repr( # 261 "debugger/debugger_parser.mly" ( (_1, Some _2, _3) ) # 682 "debugger/debugger_parser.ml" : Longident.t option * int option * int option)) ; (fun __caml_parser_env -> let _1 = (Parsing.peek_val __caml_parser_env 0 : Longident.t option) in Obj.repr( # 263 "debugger/debugger_parser.mly" ( (_1, None, None) ) # 689 "debugger/debugger_parser.ml" : Longident.t option * int option * int option)) ; (fun __caml_parser_env -> Obj.repr( # 268 "debugger/debugger_parser.mly" ( stop_user_input () ) # 695 "debugger/debugger_parser.ml" : unit)) (* Entry argument_list_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry argument_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry integer_list_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry integer_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry int64_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry integer *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_integer_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_signed_integer_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_signed_int64_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry identifier *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry identifier_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry identifier_or_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_identifier *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_identifier_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry expression_list_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry break_argument_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry list_arguments_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry end_of_line *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry longident_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_longident *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) (* Entry opt_longident_eol *) ; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0))) |] let yytables = { Parsing.actions=yyact; Parsing.transl_const=yytransl_const; Parsing.transl_block=yytransl_block; Parsing.lhs=yylhs; Parsing.len=yylen; Parsing.defred=yydefred; Parsing.dgoto=yydgoto; Parsing.sindex=yysindex; Parsing.rindex=yyrindex; Parsing.gindex=yygindex; Parsing.tablesize=yytablesize; Parsing.table=yytable; Parsing.check=yycheck; Parsing.error_function=parse_error; Parsing.names_const=yynames_const; Parsing.names_block=yynames_block } let argument_list_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 1 lexfun lexbuf : string list) let argument_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 2 lexfun lexbuf : string) let integer_list_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 3 lexfun lexbuf : int list) let integer_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 4 lexfun lexbuf : int) let int64_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 5 lexfun lexbuf : int64) let integer (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 6 lexfun lexbuf : int) let opt_integer_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 7 lexfun lexbuf : int option) let opt_signed_integer_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 8 lexfun lexbuf : int option) let opt_signed_int64_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 9 lexfun lexbuf : int64 option) let identifier (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 10 lexfun lexbuf : string) let identifier_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 11 lexfun lexbuf : string) let identifier_or_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 12 lexfun lexbuf : string option) let opt_identifier (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 13 lexfun lexbuf : string option) let opt_identifier_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 14 lexfun lexbuf : string option) let expression_list_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 15 lexfun lexbuf : Parser_aux.expression list) let break_argument_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 16 lexfun lexbuf : Parser_aux.break_arg) let list_arguments_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 17 lexfun lexbuf : Longident.t option * int option * int option) let end_of_line (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 18 lexfun lexbuf : unit) let longident_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 19 lexfun lexbuf : Longident.t) let opt_longident (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 20 lexfun lexbuf : Longident.t option) let opt_longident_eol (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 21 lexfun lexbuf : Longident.t option)