source: trunk/ab5.0/ablib/src/guiddef.ab @ 560

Last change on this file since 560 was 497, checked in by イグトランス (egtra), 15 years ago

インクルードガードとその他不要な前処理定義などの削除

File size: 1004 bytes
Line 
1' guiddef.ab
2
3Type GUID
4    Data1 As DWord
5    Data2 As Word
6    Data3 As Word
7    Data4[7] As Byte
8End Type
9
10Dim GUID_NULL = [0, 0, 0, [0, 0, 0, 0, 0, 0, 0, 0]] As GUID
11
12TypeDef IID = GUID
13TypeDef CLSID = GUID
14TypeDef FMTID = GUID
15
16'Dim IID_NULL = GUID_NULL
17'Dim CLSID_NULL = GUID_NULL
18'Dim FMTID_NULL = GUID_NULL
19
20Function IsEqualGUID(ByRef x As GUID, ByRef y As GUID) As BOOL
21    IsEqualGUID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (GUID)) = 0)
22End Function
23
24Function IsEqualIID(ByRef x As IID, ByRef y As IID) As BOOL
25    IsEqualIID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (IID)) = 0)
26End Function
27
28Function IsEqualCLSID(ByRef x As CLSID, ByRef y As CLSID) As BOOL
29    IsEqualCLSID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (CLSID)) = 0)
30End Function
31
32/*
33Function Operator ==(ByRef x As GUID, ByRef y As GUID) As Boolean
34    Return IsEqualGUID(x, y) <> FALSE
35End Function
36
37Function Operator <>(ByRef x As GUID, ByRef y As GUID) As Boolean
38    Return IsEqualGUID(x, y) = FALSE
39End Function
40*/
Note: See TracBrowser for help on using the repository browser.