diff options
| author | sacerdot | 2000-10-25 09:15:24 +0000 |
|---|---|---|
| committer | sacerdot | 2000-10-25 09:15:24 +0000 |
| commit | ff249870a9db77a6cbf20bcd839a346b2b749fec (patch) | |
| tree | 965eb5b28c1904571b9acaa223e6a60901ae5121 /contrib/xml/Xml.v | |
| parent | 0f754594a7452e9157b6fb1fdb9842d85e171f2f (diff) | |
xml contribution created.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@756 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml/Xml.v')
| -rw-r--r-- | contrib/xml/Xml.v | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/contrib/xml/Xml.v b/contrib/xml/Xml.v new file mode 100644 index 0000000000..c5ee6c836e --- /dev/null +++ b/contrib/xml/Xml.v @@ -0,0 +1,33 @@ +(******************************************************************************) +(* *) +(* PROJECT HELM *) +(* *) +(* A tactic to print Coq objects in XML *) +(* *) +(* Claudio Sacerdoti Coen <sacerdot@cs.unibo.it> *) +(* 17/11/1999 *) +(******************************************************************************) + +Declare ML Module "ntrefiner" "xml" "cooking" "xmlcommand" "xmlentries". + +Grammar vernac vernac : Ast := + xml_print [ "Print" "XML" identarg($id) "." ] -> + [(Print $id)] + +| xml_print_file [ "Print" "XML" "File" stringarg($fn) identarg($id) "." ] -> + [(Print $id $fn)] + +| xml_show [ "Show" "XML" "Proof" "." ] -> + [(Show)] + +| xml_show_file [ "Show" "XML" "File" stringarg($fn) "Proof" "." ] -> + [(Show $fn)] + +| xml_print_all [ "Print" "XML" "All" "." ] -> + [(XmlPrintAll)] + +| xml_print_dir [ "Print" "XML" "Module" identarg($id) "." ] -> + [(XmlPrintModule $id)] + +| xml_print_dir_disk [ "Print" "XML" "Module" "Disk" stringarg($dn) identarg($id) "." ] -> + [(XmlPrintModule $id $dn)]. |