Reviewed By: mbouaziz Differential Revision: D5291900 fbshipit-source-id: 2bf232amaster
Andrzej Kotulski
8 years ago
committed by
Facebook Github Bot
parent
a8ad84b9d3
commit
61aa7aaae5
@ -1,125 +0,0 @@
|
||||
/*
|
||||
* Copyright (c) 2017 - present Facebook, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This source code is licensed under the BSD style license found in the
|
||||
* LICENSE file in the root directory of this source tree. An additional grant
|
||||
* of patent rights can be found in the PATENTS file in the same directory.
|
||||
*/
|
||||
open! IStd;
|
||||
|
||||
module Hashtbl = Caml.Hashtbl;
|
||||
|
||||
type clang_field_info = {qual_class: QualifiedCppName.t, field_name: string} [@@deriving compare];
|
||||
|
||||
type t =
|
||||
| Hidden /* Backend relies that Hidden is the smallest (first) field in Abs.should_raise_objc_leak */
|
||||
| Clang clang_field_info
|
||||
| Java string
|
||||
[@@deriving compare];
|
||||
|
||||
let hidden_str = ".hidden";
|
||||
|
||||
let equal = [%compare.equal : t];
|
||||
|
||||
module Set =
|
||||
Caml.Set.Make {
|
||||
type nonrec t = t;
|
||||
let compare = compare;
|
||||
};
|
||||
|
||||
module Map =
|
||||
Caml.Map.Make {
|
||||
type nonrec t = t;
|
||||
let compare = compare;
|
||||
};
|
||||
|
||||
module Clang = {
|
||||
let from_qualified qual_class field_name => Clang {qual_class, field_name};
|
||||
};
|
||||
|
||||
module Java = {
|
||||
let from_string n => Java n;
|
||||
};
|
||||
|
||||
|
||||
/** Convert a fieldname to a string. */
|
||||
let to_string =
|
||||
fun
|
||||
| Hidden => hidden_str
|
||||
| Java fname => fname
|
||||
| Clang {field_name} => field_name;
|
||||
|
||||
|
||||
/** Convert a fieldname to a simplified string with at most one-level path. */
|
||||
let to_simplified_string fn => {
|
||||
let s = to_string fn;
|
||||
switch (String.rsplit2 s on::'.') {
|
||||
| Some (s1, s2) =>
|
||||
switch (String.rsplit2 s1 on::'.') {
|
||||
| Some (_, s4) => s4 ^ "." ^ s2
|
||||
| _ => s
|
||||
}
|
||||
| _ => s
|
||||
}
|
||||
};
|
||||
|
||||
|
||||
/** Convert a fieldname to a flat string without path. */
|
||||
let to_flat_string fn => {
|
||||
let s = to_string fn;
|
||||
switch (String.rsplit2 s on::'.') {
|
||||
| Some (_, s2) => s2
|
||||
| _ => s
|
||||
}
|
||||
};
|
||||
|
||||
let pp f =>
|
||||
fun
|
||||
| Hidden => Format.fprintf f "%s" hidden_str
|
||||
| Java field_name
|
||||
| Clang {field_name} => Format.fprintf f "%s" field_name;
|
||||
|
||||
let pp_latex style f fn => Latex.pp_string style f (to_string fn);
|
||||
|
||||
|
||||
/** Returns the class part of the fieldname */
|
||||
let java_get_class fn => {
|
||||
let fn = to_string fn;
|
||||
let ri = String.rindex_exn fn '.';
|
||||
String.slice fn 0 ri
|
||||
};
|
||||
|
||||
|
||||
/** Returns the last component of the fieldname */
|
||||
let java_get_field fn => {
|
||||
let fn = to_string fn;
|
||||
let ri = 1 + String.rindex_exn fn '.';
|
||||
String.slice fn ri 0
|
||||
};
|
||||
|
||||
|
||||
/** Check if the field is the synthetic this$n of a nested class, used to access the n-th outher instance. */
|
||||
let java_is_outer_instance fn => {
|
||||
let fn = to_string fn;
|
||||
let fn_len = String.length fn;
|
||||
fn_len != 0 && {
|
||||
let this = ".this$";
|
||||
let last_char = fn.[fn_len - 1];
|
||||
(last_char >= '0' && last_char <= '9') &&
|
||||
String.is_suffix fn suffix::(this ^ String.of_char last_char)
|
||||
}
|
||||
};
|
||||
|
||||
let clang_get_qual_class =
|
||||
fun
|
||||
| Clang {qual_class} => Some qual_class
|
||||
| _ => None;
|
||||
|
||||
|
||||
/** hidded fieldname constant */
|
||||
let hidden = Hidden;
|
||||
|
||||
|
||||
/** hidded fieldname constant */
|
||||
let is_hidden fn => equal fn hidden;
|
||||
@ -1,81 +0,0 @@
|
||||
/*
|
||||
* Copyright (c) 2017 - present Facebook, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This source code is licensed under the BSD style license found in the
|
||||
* LICENSE file in the root directory of this source tree. An additional grant
|
||||
* of patent rights can be found in the PATENTS file in the same directory.
|
||||
*/
|
||||
open! IStd;
|
||||
|
||||
|
||||
/** Names for fields of class/struct/union */
|
||||
type t [@@deriving compare];
|
||||
|
||||
|
||||
/** Equality for field names. */
|
||||
let equal: t => t => bool;
|
||||
|
||||
|
||||
/** Set for fieldnames */
|
||||
module Set: Caml.Set.S with type elt = t;
|
||||
|
||||
|
||||
/** Map for fieldnames */
|
||||
module Map: Caml.Map.S with type key = t;
|
||||
|
||||
module Clang: {
|
||||
|
||||
/** Create a clang field name from qualified c++ name */
|
||||
let from_qualified: QualifiedCppName.t => string => t;
|
||||
};
|
||||
|
||||
module Java: {
|
||||
|
||||
/** Create a java field name from string */
|
||||
let from_string: string => t;
|
||||
};
|
||||
|
||||
|
||||
/** Convert a field name to a string. */
|
||||
let to_string: t => string;
|
||||
|
||||
|
||||
/** Convert a fieldname to a simplified string with at most one-level path. */
|
||||
let to_simplified_string: t => string;
|
||||
|
||||
|
||||
/** Convert a fieldname to a flat string without path. */
|
||||
let to_flat_string: t => string;
|
||||
|
||||
|
||||
/** Pretty print a field name. */
|
||||
let pp: Format.formatter => t => unit;
|
||||
|
||||
|
||||
/** Pretty print a field name in latex. */
|
||||
let pp_latex: Latex.style => Format.formatter => t => unit;
|
||||
|
||||
|
||||
/** The class part of the fieldname */
|
||||
let java_get_class: t => string;
|
||||
|
||||
|
||||
/** The last component of the fieldname */
|
||||
let java_get_field: t => string;
|
||||
|
||||
|
||||
/** Check if the field is the synthetic this$n of a nested class, used to access the n-th outher instance. */
|
||||
let java_is_outer_instance: t => bool;
|
||||
|
||||
|
||||
/** get qualified classname of a field if it's coming from clang frontend. returns None otherwise */
|
||||
let clang_get_qual_class: t => option QualifiedCppName.t;
|
||||
|
||||
|
||||
/** hidded fieldname constant */
|
||||
let hidden: t;
|
||||
|
||||
|
||||
/** hidded fieldname constant */
|
||||
let is_hidden: t => bool;
|
||||
Loading…
Reference in new issue