SQL: make foreign tags for 'interenal' functions

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

Author: masatake

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

@@ -0,0 +1,3 @@
+--sort=no
+--fields=+lSr
+--extras=+r

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

@@ -0,0 +1,4 @@
+isnlt	input.sql	/^CREATE FUNCTION isnlt(ean13, ean13)$/;"	f	language:SQL	typeref:typename:boolean	signature:(ean13, ean13)	roles:def
+int8lt	input.sql	/^        AS 'int8lt'$/;"	f	language:C	roles:foreigncall
+isnle	input.sql	/^CREATE FUNCTION isnle(ean13, ean13)$/;"	f	language:SQL	typeref:typename:boolean	signature:(ean13, ean13)	roles:def
+int8le	input.sql	/^        AS 'int8le'$/;"	f	language:C	roles:foreigncall

Units/parser-sql.r/sql_pgSQL_with_language_internal.d/input.sql

@@ -0,0 +1,12 @@
+CREATE FUNCTION isnlt(ean13, ean13)
+        RETURNS boolean
+        AS 'int8lt'
+        LANGUAGE 'internal'
+        IMMUTABLE STRICT
+        PARALLEL SAFE;
+CREATE FUNCTION isnle(ean13, ean13)
+        RETURNS boolean
+        AS 'int8le'
+        LANGUAGE 'internal'
+        IMMUTABLE STRICT
+        PARALLEL SAFE;

parsers/sql.c

@@ -30,6 +30,9 @@
 #include "xtag.h"
 #include "promise.h"
 
+#include "dependency.h"
+#include "cxx/cxx_tag.h"
+
 /*
  *	On-line "Oracle Database PL/SQL Language Reference":
  *	http://download.oracle.com/docs/cd/B28359_01/appdev.111/b28370/toc.htm
@@ -505,6 +508,8 @@ static struct SqlReservedWord SqlReservedWord [SQLKEYWORD_COUNT] = {
 	[KEYWORD_without]       = {0 & 0&1&1&0 & 0&0 & 0},
 };
 
+static langType Lang_c;
+
 /*
  *	 FUNCTION DECLARATIONS
  */
@@ -2203,6 +2208,16 @@ static void parseBlock (tokenInfo *const token, const bool local)
 	parseBlockFull (token, local, LANG_IGNORE);
 }
 
+static void makeSqlTagForInternalFunction (tokenInfo *const token)
+{
+	tagEntryInfo foreignEntry;
+	initForeignRefTagEntry (
+		&foreignEntry, vStringValue (token->string), Lang_c,
+		CXXTagKindFUNCTION, CXXTagFUNCTIONRoleFOREIGNCALL);
+	updateTagLine (&foreignEntry, token->lineNumber, token->filePosition);
+	makeTagEntry (&foreignEntry);
+}
+
 static void parseBlockFull (tokenInfo *const token, const bool local, langType lang)
 {
 	int promise = -1;
@@ -2222,6 +2237,9 @@ static void parseBlockFull (tokenInfo *const token, const bool local, langType l
 			promise = token->promise;
 			token->promise = -1;
 
+			tokenInfo *const body = newToken ();
+			copyToken (body, token);
+
 			readToken (token);
 			while (! isCmdTerm (token)
 				   && !isType (token, TOKEN_EOF))
@@ -2233,10 +2251,16 @@ static void parseBlockFull (tokenInfo *const token, const bool local, langType l
 					lang = getNamedLanguageFromToken (token);
 					if (lang != LANG_IGNORE)
 						readToken (token);
+					else if (vStringEqC (token->string, "internal"))
+					{
+						makeSqlTagForInternalFunction (body);
+						readToken (token);
+					}
 				}
 				else
 					readToken (token);
 			}
+			deleteToken (body);
 
 			if (promise != -1 && lang != LANG_IGNORE)
 				promiseUpdateLanguage(promise, lang);
@@ -3384,6 +3408,10 @@ extern parserDefinition* SqlParser (void)
 	static const char *const extensions [] = { "sql", NULL };
 	static const char *const aliases [] = {"pgsql", NULL };
 	parserDefinition* def = parserNew ("SQL");
+	static parserDependency dependencies [] = {
+		[0] = { DEPTYPE_FOREIGNER, "C",  &Lang_c },
+	};
+
 	def->kindTable	= SqlKinds;
 	def->kindCount	= ARRAY_SIZE (SqlKinds);
 	def->extensions = extensions;
@@ -3393,5 +3421,7 @@ extern parserDefinition* SqlParser (void)
 	def->keywordTable = SqlKeywordTable;
 	def->keywordCount = ARRAY_SIZE (SqlKeywordTable);
 	def->useCork = CORK_QUEUE | CORK_SYMTAB;
+	def->dependencies = dependencies;
+	def->dependencyCount = ARRAY_SIZE (dependencies);
 	return def;
 }