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