(bind-func print
(lambda (pmdi:PmDeviceInfo*)
(printf "<PmDeviceInfo: interface=%s name=%s I/O?:"
(tref pmdi 1)
(tref pmdi 2))
(if (= (tref pmdi 3) 1)
(printf "I"))
(if (= (tref pmdi 4) 1)
(printf "O"))
(printf ">")
void))