2
2
using System . Runtime . CompilerServices ;
3
3
using System . Runtime . InteropServices . ComTypes ;
4
4
using Rubberduck . VBEditor . ComManagement . TypeLibs . Abstract ;
5
+ using Rubberduck . VBEditor . ComManagement . TypeLibs . Unmanaged ;
5
6
6
7
namespace Rubberduck . VBEditor . ComManagement . TypeLibs . DebugInternal
7
8
{
8
- internal class TypeLibWrapperTracer : ITypeLibWrapper
9
+ internal class TypeLibWrapperTracer : ITypeLibWrapper , ITypeLibInternal
9
10
{
10
11
private readonly ITypeLibWrapper _wrapper ;
12
+ private readonly ITypeLibInternal _inner ;
11
13
12
- internal TypeLibWrapperTracer ( ITypeLibWrapper wrapper )
14
+ internal TypeLibWrapperTracer ( ITypeLibWrapper wrapper , ITypeLibInternal inner )
13
15
{
14
16
_wrapper = wrapper ;
17
+ _inner = inner ;
15
18
}
16
19
17
20
private static void Before ( string parameters = null , [ CallerMemberName ] string methodName = null )
@@ -32,6 +35,70 @@ public int GetTypeInfoCount()
32
35
return result ;
33
36
}
34
37
38
+ public int GetTypeInfo ( int index , IntPtr ppTI )
39
+ {
40
+ Before ( $ "{ nameof ( index ) } : { index } , { nameof ( ppTI ) } : { ppTI } ") ;
41
+ var result = _inner . GetTypeInfo ( index , ppTI ) ;
42
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( ppTI ) } : { ppTI } ") ;
43
+ return result ;
44
+ }
45
+
46
+ public int GetTypeInfoType ( int index , IntPtr pTKind )
47
+ {
48
+ Before ( $ "{ nameof ( index ) } : { index } , { nameof ( pTKind ) } : { pTKind } ") ;
49
+ var result = _inner . GetTypeInfoType ( index , pTKind ) ;
50
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( pTKind ) } : { pTKind } ") ;
51
+ return result ;
52
+ }
53
+
54
+ public int GetTypeInfoOfGuid ( ref Guid guid , IntPtr ppTInfo )
55
+ {
56
+ Before ( $ "{ nameof ( guid ) } : { guid } , { nameof ( ppTInfo ) } : { ppTInfo } ") ;
57
+ var result = _inner . GetTypeInfoOfGuid ( ref guid , ppTInfo ) ;
58
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( ppTInfo ) } : { ppTInfo } ") ;
59
+ return result ;
60
+ }
61
+
62
+ public int GetLibAttr ( IntPtr ppTLibAttr )
63
+ {
64
+ Before ( $ "{ nameof ( ppTLibAttr ) } : { ppTLibAttr } ") ;
65
+ var result = _inner . GetLibAttr ( ppTLibAttr ) ;
66
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( ppTLibAttr ) } : { ppTLibAttr } ") ;
67
+ return result ;
68
+ }
69
+
70
+ public int GetTypeComp ( IntPtr ppTComp )
71
+ {
72
+ Before ( $ "{ nameof ( ppTComp ) } : { ppTComp } ") ;
73
+ var result = _inner . GetTypeComp ( ppTComp ) ;
74
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( ppTComp ) } : { ppTComp } ") ;
75
+ return result ;
76
+ }
77
+
78
+ public int GetDocumentation ( int index , IntPtr strName , IntPtr strDocString , IntPtr dwHelpContext , IntPtr strHelpFile )
79
+ {
80
+ Before ( $ "{ nameof ( index ) } : { index } , { nameof ( strName ) } : { strName } , { nameof ( strDocString ) } : { strDocString } , { nameof ( dwHelpContext ) } : { dwHelpContext } , { nameof ( strHelpFile ) } : { strHelpFile } ") ;
81
+ var result = _inner . GetDocumentation ( index , strName , strDocString , dwHelpContext , strHelpFile ) ;
82
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( strName ) } : { strName } , { nameof ( strDocString ) } : { strDocString } , { nameof ( dwHelpContext ) } : { dwHelpContext } , { nameof ( strHelpFile ) } : { strHelpFile } ") ;
83
+ return result ;
84
+ }
85
+
86
+ public int IsName ( string szNameBuf , int lHashVal , IntPtr pfName )
87
+ {
88
+ Before ( $ "{ nameof ( szNameBuf ) } : { szNameBuf } , { nameof ( lHashVal ) } : { lHashVal } , { nameof ( pfName ) } : { pfName } ") ;
89
+ var result = _inner . IsName ( szNameBuf , lHashVal , pfName ) ;
90
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( pfName ) } : { pfName } ") ;
91
+ return result ;
92
+ }
93
+
94
+ public int FindName ( string szNameBuf , int lHashVal , IntPtr ppTInfo , IntPtr rgMemId , IntPtr pcFound )
95
+ {
96
+ Before ( $ "{ nameof ( szNameBuf ) } : { szNameBuf } , { nameof ( lHashVal ) } : { lHashVal } , { nameof ( ppTInfo ) } : { ppTInfo } , { nameof ( rgMemId ) } : { rgMemId } , { nameof ( pcFound ) } : { pcFound } ") ;
97
+ var result = _inner . FindName ( szNameBuf , lHashVal , ppTInfo , rgMemId , pcFound ) ;
98
+ After ( $ "{ nameof ( result ) } : { result } , { nameof ( ppTInfo ) } : { ppTInfo } , { nameof ( rgMemId ) } : { rgMemId } , { nameof ( pcFound ) } : { pcFound } ") ;
99
+ return result ;
100
+ }
101
+
35
102
public void GetTypeInfo ( int index , out ITypeInfo ppTI )
36
103
{
37
104
Before ( $ "{ nameof ( index ) } : { index } ") ;
0 commit comments