(bind-func PaStreamParameters_toString
"specialised toString function for PaStreamParameters*"
(lambda (params:PaStreamParameters*)
(let ((str:i8* (salloc 256)))
(if (null? params)
(sprintf str "<PaStreamParameters 0x0>")
(sprintf str "<PaStreamParameters %p
device: %d
channelCount: %d
sampleFormat: %x
suggestedLatency: %f
info: %p>"
params
(tref params 0)
(tref params 1)
(tref params 2)
(convert (tref params 3) double)
(tref params 4)))
(Str str))))