91 lines
2.2 KiB
OCaml
91 lines
2.2 KiB
OCaml
|
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
|
||
|
|
|
||
|
|
(*$*)
|