← Back to branch summary

~ubuntu-branches/ubuntu/karmic/ocamlnet/karmic

« back to all changes in this revision

Viewing changes to src/netstring/t.ml

  • Committer: Bazaar Package Importer
  • Author(s): Stefano Zacchiroli
  • Date: 2005-04-15 08:47:01 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 hoary)
  • Revision ID: james.westby@ubuntu.com-20050415084701-3sxqut7h5ftfm3jp
Tags: 1.0-1
* New upstream release
* Urgency set to medium (rational: bug fix/consolidation release)

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/netstring/t.ml
1
 
open Netaux.KMP;;
2
 
let p = make_pattern "XY";;
3
 
let l = String.make 16 'A' ^ "X" in
4
 
let s = String.make 8388608 ' ' in
5
 
for i = 0 to 8*65536 - 1 do
6
 
  String.blit l 0 s (i*16) 16;
7
 
done;
8
 
print_int (find_pattern p s);;
9
 
print_newline();;