SQL: consdier name including '.' when extracting type kind tags

Signed-off-by: Masatake YAMATO <yamato@redhat.com>

Author: masatake

Units/parser-sql.r/types.d/expected.tags

@@ -22,3 +22,8 @@ obj	input.sql	/^    obj bigobj$/;"	E	table:big_objs	roles:def
 casttesttype	input.sql	/^CREATE TYPE casttesttype;$/;"	k	roles:decl
 casttesttype_in	input.sql	/^CREATE FUNCTION casttesttype_in(cstring)$/;"	f	typeref:typename:casttesttype	roles:def
 textin	input.sql	/^   AS 'textin'$/;"	f	roles:foreigncall
+tststats	input-0.sql	/^CREATE schema tststats;$/;"	S	roles:def
+ty	input-0.sql	/^CREATE TYPE tststats.ty AS (a int, b int, c text);$/;"	k	roles:def
+a	input-0.sql	/^CREATE TYPE tststats.ty AS (a int, b int, c text);$/;"	E	type:ty	roles:def
+b	input-0.sql	/^CREATE TYPE tststats.ty AS (a int, b int, c text);$/;"	E	type:ty	roles:def
+c	input-0.sql	/^CREATE TYPE tststats.ty AS (a int, b int, c text);$/;"	E	type:ty	roles:def

Units/parser-sql.r/types.d/input-0.sql

@@ -0,0 +1,3 @@
+-- Taken from postgresql/src/test/regress/sql/stats_ext.sql
+CREATE schema tststats;
+CREATE TYPE tststats.ty AS (a int, b int, c text);

parsers/sql.c

@@ -1732,13 +1732,22 @@ static void parseType (tokenInfo *const token)
 	/* If a scope has been set, add it to the name */
 	addToScope (name, token->scope, token->scopeKind);
 	saveScopeKind = token->scopeKind;
-	readToken (name);
+	readIdentifier (name);
+
+	while (isType (name, TOKEN_IDENTIFIER))
+	{
+		readToken (token);
+		if (!isType (token, TOKEN_PERIOD))
+			break;
+		/* FIXME: Throw away valuable scope information. */
+		readIdentifier (name);
+	}
+
 	if (isType (name, TOKEN_IDENTIFIER))
 	{
 		int r = makeSqlTag (name, SQLTAG_TYPE);
 		sqlKind scopeKind = SQLTAG_TYPE;
 
-		readToken (token);
 		if (isKeyword (token, KEYWORD_is))
 		{
 			readToken (token);