SQL: extract types in Postgresql input

Signed-off-by: Masatake YAMATO <[email protected]>

Author: masatake

Units/parser-sql.r/funcions.d/args.ctags

@@ -1,3 +1,4 @@
 --sort=no
 --fields=+S
 --extras=+g
+--kinds-SQL=+r

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

@@ -1,3 +1,10 @@
+evr_array_item	input.sql	/^create type evr_array_item as ($/;"	r
+n	input.sql	/^  n       NUMERIC,$/;"	E	record:evr_array_item
+s	input.sql	/^  s       TEXT$/;"	E	record:evr_array_item
+evr_t	input.sql	/^create type evr_t as ($/;"	r
+epoch	input.sql	/^  epoch INT,$/;"	E	record:evr_t
+version	input.sql	/^  version evr_array_item[],$/;"	E	record:evr_t
+release	input.sql	/^  release evr_array_item[]$/;"	E	record:evr_t
 evr_trigger	input.sql	/^CREATE FUNCTION evr_trigger() RETURNS trigger AS $\$$/;"	f	typeref:typename:trigger	signature:()
 empty	input.sql	/^create or replace FUNCTION empty(t TEXT)$/;"	f	typeref:typename:BOOLEAN	signature:(t TEXT)
 isalpha	input.sql	/^create or replace FUNCTION isalpha(ch CHAR)$/;"	f	typeref:typename:BOOLEAN	signature:(ch CHAR)

parsers/sql.c

@@ -1718,8 +1718,11 @@ static void parseType (tokenInfo *const token)
 		if (isKeyword (token, KEYWORD_is))
 		{
 			readToken (token);
-			switch (token->keyword)
+
+			if (isType (token, TOKEN_KEYWORD))
 			{
+				switch (token->keyword)
+				{
 				case KEYWORD_record:
 				case KEYWORD_object:
 					makeSqlTag (name, SQLTAG_RECORD);
@@ -1738,6 +1741,14 @@ static void parseType (tokenInfo *const token)
 					break;
 
 				default: break;
+					/* TODO: PostgreSQL can take 'enum (' and 'range (' here.  */
+				}
+			}
+			else if (isType (token, TOKEN_OPEN_PAREN))
+			{
+				makeSqlTag (name, SQLTAG_RECORD);
+				addToScope (token, name->string, SQLTAG_RECORD);
+				parseRecord (token);
 			}
 			vStringClear (token->scope);
 			token->scopeKind = SQLTAG_COUNT;