diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 23:37:15 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 23:37:15 +0000 |
| commit | 7e8613d73c589db97c507a7b2c4554bacc72e161 (patch) | |
| tree | 6ce8c467e479ec3b7760f7fc5c40b45e3741caab /parsing | |
| parent | 30aafbf07010a035ec8f033bde2cb183283d0371 (diff) | |
Amélioration affichage de print_leaf_entry
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2040 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/prettyp.ml | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 109172af4..7a8571fdc 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -315,22 +315,30 @@ let print_leaf_entry with_values sep (sp,lobj) = | (_,"INDUCTIVE") -> print_inductive sp | (_,"AUTOHINT") -> - [< 'sTR" Hint Marker"; 'fNL >] +(* [< 'sTR" Hint Marker"; 'fNL >]*) + [< >] | (_,"GRAMMAR") -> - [< 'sTR" Grammar Marker"; 'fNL >] +(* [< 'sTR" Grammar Marker"; 'fNL >]*) + [< >] | (_,"SYNTAXCONSTANT") -> print_syntactic_def sep sp | (_,"PPSYNTAX") -> - [< 'sTR" Syntax Marker"; 'fNL >] +(* [< 'sTR" Syntax Marker"; 'fNL >]*) + [< >] | (_,"TOKEN") -> - [< 'sTR" Token Marker"; 'fNL >] +(* [< 'sTR" Token Marker"; 'fNL >]*) + [< >] | (_,"CLASS") -> - [< 'sTR" Class Marker"; 'fNL >] +(* [< 'sTR" Class Marker"; 'fNL >]*) + [< >] | (_,"COERCION") -> - [< 'sTR" Coercion Marker"; 'fNL >] +(* [< 'sTR" Coercion Marker"; 'fNL >]*) + [< >] | (_,"REQUIRE") -> - [< 'sTR" Require Marker"; 'fNL >] +(* [< 'sTR" Require Marker"; 'fNL >]*) + [< >] | (_,"END-SECTION") -> [< >] + | (_,"STRUCTURE") -> [< >] | (_,s) -> [< 'sTR(string_of_path sp); 'sTR" : "; 'sTR"Unrecognized object "; 'sTR s; 'fNL >] |