X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2FcicTextualLexer2.ml;h=4cf0e4270a2fe29e53fdacac1aa017f83e055799;hb=63b1ff9601a54dba2bed63c2b58ec909dc162471;hp=650b6972375f76c5c49885cfd51efdb05a3b8a5b;hpb=df57e443ffe4408406359a97408134686d655675;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml b/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml
index 650b69723..4cf0e4270 100644
--- a/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml
+++ b/helm/ocaml/cic_disambiguation/cicTextualLexer2.ml
@@ -37,8 +37,11 @@ let regexp symbol_char =
      ' ' '\t' '\n'
      '\\' '(' '[' '{' ')' ']' '}' '?'
   ]
-let regexp comment_char = [^ '\n' ]
-let regexp comment = "%%" comment_char*
+let regexp dust = "%%" [^ '\n']* '\n'
+let regexp comment_char = [^ "*)" ]
+let regexp note = "(*" comment_char* "*)"
+let regexp commentbegin = "(**"
+let regexp commentend = "**)"
 let regexp blanks = blank+
 let regexp num = digit+
 let regexp tex_token = '\\' alpha+
@@ -132,14 +135,17 @@ let rec token comments = lexer
         return lexbuf ("SYMBOL", Utf8Macro.expand macro)
       with Utf8Macro.Macro_not_found _ ->
         return lexbuf ("SYMBOL", Ulexing.utf8_lexeme lexbuf))
-  | comment ->
-      if comments then
+  | dust -> token comments lexbuf
+  | note -> 
+      (*if comments then*)
         let comment =
           Ulexing.utf8_sub_lexeme lexbuf 2 (Ulexing.lexeme_length lexbuf - 2)
         in
-        return lexbuf ("COMMENT", comment)
-      else
-        token comments lexbuf
+        return lexbuf ("NOTE", comment)
+      (*else
+        token comments lexbuf*)
+  | commentbegin -> return lexbuf ("BEGINCOMMENT","")
+  | commentend -> return lexbuf ("ENDCOMMENT","")
   | eof -> return lexbuf ("EOI", "")
   | _ -> error lexbuf "Invalid character"