mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-08-07 13:09:33 -04:00
29 lines
550 B
Lua
29 lines
550 B
Lua
-- $NetBSD: gpio.lua,v 1.3 2014/07/19 18:38:34 lneto Exp $
|
|
|
|
local gpio = require 'gpio'
|
|
|
|
print(gpio._VERSION .. ' - ' .. gpio._DESCRIPTION)
|
|
print(gpio._COPYRIGHT)
|
|
print()
|
|
|
|
g = gpio.open('/dev/gpio0')
|
|
|
|
local npins = g:info()
|
|
|
|
print('gpio0 has ' .. npins .. ' pins.')
|
|
|
|
for n = 0, npins - 1 do
|
|
print('pin ' .. n .. ': ' .. g:read(n))
|
|
end
|
|
|
|
local oldval = g:write(31, gpio.PIN_HIGH)
|
|
print('pin 31: ' .. oldval .. ' -> ' .. g:read(31))
|
|
|
|
oldval = g:toggle(31)
|
|
print('pin 31: ' .. oldval .. ' -> ' .. g:read(31))
|
|
|
|
g:write(31, gpio.PIN_LOW)
|
|
|
|
g:write(31, 5)
|
|
|