- | comment ->
- let comment =
- Ulexing.utf8_sub_lexeme lexbuf 2 (Ulexing.lexeme_length lexbuf - 2)
- in
- return lexbuf ("COMMENT", comment)
+ | note ->
+ (*if comments then*)
+ let comment =
+ Ulexing.utf8_sub_lexeme lexbuf 2 (Ulexing.lexeme_length lexbuf - 4)
+ in
+ return lexbuf ("NOTE", comment)
+ (*else
+ token comments lexbuf*)
+ | commentbegin -> return lexbuf ("BEGINCOMMENT","")
+ | commentend -> return lexbuf ("ENDCOMMENT","")