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-02-10 17:54:01 +00:00
|
|
|
ledpin = "PB_20"
|
2008-08-27 20:05:09 +00:00
|
|
|
elseif pd.board() == "EK-LM3S8962" or pd.board() == "EK-LM3S6965" then
|
2009-02-10 17:54:01 +00:00
|
|
|
ledpin = "PF_0"
|
2009-02-23 15:28:56 +00:00
|
|
|
elseif pd.board() == "EAGLE-100" then
|
|
|
|
ledpin = "PE_1"
|
2008-09-01 20:32:43 +00:00
|
|
|
elseif pd.board() == "STR9-COMSTICK" then
|
2009-02-10 17:54:01 +00:00
|
|
|
ledpin = "P9_0"
|
2008-09-01 20:32:43 +00:00
|
|
|
elseif pd.board() == "LPC-H2888" then
|
2009-02-10 17:54:01 +00:00
|
|
|
ledpin = "P2_1"
|
2008-11-01 18:32:37 +00:00
|
|
|
elseif pd.board() == "MOD711" then
|
2009-02-10 17:54:01 +00:00
|
|
|
ledpin = "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-02-10 17:54:01 +00:00
|
|
|
ledpin = "PB_27"
|
2008-12-16 19:01:51 +00:00
|
|
|
invert = true
|
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-03-12 21:06:14 +00:00
|
|
|
if not invert then pio[ ledpin ] = 1 else pio[ ledpin ] = 0 end
|
2008-08-27 20:05:09 +00:00
|
|
|
tmr.delay( 0, 500000 )
|
2009-03-12 21:06:14 +00:00
|
|
|
if not invert then pio[ ledpin ] = 0 else pio[ ledpin ] = 1 end
|
2008-08-27 20:05:09 +00:00
|
|
|
tmr.delay( 0, 500000 )
|
2008-08-06 15:26:25 +00:00
|
|
|
end
|
|
|
|
|
2009-03-12 21:06:14 +00:00
|
|
|
pio.dir[ ledpin ] = pio.OUTPUT
|
2008-08-09 11:15:39 +00:00
|
|
|
print( "Hello from eLua on " .. pd.cpu() )
|
2008-08-06 15:26:25 +00:00
|
|
|
print "Watch your LED blinking :)"
|
|
|
|
print "Press any key to end this demo.\n"
|
|
|
|
|
2008-11-01 18:32:37 +00:00
|
|
|
while uart.recv( uartid, 0, 0 ) < 0 do
|
2008-08-06 15:26:25 +00:00
|
|
|
cycle()
|
|
|
|
end
|
2009-02-10 17:54:01 +00:00
|
|
|
|