Browse Source
git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@2202 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61shortcuts
Daniel Grunwald
19 years ago
23 changed files with 1186 additions and 828 deletions
File diff suppressed because it is too large
Load Diff
@ -1,28 +0,0 @@ |
|||||||
// <file>
|
|
||||||
// <copyright see="prj:///doc/copyright.txt"/>
|
|
||||||
// <license see="prj:///doc/license.txt"/>
|
|
||||||
// <owner name="Daniel Grunwald" email="daniel@danielgrunwald.de"/>
|
|
||||||
// <version>$Revision$</version>
|
|
||||||
// </file>
|
|
||||||
|
|
||||||
using System; |
|
||||||
using ICSharpCode.NRefactory.Ast; |
|
||||||
|
|
||||||
namespace ICSharpCode.NRefactory.Visitors |
|
||||||
{ |
|
||||||
/// <summary>
|
|
||||||
/// This class converts VB.NET constructs to their C# equivalents.
|
|
||||||
/// Applying the VBNetToCSharpConvertVisitor on a CompilationUnit has the same effect
|
|
||||||
/// as applying the VBNetConstructsConvertVisitor and ToCSharpConvertVisitor.
|
|
||||||
/// </summary>
|
|
||||||
public class VBNetToCSharpConvertVisitor : VBNetConstructsConvertVisitor |
|
||||||
{ |
|
||||||
public override object VisitCompilationUnit(CompilationUnit compilationUnit, object data) |
|
||||||
{ |
|
||||||
base.VisitCompilationUnit(compilationUnit, data); |
|
||||||
ToCSharpConvertVisitor v = new ToCSharpConvertVisitor(); |
|
||||||
compilationUnit.AcceptVisitor(v, data); |
|
||||||
return null; |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
@ -0,0 +1,208 @@ |
|||||||
|
// <file>
|
||||||
|
// <copyright see="prj:///doc/copyright.txt"/>
|
||||||
|
// <license see="prj:///doc/license.txt"/>
|
||||||
|
// <owner name="Daniel Grunwald" email="daniel@danielgrunwald.de"/>
|
||||||
|
// <version>$Revision$</version>
|
||||||
|
// </file>
|
||||||
|
|
||||||
|
using System; |
||||||
|
using ICSharpCode.NRefactory; |
||||||
|
using ICSharpCode.NRefactory.Ast; |
||||||
|
using ICSharpCode.NRefactory.Visitors; |
||||||
|
|
||||||
|
namespace ICSharpCode.SharpDevelop.Dom.NRefactoryResolver |
||||||
|
{ |
||||||
|
/// <summary>
|
||||||
|
/// This class converts C# constructs to their VB.NET equivalents.
|
||||||
|
/// </summary>
|
||||||
|
public class VBNetToCSharpConvertVisitor : VBNetConstructsConvertVisitor |
||||||
|
{ |
||||||
|
// Fixes identifier casing
|
||||||
|
// Adds using statements for the default usings
|
||||||
|
|
||||||
|
NRefactoryResolver _resolver; |
||||||
|
string _fileName; |
||||||
|
|
||||||
|
public VBNetToCSharpConvertVisitor(IProjectContent pc, string fileName) |
||||||
|
{ |
||||||
|
_resolver = new NRefactoryResolver(pc, LanguageProperties.VBNet); |
||||||
|
_fileName = fileName; |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitCompilationUnit(CompilationUnit compilationUnit, object data) |
||||||
|
{ |
||||||
|
base.VisitCompilationUnit(compilationUnit, data); |
||||||
|
ToCSharpConvertVisitor v = new ToCSharpConvertVisitor(); |
||||||
|
compilationUnit.AcceptVisitor(v, data); |
||||||
|
if (_resolver.ProjectContent.DefaultImports != null) { |
||||||
|
int index = 0; |
||||||
|
foreach (string u in _resolver.ProjectContent.DefaultImports.Usings) { |
||||||
|
compilationUnit.Children.Insert(index++, new UsingDeclaration(u)); |
||||||
|
} |
||||||
|
} |
||||||
|
return null; |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitMethodDeclaration(MethodDeclaration methodDeclaration, object data) |
||||||
|
{ |
||||||
|
// Initialize resolver for method:
|
||||||
|
if (!methodDeclaration.Body.IsNull) { |
||||||
|
if (_resolver.Initialize(_fileName, methodDeclaration.Body.StartLocation.Line, methodDeclaration.Body.StartLocation.Column)) { |
||||||
|
_resolver.RunLookupTableVisitor(methodDeclaration); |
||||||
|
} |
||||||
|
} |
||||||
|
return base.VisitMethodDeclaration(methodDeclaration, data); |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitConstructorDeclaration(ConstructorDeclaration constructorDeclaration, object data) |
||||||
|
{ |
||||||
|
if (!constructorDeclaration.Body.IsNull) { |
||||||
|
if (_resolver.Initialize(_fileName, constructorDeclaration.Body.StartLocation.Line, constructorDeclaration.Body.StartLocation.Column)) { |
||||||
|
_resolver.RunLookupTableVisitor(constructorDeclaration); |
||||||
|
} |
||||||
|
} |
||||||
|
return base.VisitConstructorDeclaration(constructorDeclaration, data); |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitPropertyDeclaration(PropertyDeclaration propertyDeclaration, object data) |
||||||
|
{ |
||||||
|
if (_resolver.Initialize(_fileName, propertyDeclaration.BodyStart.Line, propertyDeclaration.BodyStart.Column)) { |
||||||
|
_resolver.RunLookupTableVisitor(propertyDeclaration); |
||||||
|
} |
||||||
|
return base.VisitPropertyDeclaration(propertyDeclaration, data); |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitIdentifierExpression(IdentifierExpression identifierExpression, object data) |
||||||
|
{ |
||||||
|
base.VisitIdentifierExpression(identifierExpression, data); |
||||||
|
if (_resolver.CompilationUnit == null) |
||||||
|
return null; |
||||||
|
|
||||||
|
ResolveResult rr = _resolver.ResolveInternal(identifierExpression, ExpressionContext.Default); |
||||||
|
string ident = GetIdentifierFromResult(rr); |
||||||
|
if (ident != null) { |
||||||
|
identifierExpression.Identifier = ident; |
||||||
|
} |
||||||
|
return null; |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitFieldReferenceExpression(FieldReferenceExpression fieldReferenceExpression, object data) |
||||||
|
{ |
||||||
|
base.VisitFieldReferenceExpression(fieldReferenceExpression, data); |
||||||
|
|
||||||
|
if (_resolver.CompilationUnit == null) |
||||||
|
return null; |
||||||
|
|
||||||
|
ResolveResult rr = _resolver.ResolveInternal(fieldReferenceExpression, ExpressionContext.Default); |
||||||
|
string ident = GetIdentifierFromResult(rr); |
||||||
|
if (ident != null) { |
||||||
|
fieldReferenceExpression.FieldName = ident; |
||||||
|
} |
||||||
|
if (rr is MethodResolveResult |
||||||
|
&& !(fieldReferenceExpression.Parent is AddressOfExpression) |
||||||
|
&& !(fieldReferenceExpression.Parent is InvocationExpression)) |
||||||
|
{ |
||||||
|
ReplaceCurrentNode(new InvocationExpression(fieldReferenceExpression)); |
||||||
|
} |
||||||
|
|
||||||
|
return rr; |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitInvocationExpression(InvocationExpression invocationExpression, object data) |
||||||
|
{ |
||||||
|
base.VisitInvocationExpression(invocationExpression, data); |
||||||
|
|
||||||
|
if (_resolver.CompilationUnit == null) |
||||||
|
return null; |
||||||
|
|
||||||
|
if (invocationExpression.Arguments.Count > 0 |
||||||
|
&& !(invocationExpression.Parent is ReDimStatement)) |
||||||
|
{ |
||||||
|
MemberResolveResult rr = _resolver.ResolveInternal(invocationExpression, ExpressionContext.Default) as MemberResolveResult; |
||||||
|
if (rr != null) { |
||||||
|
IProperty p = rr.ResolvedMember as IProperty; |
||||||
|
if (p != null) { |
||||||
|
ReplaceCurrentNode(new IndexerExpression(invocationExpression.TargetObject, invocationExpression.Arguments)); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
return null; |
||||||
|
} |
||||||
|
|
||||||
|
ClassFinder CreateContext() |
||||||
|
{ |
||||||
|
return new ClassFinder(_resolver.CallingClass, _resolver.CallingMember, _resolver.CaretLine, _resolver.CaretColumn); |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitReDimStatement(ReDimStatement reDimStatement, object data) |
||||||
|
{ |
||||||
|
base.VisitReDimStatement(reDimStatement, data); |
||||||
|
|
||||||
|
if (_resolver.CompilationUnit == null) |
||||||
|
return null; |
||||||
|
|
||||||
|
if (!reDimStatement.IsPreserve && reDimStatement.ReDimClauses.Count == 1) { |
||||||
|
// replace with array create expression
|
||||||
|
|
||||||
|
ResolveResult rr = _resolver.ResolveInternal(reDimStatement.ReDimClauses[0].TargetObject, ExpressionContext.Default); |
||||||
|
if (rr != null && rr.ResolvedType != null && rr.ResolvedType.IsArrayReturnType) { |
||||||
|
ArrayCreateExpression ace = new ArrayCreateExpression( |
||||||
|
Refactoring.CodeGenerator.ConvertType(rr.ResolvedType, CreateContext()) |
||||||
|
); |
||||||
|
foreach (Expression arg in reDimStatement.ReDimClauses[0].Arguments) { |
||||||
|
ace.Arguments.Add(Expression.AddInteger(arg, 1)); |
||||||
|
} |
||||||
|
|
||||||
|
ReplaceCurrentNode(new ExpressionStatement( |
||||||
|
new AssignmentExpression(reDimStatement.ReDimClauses[0].TargetObject, AssignmentOperatorType.Assign, ace))); |
||||||
|
} |
||||||
|
} |
||||||
|
return null; |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitLocalVariableDeclaration(LocalVariableDeclaration localVariableDeclaration, object data) |
||||||
|
{ |
||||||
|
FixTypeReferenceCasing(localVariableDeclaration.TypeReference, localVariableDeclaration.StartLocation); |
||||||
|
return base.VisitLocalVariableDeclaration(localVariableDeclaration, data); |
||||||
|
} |
||||||
|
|
||||||
|
public override object VisitVariableDeclaration(VariableDeclaration variableDeclaration, object data) |
||||||
|
{ |
||||||
|
FixTypeReferenceCasing(variableDeclaration.TypeReference, variableDeclaration.StartLocation); |
||||||
|
return base.VisitVariableDeclaration(variableDeclaration, data); |
||||||
|
} |
||||||
|
|
||||||
|
void FixTypeReferenceCasing(TypeReference tr, Location loc) |
||||||
|
{ |
||||||
|
if (_resolver.CompilationUnit == null) return; |
||||||
|
if (tr.IsNull) return; |
||||||
|
IReturnType rt = _resolver.SearchType(tr.SystemType, loc); |
||||||
|
if (rt != null) { |
||||||
|
IClass c = rt.GetUnderlyingClass(); |
||||||
|
if (c != null) { |
||||||
|
if (string.Equals(tr.Type, c.Name, StringComparison.InvariantCultureIgnoreCase)) { |
||||||
|
tr.Type = c.Name; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
string GetIdentifierFromResult(ResolveResult rr) |
||||||
|
{ |
||||||
|
LocalResolveResult lrr = rr as LocalResolveResult; |
||||||
|
if (lrr != null) |
||||||
|
return lrr.Field.Name; |
||||||
|
MemberResolveResult mrr = rr as MemberResolveResult; |
||||||
|
if (mrr != null) |
||||||
|
return mrr.ResolvedMember.Name; |
||||||
|
MethodResolveResult mtrr = rr as MethodResolveResult; |
||||||
|
if (mtrr != null) |
||||||
|
return mtrr.Name; |
||||||
|
TypeResolveResult trr = rr as TypeResolveResult; |
||||||
|
if (trr != null && trr.ResolvedClass != null) |
||||||
|
return trr.ResolvedClass.Name; |
||||||
|
return null; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
Loading…
Reference in new issue