gpio.lua revision 1.1
11.1Smbalmer-- $NetBSD: gpio.lua,v 1.1 2011/10/15 12:58:43 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.1Smbalmerfor n = 1, npins do 161.1Smbalmer print('pin ' .. n .. ': ' .. g:read(n)) 171.1Smbalmerend 181.1Smbalmer 191.1Smbalmerlocal oldval = g:write(32, gpio.PIN_HIGH) 201.1Smbalmerprint('pin 32: ' .. oldval .. ' -> ' .. g:read(32)) 211.1Smbalmer 221.1Smbalmeroldval = g:toggle(32) 231.1Smbalmerprint('pin 32: ' .. oldval .. ' -> ' .. g:read(32)) 241.1Smbalmer 251.1Smbalmerg:pulse(32, 1, 50) 261.1Smbalmerg:write(1, gpio.PIN_LOW) 271.1Smbalmer 281.1Smbalmerg:write(32, gpio.PIN_LOW) 291.1Smbalmer 301.1Smbalmerg:write(32, 5) 311.1Smbalmer 32