Fortran: don't generate tags for interface content

2014-02-20 22:43:12 +01:00 · 2014-02-20 22:43:12 +01:00 · 329b2cb401
commit 329b2cb401
parent 5a67a4f64c
3 changed files with 1 additions and 12 deletions
--- a/tagmanager/ctags/fortran.c
+++ b/tagmanager/ctags/fortran.c
@ -500,7 +500,7 @@ static void makeFortranTag (tokenInfo *const token, tagType tag)
 				e.extensionFields.scope [1] = vStringValue (scope->string);
 			}
 		}
-		if (! insideInterface () || includeTag (TAG_INTERFACE))
+		if (! insideInterface () /*|| includeTag (TAG_INTERFACE)*/)
 			makeTagEntry (&e);
 	}
 }
--- a/tests/ctags/numlib.f90.tags
+++ b/tests/ctags/numlib.f90.tags
@ -1,5 +1,2 @@
 # format=tagmanager
-a2aldÌ128Înumerical_librariesÖ0
-b2lsfÌ128Înumerical_librariesÖ0
-fcnÌ128Îb2lsfÖ0
 numerical_librariesÌ256Ö0
--- a/tests/ctags/recursive.f95.tags
+++ b/tests/ctags/recursive.f95.tags
@ -1,14 +1,6 @@
 # format=tagmanager
 approxÌ256Ö0
 approx2Ì256Ö0
-arcsinĚ16ÎapproxÖ0
-arcsin1Ě16ÎapproxÖ0
-arcsin2Ě16ÎapproxÖ0
-arcsin3Ě16ÎapproxÖ0
-asĚ16Îapprox2Ö0
-as1Ě16Îapprox2Ö0
-as2Ě16Îapprox2Ö0
-as3Ě16Îapprox2Ö0
 partsÌ16384ÎapproxÖ0
 parts2Ì16384Îapprox2Ö0
 yÌ16384ÎapproxÖ0