通达信插件模板 Purebasic版

PrototypeC tdxCallFunc(dlen,*co,*c1,*c2,*c3)

Structure tagPluginTCalcFuncInfo
  nFuncMark.u
  pCallFunc.tdxCallFunc
EndStructure

ProcedureC test1(dlen,*pout,*pc1,*pc2,*pc3)
  For i=0 To dlen-1
    PokeF(*pout+i*4,1.5)
  Next
EndProcedure

ProcedureC test2(dlen,*pout,*pc1,*pc2,*pc3)
  For i=0 To dlen-1
    PokeF(*pout+i*4,1.5)
  Next
EndProcedure


Global Dim g_CalcFuncSets.tagPluginTCalcFuncInfo(3)
g_CalcFuncSets(0)\nFuncMark=1
g_CalcFuncSets(0)\pCallFunc=@test1()
g_CalcFuncSets(1)\nFuncMark=2
g_CalcFuncSets(1)\pCallFunc=@test2()
g_CalcFuncSets(2)\nFuncMark=0
g_CalcFuncSets(2)\pCallFunc=0

ProcedureCDLL.b RegisterTdxFunc(*pFun)
  PokeI(*pFun,@g_CalcFuncSets(0))
  ProcedureReturn #True
EndProcedure