1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
package org.eclipse.photran.internal.core.model;
import java.io.ByteArrayInputStream;
import java.io.InputStream;
import java.util.HashMap;
import java.util.Iterator;
import java.util.Map;
import org.eclipse.cdt.core.addl_langs.IModelBuilder;
import org.eclipse.cdt.core.model.CModelException;
import org.eclipse.cdt.core.model.ICElement;
import org.eclipse.cdt.internal.core.model.Parent;
import org.eclipse.photran.core.FortranCorePlugin;
import org.eclipse.photran.internal.core.f95parser.FortranProcessor;
import org.eclipse.photran.internal.core.f95parser.SemanticError;
import org.eclipse.photran.internal.core.f95parser.SyntaxError;
import org.eclipse.photran.internal.core.f95parser.Token;
import org.eclipse.photran.internal.core.preferences.FortranPreferences;
import org.eclipse.photran.internal.core.preferences.FortranShowParseTreePreference;
/**
* The Fortran model builder calls a <code>FortranModelBuildingVisitor</code> to create the model
* you see in the (normal) Outline view.
*
* Editors can force the model builder to use fixed or free format for a given file by calling
* <code>forceFormat</code>. Otherwise, the format is determined by content type (i.e., by the
* filename extension and the user's workspace preferences).
*
* All CDT extension languages are expected to supply a model builder.
* @see IModelBuilder
*
* @author joverbey
*/
public final class FortranModelBuilder implements IModelBuilder
{
private org.eclipse.cdt.internal.core.model.TranslationUnit translationUnit;
private Map newElements;
private static Map/*<String,Boolean>*/ formatAssociations = new HashMap();
public static void forceFormat(String filename, boolean isFixedFormat)
{
formatAssociations.put(filename, Boolean.valueOf(isFixedFormat));
}
public FortranModelBuilder(org.eclipse.cdt.internal.core.model.TranslationUnit tu)
{
this.translationUnit = tu;
this.newElements = new HashMap();
}
// public Map parse(boolean quickParseMode) throws Exception
// {
// String input = translationUnit.getBuffer().getContents();
// InputStream inputStream = new ByteArrayInputStream(input.getBytes());
// String filename = translationUnit.getFile().getName();
// boolean wasSuccessful = true;
//
// try
// {
// FortranProcessor processor = new FortranProcessor();
//
// ParseTreeNode parseTree;
// if (formatAssociations.containsKey(filename))
// parseTree = processor.parse(inputStream, filename, ((Boolean)formatAssociations.get(filename)).booleanValue());
// else
// parseTree = processor.parse(inputStream, filename);
//
// FortranElement note = new FortranElement.UnknownNode(translationUnit, processor
// .lastParseWasFixedForm() ? "<Fixed Form Source>" : "<Free Form Source>");
// this.addF90Element(note);
//
// // Build a model (for our purposes, it's just to populate the Outline view)
// if (isParseTreeModelEnabled())
// {
// // Show full parse tree rather than Outline view
// parseTree.visitUsing(new FortranParseTreeModelBuildingVisitor(translationUnit, this));
// }
// else
// {
// // Show normal Outline view
// parseTree.visitUsing(new FortranModelBuildingVisitor(translationUnit, this));
// }
//
// // If parser debugging is enabled, try creating a symbol table
// if (FortranProcessor.isParserDebuggingEnabled())
// {
// try
// {
// // processor.createSymbolTableFromParseTree(parseTree);
// }
// catch (SemanticError e)
// {
// createSemanticFailureNode(translationUnit, e);
// wasSuccessful = false;
// }
// }
// }
// catch (SyntaxError e)
// {
// createParseFailureNode(translationUnit, e.getErrorToken());
// wasSuccessful = false;
// }
// catch (Exception e)
// {
// createParseFailureNode(translationUnit, e.getMessage());
// wasSuccessful = false;
// }
//
// // From CDT: important to know if the unit has parse errors or not
// translationUnit.getElementInfo().setIsStructureKnown(wasSuccessful);
//
// return this.newElements;
// }
public Map parse(boolean quickParseMode) throws Exception
{
String input = translationUnit.getBuffer().getContents();
InputStream inputStream = new ByteArrayInputStream(input.getBytes());
String filename = translationUnit.getFile().getName();
boolean wasSuccessful = true;
try
{
FortranProcessor processor = new FortranProcessor();
// Note that formatAssociations.get(filename) may return null, which is fine
Map newElts = processor.parseForModel(inputStream, filename, (Boolean)formatAssociations.get(filename), translationUnit);
FortranElement note = new FortranElement.UnknownNode(translationUnit, processor.lastParseWasFixedForm() ? "<Fixed Form Source>" : "<Free Form Source>");
this.addF90Element(note);
/* For whatever reason, we have to only set the *parent* while we
* parse, then go back through (now) and traverse the model in
* preorder, executing addChild(). This doesn't make any sense,
* but the "obvious" way of doing it all while parsing (in
* BuildModelParserAction.java) doesn't work.
*/
//newElements.putAll(newElts);
this.addF90Elements(newElts);
}
catch (SyntaxError e)
{
createParseFailureNode(translationUnit, e.getErrorToken());
wasSuccessful = false;
}
catch (Exception e)
{
createParseFailureNode(translationUnit, e.getMessage());
wasSuccessful = false;
}
// From CDT: important to know if the unit has parse errors or not
translationUnit.getElementInfo().setIsStructureKnown(wasSuccessful);
return this.newElements;
}
private boolean isParseTreeModelEnabled()
{
FortranShowParseTreePreference pref = FortranPreferences.SHOW_PARSE_TREE;
return pref.getValue(FortranCorePlugin.getDefault().getPluginPreferences());
}
// --NODE CREATION METHODS-------------------------------------------
private FortranElement createParseFailureNode(Parent parent, Token errorToken)
throws CModelException
{
StringBuffer errorMessage = new StringBuffer();
errorMessage.append("Error: Unexpected ");
errorMessage.append(errorToken.getTerminal().getDescription());
errorMessage.append(" \"");
errorMessage.append(errorToken.getText());
errorMessage.append("\"");
FortranElement element = new FortranElement.ErrorNode(parent, errorMessage.toString());
element.setIdPos(errorToken.getOffset(), errorToken.getLength());
element.setPos(errorToken.getOffset(), errorToken.getLength());
element.setLines(errorToken.getStartLine(), errorToken.getEndLine());
parent.addChild(element);
this.newElements.put(element, element.getElementInfo());
return element;
}
private FortranElement createParseFailureNode(Parent parent, String errorMessage)
throws CModelException
{
FortranElement element = new FortranElement.ErrorNode(parent, errorMessage);
parent.addChild(element);
this.newElements.put(element, element.getElementInfo());
return element;
}
private FortranElement createSemanticFailureNode(Parent parent, SemanticError e)
throws CModelException
{
StringBuffer errorMessage = new StringBuffer();
errorMessage.append(e.getMessage());
Token errorToken = e.getErrorToken();
if (errorToken == null) errorToken = new Token();
FortranElement element = new FortranElement.ErrorNode(parent, errorMessage.toString());
element.setIdPos(errorToken.getOffset(), errorToken.getLength());
element.setPos(errorToken.getOffset(), errorToken.getLength());
element.setLines(errorToken.getStartLine(), errorToken.getEndLine());
parent.addChild(element);
this.newElements.put(element, element.getElementInfo());
return element;
}
/**
* Called by the <code>FortranModelBuildingVisitor</code> to add nodes to the model
* @param element
* @return
* @throws CModelException
*/
FortranElement addF90Element(FortranElement element) throws CModelException
{
if (element.getParent() == null) element.setParent(translationUnit);
ICElement parent = element.getParent();
if (parent instanceof Parent) ((Parent)parent).addChild(element);
this.newElements.put(element, element.getElementInfo());
return element;
}
private void addF90Elements(Map elts) throws CModelException
{
// Add all top-level elements (those with no parent) and recurse
addF90ElementsFor(null, elts);
}
private void addF90ElementsFor(Parent parent, Map elts) throws CModelException
{
Iterator it = elts.keySet().iterator();
while (it.hasNext())
{
FortranElement e = (FortranElement)it.next();
if (e.getParent() == parent)
{
addF90Element(e);
e.setIdentifier(e.getIdentifier()); // It seems to forget position info
addF90ElementsFor(e, elts);
}
}
}
}
|
