My working unpac repository
at opam/upstream/seq 66 lines 2.1 kB view raw
1(**************************************************************************) 2(* *) 3(* OCaml *) 4(* *) 5(* Pierre Chambart, OCamlPro *) 6(* *) 7(* Copyright 2015 Institut National de Recherche en Informatique et *) 8(* en Automatique. *) 9(* *) 10(* All rights reserved. This file is distributed under the terms of *) 11(* the GNU Lesser General Public License version 2.1, with the *) 12(* special exception on linking described in the file LICENSE. *) 13(* *) 14(**************************************************************************) 15 16val add_inline_attribute 17 : Lambda.lambda 18 -> Location.t 19 -> Parsetree.attributes 20 -> Lambda.lambda 21 22val get_inline_attribute 23 : Parsetree.attributes 24 -> Lambda.inline_attribute 25 26val add_specialise_attribute 27 : Lambda.lambda 28 -> Location.t 29 -> Parsetree.attributes 30 -> Lambda.lambda 31 32val get_specialise_attribute 33 : Parsetree.attributes 34 -> Lambda.specialise_attribute 35 36val add_local_attribute 37 : Lambda.lambda 38 -> Location.t 39 -> Parsetree.attributes 40 -> Lambda.lambda 41 42val get_local_attribute 43 : Parsetree.attributes 44 -> Lambda.local_attribute 45 46val get_inlined_attribute 47 : Typedtree.expression 48 -> Lambda.inline_attribute 49 50val get_inlined_attribute_on_module 51 : Typedtree.module_expr 52 -> Lambda.inline_attribute 53 54val get_specialised_attribute 55 : Typedtree.expression 56 -> Lambda.specialise_attribute 57 58val get_tailcall_attribute 59 : Typedtree.expression 60 -> Lambda.tailcall_attribute 61 62val add_function_attributes 63 : Lambda.lambda 64 -> Location.t 65 -> Parsetree.attributes 66 -> Lambda.lambda