AutoHotkey Community

obj[1] := "blub"
obj[2] := "more blub"
Loop, 2
{
 msgbox % obj[a_index]
}

For each ITEM in COLLECTION
   ;ITEM will be a reference to the current object
Next
 

Col   := Object(COLLECTION) ; maybe  define a collection specally…

Col.Add(item)
Col.remove(item)
Col.count
;…

;******** Class Collection ********
;----------------------------------
/*
Important: _freelist property lists all id's where are
free, and is
internally used to hold the overview of curently used objects.
*/
;__________________________________
ocol          := Object()
ocol.cnt       := 0  ; real object cnt
ocol.pointer    := 0  ; curent index (not Object cnt!)
ocol._freelist    := "" ; free index places
;functions
ocol._cadd       := "ocoll_add"
ocol._crem       := "ocoll_rem"
ocol._cGetID   := "ocoll_collgetid"

/**************************************************
ocoll_add(_col,obj_to_add)

Adds a item to the collection.
***************************************************
*/
ocoll_add(_col,obj_to_add){
   i := 0
   newlist := ""

   ;do we have free slots?
   ;------------------------------------------
   list := _col._freelist
   Loop, parse, list, `,
   {
      If(a_loopfield != ""){
         If(!i){
            i := a_loopfield
         }else{
            newlist .= a_loopfield ","
         }
      }
   }
   _col._freelist := newlist
   ;------------------------------------------

   If(!i){ ;if no free slot avaiable, create new
      _col.pointer := _col.pointer + 1
      i := _col.pointer
   }

   _col[i] := obj_to_add
   _col.cnt := _col.cnt + 1
   obj_to_add._colid := i ;save the object id.

   return
} ;**************************************************



/**************************************************
ocoll_rem(_col,obj_to_rem)

Removes a item from the collection.
***************************************************
*/
ocoll_rem(_col,obj_to_rem){
   i := obj_to_rem._colid
   If(!i)
      return, 0
   _col._Remove(i)
   _col.cnt := ocol.cnt - 1 ; actualize counter
   _col._freelist := _col._freelist i ","
} ;**************************************************



oColEACH(_col){
   return, _col.pointer
}

obj := Object()
obj[1] := "blub"
obj[2] := "more blub"
s := list_stuff(obj)
  .  "`n`nRemoved " obj._Remove(1) " item(s)`n"
  .  list_stuff(obj)
; If obj is empty, _MaxIndex() will be blank. To get around this...
;   obj[0] := ""
obj._Insert(obj._MaxIndex() + 1, "bar")
s .= "`n`nInserted bar`n" list_stuff(obj)
obj._Insert(2, "foo")
s .= "`n`nInserted foo`n" list_stuff(obj)
MsgBox %s%

list_stuff(obj){
    Loop % obj._MaxIndex() ; Assumes _MinIndex()=1
        s .= A_Index ": " obj[A_Index] "`n"
    return SubStr(s,1,-1)
}

ResultType Script::Init(global_struct &g, LPTSTR aScriptFilename, bool aIsRestart)
(snip)
{
   mIsRestart = aIsRestart;
   TCHAR buf[2048]; // Just to make sure we have plenty of room to do things with.
   TCHAR buf2[MAX_PATH];
(snip)
      aScriptFilename = _T("AutoHotkey.ini");
      if (GetFileAttributes(aScriptFilename) == 0xFFFFFFFF) // File doesn't exist, so fall back to new method.
      {
         aScriptFilename = buf2; // it formerly pointed to buf
(snip)

;############ CLASS COLLECTION ###############
collection          := Object()

collection.add      := "collection_add"
collection.remove   := "collection_remove"
collection.removei  := "collection_removeindex"
collection.count    := 0 ;"collection_count"


collection_count(_col){
  return, _col._MaxIndex()
}
collection_removeindex(_col,i){
  _col._Remove(i)
}
collection_remove(_col,byref item){
  _col.Count := _col.Count - _col._Remove(item.__index)
  item.__index  := ""
}
collection_add(_col,item){
  i := _col._MaxIndex() = "" ? 1 : _col._MaxIndex() + 1
  _col._Insert(i, item)
  _col.Count    := _col.Count + 1
  item.__index  := i
}
;#############################################

;-------------testing--------------------------------------------

item        := Object()
item.name   := "max"

item2        := Object()
item2.name   := "peter"

item3        := Object()
item3.name   := "berta"


Col  := Object("base",collection)
col.add(item)
col.add(item2)
col.add(item3)
msgbox % list_stuff(col)
col.remove(item2)
col.remove(item2)   ;nothing happens, ok.
msgbox % list_stuff(col)
col.add(item2)
msgbox % list_stuff(col)
exitapp

list_stuff(obj){
    Loop % obj.count ; Assumes _MinIndex()=1
        s .= A_Index ": " obj[A_Index,"name"] "`n"
    return SubStr(s,1,-1)
}

oranges.remove(apples[i])

collection.__Get := MetaProps()
collection.__Get["count"] := "collection_count"

apples := Array("red", "orange", "green")
apples.Delete(apples.indexOf("orange"))
msgbox % apples[1] "," apples[2] "," apples[3]  ; red,green,

string := "君子以自强不息"
b := "自"
msgbox, % instr(string, b)

ANSI: 7, UTF-8: 10, UTF-16: 4

Base := Object("__Mul", "Mul", "__Default", "Show", "y", 0, "x", 0)
c1 := Object("x", 2,  "y", 5, "base", Base)
c2 := Object("x", 5,  "y", 3, "base", Base)

d := c1 * c2       
msgbox % d       


Mul(l, r) {
   return Object("x", L.x*R.x - L.y*R.y, "y", L.y*R.x + L.x*R.y, "base", this.base)
}

Show(this) {
   return this.x " + " this.y "i"
}

MyClass := Object("__DefaultFunc", "New", ....)

x := MyClass(p1, ... pn)   
y := MyClass()


New(this, p1="", ... pn="") {
   return Object("base", this.base)
}

;--------------------------

msgbox := DllImport("MessageBoxA", "uint", 0 .....) ;creates an object msgbox
msgbox(0, "Title", "Prompt"...)         ;same as msgbox.invoke(...)

   TThumb := Object()
   TThumb.__Get := TThumb.__Set := Object("base", Object("__Call","MetaProps"), "label", "TThumb")
   TThumb.__Set.Width := "Thumb_Width"

   thumb := Object("base", TThumb, "label", "thumb")

   thumb.Width := 1        ; set to 1
   MsgBox % thumb.Width

   thumb.Width := 1.9      ; set to 2
   MsgBox % thumb.Width
   
   thumb.Width := "foo"    ; fail, leave as is
   MsgBox % thumb.Width
return

Thumb_Width(this, value) {    
   static _width

    if (value == "#gEt#")
        return _width

    if value is not number
        return ""

   value := Round(value)
    return _width := value
}

MetaProps(this, obj, name, param="#gEt#") {
   ;msgbox obj.label        <-------------- crash
    if IsFunc(prop := this[name])
        return %prop%(obj, param)
}