OCaml синтаксический анализ большого текста

Question

OCaml, как разобрать большие многострочные текстовые данные, используя модуль Page. Игнорирование символа начала новой строки.

let get_info content = 
    let re = Str.regexp "\\(.+?\\)" in 
    match Str.string_match re content 0 with 
    | true -> print_endline("-->"^(Str.matched_group 1 content)^"<--") 
    | false -> print_endline("not found");; 

В этом примере возвращается только первая строка, но требуется текст в нескольких строках.

Answer 1

По http://pleac.sourceforge.net/pleac_ocaml/patternmatching.html:

• регулярных выражений Str в отсутствие рисунка пробельные сопоставления.

Итак, здесь обходной путь предложил на этой странице:

#load "str.cma";; 
... 
let whitespace_chars = 
    String.concat "" 
    (List.map (String.make 1) 
     [ 
     Char.chr 9; (* HT *) 
     Char.chr 10; (* LF *) 
     Char.chr 11; (* VT *) 
     Char.chr 12; (* FF *) 
     Char.chr 13; (* CR *) 
     Char.chr 32; (* space *) 
     ]) 

, а затем

let re = Str.regexp "\\((?:[^"^whitespace_chars^"]|"^whitespace_chars^")+?\\)" in