let os_depend unix macos win32 cygwin = match Sys.os_type with "Unix" -> unix | "MacOS" -> macos | "Win32" -> win32 | "Cygwin" -> cygwin | s -> raise (FilePathUnrecognizedOS s)