handle public/protected/private in variable declarations

Author: mbdevpl

src/fortran/ofp/XMLPrinter.java

@@ -439,10 +439,25 @@ public void declaration_type_spec(Token udtKeyword, int type) {
 	}
 
 	public void attr_spec(Token attrKeyword, int attr) {
+		Element preceeding = null;
 		String nestIn = "";
 		switch (attr) {
 		case IActionEnums.AttrSpec_access:
-			// private
+			preceeding = contextNode(-1);
+			int accessType = Integer.parseInt(getAttribute("type", preceeding).getValue());
+			switch (accessType) {
+			case IActionEnums.AttrSpec_PUBLIC:
+				nestIn = "public";
+				break;
+			case IActionEnums.AttrSpec_PROTECTED:
+				nestIn = "protected";
+				break;
+			case IActionEnums.AttrSpec_PRIVATE:
+				nestIn = "private";
+				break;
+			default:
+				throw new IllegalArgumentException(Integer.toString(attr) + " - " + attrKeyword + ", type=" + Integer.toString(accessType));
+			}
 			break;
 		case IActionEnums.AttrSpec_language_binding:
 			// bind
@@ -497,6 +512,8 @@ public void attr_spec(Token attrKeyword, int attr) {
 		}
 		if (nestIn.length() > 0)
 			contextOpen("attribute-" + nestIn);
+		if (preceeding != null)
+			moveHere(preceeding);
 		super.attr_spec(attrKeyword, attr);
 		if (nestIn.length() > 0)
 			contextClose();