-
Notifications
You must be signed in to change notification settings - Fork 1.9k
/
type_inference_js.ml
178 lines (144 loc) · 5.53 KB
/
type_inference_js.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
(**
* 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 "flow" directory of this source tree. An additional grant
* of patent rights can be found in the PATENTS file in the same directory.
*
*)
(* infer phase services *)
module Ast = Spider_monkey_ast
module Flow = Flow_js
module FlowError = Flow_error
module ImpExp = Import_export
module Utils = Utils_js
(**********)
(* Driver *)
(**********)
let force_annotations cx =
let m = Modulename.to_string (Context.module_name cx) in
let tvar = Flow_js.lookup_module cx m in
let _, id = Type.open_tvar tvar in
let before = Errors.ErrorSet.cardinal (Context.errors cx) in
Flow_js.enforce_strict cx id;
let after = Errors.ErrorSet.cardinal (Context.errors cx) in
if (after > before) then
Context.add_tvar cx id Constraint.(Root {
rank = 0; constraints = Resolved Type.Locationless.AnyT.t
})
(* core inference, assuming setup and teardown happens elsewhere *)
let infer_core cx statements =
try
statements |> Statement.toplevel_decls cx;
statements |> Statement.toplevels cx;
with
| Abnormal.Exn Abnormal.Throw ->
(* throw is allowed as a top-level statement *)
()
| Abnormal.Exn _ ->
(* should never happen *)
let loc = Loc.({ none with source = Some (Context.file cx) }) in
Flow_js.add_output cx FlowError.(EInternal (loc, AbnormalControlFlow))
| exc ->
let loc = Loc.({ none with source = Some (Context.file cx) }) in
Flow_js.add_output cx FlowError.(EInternal (loc, UncaughtException exc))
(* There's a .flowconfig option to specify suppress_comments regexes. Any
* comments that match those regexes will suppress any errors on the next line
*)
let scan_for_suppressions =
let should_suppress suppress_comments comment =
List.exists (fun r -> Str.string_match r comment 0) suppress_comments
in fun cx comments ->
let suppress_comments = Context.suppress_comments cx in
let should_suppress = should_suppress suppress_comments in
(* Bail immediately if we're not using error suppressing comments *)
if suppress_comments <> []
then List.iter (function
| loc, Ast.Comment.Block comment
| loc, Ast.Comment.Line comment when should_suppress comment ->
Context.add_error_suppression cx loc
| _ -> ()) comments
(* build module graph *)
let infer_ast ~metadata ~filename ~module_name ast =
Flow_js.Cache.clear();
let _, statements, comments = ast in
let cx =
Flow_js.fresh_context metadata filename module_name
in
let checked = Context.is_checked cx in
let exported_module_name = Modulename.to_string module_name in
let reason_exports_module =
let desc = Reason.RCustom (
Utils.spf "exports of module `%s`" exported_module_name
) in
Reason.locationless_reason desc
in
let local_exports_var = Flow_js.mk_tvar cx reason_exports_module in
let module_scope = Scope.(
let scope = fresh ~var_scope_kind:Module () in
add_entry "exports"
(Entry.new_var ~loc:(Type.loc_of_t local_exports_var) local_exports_var)
scope;
add_entry (Reason.internal_name "exports")
(Entry.new_var
~loc:(Reason.loc_of_reason reason_exports_module)
~specific:(Type.EmptyT (
Reason.replace_reason_const
(Reason.RCustom "undefined exports")
reason_exports_module))
(Type.AnyT reason_exports_module))
scope;
scope
) in
Env.init_env cx module_scope;
let reason = Reason.mk_reason (Reason.RCustom "exports") Loc.({
none with source = Some filename
}) in
let initial_module_t = ImpExp.module_t_of_cx cx in
if checked then (
let init_exports = Flow.mk_object cx reason in
ImpExp.set_module_exports cx reason init_exports;
(* infer *)
Flow_js.flow_t cx (init_exports, local_exports_var);
infer_core cx statements;
scan_for_suppressions cx comments;
let module_t = Context.(
match Context.module_kind cx with
(* CommonJS with a clobbered module.exports *)
| CommonJSModule(Some(loc)) ->
let module_exports_t = ImpExp.get_module_exports cx reason in
let reason = Reason.mk_reason (Reason.RCustom "exports") loc in
ImpExp.mk_commonjs_module_t cx reason_exports_module
reason module_exports_t
(* CommonJS with a mutated 'exports' object *)
| CommonJSModule(None) ->
ImpExp.mk_commonjs_module_t cx reason_exports_module
reason local_exports_var
(* Uses standard ES module exports *)
| ESModule -> ImpExp.mk_module_t cx reason_exports_module
) in
Flow_js.flow_t cx (module_t, initial_module_t)
) else (
Flow_js.unify cx initial_module_t Type.Locationless.AnyT.t
);
(* insist that whatever type flows into exports is fully annotated *)
force_annotations cx;
cx
(* infer a parsed library file.
processing is similar to an ordinary module, except that
a) symbols from prior library loads are suppressed if found,
b) bindings are added as properties to the builtin object
*)
let infer_lib_file ~metadata ~exclude_syms file statements comments =
Flow_js.Cache.clear();
let cx = Flow_js.fresh_context
metadata file (Modulename.String Files.lib_module) in
let module_scope = Scope.fresh () in
Env.init_env ~exclude_syms cx module_scope;
infer_core cx statements;
scan_for_suppressions cx comments;
module_scope |> Scope.(iter_entries Entry.(fun name entry ->
Flow_js.set_builtin cx name (actual_type entry)
));
cx, SMap.keys Scope.(module_scope.entries)