diff options
Diffstat (limited to 'trunk/examples/glibivyprobe.ml')
| -rw-r--r-- | trunk/examples/glibivyprobe.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/trunk/examples/glibivyprobe.ml b/trunk/examples/glibivyprobe.ml new file mode 100644 index 0000000..fb7e1f3 --- /dev/null +++ b/trunk/examples/glibivyprobe.ml @@ -0,0 +1,9 @@ +(* $Id$ *) + +let _ = + Ivyprobe.init (); + try + ignore (GlibIvy.set_up_channel Unix.stdin Ivy.stop (fun _ -> Ivyprobe.read stdin)); + GlibIvy.main () + with + End_of_file -> Ivy.stop () |