diff options
| author | filliatr | 1999-12-13 13:42:04 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-13 13:42:04 +0000 |
| commit | decb8c16274487ce3cac1e7d5de529b46b6d68e3 (patch) | |
| tree | 02a41980403e4c3fbeab8259a95ea14ba1b80e65 /parsing | |
| parent | 7dfacfe208a9fa5ad5f7669537c54609b4adf51e (diff) | |
- méthode load sur les Hints
- CAST pris en compte dans Astterm
- Coercin.lookup_path_to_sort_from protégé par un try/with
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@248 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/astterm.ml | 3 | ||||
| -rw-r--r-- | parsing/lexer.mll | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index 68cd5482d9..7dad63a008 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -315,6 +315,9 @@ let dbize k sigma = | Node(loc,("CONST"|"EVAR"|"MUTIND"|"MUTCONSTRUCT"|"SYNCONST" as key),l) -> dbize_global loc (key,l) + | Node(loc,"CAST", [c1;c2]) -> + RCast (loc,dbrec env c1,dbrec env c2) + | Node(loc,opn,tl) -> anomaly ("dbize found operator "^opn^" with "^ (string_of_int (List.length tl))^" arguments") diff --git a/parsing/lexer.mll b/parsing/lexer.mll index 410bcc4fa6..e9b57a1f75 100644 --- a/parsing/lexer.mll +++ b/parsing/lexer.mll @@ -120,7 +120,7 @@ let identchar = ['$' 'A'-'Z' 'a'-'z' '_' '\192'-'\214' '\216'-'\246' '\248'-'\255' '\'' '0'-'9'] let symbolchar = - ['!' '$' '%' '&' '*' '+' '-' '<' '>' '/' ':' ',' ';' '=' '?' '@' '^' + ['!' '$' '%' '&' '*' '+' '-' '<' '>' '/' '\\' ':' ',' ';' '=' '?' '@' '^' '|' '~' '#'] let decimal_literal = ['0'-'9']+ let hex_literal = '0' ['x' 'X'] ['0'-'9' 'A'-'F' 'a'-'f']+ |