aboutsummaryrefslogtreecommitdiff
path: root/Examples/ocaml/scoped_enum/example_prog.ml
blob: e19bb3454fcde2c3900b57eeeaaec69e14593ae2 (plain)
1
2
3
4
open Swig
open Example

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