diff options
author | Samuel Mimram <samuel.mimram@ens-lyon.org> | 2004-07-28 21:54:47 +0000 |
---|---|---|
committer | Samuel Mimram <samuel.mimram@ens-lyon.org> | 2004-07-28 21:54:47 +0000 |
commit | 6b649aba925b6f7462da07599fe67ebb12a3460e (patch) | |
tree | 43656bcaa51164548f3fa14e5b10de5ef1088574 /ide/extract_index.mll |
Imported Upstream version 8.0pl1upstream/8.0pl1
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) } |