source: branch/egtra-stream-without-en_dec/guiddef.ab@ 677

' guiddef.ab

Type GUID
    Data1 As DWord
    Data2 As Word
    Data3 As Word
    Data4[7] As Byte
End Type

Dim GUID_NULL = [0, 0, 0, [0, 0, 0, 0, 0, 0, 0, 0]] As GUID

TypeDef IID = GUID
TypeDef CLSID = GUID
TypeDef FMTID = GUID

'Dim IID_NULL = GUID_NULL
'Dim CLSID_NULL = GUID_NULL
'Dim FMTID_NULL = GUID_NULL

Function IsEqualGUID(ByRef x As GUID, ByRef y As GUID) As BOOL
    IsEqualGUID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (GUID)) = 0)
End Function

Function IsEqualIID(ByRef x As IID, ByRef y As IID) As BOOL
    IsEqualIID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (IID)) = 0)
End Function

Function IsEqualCLSID(ByRef x As CLSID, ByRef y As CLSID) As BOOL
    IsEqualCLSID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (CLSID)) = 0)
End Function

/*
Function Operator ==(ByRef x As GUID, ByRef y As GUID) As Boolean
    Return IsEqualGUID(x, y) <> FALSE
End Function

Function Operator <>(ByRef x As GUID, ByRef y As GUID) As Boolean
    Return IsEqualGUID(x, y) = FALSE
End Function
*/