@ -28,7 +28,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
{
{
StringBuilder builder = new StringBuilder ( ) ;
StringBuilder builder = new StringBuilder ( ) ;
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<i>" ) ;
builder . Append ( "<i>" ) ;
}
}
@ -49,7 +49,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( "Shadows " ) ;
builder . Append ( "Shadows " ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</i>" ) ;
builder . Append ( "</i>" ) ;
}
}
@ -82,7 +82,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( ConvertAccessibility ( c . Modifiers ) ) ;
builder . Append ( ConvertAccessibility ( c . Modifiers ) ) ;
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<i>" ) ;
builder . Append ( "<i>" ) ;
}
}
@ -96,7 +96,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
}
}
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</i>" ) ;
builder . Append ( "</i>" ) ;
}
}
@ -137,7 +137,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( ' ' ) ;
builder . Append ( ' ' ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<b>" ) ;
builder . Append ( "<b>" ) ;
}
}
@ -147,7 +147,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( c . Name ) ;
builder . Append ( c . Name ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</b>" ) ;
builder . Append ( "</b>" ) ;
}
}
@ -162,18 +162,18 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
if ( ShowParameterList & & c . ClassType = = ClassType . Delegate ) {
if ( ShowParameterList & & c . ClassType = = ClassType . Delegate ) {
builder . Append ( "(" ) ;
builder . Append ( "(" ) ;
if ( IncludeHTML Markup ) builder . Append ( "<br>" ) ;
if ( IncludeHtml Markup ) builder . Append ( "<br>" ) ;
foreach ( IMethod m in c . Methods ) {
foreach ( IMethod m in c . Methods ) {
if ( m . Name ! = "Invoke" ) continue ;
if ( m . Name ! = "Invoke" ) continue ;
for ( int i = 0 ; i < m . Parameters . Count ; + + i ) {
for ( int i = 0 ; i < m . Parameters . Count ; + + i ) {
if ( IncludeHTML Markup ) builder . Append ( " " ) ;
if ( IncludeHtml Markup ) builder . Append ( " " ) ;
builder . Append ( Convert ( m . Parameters [ i ] ) ) ;
builder . Append ( Convert ( m . Parameters [ i ] ) ) ;
if ( i + 1 < m . Parameters . Count ) builder . Append ( ", " ) ;
if ( i + 1 < m . Parameters . Count ) builder . Append ( ", " ) ;
if ( IncludeHTML Markup ) builder . Append ( "<br>" ) ;
if ( IncludeHtml Markup ) builder . Append ( "<br>" ) ;
}
}
}
}
@ -208,6 +208,9 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
public override string ConvertEnd ( IClass c )
public override string ConvertEnd ( IClass c )
{
{
if ( c = = null )
throw new ArgumentNullException ( "c" ) ;
StringBuilder builder = new StringBuilder ( ) ;
StringBuilder builder = new StringBuilder ( ) ;
builder . Append ( "End " ) ;
builder . Append ( "End " ) ;
@ -238,11 +241,14 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
public override string Convert ( IField field )
public override string Convert ( IField field )
{
{
if ( field = = null )
throw new ArgumentNullException ( "field" ) ;
StringBuilder builder = new StringBuilder ( ) ;
StringBuilder builder = new StringBuilder ( ) ;
builder . Append ( ConvertAccessibility ( field . Modifiers ) ) ;
builder . Append ( ConvertAccessibility ( field . Modifiers ) ) ;
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<i>" ) ;
builder . Append ( "<i>" ) ;
}
}
@ -254,7 +260,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
}
}
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</i>" ) ;
builder . Append ( "</i>" ) ;
builder . Append ( "<b>" ) ;
builder . Append ( "<b>" ) ;
}
}
@ -265,7 +271,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( field . Name ) ;
builder . Append ( field . Name ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</b>" ) ;
builder . Append ( "</b>" ) ;
}
}
@ -302,7 +308,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( "Property " ) ;
builder . Append ( "Property " ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<b>" ) ;
builder . Append ( "<b>" ) ;
}
}
@ -312,21 +318,21 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( property . Name ) ;
builder . Append ( property . Name ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</b>" ) ;
builder . Append ( "</b>" ) ;
}
}
if ( ShowParameterList & & property . Parameters . Count > 0 ) {
if ( ShowParameterList & & property . Parameters . Count > 0 ) {
builder . Append ( "(" ) ;
builder . Append ( "(" ) ;
if ( IncludeHTML Markup ) builder . Append ( "<br>" ) ;
if ( IncludeHtml Markup ) builder . Append ( "<br>" ) ;
for ( int i = 0 ; i < property . Parameters . Count ; + + i ) {
for ( int i = 0 ; i < property . Parameters . Count ; + + i ) {
if ( IncludeHTML Markup ) builder . Append ( " " ) ;
if ( IncludeHtml Markup ) builder . Append ( " " ) ;
builder . Append ( Convert ( property . Parameters [ i ] ) ) ;
builder . Append ( Convert ( property . Parameters [ i ] ) ) ;
if ( i + 1 < property . Parameters . Count ) {
if ( i + 1 < property . Parameters . Count ) {
builder . Append ( ", " ) ;
builder . Append ( ", " ) ;
}
}
if ( IncludeHTML Markup ) builder . Append ( "<br>" ) ;
if ( IncludeHtml Markup ) builder . Append ( "<br>" ) ;
}
}
builder . Append ( ')' ) ;
builder . Append ( ')' ) ;
@ -342,6 +348,9 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
public override string Convert ( IEvent e )
public override string Convert ( IEvent e )
{
{
if ( e = = null )
throw new ArgumentNullException ( "e" ) ;
StringBuilder builder = new StringBuilder ( ) ;
StringBuilder builder = new StringBuilder ( ) ;
builder . Append ( ConvertAccessibility ( e . Modifiers ) ) ;
builder . Append ( ConvertAccessibility ( e . Modifiers ) ) ;
@ -354,7 +363,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( "Event " ) ;
builder . Append ( "Event " ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<b>" ) ;
builder . Append ( "<b>" ) ;
}
}
@ -364,7 +373,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
builder . Append ( e . Name ) ;
builder . Append ( e . Name ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</b>" ) ;
builder . Append ( "</b>" ) ;
}
}
@ -401,13 +410,13 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
dispName = "New" ;
dispName = "New" ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<b>" ) ;
builder . Append ( "<b>" ) ;
}
}
builder . Append ( dispName ) ;
builder . Append ( dispName ) ;
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</b>" ) ;
builder . Append ( "</b>" ) ;
}
}
@ -422,15 +431,15 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
if ( ShowParameterList ) {
if ( ShowParameterList ) {
builder . Append ( "(" ) ;
builder . Append ( "(" ) ;
if ( IncludeHTML Markup ) builder . Append ( "<br>" ) ;
if ( IncludeHtml Markup ) builder . Append ( "<br>" ) ;
for ( int i = 0 ; i < m . Parameters . Count ; + + i ) {
for ( int i = 0 ; i < m . Parameters . Count ; + + i ) {
if ( IncludeHTML Markup ) builder . Append ( " " ) ;
if ( IncludeHtml Markup ) builder . Append ( " " ) ;
builder . Append ( Convert ( m . Parameters [ i ] ) ) ;
builder . Append ( Convert ( m . Parameters [ i ] ) ) ;
if ( i + 1 < m . Parameters . Count ) {
if ( i + 1 < m . Parameters . Count ) {
builder . Append ( ", " ) ;
builder . Append ( ", " ) ;
}
}
if ( IncludeHTML Markup ) builder . Append ( "<br>" ) ;
if ( IncludeHtml Markup ) builder . Append ( "<br>" ) ;
}
}
builder . Append ( ')' ) ;
builder . Append ( ')' ) ;
@ -446,6 +455,9 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
public override string ConvertEnd ( IMethod m )
public override string ConvertEnd ( IMethod m )
{
{
if ( m = = null )
throw new ArgumentNullException ( "m" ) ;
if ( m . ReturnType = = null | | m . ReturnType . FullyQualifiedName = = "System.Void" ) {
if ( m . ReturnType = = null | | m . ReturnType . FullyQualifiedName = = "System.Void" ) {
return "End Sub" ;
return "End Sub" ;
} else {
} else {
@ -501,8 +513,11 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
public override string Convert ( IParameter param )
public override string Convert ( IParameter param )
{
{
if ( param = = null )
throw new ArgumentNullException ( "param" ) ;
StringBuilder builder = new StringBuilder ( ) ;
StringBuilder builder = new StringBuilder ( ) ;
if ( IncludeHTMLMarkup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "<i>" ) ;
builder . Append ( "<i>" ) ;
}
}
@ -514,7 +529,7 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
} else if ( param . IsParams ) {
} else if ( param . IsParams ) {
builder . Append ( "ParamArray " ) ;
builder . Append ( "ParamArray " ) ;
}
}
if ( IncludeHTML Markup ) {
if ( IncludeHtml Markup ) {
builder . Append ( "</i>" ) ;
builder . Append ( "</i>" ) ;
}
}