diff options
Diffstat (limited to 'ide/extract_index.mll')
-rw-r--r-- | ide/extract_index.mll | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/ide/extract_index.mll b/ide/extract_index.mll new file mode 100644 index 00000000..4a8c37f1 --- /dev/null +++ b/ide/extract_index.mll @@ -0,0 +1,31 @@ +(************************************************************************) +(* 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,v 1.2.2.1 2004/07/16 19:30:20 herbelin Exp $ *) + +{ + 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) } |