Summary: There is no reason to have this in Typ. Reviewed By: skcho Differential Revision: D19161946 fbshipit-source-id: 7d9b4f249master
Nikos Gorogiannis
5 years ago
committed by
Facebook Github Bot
parent
cef051dd1a
commit
33352623a5
@ -0,0 +1,64 @@
|
||||
(*
|
||||
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||
*
|
||||
* This source code is licensed under the MIT license found in the
|
||||
* LICENSE file in the root directory of this source tree.
|
||||
*)
|
||||
|
||||
open! IStd
|
||||
module F = Format
|
||||
|
||||
type t = {class_name: Typ.Name.t; field_name: string} [@@deriving compare, equal]
|
||||
|
||||
let make class_name field_name = {class_name; field_name}
|
||||
|
||||
let get_class_name {class_name} = class_name
|
||||
|
||||
let get_field_name {field_name} = field_name
|
||||
|
||||
let is_java {class_name} = Typ.Name.Java.is_class class_name
|
||||
|
||||
module T = struct
|
||||
type nonrec t = t
|
||||
|
||||
let compare = compare
|
||||
end
|
||||
|
||||
module Set = Caml.Set.Make (T)
|
||||
module Map = Caml.Map.Make (T)
|
||||
|
||||
let join ~sep c f = String.concat ~sep [c; f]
|
||||
|
||||
let dot_join = join ~sep:"."
|
||||
|
||||
let cc_join = join ~sep:"::"
|
||||
|
||||
let to_string fld =
|
||||
if is_java fld then dot_join (Typ.Name.name fld.class_name) fld.field_name else fld.field_name
|
||||
|
||||
|
||||
let to_simplified_string fld =
|
||||
if is_java fld then
|
||||
Typ.Name.name fld.class_name |> String.rsplit2 ~on:'.'
|
||||
|> Option.value_map ~default:fld.field_name ~f:(fun (_, class_only) ->
|
||||
String.concat ~sep:"." [class_only; fld.field_name] )
|
||||
else fld.field_name
|
||||
|
||||
|
||||
let to_full_string fld =
|
||||
(if is_java fld then dot_join else cc_join) (Typ.Name.name fld.class_name) fld.field_name
|
||||
|
||||
|
||||
let pp f fld = F.pp_print_string f fld.field_name
|
||||
|
||||
let is_java_captured_parameter ({field_name} as field) =
|
||||
is_java field && String.is_prefix ~prefix:"val$" field_name
|
||||
|
||||
|
||||
let is_java_outer_instance ({field_name} as field) =
|
||||
is_java field
|
||||
&&
|
||||
let this = "this$" in
|
||||
let last_char = field_name.[String.length field_name - 1] in
|
||||
(last_char >= '0' && last_char <= '9')
|
||||
&& String.is_suffix field_name ~suffix:(this ^ String.of_char last_char)
|
||||
@ -0,0 +1,45 @@
|
||||
(*
|
||||
* Copyright (c) Facebook, Inc. and its affiliates.
|
||||
*
|
||||
* This source code is licensed under the MIT license found in the
|
||||
* LICENSE file in the root directory of this source tree.
|
||||
*)
|
||||
|
||||
open! IStd
|
||||
module F = Format
|
||||
|
||||
(** Names for fields of class/struct/union *)
|
||||
type t [@@deriving compare, equal]
|
||||
|
||||
val make : Typ.Name.t -> string -> t
|
||||
(** create a field of the given class and fieldname *)
|
||||
|
||||
val get_class_name : t -> Typ.Name.t
|
||||
|
||||
val get_field_name : t -> string
|
||||
|
||||
val is_java : t -> bool
|
||||
|
||||
module Set : Caml.Set.S with type elt = t
|
||||
(** Set for fieldnames *)
|
||||
|
||||
module Map : Caml.Map.S with type key = t
|
||||
(** Map for fieldnames *)
|
||||
|
||||
val is_java_captured_parameter : t -> bool
|
||||
(** Check if field is a captured parameter *)
|
||||
|
||||
val is_java_outer_instance : t -> bool
|
||||
(** Check if the field is the synthetic this$n of a nested class, used to access the n-th outer
|
||||
instance. *)
|
||||
|
||||
val to_string : t -> string
|
||||
(** Convert a field name to a string. *)
|
||||
|
||||
val to_full_string : t -> string
|
||||
|
||||
val to_simplified_string : t -> string
|
||||
(** Convert a fieldname to a simplified string with at most one-level path. *)
|
||||
|
||||
val pp : F.formatter -> t -> unit
|
||||
(** Pretty print a field name. *)
|
||||
Loading…
Reference in new issue