PureBasic Forums - English

Code: Select all

struct libusb_interface_descriptor {
:
:
:
   /** Array of endpoint descriptors. This length of this array is determined
	 * by the bNumEndpoints field. */
	const struct libusb_endpoint_descriptor *endpoint;
:

Code: Select all

*endpoint.libusb_endpoint_descriptor[0]

Code: Select all

Structure Test
  test.u
EndStructure

Structure MainTest
  *test.Test[0]
EndStructure

Debug SizeOf(MainTest)

Code: Select all

*endpoint = *conf_desc\usb_interface[i]\altsetting[j]\endpoint[k]

Code: Select all

Structure libusb_interface Align #PB_Structure_AlignC
	; Array of Interface descriptors. The length of this Array is determined
	; by the num_altsetting field.
	Array altsetting.libusb_interface_descriptor(1)

	; The number of alternate settings that belong To this Interface
	num_altsetting.l
EndStructure

Code: Select all

;         To conform with C/C++ Structure format and allow direct API structure porting: 
;         Static arrays defined in structures are different than Dynamic arrays defined by Dim/ReDim.
;           a[2] allocates an array from 0 to 1.
;         But,
;           Dim a(2) allocates an array from 0 To 2.
;
;         To get size of a static array use SizeOf():
;         Structure myStruc
;           aX.b[128]
;           aY.b[5]
;           s.s{32}   ; fixed length strings are ok, but not variable length.
;         EndStructure
;         Define me.myStruc
;         Debug Sizeof(me\aX)
;         For nested Structures, use combinations of Sizeof() and Len()
;
;         Dynamic Multidimensional arrays in structures:
;         Structure myStruc
;           nPts.i
;           x$
;           Array f.d(0,0)
;         EndStructure
;         Global Dim me.myStruc(0)
;         Dim me(0)\f(10,10)   ;<-- Dim 1st, then can ReDim last index later
;
;         Swap cmd does NOT work on entire array. Only individual elements.
;         Use CopyArray() instead.
;
;         Multidimensional arrays in memory:
;         Row-major order:  PureBasic/C/C++/Python  Col steps contiguously in memory.
;         Col-major order:  VB6/Matlab/Fortran      Row steps contiguously in memory.

Code: Select all

Array altsetting.libusb_interface_descriptor(1)

Code: Select all

Structure Test
  Test.a
EndStructure


Structure Main
  members.i
  Array Test.Test(1)
EndStructure


Define *Buffer, *MainTest.Main, i.i
Dim HelpTest.Test(3)

HelpTest(0)\Test = 0
HelpTest(1)\Test = 1
HelpTest(2)\Test = 2
HelpTest(3)\Test = 3

*Buffer = AllocateMemory(20)
If *Buffer
  *MainTest = *Buffer
  *MainTest\members = 4
  
  For i = 0 To *MainTest\members - 1
    PokeI(*Buffer + OffsetOf(Main\Test) + i * SizeOf(Integer), @HelpTest(i))
  Next i
  
  For i = 0 To *MainTest\members - 1
    Debug *MainTest\Test(i)\Test
  Next i
  
  FreeMemory(*Buffer)
EndIf

Code: Select all

Structure SomeStruct
  Field.Integer[10]
EndStructure

Define Var.SomeStruct

For i=0 To 9
  Debug Var\Field[i]\i
Next i

Code: Select all

Structure Test
  test.u
EndStructure

Structure MainTest
	StructureUnion
		*test.Test[0]
		*dummy
	EndStructureUnion  
EndStructure

Debug SizeOf(MainTest)