PureBasic

Code : Tout sélectionner

Structure MembersTest
  *vTable.i
  *instance.i
  
  List List.i()
EndStructure 

Interface ClassTest
  GetInstance()
  Destroy()
  
  TestIt.i(a.i)
  TestIt2.i(a.i)
EndInterface

Procedure.i NewTest()
  Protected *object.MembersTest
  
  *object = AllocateMemory(SizeOf(MembersTest))
  If *object
    *object\vTable = ?VTable_ClassTest
    *object\instance = *object
  EndIf

  ProcedureReturn *object
EndProcedure

Procedure.i ClassTest_GetInstance(*this.MembersTest)
  
  ProcedureReturn *this\instance
  
EndProcedure

Procedure ClassTest_Destroy(*this.MembersTest)
  
  FreeMemory(*this)
  
EndProcedure

Procedure.i ClassTest_TestIt(*this.MembersTest, a.i)
  
  AddElement(*this\List())
    *this\List() = a
  
  ForEach *this\List()
    Debug *this\List()
  Next
  
  ProcedureReturn #True
  
EndProcedure

Procedure.i ClassTest_TestIt2(*this.MembersTest, a.i)
  
  Debug "Test : " + Str(a)
  
  ProcedureReturn #True
  
EndProcedure

;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

b.i = 10
test.ClassTest = NewTest()

; 1er problème : impossible d'utiliser la linked list d'une structure via une interface?
test\TestIt(b)

; 2eme problème : A moins que ce soit tout simplement impossible via un pointeur?
*iTest.MembersTest = test\GetInstance()
AddElement(*iTest\List())
  *iTest\List() = b

; 3eme problème : on ne peux pas appeler une interface via un pointeur?
*pTest.ClassTest = @test
*pTest\TestIt2(b)

test\Destroy()


;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
;-VIRTUAL TABLES.

DataSection 
  VTable_ClassTest: 
  Data.i @ClassTest_GetInstance()
  Data.i @ClassTest_Destroy()
  
  Data.i @ClassTest_TestIt()
  Data.i @ClassTest_TestIt2()
EndDataSection
  

;""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""