Skip to content

unit LedBlinkerT

em.utils/LedBlinkerT.em
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
package em.utils

template LedBlinkerT

end

def em$generateUnit(pn, un)
|->>>
package `pn`

from em.hal import LedI

from em.utils import LedBlinkerAux
from em.utils import LedBlinkerI

module `un`: LedBlinkerI

    proxy Led: LedI

end

def isOn()
    return Led.isOn()
end

def on()
    Led.on()
end

def off()
    Led.off()
end

def toggle()
    Led.toggle()
end

def blink(count, rateSecs, rateMs)
    LedBlinkerAux.setFxns(Led.on, Led.off)
    LedBlinkerAux.blink(count, rateSecs, rateMs)
end

def wink(onMs, offMs)
    LedBlinkerAux.setFxns(Led.on, Led.off)
    LedBlinkerAux.wink(onMs, offMs)
end
|-<<<
end