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