38 lines
1.2 KiB
OCaml
38 lines
1.2 KiB
OCaml
|
(* type file_location = { *)
|
||
|
|
(* filename : string ; *)
|
||
|
|
(* start_line : int ; *)
|
||
|
|
(* start_column : int ; *)
|
||
|
|
(* end_line : int ; *)
|
||
|
|
(* end_column : int ; *)
|
||
|
|
(* } *)
|
||
|
|
|
||
|
|
type virtual_location = string
|
||
|
|
|
||
|
|
type t =
|
||
|
|
| File of Region.t (* file_location *)
|
||
|
|
| Virtual of virtual_location
|
||
|
|
|
||
|
|
let make (start_pos:Lexing.position) (end_pos:Lexing.position) : t =
|
||
|
|
(* TODO: give correct unicode offsets (the random number is here so
|
||
|
|
that searching for wrong souce locations appearing in messages
|
||
|
|
will quickly lead here *)
|
||
|
|
File (Region.make
|
||
|
|
~start:(Pos.make ~byte:start_pos ~point_num:(-1897000) ~point_bol:(-1897000))
|
||
|
|
~stop:(Pos.make ~byte:end_pos ~point_num:(-1897000) ~point_bol:(-1897000)))
|
||
|
|
|
||
|
|
let virtual_location s = Virtual s
|
||
|
|
let dummy = virtual_location "dummy"
|
||
|
|
|
||
|
|
type 'a wrap = {
|
||
|
|
wrap_content : 'a ;
|
||
|
|
location : t ;
|
||
|
|
}
|
||
|
|
|
||
|
|
let wrap ~loc wrap_content = { wrap_content ; location = loc }
|
||
|
|
let unwrap { wrap_content ; _ } = wrap_content
|
||
|
|
let map f x = { x with wrap_content = f x.wrap_content }
|
||
|
|
let pp_wrap f ppf { wrap_content ; _ } = Format.fprintf ppf "%a" f wrap_content
|
||
|
|
|
||
|
|
let lift_region : 'a Region.reg -> 'a wrap = fun x ->
|
||
|
|
wrap ~loc:(File x.region) x.value
|