gpio.lua revision 1.2
11.2Smbalmer-- $NetBSD: gpio.lua,v 1.2 2012/02/25 09:13:38 mbalmer Exp $ 21.1Smbalmer 31.1Smbalmerrequire 'gpio' 41.1Smbalmer 51.1Smbalmerprint(gpio._VERSION .. ' - ' .. gpio._DESCRIPTION) 61.1Smbalmerprint(gpio._COPYRIGHT) 71.1Smbalmerprint() 81.1Smbalmer 91.1Smbalmerg = gpio.open('/dev/gpio0') 101.1Smbalmer 111.1Smbalmerlocal npins = g:info() 121.1Smbalmer 131.1Smbalmerprint('gpio0 has ' .. npins .. ' pins.') 141.1Smbalmer 151.2Smbalmerfor n = 0, npins - 1 do 161.1Smbalmer print('pin ' .. n .. ': ' .. g:read(n)) 171.1Smbalmerend 181.1Smbalmer 191.2Smbalmerlocal oldval = g:write(31, gpio.PIN_HIGH) 201.2Smbalmerprint('pin 31: ' .. oldval .. ' -> ' .. g:read(31)) 211.1Smbalmer 221.2Smbalmeroldval = g:toggle(31) 231.2Smbalmerprint('pin 31: ' .. oldval .. ' -> ' .. g:read(31)) 241.1Smbalmer 251.2Smbalmerg:write(31, gpio.PIN_LOW) 261.1Smbalmer 271.2Smbalmerg:write(31, 5) 281.1Smbalmer 29