You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
2.1 KiB
64 lines
2.1 KiB
8 years ago
|
(*
|
||
|
|
* Copyright (c) 2015 - 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
|
||
|
|
|
||
|
|
(* This module adds more variants to some types in AST *)
|
||
|
|
(* The implementation extends default one from *)
|
||
|
|
(* facebook-clang-plugins repository *)
|
||
|
|
|
||
|
|
|
||
|
|
(* Type pointers *)
|
||
|
|
type Clang_ast_types.TypePtr.t +=
|
||
|
|
| Prebuilt of int
|
||
|
|
| PointerOf of Clang_ast_types.TypePtr.t
|
||
|
|
| ReferenceOf of Clang_ast_types.TypePtr.t
|
||
|
|
| ClassType of Typ.Name.t
|
||
|
|
| DeclPtr of int
|
||
|
|
| ErrorType
|
||
|
|
|
||
|
|
module TypePointerOrd = struct
|
||
|
|
type t = Clang_ast_types.TypePtr.t
|
||
|
|
let rec compare a1 a2 = match a1, a2 with
|
||
|
|
| _ when phys_equal a1 a2 -> 0
|
||
|
|
| Clang_ast_types.TypePtr.Ptr a, Clang_ast_types.TypePtr.Ptr b -> Int.compare a b
|
||
|
|
| Clang_ast_types.TypePtr.Ptr _, _ -> 1
|
||
|
|
| _, Clang_ast_types.TypePtr.Ptr _ -> -1
|
||
|
|
| Prebuilt a, Prebuilt b -> Int.compare a b
|
||
|
|
| Prebuilt _, _ -> 1
|
||
|
|
| _, Prebuilt _ -> -1
|
||
|
|
| PointerOf a, PointerOf b -> compare a b
|
||
|
|
| PointerOf _, _ -> 1
|
||
|
|
| _, PointerOf _ -> -1
|
||
|
|
| ReferenceOf a, ReferenceOf b -> compare a b
|
||
|
|
| ReferenceOf _, _ -> 1
|
||
|
|
| _, ReferenceOf _ -> -1
|
||
|
|
| ClassType a, ClassType b -> Typ.Name.compare a b
|
||
|
|
| ClassType _, _ -> 1
|
||
|
|
| _, ClassType _ -> -1
|
||
|
|
| DeclPtr a, DeclPtr b -> Int.compare a b
|
||
|
|
| DeclPtr _, _ -> 1
|
||
|
|
| _, DeclPtr _ -> -1
|
||
|
|
| ErrorType, ErrorType -> 0
|
||
|
|
| _ -> raise (invalid_arg ("unexpected type_ptr variants: "))
|
||
|
|
end
|
||
|
|
|
||
|
|
module TypePointerMap = Caml.Map.Make(TypePointerOrd)
|
||
|
|
|
||
|
|
|
||
|
|
let rec type_ptr_to_string = function
|
||
|
|
| Clang_ast_types.TypePtr.Ptr raw -> "clang_ptr_" ^ (string_of_int raw)
|
||
|
|
| Prebuilt raw -> "prebuilt_" ^ (string_of_int raw)
|
||
|
|
| PointerOf typ -> "pointer_of_" ^ type_ptr_to_string typ
|
||
|
|
| ReferenceOf typ -> "reference_of_" ^ type_ptr_to_string typ
|
||
|
|
| ClassType name -> "class_name_" ^ Typ.Name.name name
|
||
|
|
| DeclPtr raw -> "decl_ptr_" ^ (string_of_int raw)
|
||
|
|
| ErrorType -> "error_type"
|
||
|
|
| _ -> "unknown"
|