/usr/share/doc/libpycaml-ocaml-dev/examples/pycamltest.ml is in libpycaml-ocaml-dev 0.82-15build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | (*
* (C) arty 2002
* This software is covered under the GNU lesser general public license
*)
open Pycaml ;;
let colorsys = pyimport_importmodule "colorsys"
let dict = pymodule_getdict colorsys
let triplet = pytuple3 (pyfloat_fromdouble 1.0,
pyfloat_fromdouble 0.5,
pyfloat_fromdouble 0.2) ;;
let rgbtoyiq = pydict_getitemstring (dict,"rgb_to_yiq")
let triplet = pyeval_callobject (rgbtoyiq,triplet)
let _ = print_endline ((string_of_float
(pyfloat_asdouble (pytuple_getitem (triplet,0)))) ^
" " ^
(string_of_float
(pyfloat_asdouble (pytuple_getitem (triplet,1)))) ^
" " ^
(string_of_float
(pyfloat_asdouble (pytuple_getitem (triplet,2))))) ;;
let x = pywrap_closure
(fun x -> print_string (pystring_asstring (pytuple_getitem (x,0))) ;
pynone ())
let _ = pyeval_callobject
(x,pytuple_fromsingle (pystring_fromstring "hi there"))
|