clickhouse: added URLHierarchy function [#CONV-6788].

dbms/include/DB/Functions/FunctionsURL.h

@@ -380,18 +380,9 @@ public:
 		++pos;
 		pos = strpbrk(pos, "&;#");
 		if (pos == NULL)
-		{
 			token_end = end;
-		}
 		else
-		{
-			token_end = pos;
-			
-			if (*pos == '#')
-				pos = NULL;
-			else
-				++pos;
-		}
+			token_end = pos++;
 		
 		return true;
 	}
@@ -401,12 +392,12 @@ public:
 class URLHierarchyImpl
 {
 private:
+	Pos begin;
 	Pos pos;
 	Pos end;
-	bool first;
 	
 public:
-	static String getName() { return "extractURLParameters"; }
+	static String getName() { return "URLHierarchy"; }
 	
 	static void checkArguments(const DataTypes & arguments)
 	{
@@ -425,36 +416,64 @@ public:
 	/// Вызывается для каждой следующей строки.
 	void set(Pos pos_, Pos end_)
 	{
-		pos = pos_;
+		begin = pos = pos_;
 		end = end_;
-		first = true;
 	}
 	
 	/// Получить следующий токен, если есть, или вернуть false.
 	bool get(Pos & token_begin, Pos & token_end)
 	{
-		if (pos == NULL)
+		/// Код из URLParser.
+		
+		if (pos == end)
 			return false;
 		
-		if (first)
+		if (pos == begin)
 		{
-			first = false;
-			pos = strchr(pos, '?');
-			if (pos == NULL)
-				return false;
+			/// Распарсим всё, что идёт до пути
+			
+			/// Предположим, что протокол уже переведён в нижний регистр.
+			while (pos < end && ((*pos > 'a' && *pos < 'z') || (*pos > '0' && *pos < '9')))
 				++pos;
+			
+			/** Будем вычислять иерархию только для URL-ов, в которых есть протокол, и после него идут два слеша.
+			 * (http, file - подходят, mailto, magnet - не подходят), и после двух слешей ещё хоть что-нибудь есть
+			 * Для остальных просто вернём полный URL как единственный элемент иерархии.
+			 */
+			if (pos == begin || pos == end || !(*pos++ == ':' && pos < end && *pos++ == '/' && pos < end && *pos++ == '/' && pos < end))
+			{
+				pos = end;
+				token_begin = begin;
+				token_end = end;
+				return true;
 			}
 			
-		token_begin = pos;
-		pos = strchr(pos, '=');
-		if (pos == NULL)
-			return false;
+			/// Доменом для простоты будем считать всё, что после протокола и двух слешей, до следующего слеша или до ? или до #
+			while (pos < end && !(*pos == '/' || *pos == '?' || *pos == '#'))
 				++pos;
-		pos = strpbrk(pos, "&;#");
-		if (pos == NULL)
-			token_end = end;
-		else
-			token_end = pos++;
+			
+			if (pos != end)
+				++pos;
+			
+			token_begin = begin;
+			token_end = pos;
+			
+			return true;
+		}
+		
+		/// Идём до следующего / или ? или #, пропуская все те, что вначале.
+		while (pos < end && (*pos == '/' || *pos == '?' || *pos == '#'))
+			++pos;
+		if (pos == end)
+			return false;
+		while (pos < end && !(*pos == '/' || *pos == '?' || *pos == '#'))
+			++pos;
+		
+		if (pos != end)
+			++pos;
+		
+		token_begin = begin;
+		token_end = pos;
 		
 		return true;
 	}
@@ -595,5 +614,7 @@ typedef FunctionStringToString<CutSubstringImpl<ExtractQueryStringAndFragment<fa
 
 typedef FunctionsStringSearchToString<ExtractURLParameterImpl, NameExtractURLParameter> FunctionExtractURLParameter;
 typedef FunctionTokens<ExtractURLParametersImpl> FunctionExtractURLParameters;
+typedef FunctionTokens<ExtractURLParametersImpl> FunctionExtractURLParameters;
+typedef FunctionTokens<URLHierarchyImpl> FunctionURLHierarchy;
 
 }

dbms/src/Functions/FunctionFactory.cpp

@@ -152,6 +152,7 @@ FunctionPtr FunctionFactory::get(
 	else if (name == "cutQueryStringAndFragment")	return new FunctionCutQueryStringAndFragment;
 	else if (name == "extractURLParameter")		return new FunctionExtractURLParameter;
 	else if (name == "extractURLParameters")		return new FunctionExtractURLParameters;
+	else if (name == "URLHierarchy")				return new FunctionURLHierarchy;
 
 	else if (name == "visibleWidth")				return new FunctionVisibleWidth;
 	else if (name == "toTypeName")					return new FunctionToTypeName;