[geany/geany] 194ef6: Tagmanger: recognize Fortran procedure pointers as variables

[Alexander Eberspächer]

Branch:      refs/heads/master
Author:      Alexander Eberspächer <alex.eberspaecher at gmail.com>
Committer:   Colomban Wendling <ban at herbesfolles.org>
Date:        Mon, 24 Jun 2013 21:00:10 UTC
Commit:      194ef6010d25e04bf69f705cf94818f68a55f3fa
             https://github.com/geany/geany/commit/194ef6010d25e04bf69f705cf94818f68a55f3fa

Log Message:
-----------
Tagmanger: recognize Fortran procedure pointers as variables

Add a keyword for procedure pointers and treat declarations such as
'procedure(subprogram_to_point_to), pointer :: my_pointer' just like
declarations of a real or integer variable.


Modified Paths:
--------------
    tagmanager/ctags/fortran.c

Modified: tagmanager/ctags/fortran.c
4 files changed, 4 insertions(+), 0 deletions(-)
===================================================================
@@ -108,6 +108,7 @@
 	KEYWORD_pointer,
 	KEYWORD_precision,
 	KEYWORD_private,
+	KEYWORD_procedure,
 	KEYWORD_program,
 	KEYWORD_public,
 	KEYWORD_pure,
@@ -274,6 +275,7 @@
 	{ "pointer",        KEYWORD_pointer      },
 	{ "precision",      KEYWORD_precision    },
 	{ "private",        KEYWORD_private      },
+	{ "procedure",      KEYWORD_procedure    },
 	{ "program",        KEYWORD_program      },
 	{ "public",         KEYWORD_public       },
 	{ "pure",           KEYWORD_pure         },
@@ -1125,6 +1127,7 @@ static boolean isTypeSpec (tokenInfo *const token)
 		case KEYWORD_logical:
 		case KEYWORD_record:
 		case KEYWORD_type:
+		case KEYWORD_procedure:
 			result = TRUE;
 			break;
 		default:
@@ -1187,6 +1190,7 @@ static void parseTypeSpec (tokenInfo *const token)
 		case KEYWORD_integer:
 		case KEYWORD_logical:
 		case KEYWORD_real:
+		case KEYWORD_procedure:
 			readToken (token);
 			if (isType (token, TOKEN_PAREN_OPEN))
 				skipOverParens (token);  /* skip kind-selector */



--------------
This E-Mail was brought to you by github_commit_mail.py (Source: https://github.com/geany/infrastructure).