@@ -9322,11 +9322,11 @@ end = struct
9322
9322
9323
9323
9324
9324
9325
- # 10
9325
+ # 10 "ext/map.cppo.ml"
9326
9326
type key = string
9327
9327
let compare_key = Ext_string.compare
9328
9328
9329
- # 22
9329
+ # 22 "ext/map.cppo.ml"
9330
9330
type 'a t = (key,'a) Map_gen.t
9331
9331
exception Duplicate_key of key
9332
9332
@@ -10213,7 +10213,7 @@ let lf = '\010'
10213
10213
10214
10214
# 124 "ext/ext_json_parse.ml"
10215
10215
let __ocaml_lex_tables = {
10216
- Lexing.lex_base =
10216
+ Lexing.lex_base =
10217
10217
"\000\000\239\255\240\255\241\255\000\000\025\000\011\000\244\255\
10218
10218
\245\255\246\255\247\255\248\255\249\255\000\000\000\000\000\000\
10219
10219
\041\000\001\000\254\255\005\000\005\000\253\255\001\000\002\000\
@@ -10222,7 +10222,7 @@ let __ocaml_lex_tables = {
10222
10222
\001\000\253\255\254\255\023\000\255\255\006\000\246\255\189\000\
10223
10223
\248\255\215\000\255\255\249\255\249\000\181\000\252\255\009\000\
10224
10224
\063\000\075\000\234\000\251\255\032\001\250\255";
10225
- Lexing.lex_backtrk =
10225
+ Lexing.lex_backtrk =
10226
10226
"\255\255\255\255\255\255\255\255\013\000\013\000\016\000\255\255\
10227
10227
\255\255\255\255\255\255\255\255\255\255\016\000\016\000\016\000\
10228
10228
\016\000\016\000\255\255\000\000\012\000\255\255\255\255\255\255\
@@ -10231,7 +10231,7 @@ let __ocaml_lex_tables = {
10231
10231
\255\255\255\255\255\255\001\000\255\255\255\255\255\255\008\000\
10232
10232
\255\255\255\255\255\255\255\255\006\000\006\000\255\255\006\000\
10233
10233
\001\000\002\000\255\255\255\255\255\255\255\255";
10234
- Lexing.lex_default =
10234
+ Lexing.lex_default =
10235
10235
"\001\000\000\000\000\000\000\000\255\255\255\255\255\255\000\000\
10236
10236
\000\000\000\000\000\000\000\000\000\000\255\255\255\255\255\255\
10237
10237
\255\255\255\255\000\000\255\255\020\000\000\000\255\255\255\255\
@@ -10240,7 +10240,7 @@ let __ocaml_lex_tables = {
10240
10240
\042\000\000\000\000\000\255\255\000\000\047\000\000\000\047\000\
10241
10241
\000\000\051\000\000\000\000\000\255\255\255\255\000\000\255\255\
10242
10242
\255\255\255\255\255\255\000\000\255\255\000\000";
10243
- Lexing.lex_trans =
10243
+ Lexing.lex_trans =
10244
10244
"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
10245
10245
\000\000\019\000\018\000\018\000\019\000\017\000\019\000\255\255\
10246
10246
\048\000\019\000\255\255\057\000\000\000\000\000\000\000\000\000\
@@ -10310,7 +10310,7 @@ let __ocaml_lex_tables = {
10310
10310
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
10311
10311
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
10312
10312
\000\000";
10313
- Lexing.lex_check =
10313
+ Lexing.lex_check =
10314
10314
"\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
10315
10315
\255\255\000\000\000\000\017\000\000\000\000\000\019\000\020\000\
10316
10316
\045\000\019\000\020\000\055\000\255\255\255\255\255\255\255\255\
@@ -10380,22 +10380,22 @@ let __ocaml_lex_tables = {
10380
10380
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
10381
10381
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
10382
10382
\255\255";
10383
- Lexing.lex_base_code =
10383
+ Lexing.lex_base_code =
10384
10384
"";
10385
- Lexing.lex_backtrk_code =
10385
+ Lexing.lex_backtrk_code =
10386
10386
"";
10387
- Lexing.lex_default_code =
10387
+ Lexing.lex_default_code =
10388
10388
"";
10389
- Lexing.lex_trans_code =
10389
+ Lexing.lex_trans_code =
10390
10390
"";
10391
- Lexing.lex_check_code =
10391
+ Lexing.lex_check_code =
10392
10392
"";
10393
- Lexing.lex_code =
10393
+ Lexing.lex_code =
10394
10394
"";
10395
10395
}
10396
10396
10397
10397
let rec lex_json buf lexbuf =
10398
- __ocaml_lex_lex_json_rec buf lexbuf 0
10398
+ __ocaml_lex_lex_json_rec buf lexbuf 0
10399
10399
and __ocaml_lex_lex_json_rec buf lexbuf __ocaml_lex_state =
10400
10400
match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
10401
10401
| 0 ->
@@ -10497,11 +10497,11 @@ let
10497
10497
( error lexbuf (Illegal_character c ))
10498
10498
# 408 "ext/ext_json_parse.ml"
10499
10499
10500
- | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
10500
+ | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
10501
10501
__ocaml_lex_lex_json_rec buf lexbuf __ocaml_lex_state
10502
10502
10503
10503
and comment buf lexbuf =
10504
- __ocaml_lex_comment_rec buf lexbuf 40
10504
+ __ocaml_lex_comment_rec buf lexbuf 40
10505
10505
and __ocaml_lex_comment_rec buf lexbuf __ocaml_lex_state =
10506
10506
match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
10507
10507
| 0 ->
@@ -10519,11 +10519,11 @@ and __ocaml_lex_comment_rec buf lexbuf __ocaml_lex_state =
10519
10519
(error lexbuf Unterminated_comment)
10520
10520
# 430 "ext/ext_json_parse.ml"
10521
10521
10522
- | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
10522
+ | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
10523
10523
__ocaml_lex_comment_rec buf lexbuf __ocaml_lex_state
10524
10524
10525
10525
and scan_string buf start lexbuf =
10526
- __ocaml_lex_scan_string_rec buf start lexbuf 45
10526
+ __ocaml_lex_scan_string_rec buf start lexbuf 45
10527
10527
and __ocaml_lex_scan_string_rec buf start lexbuf __ocaml_lex_state =
10528
10528
match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
10529
10529
| 0 ->
@@ -10658,7 +10658,7 @@ let
10658
10658
)
10659
10659
# 569 "ext/ext_json_parse.ml"
10660
10660
10661
- | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
10661
+ | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
10662
10662
__ocaml_lex_scan_string_rec buf start lexbuf __ocaml_lex_state
10663
10663
10664
10664
;;
0 commit comments