1-- $NetBSD: gpio.lua,v 1.1 2011/10/15 12:58:43 mbalmer Exp $ 2 3require 'gpio' 4 5print(gpio._VERSION .. ' - ' .. gpio._DESCRIPTION) 6print(gpio._COPYRIGHT) 7print() 8 9g = gpio.open('/dev/gpio0') 10 11local npins = g:info() 12 13print('gpio0 has ' .. npins .. ' pins.') 14 15for n = 1, npins do 16 print('pin ' .. n .. ': ' .. g:read(n)) 17end 18 19local oldval = g:write(32, gpio.PIN_HIGH) 20print('pin 32: ' .. oldval .. ' -> ' .. g:read(32)) 21 22oldval = g:toggle(32) 23print('pin 32: ' .. oldval .. ' -> ' .. g:read(32)) 24 25g:pulse(32, 1, 50) 26g:write(1, gpio.PIN_LOW) 27 28g:write(32, gpio.PIN_LOW) 29 30g:write(32, 5) 31 32