Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 53 lines (42 sloc) 1.523 kb
fccc685 Initial open-source release
MLstate authored
1 (*
2 Copyright © 2011 MLstate
3
4 This file is part of OPA.
5
6 OPA is free software: you can redistribute it and/or modify it under the
7 terms of the GNU Affero General Public License, version 3, as published by
8 the Free Software Foundation.
9
10 OPA is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
13 more details.
14
15 You should have received a copy of the GNU Affero General Public License
16 along with OPA. If not, see <http://www.gnu.org/licenses/>.
17 *)
18 (*
19 @author Rudy Sicard
20 **)
21
22
23 type directive_dep =
24 [ `hybrid_value
25 | `insert_server_value of Ident.t
26 | `fun_action of QmlAst.fun_action_content option ]
27
28 val fold_directive_deps :
29 (Ident.t -> 'a) -> (string -> 'a) -> directive_dep -> ('a -> 'b -> 'b) -> 'b -> 'b
30
31 val reorder :
32 (string -> Ident.t) ->
33 (Ident.t list) ->
34 (Ident.t list IdentMap.t) ->
35 ((int list) ->
36 (int list IntMap.t) ->
37 (int * IntSet.t) list ->
38 (int * bool * IntSet.t) list * 'a) ->
39 QmlAst.code ->
40 QmlAst.code
41
42 (** functions meant for sliced cleaning *)
43
44 val get_unreachable_idents_of_code :
45 (string -> Ident.t) ->
46 Ident.t list ->
47 QmlAst.code -> QmlAst.code ->
48 IdentSet.t * QmlAst.code * QmlAst.code
49 (**
50 This function returns the set of unreachable identifiers of the code
51 so that you can clean not only the code but also the rest of the environment
52 *)
Something went wrong with that request. Please try again.