PureBasic Forums - English

Code: Select all

#MaxItems = 7

Structure item
  enum.s ;Either "0" or "1"
EndStructure

Structure itemCollection
  Size.i ;zero based count of items present
  items.item[#MaxItems]
EndStructure


Procedure randomFill(*collection.itemCollection)
  ;fill the first 7 items of collection with either a "1" or "0"
  Protected i, enum.s
  *collection\Size = #MaxItems - 1 
  For i = 0 To *collection\Size
    If Random(1)
      enum = "1"
    Else
      enum = "0"
    EndIf 
    *collection\items[i]\enum = enum
  Next 
EndProcedure

Procedure.s showit(*collection.itemCollection)
  ;return a string containing the contents of collection in a comma delimeted list
  Protected i, output$
  
  For i = 0 To *collection\Size
    output$ + Chr(34) + *collection\items[i]\enum + Chr(34)
    If i <> *collection\Size: output$ + ", ": EndIf 
  Next
  ProcedureReturn output$
EndProcedure

;This procedure seems to be malfunctioning (notice all the debugs ;) )
;It mangles the contents of the collection on occasion.
Procedure removeOnes(*collection.itemCollection)
  ;remove all ones in collection
  Debug "": Debug "begin removal of 1's"
  Protected i, operation.s
  Debug "               " + showit(*collection)
  For i = *collection\Size To 0 Step -1
    If *collection\items[i]\enum = "1"
      Debug "  Clearing item #" + Str(i)
      ClearStructure(@*collection\items[i], item) ; has a problem here
      Debug "   clear struc " + showit(*collection)
      If i < *collection\Size
        MoveMemory(@*collection\items[i + 1], @*collection\items[i], SizeOf(item) * (*collection\Size - i)) ;no problems here
        operation = "   move data   "
      Else
        operation = "   adjust size "
      EndIf 
      *collection\Size - 1
      Debug operation + showit(*collection)
    EndIf 
  Next 
EndProcedure

Define a.itemCollection, i

RandomSeed(12) ;for results that are reproducable
For i = 0 To 100
  randomFill(a)
  removeOnes(a)
Next

Code: Select all

Procedure.s showit(*collection.itemCollection)
  ;return a string containing the contents of collection in a comma delimeted list
  Protected i, output$
  
  For i = 0 To #MaxItems - 1
    Debug Str(i) + " -> " + Str(@*collection\items[i]\enum)
  Next 
  
  For i = 0 To *collection\Size
    
    output$ + Chr(34) + *collection\items[i]\enum + Chr(34)
    If i <> *collection\Size: output$ + ", ": EndIf
  Next
  
  ProcedureReturn output$
EndProcedure

Code: Select all

Procedure removeOnes(*collection.itemCollection)
  ;remove all ones in collection
  Debug "": Debug "begin removal of 1's"
  Protected i, operation.s
  Protected *tmp = AllocateMemory(SizeOf(item))
  
  Debug "               " + showit(*collection)
  For i = *collection\Size To 0 Step -1
    If *collection\items[i]\enum = "1"
      Debug "  Clearing item #" + Str(i)
      ClearStructure(@*collection\items[i], item) ; has a problem here
      Debug "   clear struc " + showit(*collection)
      If i < *collection\Size
        CopyMemory(@*collection\items[i], *tmp, SizeOf(item)) ; copy a freed structure to *tmp
        MoveMemory(@*collection\items[i + 1], @*collection\items[i], SizeOf(item) * (*collection\Size - i))
        CopyMemory(*tmp, @*collection\items[i] + SizeOf(item) * (*collection\Size - i), SizeOf(item)) ;to delete previous memory contents, restore *tmp to new position
        operation = "   move data   "
      Else
        operation = "   adjust size "
      EndIf 
      *collection\Size - 1
      Debug operation + showit(*collection)
    EndIf 
  Next 
  
  FreeMemory(*tmp)
EndProcedure

Code: Select all

Procedure removeOnes(*collection.itemCollection)
  ;remove all ones in collection
  Debug "": Debug "begin removal of 1's"
  Protected i, operation.s,tmp.item
  
  Debug "               " + showit(*collection)
  For i = *collection\Size To 0 Step -1
    If *collection\items[i]\enum = "1"
      Debug "  Clearing item #" + Str(i)
      ClearStructure(@*collection\items[i], item) ; has a problem here
      Debug "   clear struc " + showit(*collection)
      If i < *collection\Size
        MoveMemory(@*collection\items[i + 1], @*collection\items[i], SizeOf(item) * (*collection\Size - i))
        CopyMemory(@tmp, @*collection\items[i] + SizeOf(item) * (*collection\Size - i), SizeOf(item)) ;to delete previous memory contents, restore tmp to new position
        operation = "   move data   "
      Else
        operation = "   adjust size "
      EndIf
      *collection\Size - 1
      Debug operation + showit(*collection)
    EndIf
  Next
EndProcedure

Code: Select all

Structure stuff
  List b.s()
EndStructure

Define a.stuff

CallDebugger
AddElement(a\b())
a\b() = "happy"

ForEach a\b()
  Debug a\b()
Next

ClearStructure(@a,stuff) ;this frees the list...

;NewList a\b() ;uncomment this is recreate the freed list so elements can be added
AddElement(a\b()) : a\b() = "day"
ForEach a\b()
  Debug a\b()
Next

Code: Select all

Structure People
    Name$
    LastName$
    Age.l
EndStructure

Student.People\Name$ = "Paul"
Student\LastName$ = "Morito"
Student\Age = 10
  
ClearStructure(@Student, People)
  
; Will print empty strings as the whole structure has been cleared. All other fields have been resetted to zero.
;
Debug Student\Name$
Debug Student\LastName$
Debug Student\Age