let get_cenum_option name =
let opnamed = func_to_op_func name in
Hashtbl.fold
(fun _ ei value ->
match value with
| Some(_) as r -> r (* Already found *)
| None ->
let rec search = function
| {einame = n} as ei ::_ when n=name -> Some(CEnum ei)
| {einame = n} as ei ::_ when n=opnamed -> Some(CEnum ei)
| _::l -> search l
| [] -> None
in
search ei.eitems
)
used_enuminfo
None