@@ -54,7 +54,7 @@ private class CodeMetricsListener : VBAParserBaseListener
54
54
private readonly DeclarationFinder _finder ;
55
55
private readonly IIndenterSettings _indenterSettings ;
56
56
57
- private Declaration currentMember ;
57
+ private Declaration _currentMember ;
58
58
private List < CodeMetricsResult > _results = new List < CodeMetricsResult > ( ) ;
59
59
private List < CodeMetricsResult > _moduleResults = new List < CodeMetricsResult > ( ) ;
60
60
@@ -76,7 +76,7 @@ public override void EnterEndOfLine([NotNull] VBAParser.EndOfLineContext context
76
76
var followingWhitespace = context . whiteSpace ( ) . LastOrDefault ( ) ;
77
77
followingIndentationLevel = IndentationLevelFromWhitespace ( followingWhitespace ) ;
78
78
}
79
- ( currentMember == null ? _moduleResults : _results ) . Add ( new CodeMetricsResult ( 1 , 0 , followingIndentationLevel ) ) ;
79
+ ( _currentMember == null ? _moduleResults : _results ) . Add ( new CodeMetricsResult ( 1 , 0 , followingIndentationLevel ) ) ;
80
80
}
81
81
82
82
public override void EnterIfStmt ( [ NotNull ] VBAParser . IfStmtContext context )
@@ -109,7 +109,7 @@ public override void EnterCaseClause([NotNull] VBAParser.CaseClauseContext conte
109
109
public override void EnterSubStmt ( [ NotNull ] VBAParser . SubStmtContext context )
110
110
{
111
111
_results . Add ( new CodeMetricsResult ( 0 , 1 , 0 ) ) ;
112
- currentMember = _finder . DeclarationsWithType ( DeclarationType . Procedure ) . Where ( d => d . Context == context ) . First ( ) ;
112
+ _currentMember = _finder . UserDeclarations ( DeclarationType . Procedure ) . Where ( d => d . Context == context ) . First ( ) ;
113
113
}
114
114
115
115
public override void ExitSubStmt ( [ NotNull ] VBAParser . SubStmtContext context )
@@ -120,7 +120,7 @@ public override void ExitSubStmt([NotNull] VBAParser.SubStmtContext context)
120
120
public override void EnterFunctionStmt ( [ NotNull ] VBAParser . FunctionStmtContext context )
121
121
{
122
122
_results . Add ( new CodeMetricsResult ( 0 , 1 , 0 ) ) ;
123
- currentMember = _finder . DeclarationsWithType ( DeclarationType . Function ) . Where ( d => d . Context == context ) . First ( ) ;
123
+ _currentMember = _finder . UserDeclarations ( DeclarationType . Function ) . Where ( d => d . Context == context ) . First ( ) ;
124
124
}
125
125
126
126
public override void ExitFunctionStmt ( [ NotNull ] VBAParser . FunctionStmtContext context )
@@ -131,7 +131,7 @@ public override void ExitFunctionStmt([NotNull] VBAParser.FunctionStmtContext co
131
131
public override void EnterPropertyGetStmt ( [ NotNull ] VBAParser . PropertyGetStmtContext context )
132
132
{
133
133
_results . Add ( new CodeMetricsResult ( 0 , 1 , 0 ) ) ;
134
- currentMember = _finder . DeclarationsWithType ( DeclarationType . PropertyGet ) . Where ( d => d . Context == context ) . First ( ) ;
134
+ _currentMember = _finder . UserDeclarations ( DeclarationType . PropertyGet ) . Where ( d => d . Context == context ) . First ( ) ;
135
135
}
136
136
137
137
public override void ExitPropertyGetStmt ( [ NotNull ] VBAParser . PropertyGetStmtContext context )
@@ -142,7 +142,7 @@ public override void ExitPropertyGetStmt([NotNull] VBAParser.PropertyGetStmtCont
142
142
public override void EnterPropertyLetStmt ( [ NotNull ] VBAParser . PropertyLetStmtContext context )
143
143
{
144
144
_results . Add ( new CodeMetricsResult ( 0 , 1 , 0 ) ) ;
145
- currentMember = _finder . DeclarationsWithType ( DeclarationType . PropertyLet ) . Where ( d => d . Context == context ) . First ( ) ;
145
+ _currentMember = _finder . UserDeclarations ( DeclarationType . PropertyLet ) . Where ( d => d . Context == context ) . First ( ) ;
146
146
}
147
147
148
148
public override void ExitPropertyLetStmt ( [ NotNull ] VBAParser . PropertyLetStmtContext context )
@@ -153,7 +153,7 @@ public override void ExitPropertyLetStmt([NotNull] VBAParser.PropertyLetStmtCont
153
153
public override void EnterPropertySetStmt ( [ NotNull ] VBAParser . PropertySetStmtContext context )
154
154
{
155
155
_results . Add ( new CodeMetricsResult ( 0 , 1 , 0 ) ) ;
156
- currentMember = _finder . DeclarationsWithType ( DeclarationType . PropertySet ) . Where ( d => d . Context == context ) . First ( ) ;
156
+ _currentMember = _finder . UserDeclarations ( DeclarationType . PropertySet ) . Where ( d => d . Context == context ) . First ( ) ;
157
157
}
158
158
159
159
public override void ExitPropertySetStmt ( [ NotNull ] VBAParser . PropertySetStmtContext context )
@@ -179,9 +179,9 @@ private int IndentationLevelFromWhitespace(VBAParser.WhiteSpaceContext wsContext
179
179
180
180
private void ExitMeasurableMember ( )
181
181
{
182
- _memberResults . Add ( new MemberMetricsResult ( currentMember , _results ) ) ;
182
+ _memberResults . Add ( new MemberMetricsResult ( _currentMember , _results ) ) ;
183
183
_results = new List < CodeMetricsResult > ( ) ; // reinitialize to drop results
184
- currentMember = null ;
184
+ _currentMember = null ;
185
185
}
186
186
187
187
internal ModuleMetricsResult GetMetricsResult ( QualifiedModuleName qmn )
0 commit comments