Summary: Polymorphic models, and type environment refinements, need mutual references between general types and struct types. Reviewed By: cristianoc Differential Revision: D4620076 fbshipit-source-id: f9d01e6master
Josh Berdine
8 years ago
committed by
Facebook Github Bot
parent
f5bb35e245
commit
95725e4dd0
@ -1,141 +0,0 @@
|
||||
/*
|
||||
* Copyright (c) 2009 - 2013 Monoidics ltd.
|
||||
* Copyright (c) 2013 - 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;
|
||||
|
||||
|
||||
/** The Smallfoot Intermediate Language: Struct Types */
|
||||
let module L = Logging;
|
||||
|
||||
let module F = Format;
|
||||
|
||||
type field = (Ident.fieldname, Typ.t, Annot.Item.t) [@@deriving compare];
|
||||
|
||||
type fields = list field;
|
||||
|
||||
|
||||
/** Type for a structured value. */
|
||||
type t = {
|
||||
fields: fields, /** non-static fields */
|
||||
statics: fields, /** static fields */
|
||||
supers: list Typename.t, /** superclasses */
|
||||
methods: list Procname.t, /** methods defined */
|
||||
annots: Annot.Item.t /** annotations */
|
||||
};
|
||||
|
||||
type lookup = Typename.t => option t;
|
||||
|
||||
let pp pe name f {fields, supers, methods, annots} =>
|
||||
if Config.debug_mode {
|
||||
/* change false to true to print the details of struct */
|
||||
F.fprintf
|
||||
f
|
||||
"%a \n\tfields: {%a\n\t}\n\tsupers: {%a\n\t}\n\tmethods: {%a\n\t}\n\tannots: {%a\n\t}"
|
||||
Typename.pp
|
||||
name
|
||||
(
|
||||
Pp.seq (
|
||||
fun f (fld, t, _) => F.fprintf f "\n\t\t%a %a" (Typ.pp_full pe) t Ident.pp_fieldname fld
|
||||
)
|
||||
)
|
||||
fields
|
||||
(Pp.seq (fun f n => F.fprintf f "\n\t\t%a" Typename.pp n))
|
||||
supers
|
||||
(Pp.seq (fun f m => F.fprintf f "\n\t\t%a" Procname.pp m))
|
||||
methods
|
||||
Annot.Item.pp
|
||||
annots
|
||||
} else {
|
||||
F.fprintf f "%a" Typename.pp name
|
||||
};
|
||||
|
||||
let internal_mk_struct
|
||||
default::default=?
|
||||
fields::fields=?
|
||||
statics::statics=?
|
||||
methods::methods=?
|
||||
supers::supers=?
|
||||
annots::annots=?
|
||||
() => {
|
||||
let mk_struct_
|
||||
default::default={fields: [], statics: [], methods: [], supers: [], annots: Annot.Item.empty}
|
||||
fields::fields=default.fields
|
||||
statics::statics=default.statics
|
||||
methods::methods=default.methods
|
||||
supers::supers=default.supers
|
||||
annots::annots=default.annots
|
||||
() => {
|
||||
fields,
|
||||
statics,
|
||||
methods,
|
||||
supers,
|
||||
annots
|
||||
};
|
||||
mk_struct_
|
||||
default::?default
|
||||
fields::?fields
|
||||
statics::?statics
|
||||
methods::?methods
|
||||
supers::?supers
|
||||
annots::?annots
|
||||
()
|
||||
};
|
||||
|
||||
|
||||
/** the element typ of the final extensible array in the given typ, if any */
|
||||
let rec get_extensible_array_element_typ lookup::lookup (typ: Typ.t) =>
|
||||
switch typ {
|
||||
| Tarray typ _ => Some typ
|
||||
| Tstruct name =>
|
||||
switch (lookup name) {
|
||||
| Some {fields} =>
|
||||
switch (List.last fields) {
|
||||
| Some (_, fld_typ, _) => get_extensible_array_element_typ lookup::lookup fld_typ
|
||||
| None => None
|
||||
}
|
||||
| None => None
|
||||
}
|
||||
| _ => None
|
||||
};
|
||||
|
||||
|
||||
/** If a struct type with field f, return the type of f. If not, return the default */
|
||||
let fld_typ lookup::lookup default::default fn (typ: Typ.t) =>
|
||||
switch typ {
|
||||
| Tstruct name =>
|
||||
switch (lookup name) {
|
||||
| Some {fields} =>
|
||||
List.find f::(fun (f, _, _) => Ident.equal_fieldname f fn) fields |>
|
||||
Option.value_map f::snd3 default::default
|
||||
| None => default
|
||||
}
|
||||
| _ => default
|
||||
};
|
||||
|
||||
let get_field_type_and_annotation lookup::lookup fn (typ: Typ.t) =>
|
||||
switch typ {
|
||||
| Tstruct name
|
||||
| Tptr (Tstruct name) _ =>
|
||||
switch (lookup name) {
|
||||
| Some {fields, statics} =>
|
||||
List.find_map
|
||||
f::(fun (f, t, a) => Ident.equal_fieldname f fn ? Some (t, a) : None) (fields @ statics)
|
||||
| None => None
|
||||
}
|
||||
| _ => None
|
||||
};
|
||||
|
||||
let objc_ref_counter_annot = [({Annot.class_name: "ref_counter", parameters: []}, false)];
|
||||
|
||||
|
||||
/** Field used for objective-c reference counting */
|
||||
let objc_ref_counter_field = (Ident.fieldname_hidden, Typ.Tint IInt, objc_ref_counter_annot);
|
||||
|
||||
let is_objc_ref_counter_field (fld, _, a) =>
|
||||
Ident.fieldname_is_hidden fld && Annot.Item.equal a objc_ref_counter_annot;
|
||||
@ -1,66 +0,0 @@
|
||||
/*
|
||||
* Copyright (c) 2009 - 2013 Monoidics ltd.
|
||||
* Copyright (c) 2013 - 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;
|
||||
|
||||
|
||||
/** The Smallfoot Intermediate Language: Struct Types */
|
||||
let module F = Format;
|
||||
|
||||
type field = (Ident.fieldname, Typ.t, Annot.Item.t) [@@deriving compare];
|
||||
|
||||
type fields = list field;
|
||||
|
||||
|
||||
/** Type for a structured value. */
|
||||
type t = private {
|
||||
fields: fields, /** non-static fields */
|
||||
statics: fields, /** static fields */
|
||||
supers: list Typename.t, /** supers */
|
||||
methods: list Procname.t, /** methods defined */
|
||||
annots: Annot.Item.t /** annotations */
|
||||
};
|
||||
|
||||
type lookup = Typename.t => option t;
|
||||
|
||||
|
||||
/** Pretty print a struct type. */
|
||||
let pp: Pp.env => Typename.t => F.formatter => t => unit;
|
||||
|
||||
|
||||
/** Construct a struct_typ, normalizing field types */
|
||||
let internal_mk_struct:
|
||||
default::t? =>
|
||||
fields::fields? =>
|
||||
statics::fields? =>
|
||||
methods::list Procname.t? =>
|
||||
supers::list Typename.t? =>
|
||||
annots::Annot.Item.t? =>
|
||||
unit =>
|
||||
t;
|
||||
|
||||
|
||||
/** the element typ of the final extensible array in the given typ, if any */
|
||||
let get_extensible_array_element_typ: lookup::lookup => Typ.t => option Typ.t;
|
||||
|
||||
|
||||
/** If a struct type with field f, return the type of f.
|
||||
If not, return the default type if given, otherwise raise an exception */
|
||||
let fld_typ: lookup::lookup => default::Typ.t => Ident.fieldname => Typ.t => Typ.t;
|
||||
|
||||
|
||||
/** Return the type of the field [fn] and its annotation, None if [typ] has no field named [fn] */
|
||||
let get_field_type_and_annotation:
|
||||
lookup::lookup => Ident.fieldname => Typ.t => option (Typ.t, Annot.Item.t);
|
||||
|
||||
|
||||
/** Field used for objective-c reference counting */
|
||||
let objc_ref_counter_field: (Ident.fieldname, Typ.t, Annot.Item.t);
|
||||
|
||||
let is_objc_ref_counter_field: (Ident.fieldname, Typ.t, Annot.Item.t) => bool;
|
||||
Loading…
Reference in new issue