2008-08-06 15:26:25 +00:00
|
|
|
-- eLua test
|
|
|
|
|
2009-02-10 17:54:01 +00:00
|
|
|
local uartid, invert, ledpin = 0, false
|
2008-08-27 20:05:09 +00:00
|
|
|
if pd.board() == "SAM7-EX256" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.PB_20
|
2008-08-27 20:05:09 +00:00
|
|
|
elseif pd.board() == "EK-LM3S8962" or pd.board() == "EK-LM3S6965" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.PF_0
|
2009-02-23 15:28:56 +00:00
|
|
|
elseif pd.board() == "EAGLE-100" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.PE_1
|
2008-09-01 20:32:43 +00:00
|
|
|
elseif pd.board() == "STR9-COMSTICK" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.P9_0
|
2008-09-01 20:32:43 +00:00
|
|
|
elseif pd.board() == "LPC-H2888" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.P2_1
|
2008-11-01 18:32:37 +00:00
|
|
|
elseif pd.board() == "MOD711" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.P1_7
|
2008-11-01 18:32:37 +00:00
|
|
|
uartid = 1
|
2008-12-16 19:01:51 +00:00
|
|
|
elseif pd.board() == "ATEVK1100" then
|
2009-07-29 16:10:15 +00:00
|
|
|
ledpin = pio.PB_27
|
2008-12-16 19:01:51 +00:00
|
|
|
invert = true
|
2009-10-19 00:03:26 +00:00
|
|
|
elseif pd.board() == "STR-E912" then
|
|
|
|
ledpin = pio.P6_4
|
2009-10-31 11:41:34 +00:00
|
|
|
elseif pd.board() == "ELUA-PUC" then
|
|
|
|
ledpin = pio.P1_20
|
2008-08-09 10:46:23 +00:00
|
|
|
else
|
2008-09-01 20:32:43 +00:00
|
|
|
print( "\nError: Unknown board " .. pd.board() .. " !" )
|
2008-08-09 10:46:23 +00:00
|
|
|
return
|
2008-08-06 15:26:25 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
function cycle()
|
2009-10-19 00:03:26 +00:00
|
|
|
if not invert then
|
|
|
|
pio.pin.sethigh( ledpin )
|
|
|
|
else
|
|
|
|
pio.pin.setlow( ledpin )
|
|
|
|
end
|
2008-08-27 20:05:09 +00:00
|
|
|
tmr.delay( 0, 500000 )
|
2009-10-19 00:03:26 +00:00
|
|
|
if not invert then
|
|
|
|
pio.pin.setlow( ledpin )
|
|
|
|
else
|
|
|
|
pio.pin.sethigh( ledpin )
|
|
|
|
end
|
2008-08-27 20:05:09 +00:00
|
|
|
tmr.delay( 0, 500000 )
|
2008-08-06 15:26:25 +00:00
|
|
|
end
|
|
|
|
|
2009-07-29 16:10:15 +00:00
|
|
|
pio.pin.setdir( pio.OUTPUT, ledpin )
|
2009-10-13 02:14:27 +00:00
|
|
|
print( "Hello from eLua on " .. pd.board() )
|
2008-08-06 15:26:25 +00:00
|
|
|
print "Watch your LED blinking :)"
|
|
|
|
print "Press any key to end this demo.\n"
|
|
|
|
|
2009-07-30 13:04:10 +00:00
|
|
|
while uart.getchar( uartid, 0 ) == "" do
|
2008-08-06 15:26:25 +00:00
|
|
|
cycle()
|
|
|
|
end
|
2009-02-10 17:54:01 +00:00
|
|
|
|