summaryrefslogtreecommitdiff
path: root/ide/extract_index.mll
diff options
context:
space:
mode:
Diffstat (limited to 'ide/extract_index.mll')
-rw-r--r--ide/extract_index.mll31
1 files changed, 0 insertions, 31 deletions
diff --git a/ide/extract_index.mll b/ide/extract_index.mll
deleted file mode 100644
index 152ad715..00000000
--- a/ide/extract_index.mll
+++ /dev/null
@@ -1,31 +0,0 @@
-(************************************************************************)
-(* v * The Coq Proof Assistant / The Coq Development Team *)
-(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
-(* \VV/ **************************************************************)
-(* // * This file is distributed under the terms of the *)
-(* * GNU Lesser General Public License Version 2.1 *)
-(************************************************************************)
-
-(* $Id: extract_index.mll 5920 2004-07-16 20:01:26Z herbelin $ *)
-
-{
- open Lexing
-}
-
-(* additional lexer to extract URL from Coq manual's index *)
-
-rule entry = parse
- | "<LI><TT>" [^ ',']* "</TT>, "
- { let s = lexeme lexbuf in
- let n = String.length s in
- String.sub s 8 (n - 15), extract_index_url lexbuf }
- | "<LI>" [^ ',']* ", "
- { let s = lexeme lexbuf in
- let n = String.length s in
- String.sub s 4 (n - 6), extract_index_url lexbuf }
-
-and extract_index_url = parse
- | "<A HREF=\"" [^ '"']* '"'
- { let s = lexeme lexbuf in
- let n = String.length s in
- String.sub s 9 (n - 10) }