git.annexia.org
/
fedora-mingw.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add libglade2 needed for virt-viewer
[fedora-mingw.git]
/
ocaml
/
test_buffer.ml
1
(* Test the Buffer module. *)
2
3
let () =
4
let buf = Buffer.create 100 in
5
for i = 0 to 10 do
6
Buffer.add_char buf 'a';
7
Buffer.add_string buf "b";
8
Buffer.add_char buf 'c'
9
done;
10
let str = Buffer.contents buf in
11
Printf.printf "contents of buffer = %S\n%!" str