diff options
author | 2010-03-30 21:26:06 +0000 | |
---|---|---|
committer | 2010-03-30 21:26:06 +0000 | |
commit | 7e52301b501f7a574fca19776fb7fcbfe873d533 (patch) | |
tree | 8a47ba7faf0f39f5f0a77afb977f1108e04fba80 /tools/coqdoc/index.ml | |
parent | 358e5b1daef7ec1681092f8b1888b57da078a8b6 (diff) |
Small things about coqdoc + fixing lettuple.v test (part of bug #2289)
In coqdoc, made links to utf8 notations working and made
representation of locations for notations more compact
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12896 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/index.ml')
-rw-r--r-- | tools/coqdoc/index.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tools/coqdoc/index.ml b/tools/coqdoc/index.ml index 434a8bf5b..889e5d6ff 100644 --- a/tools/coqdoc/index.ml +++ b/tools/coqdoc/index.ml @@ -314,10 +314,17 @@ let read_glob f = current_library := !cur_mod | 'R' -> (try + Scanf.sscanf s "R%d:%d %s %s %s %s" + (fun loc1 loc2 lib_dp sp id ty -> + for loc=loc1 to loc2 do + add_ref !cur_mod loc lib_dp sp id (type_of_string ty) + done) + with _ -> + try Scanf.sscanf s "R%d %s %s %s %s" (fun loc lib_dp sp id ty -> add_ref !cur_mod loc lib_dp sp id (type_of_string ty)) - with _ -> ()) + with _ -> ()) | _ -> try Scanf.sscanf s "%s %d %s %s" (fun ty loc sp id -> add_def loc (type_of_string ty) sp id) |