aboutsummaryrefslogtreecommitdiff
path: root/doc/plugin_tutorial/tuto0/src/g_tuto0.mlg
diff options
context:
space:
mode:
Diffstat (limited to 'doc/plugin_tutorial/tuto0/src/g_tuto0.mlg')
-rw-r--r--doc/plugin_tutorial/tuto0/src/g_tuto0.mlg18
1 files changed, 18 insertions, 0 deletions
diff --git a/doc/plugin_tutorial/tuto0/src/g_tuto0.mlg b/doc/plugin_tutorial/tuto0/src/g_tuto0.mlg
new file mode 100644
index 0000000000..5c633fe862
--- /dev/null
+++ b/doc/plugin_tutorial/tuto0/src/g_tuto0.mlg
@@ -0,0 +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) }
+END
+
+TACTIC EXTEND hello_world_tactic
+| [ "hello_world" ] ->
+ { let _ = Feedback.msg_notice (str Tuto0_main.message) in
+ Tacticals.New.tclIDTAC }
+END