trunk/Examples/ocaml/scoped_enum/example_prog.ml - third_party/swig - Git at Google

 open Swig
 open Example

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

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