diff options
Diffstat (limited to 'tuto0')
| -rw-r--r-- | tuto0/_CoqProject | 2 | ||||
| -rw-r--r-- | tuto0/src/g_tuto0.mlg (renamed from tuto0/src/g_tuto0.ml4) | 10 |
2 files changed, 8 insertions, 4 deletions
diff --git a/tuto0/_CoqProject b/tuto0/_CoqProject index dd93e1fa79..76368e3ac7 100644 --- a/tuto0/_CoqProject +++ b/tuto0/_CoqProject @@ -6,5 +6,5 @@ theories/Demo.v src/tuto0_main.ml src/tuto0_main.mli -src/g_tuto0.ml4 +src/g_tuto0.mlg src/tuto0_plugin.mlpack diff --git a/tuto0/src/g_tuto0.ml4 b/tuto0/src/g_tuto0.mlg index d6e95ba0f7..5c633fe862 100644 --- a/tuto0/src/g_tuto0.ml4 +++ b/tuto0/src/g_tuto0.mlg @@ -1,14 +1,18 @@ DECLARE PLUGIN "tuto0_plugin" +{ + open Pp open Ltac_plugin +} + VERNAC COMMAND EXTEND HelloWorld CLASSIFIED AS QUERY -| [ "HelloWorld" ] -> [ Feedback.msg_notice (strbrk Tuto0_main.message) ] +| [ "HelloWorld" ] -> { Feedback.msg_notice (strbrk Tuto0_main.message) } END TACTIC EXTEND hello_world_tactic | [ "hello_world" ] -> - [ let _ = Feedback.msg_notice (str Tuto0_main.message) in - Tacticals.New.tclIDTAC ] + { let _ = Feedback.msg_notice (str Tuto0_main.message) in + Tacticals.New.tclIDTAC } END |