swig/Examples/ocaml/scoped_enum/example_prog.ml
2003-12-04 06:59:49 +00:00

4 lines
92 B
OCaml

open Swig
open Example
let _ = _f (match Sys.argv.(1) with "Tag1" -> ``Tag1 | _ -> ``Tag2)