Source file migrate_414_500.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
module From = Ast_414
module To = Ast_500

(*$ open Astlib_cinaps_helpers $*)

(*$ foreach_type (fun _ s ->
      Printf.printf
        "let copy_%s\n\
        \  : Ast_414.Parsetree.%s -> Ast_500.Parsetree.%s\n\
        \  = fun x -> x\n\n"
        s s s
  )
*)
let copy_structure
  : Ast_414.Parsetree.structure -> Ast_500.Parsetree.structure
  = fun x -> x

let copy_signature
  : Ast_414.Parsetree.signature -> Ast_500.Parsetree.signature
  = fun x -> x

let copy_toplevel_phrase
  : Ast_414.Parsetree.toplevel_phrase -> Ast_500.Parsetree.toplevel_phrase
  = fun x -> x

let copy_core_type
  : Ast_414.Parsetree.core_type -> Ast_500.Parsetree.core_type
  = fun x -> x

let copy_expression
  : Ast_414.Parsetree.expression -> Ast_500.Parsetree.expression
  = fun x -> x

let copy_pattern
  : Ast_414.Parsetree.pattern -> Ast_500.Parsetree.pattern
  = fun x -> x

let copy_case
  : Ast_414.Parsetree.case -> Ast_500.Parsetree.case
  = fun x -> x

let copy_type_declaration
  : Ast_414.Parsetree.type_declaration -> Ast_500.Parsetree.type_declaration
  = fun x -> x

let copy_type_extension
  : Ast_414.Parsetree.type_extension -> Ast_500.Parsetree.type_extension
  = fun x -> x

let copy_extension_constructor
  : Ast_414.Parsetree.extension_constructor -> Ast_500.Parsetree.extension_constructor
  = fun x -> x

let copy_class_expr
  : Ast_414.Parsetree.class_expr -> Ast_500.Parsetree.class_expr
  = fun x -> x

let copy_class_field
  : Ast_414.Parsetree.class_field -> Ast_500.Parsetree.class_field
  = fun x -> x

let copy_class_type
  : Ast_414.Parsetree.class_type -> Ast_500.Parsetree.class_type
  = fun x -> x

let copy_class_signature
  : Ast_414.Parsetree.class_signature -> Ast_500.Parsetree.class_signature
  = fun x -> x

let copy_class_type_field
  : Ast_414.Parsetree.class_type_field -> Ast_500.Parsetree.class_type_field
  = fun x -> x

let copy_module_expr
  : Ast_414.Parsetree.module_expr -> Ast_500.Parsetree.module_expr
  = fun x -> x

let copy_module_type
  : Ast_414.Parsetree.module_type -> Ast_500.Parsetree.module_type
  = fun x -> x

let copy_signature_item
  : Ast_414.Parsetree.signature_item -> Ast_500.Parsetree.signature_item
  = fun x -> x

let copy_structure_item
  : Ast_414.Parsetree.structure_item -> Ast_500.Parsetree.structure_item
  = fun x -> x

(*$*)