SF.net SVN: geany: [2304] trunk

[eht16 at users.sourceforge.net]

Revision: 2304
          http://geany.svn.sourceforge.net/geany/?rev=2304&view=rev
Author:   eht16
Date:     2008-03-03 12:16:52 -0800 (Mon, 03 Mar 2008)

Log Message:
-----------
Adjust available symbol types between Fortran parser and symbols.c to make some more of the possbile symbol types available.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/src/symbols.c
    trunk/tagmanager/fortran.c

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog	2008-03-03 17:54:59 UTC (rev 2303)
+++ trunk/ChangeLog	2008-03-03 20:16:52 UTC (rev 2304)
@@ -1,3 +1,10 @@
+2008-03-03  Enrico Tröger  <enrico(dot)troeger(at)uvena(dot)de>
+
+ * tagmanager/fortran.c, src/symbols.c:
+   Adjust available symbol types between Fortran parser and symbols.c to
+   make some more of the possbile symbol types available.
+
+
 2008-02-28  Enrico Tröger  <enrico(dot)troeger(at)uvena(dot)de>
 
  * src/utils.c, src/utils.h, tagmanager/parse.h:

Modified: trunk/src/symbols.c
===================================================================
--- trunk/src/symbols.c	2008-03-03 17:54:59 UTC (rev 2303)
+++ trunk/src/symbols.c	2008-03-03 20:16:52 UTC (rev 2304)
@@ -704,6 +704,20 @@
 				NULL);
 			break;
 		}
+		case GEANY_FILETYPES_FORTRAN:
+		{
+			tag_list_add_groups(tag_store,
+				&(tv_iters.tag_namespace), _("Module"), NULL,
+				&(tv_iters.tag_struct), _("Interfaces"), "classviewer-struct",
+				&(tv_iters.tag_function), _("Functions"), "classviewer-method",
+				&(tv_iters.tag_member), _("Subroutines"), "classviewer-method",
+				&(tv_iters.tag_variable), _("Variables"), "classviewer-var",
+				&(tv_iters.tag_type), _("Types"), "classviewer-namespace",
+				&(tv_iters.tag_macro), _("Blocks"), "classviewer-member",
+				&(tv_iters.tag_other), _("Other"), "classviewer-other",
+				NULL);
+			break;
+		}
 		case GEANY_FILETYPES_D:
 		default:
 		{

Modified: trunk/tagmanager/fortran.c
===================================================================
--- trunk/tagmanager/fortran.c	2008-03-03 17:54:59 UTC (rev 2303)
+++ trunk/tagmanager/fortran.c	2008-03-03 20:16:52 UTC (rev 2304)
@@ -171,17 +171,17 @@
 /* indexed by tagType */
 static kindOption FortranKinds [] = {
     { TRUE,  'b', "block data", "block data"},
-    { TRUE,  'c', "common",     "common blocks"},
+    { TRUE,  'c', "macro",      "common blocks"},
     { TRUE,  'e', "entry",      "entry points"},
     { TRUE,  'f', "function",   "functions"},
-    { TRUE,  'i', "interface",  "interfaces"},
+    { TRUE,  'i', "struct",     "interfaces"},
     { TRUE,  'k', "component",  "type components"},
     { TRUE,  'l', "label",      "labels"},
     { FALSE, 'L', "local",      "local and common block variables"},
-    { TRUE,  'm', "module",     "modules"},
+    { TRUE,  'm', "namespace",  "modules"},
     { TRUE,  'n', "namelist",   "namelists"},
-    { TRUE,  'p', "program",    "programs"},
-    { TRUE,  's', "subroutine", "subroutines"},
+    { TRUE,  'p', "package",    "programs"},
+    { TRUE,  's', "member",     "subroutines"},
     { TRUE,  't', "type",       "derived types"},
     { TRUE,  'v', "variable",   "module variables"}
 };


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.