diff options
Diffstat (limited to 'ide/extract_index.mll')
-rw-r--r-- | ide/extract_index.mll | 31 |
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) } |