Morsmall.Location · morsmall 0.2.0

type lexing_position = Morbig.CST.lexing_position = {

pos_fname : string;

pos_lnum : int;

pos_bol : int;

pos_cnum : int;

}

val equal_lexing_position : 
  lexing_position ->
  lexing_position ->
  Ppx_deriving_runtime.bool

val pp_lexing_position : 
  Ppx_deriving_runtime.Format.formatter ->
  lexing_position ->
  Ppx_deriving_runtime.unit

val show_lexing_position : lexing_position -> Ppx_deriving_runtime.string

type position = Morbig.CST.position = {

start_p : lexing_position;

end_p : lexing_position;

}

val equal_position : position -> position -> Ppx_deriving_runtime.bool

val pp_position : 
  Ppx_deriving_runtime.Format.formatter ->
  position ->
  Ppx_deriving_runtime.unit

val show_position : position -> Ppx_deriving_runtime.string

type 'a located = 'a Morbig.CST.located = {

value : 'a;

position : position;

}

val equal_located : 
  'a. ( 'a -> 'a -> Ppx_deriving_runtime.bool ) ->
  'a located ->
  'a located ->
  Ppx_deriving_runtime.bool

val pp_located : 
  'a. ( Ppx_deriving_runtime.Format.formatter ->
        'a ->
        Ppx_deriving_runtime.unit ) ->
  Ppx_deriving_runtime.Format.formatter ->
  'a located ->
  Ppx_deriving_runtime.unit

val show_located : 
  'a. ( Ppx_deriving_runtime.Format.formatter ->
        'a ->
        Ppx_deriving_runtime.unit ) ->
  'a located ->
  Ppx_deriving_runtime.string

val dummily_located : 'a -> 'b located

val on_located : ( 'a -> 'b ) -> 'c located -> 'd