PureBasic Forums - English

Code: Select all

;-- Step 1: create two lists
NewList a()
For i = 1 To 3
   AddElement(a())
   a() = i
Next

NewList b()
For i = 4 To 10
   AddElement(b())
   b() = i
Next

;-- Step 2: "move" all elements from list b() to list a()
FirstElement(b())
While ListSize(b()) > 0
   AddElement(a())
   a() = b()
   DeleteElement(b(), 1)
Wend

;-- Step 3: show new lists
ForEach a()
   Debug a()
Next
Debug "-----"

ForEach b()      ; b() is empty now
   Debug b()
Next
Debug "-----"

Code: Select all

pointer of last element in a(), that points to next element = address of first element in b()
delete any internal information about b()

Code: Select all

;-- Step 2: "move" all elements from list b() to list a()
ResetList(b())
While NextElement(b())
  AddElement(a())
  a() = b()
Wend
ClearList(b())

Code: Select all

;-- Step 2: "move" all elements from list b() to list a()
Structure links ;in reverse order and used for reference offsets, clumsy I know :)
  ElementData.i
  *prevEl.i
  *nextEl.i
EndStructure

If ListSize(b())
  FirstElement(b())
  LastElement(a())
  ;create a copy of source list's first element
  AddElement(a())
  a() = b()
  If NextElement(b())
    ;update links for concatenation
    PokeI(@a() - OffsetOf(links\nextEl), @b() - OffsetOf(links\nextEl)) ;a() now links to remainder of b()
    PokeI(@b() - OffsetOf(links\prevEl), @a() - OffsetOf(links\nextEl)) ;remainder of b() now links to previous a()
    FirstElement(b()) 
    PokeI(@b() - OffsetOf(links\nextEl), #Null) ;correct first link in b() *extEl to point to #Null
    AddElement(a())
    DeleteElement(a())
  EndIf 
EndIf
;a() now contains the previous ListSize(a()) + previous ListSize(b()
;The ListSize will be reported wrong, there is now way To update the ListSize for a() with this hack
ClearList(b())

Code: Select all

;-- Step 2: "move" all elements from list b() to list a()
;-----------------------------
Structure Element
   *next.Element
   *prev.Element
   value.i
EndStructure
off = OffsetOf(Element\value)
;-----------------------------

If ListSize(a()) > 0 And ListSize(b()) > 0
   LastElement(a())
   FirstElement(b())
   PokeI(@a()-off,   @b()-off)  ; last element of a() -> first element of b()
   PokeI(@b()-off/2, @a()-off)  ; last element of a() <- first element of b()
   ClearList(b())
EndIf