diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-23 18:42:15 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-23 18:42:15 +0000 |
commit | 4eae8b2e19d8ea1fc527216b9bfbab93803af313 (patch) | |
tree | 6c0bf5e7c0fbff1121ce3b91107166e0dfa5e5d6 | |
parent | 0e025b3b18b545efecfea96f135ad177bb38ced6 (diff) |
Affichage des QUALID
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@934 85f007b7-540e-0410-9357-904b9bb8a0f7
-rwxr-xr-x | syntax/PPConstr.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v index 47d92d95d..1c8026794 100755 --- a/syntax/PPConstr.v +++ b/syntax/PPConstr.v @@ -51,6 +51,10 @@ Syntax constr | instantiation_one [ << (CONTEXT $a) >> ] -> [ $a ] | instantiation_many [ << (CONTEXT $a $b ($LIST $l)) >> ] -> [ (CONTEXT $b ($LIST $l)) ";" $a ] + | qualid [ << (QUALID $id ($LIST $l)) >> ] -> [ $id (FIELDS ($LIST $l)) ] + | fieldsnil [ << (FIELDS) >> ] -> [ ] + | fieldscons [ << (FIELDS $id ($LIST $l)) >> ] -> + [ "." $id (FIELDS ($LIST $l)) ] ; (* Things parsed in command1 *) |