let func_to_cenum func =
try
let ei = Hashtbl.find used_enuminfo listOp in
let name = func_to_op_func func in
let rec search = function
| {einame = n} as ei ::_ when n=name -> CEnum ei
| _::l -> search l
| [] -> raise_error ("Operation '"^name^"' not found in operations enumeration")
in
search ei.eitems
(* CEnum(ex,s,ei)*)
with _ -> raise_error ("Operation not found")