Apache OpenOffice Community Forum

Code: Select all

sub testCompareStructs
dim f1 as new com.sun.star.awt.FontDescriptor
dim f2 as new com.sun.star.awt.FontDescriptor
msgbox compareStructs(f1,f2)
f1.weight = 300
msgbox compareStructs(f1,f2)
end sub

function compareStructs(struct1,struct2)
dim EnMap
EnMap = com.sun.star.container.EnumerableMap.create("string", "any")
EnMap.put("0",  struct1)
compareStructs = EnMap.containsValue(struct2)
end function

Code: Select all

sub testCompareArrays

dim s1(10000)
dim s2(10000)


msgbox compareStructsOrArrays(s1,s2)
s1(500) = thiscomponent
msgbox compareStructsOrArrays(s1,s2)
s2(500) = thiscomponent
msgbox compareStructsOrArrays(s1,s2)

end sub

function compareStructsOrArrays(struct1,struct2)
dim EnMap
EnMap = com.sun.star.container.EnumerableMap.create("string", "any")
EnMap.put("0",  struct1)
compareStructsOrArrays = EnMap.containsValue(struct2)
end function

Code: Select all

from com.sun.star.awt import FontDescriptor as fs

def compare( one, other):
    return one == other

def main():
    desc1 = fs()
    desc2 = fs()
    print(compare(desc1,desc2))  #True
    desc2.Weight = 300.0
    print(compare(desc1, desc2))  #False

Code: Select all

sub TestStructEnum
	struct1 = CreateStructEnum(array(0,1,thiscomponent,3,4,5,6,7,8))
	struct2 = CreateStructEnum(array(0,1,thiscomponent,3,4,5,6,7,8))
	struct3 = CreateStructEnum(array(0,1,thiscomponent,3,4,5,60,7,8))
	msgbox compareStructs(struct1,struct2)
	msgbox compareStructs(struct1,struct3)
	const seconditemname = 2 'set const for accessing index by name
	mri	GetStructEnumValue(struct1,seconditemname)
	
end sub


Function CreateStructEnum(arr)
	dim ub,i
	ub = ubound(arr)
	dim pairs(ub)
	for i = 0 to ub
		pairs(i) = new "com.sun.star.beans.Pair<any,any>" 'first any can be another data type
		pairs(i).first = arr(i)
	next
	for i =  ub -1 to 0 step -1
		pairs(i).second = pairs(i+1)
	next
	CreateStructEnum = pairs(0)
end function

function GetStructEnumValue(struct,v) as any
on local error goto outofrange
	dim n,i
	if v = 0 then
		GetStructEnumValue = struct.first
	else
		n = struct
		for i = 0 to v-1
			n = n.second
		next
		GetStructEnumValue =n.first
	end if
	outofrange:
end function

function compareStructs(struct1,struct2)
	dim EnMap
	EnMap = com.sun.star.container.EnumerableMap.create("string", "any")
	EnMap.put("0",  struct1)
	compareStructs = EnMap.containsValue(struct2)
end function

Code: Select all

option VBAsupport 1

enum MyEnum
firstvalue = 0
secondvalue = 1
thirdvalue = 2
end enum

sub testMystruct
dim mystruct1
mystruct1 = new "com.sun.star.chart.TimeIncrement" 'BORROW A TimeIncrement struct which has 3 Any variables
setstructvalue mystruct1, myEnum.secondvalue, thiscomponent 'our own enum value or constant value for field index
mri getstructvalue(mystruct1,myEnum.secondvalue)
End Sub

function getStructValue(struct, index as long) as any 'Generic function for any struct
dim CR,ACR
CR =createunoservice("com.sun.star.reflection.CoreReflection")
ACR = CR.getType(struct)
getStructValue = ACR.fields(index).get(struct)
end function

function setStructValue(byref struct, index as long,value) 'Generic function for any struct
Dim CR,ACR
CR =createunoservice("com.sun.star.reflection.CoreReflection")
ACR = CR.getType(struct)
 ACR.fields(index).set(struct,value)
end function