let path_of_string str = try let lexbuf = Lexing.from_string str in List.map filename_of_string (OsOperation.path_reader lexbuf) with Parsing.Parse_error -> raise FilePathInvalidFilename