[bpt/coccinelle.git] / pycaml / ocamlobj.ml

open Pycaml

let foo_bar_print = pywrap_closure (fun x -> print_endline "hi" ; pynone ()) ;;
let sd = pyimport_getmoduledict () ;;
let mx = pymodule_new "CamlModule" ;;
let cd = pydict_new () ;;
let cx = pyclass_new (pynull (), cd, pystring_fromstring "CamlClass") ;;
let cmx = pymethod_new (foo_bar_print,(pynull ()),cx) ;;
let _ = pydict_setitemstring (cd, "CamlMethod", cmx) ;;
let _ = pydict_setitemstring (pymodule_getdict mx, "CamlClass", cx) ;;
let _ = pydict_setitemstring (sd, "CamlModule", mx) ;;
let _ = pyrun_interactiveloop (0,"-") ;;
Commit	Line	Data
34e49164 C	1	open Pycaml
	2
	3	let foo_bar_print = pywrap_closure (fun x -> print_endline "hi" ; pynone ()) ;;
	4	let sd = pyimport_getmoduledict () ;;
	5	let mx = pymodule_new "CamlModule" ;;
	6	let cd = pydict_new () ;;
	7	let cx = pyclass_new (pynull (), cd, pystring_fromstring "CamlClass") ;;
	8	let cmx = pymethod_new (foo_bar_print,(pynull ()),cx) ;;
	9	let _ = pydict_setitemstring (cd, "CamlMethod", cmx) ;;
	10	let _ = pydict_setitemstring (pymodule_getdict mx, "CamlClass", cx) ;;
	11	let _ = pydict_setitemstring (sd, "CamlModule", mx) ;;
	12	let _ = pyrun_interactiveloop (0,"-") ;;