60 lines
1.9 KiB
OCaml
60 lines
1.9 KiB
OCaml
|
open Ppxlib
|
||
|
|
|
||
|
|
let generate_impl_extension_node ~ctxt (_rec_flag, _type_declarations) =
|
||
|
|
let loc = Expansion_context.Deriver.derived_item_loc ctxt in
|
||
|
|
let extension_node =
|
||
|
|
Location.error_extensionf ~loc "An error message in an extension node"
|
||
|
|
in
|
||
|
|
[ Ast_builder.Default.pstr_extension ~loc extension_node [] ]
|
||
|
|
|
||
|
|
let generate_impl_located_error ~ctxt (_rec_flag, _type_declarations) =
|
||
|
|
let loc = Expansion_context.Deriver.derived_item_loc ctxt in
|
||
|
|
Location.raise_errorf ~loc "A raised located error"
|
||
|
|
|
||
|
|
let generate_impl_located_error2 ~ctxt (_rec_flag, _type_declarations) =
|
||
|
|
let loc = Expansion_context.Deriver.derived_item_loc ctxt in
|
||
|
|
Location.raise_errorf ~loc "A second raised located error"
|
||
|
|
|
||
|
|
let generate_impl_raised_exception ~ctxt:_ (_rec_flag, _type_declarations) =
|
||
|
|
failwith "A raised exception"
|
||
|
|
|
||
|
|
let generate_impl_raised_exception2 ~ctxt:_ (_rec_flag, _type_declarations) =
|
||
|
|
failwith "A Second raised exception"
|
||
|
|
|
||
|
|
let impl_generator_extension_node =
|
||
|
|
Deriving.Generator.V2.make_noarg generate_impl_extension_node
|
||
|
|
|
||
|
|
let impl_generator_located_error =
|
||
|
|
Deriving.Generator.V2.make_noarg generate_impl_located_error
|
||
|
|
|
||
|
|
let impl_generator_located_error2 =
|
||
|
|
Deriving.Generator.V2.make_noarg generate_impl_located_error2
|
||
|
|
|
||
|
|
let impl_generator_raised_exception =
|
||
|
|
Deriving.Generator.V2.make_noarg generate_impl_raised_exception
|
||
|
|
|
||
|
|
let impl_generator_raised_exception2 =
|
||
|
|
Deriving.Generator.V2.make_noarg generate_impl_raised_exception2
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Deriving.add "deriver_extension_node"
|
||
|
|
~str_type_decl:impl_generator_extension_node
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Deriving.add "deriver_located_error"
|
||
|
|
~str_type_decl:impl_generator_located_error
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Deriving.add "deriver_located_error2"
|
||
|
|
~str_type_decl:impl_generator_located_error2
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Deriving.add "deriver_raised_exception"
|
||
|
|
~str_type_decl:impl_generator_raised_exception
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
Deriving.add "deriver_raised_exception2"
|
||
|
|
~str_type_decl:impl_generator_raised_exception2
|
||
|
|
|
||
|
|
let () = Driver.standalone ()
|