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