diff options
| author | Pierre-Marie Pédrot | 2018-10-31 17:57:47 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-05 18:36:00 +0100 |
| commit | 0fe2b5d4d63bcbc63d48a386949094c23e4c274e (patch) | |
| tree | f9e8bcbf17bca3853f088932d56a24588b2b13f7 /tuto0 | |
| parent | 6617535fd1666a7010c6eb9a81b4405e9d4f9c8d (diff) | |
Port to coqpp.
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 |