+1 -1

vendor/opam/opam-file-format/README.md

··· 1 1 # opam-file-format - Parser and printer for the opam file syntax 2 2 3 3 This library provides the parser and printer for the opam file syntax as a 4 4 - library with no dependencies but [Dune](https://dune.build) >= 2.0. 4 4 + library with no dependencies but [Dune](https://dune.build) >= 3.13. 5 5 6 6 Opam was created and is maintained by [OCamlPro](http://www.ocamlpro.com). 7 7

+1 -1

vendor/opam/opam-file-format/dune-project

··· 1 1 - (lang dune 2.0) 1 1 + (lang dune 3.13) 2 2 (using menhir 2.0)

+1 -1

vendor/opam/opam-file-format/opam-file-format.opam

··· 11 11 run-test: ["dune" "runtest" "-p" name "-j" jobs] 12 12 depends: [ 13 13 "ocaml" {>= "4.02"} 14 14 - "dune" {>= "2.0"} 14 14 + "dune" {>= "3.13"} 15 15 "menhir" {>= "20211230"} 16 16 "alcotest" {with-test & >= "0.4.8"} 17 17 "fmt" {with-test}

+4

vendor/opam/opam-file-format/src/compat/domain.ml

··· 1 1 + module DLS = struct 2 2 + let new_key f = f () 3 3 + let get x = x 4 4 + end

+6

vendor/opam/opam-file-format/src/compat/dune

··· 1 1 + (rule 2 2 + (enabled_if (< %{ocaml_version} "5.0")) 3 3 + (action (with-stdout-to compat.sexp (echo "(\"domain\")")))) 4 4 + (rule 5 5 + (enabled_if (>= %{ocaml_version} "5.0")) 6 6 + (action (with-stdout-to compat.sexp (echo "()"))))

+5

vendor/opam/opam-file-format/src/dune

··· 3 3 (public_name opam-file-format) 4 4 (synopsis "Parser and printer for the opam file syntax") 5 5 (wrapped false) 6 6 + (private_modules (:include compat/compat.sexp)) 6 7 (flags :standard (:include flags.sexp))) 8 8 + 9 9 + (rule 10 10 + (enabled_if (< %{ocaml_version} "5.0")) 11 11 + (action (copy compat/domain.ml domain.ml))) 7 12 8 13 (rule 9 14 (enabled_if (< %{ocaml_version} "4.03"))

+3 -3

vendor/opam/opam-file-format/src/opamLexer.mll

··· 84 84 (* Some hash-consing for strings *) 85 85 module HS = 86 86 Weak.Make(struct include String let hash = Hashtbl.hash let equal = (=) end) 87 87 - let hm = HS.create 317 87 87 + let hm = Domain.DLS.new_key (fun () -> HS.create 317) 88 88 89 89 90 90 let buffer_rule r lb = ··· 93 93 r b lb ; 94 94 (* buffer start position, instead of last lexem position *) 95 95 lb.Lexing.lex_start_p <- pos; 96 96 - HS.merge hm (Buffer.contents b) 96 96 + HS.merge (Domain.DLS.get hm) (Buffer.contents b) 97 97 } 98 98 99 99 let eol = '\r'? '\n' ··· 131 131 | "true" { BOOL true } 132 132 | "false"{ BOOL false } 133 133 | int { INT (int_of_string (Lexing.lexeme lexbuf)) } 134 134 - | ident { IDENT (HS.merge hm (Lexing.lexeme lexbuf)) } 134 134 + | ident { IDENT (HS.merge (Domain.DLS.get hm) (Lexing.lexeme lexbuf)) } 135 135 | relop { RELOP (FullPos.relop (Lexing.lexeme lexbuf)) } 136 136 | '&' { AND } 137 137 | '|' { OR }