aboutsummaryrefslogtreecommitdiff
path: root/trunk/examples/ivyivyprobe.ml
diff options
context:
space:
mode:
authorhattenberger2013-03-27 13:17:19 +0000
committerhattenberger2013-03-27 13:17:19 +0000
commita17272283c803e13258e5dc6b19533c672ceee18 (patch)
tree0fa7737e21fe1147c860a84b18676cd99a80fdb1 /trunk/examples/ivyivyprobe.ml
parent003d66dc1fabc063372e4f03265935d0ccaefd78 (diff)
downloadivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.zip
ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.tar.gz
ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.tar.bz2
ivy-ocaml-a17272283c803e13258e5dc6b19533c672ceee18.tar.xz
some fixes in ivy-ocaml tag 1.2
Diffstat (limited to 'trunk/examples/ivyivyprobe.ml')
-rw-r--r--trunk/examples/ivyivyprobe.ml8
1 files changed, 8 insertions, 0 deletions
diff --git a/trunk/examples/ivyivyprobe.ml b/trunk/examples/ivyivyprobe.ml
new file mode 100644
index 0000000..b51a708
--- /dev/null
+++ b/trunk/examples/ivyivyprobe.ml
@@ -0,0 +1,8 @@
+let _ =
+ Ivyprobe.init ();
+ try
+ ignore (IvyLoop.set_up_channel Unix.stdin Ivy.stop (fun _ -> Ivyprobe.read stdin));
+ IvyLoop.main ()
+ with
+ End_of_file -> Ivy.stop ()
+