X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fcontent_pres%2FcicNotationLexer.ml;h=d86a3124d67608b9791c0b122eaa3cf2e1c0cf92;hb=8f1a123e61ff079b1f9ad63cc915470ec7e6abf3;hp=eaabf61e7a483d684bf327d912e84c33098507b3;hpb=f3f6b451707a3feb8245717e3fa7ca25df0ce8ef;p=helm.git diff --git a/matita/components/content_pres/cicNotationLexer.ml b/matita/components/content_pres/cicNotationLexer.ml index eaabf61e7..d86a3124d 100644 --- a/matita/components/content_pres/cicNotationLexer.ml +++ b/matita/components/content_pres/cicNotationLexer.ml @@ -137,13 +137,14 @@ let regexp uri = let regexp nreference = "cic:/" (* schema *) uri_step ('/' uri_step)* (* path *) - '.' + '#' ( "dec" - | "def" "(" number ")" - | "fix" "(" number "," number "," number ")" - | "cfx" "(" number ")" - | "ind" "(" number "," number "," number ")" - | "con" "(" number "," number "," number ")") (* ext + reference *) + | "def" ":" number "" + | "fix" ":" number ":" number ":" number + | "cfx" ":" number + | "ind" ":" number ":" number ":" number + | "con" ":" number ":" number ":" number + ) (* ext + reference *) let error lexbuf msg = let begin_cnum, end_cnum = Ulexing.loc lexbuf in