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

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).