uucp__case_fold.ml1 2 3 4 5 6 7 8 9(*--------------------------------------------------------------------------- Copyright (c) 2013 The uucp programmers. All rights reserved. SPDX-License-Identifier: ISC ---------------------------------------------------------------------------*) let untagged_get m u = match Uucp_tmap.get m u with | [] -> `Self | us -> `Uchars us let fold u = untagged_get Uucp_case_fold_data.fold_map_map (Uchar.to_int u)