【v2】装饰器示例之测时

#Requires AutoHotkey v2.0

Deco(inFn)  ; 给函数加了默认参数
; Deco(inFn, outFn)

inFn(2, 54)
inFn(504, 54)
Sleep 3000

;~ 感谢空神的装饰器源码和liuyukuan的高精度测时源码
Deco(insideFunc, outsideFunc := outFn) {
  fc := insideFunc.Call
  insideFunc.DefineProp('Call',{ call: (args*) => outsideFunc(fc, args*) })
}

inFn(a, b) {
  Loop 100000*a
    b := 1
  return a + b
}

outFn(fn, args*) {
  c := 0
  DllCall("QueryPerformanceFrequency", "int64*", &c)
  QuadPart :=  c
    DllCall("QueryPerformanceCounter",   "int64*", &c)
    CounterBefore := c
  r := fn(args*)
  DllCall("QueryPerformanceCounter",   "int64*", &c)
  CounterAfter := c
  costTime := '耗时：' 	Round((CounterAfter - CounterBefore)/QuadPart*1000, 1)		' ms.'
  ToolTip costTime
}