let available_source_languages ?(manager=source_language_manager) () = List.fold_right (fun id acc -> match manager#language id with None -> acc | Some l -> l :: acc) manager#language_ids []