PaDeviceInfo_toString   xtlang

(bind-func PaDeviceInfo_toString
  "specialised toString function for PaDeviceInfo*"
  (lambda (info:PaDeviceInfo*)
    (let ((str:i8* (salloc 256)))
      (if (null? info)
          (sprintf str "<PaDeviceInfo 0x0>")
          (sprintf str "<PaDeviceInfo %p
             structVersion: %d
                      name: %s
                  host API: %d
          maxInputChannels: %d
         maxOutputChannels: %d
    defaultLowInputLatency: %f
   defaultLowOutputLatency: %f
   defaultHighInputLatency: %f
  defaultHighOutputLatency: %f
         defaultSampleRate: %f>"
                   info
                   (tref info 0)
                   (tref info 1)
                   (tref info 2)
                   (tref info 3)
                   (tref info 4)
                   (convert (tref info 5) double)
                   (convert (tref info 6) double)
                   (convert (tref info 7) double)
                   (convert (tref info 8) double)
                   (convert (tref info 9) double)))
      (Str str))))