let class_field_lookup data klass_name var_name =
let var_lookup klass = class_var_lookup data klass var_name in
let rec lookup klass sections = match var_lookup klass, klass with
| Some((sect, vtype)), _ when List.mem sect sections -> Some((klass, vtype, sect))
| _, "Object" -> None
| _, _ -> lookup (StringMap.find klass data.parents) [Publics; Protects] in
lookup klass_name [Publics; Protects; Privates]