/lib_test/re_scan.ml

http://github.com/avsm/ocaml-re · OCaml · 10 lines · 8 code · 2 blank · 0 comment · 1 complexity · 27e3393e587411f2e1292ffcb17a14ad MD5 · raw file 

    

  1. open Re
    2. 

  2. 

  3. let x = compile (seq [char 'a'; opt (char 'a'); char 'b'])
    4. 

  4. let _ =
    5. 

  5.   let s = String.make (1024*1024) 'a' in
    6. 

  6.   s.[1024*1024-1] <- 'b';
    7. 

  7.   for i = 0 to 99 do
    8. 

  8.     ignore (exec x s)
    9. 

  9.   done
    10.