(define v4l2-format-fmt-pix
  (foreign-lambda* v4l2-pix-format
      (((c-pointer v4l2-format) format)) "C_return(format.fmt.pix);"))

(define-foreign-record-type (v4l2-format "struct v4l2_format")
  (unsigned-int32 type v4l2-format-type set-v4l2-format-type!))

(define-foreign-record-type (v4l2-pix-format "struct v4l2_pix_format")
  (unsigned-int32 width v4l2-pix-format-width set-v4l2-pix-format-width!)
  (unsigned-int32 height v4l2-pix-format-height set-v4l2-pix-format-height!)
  (unsigned-int32 pixelformat v4l2-pix-format-pixelformat set-v4l2-pix-format-pixelformat!)
  (unsigned-int32 field v4l2-pix-format-field set-v4l2-pix-format-field!)
  (unsigned-int32 bytesperline v4l2-pix-fomat-bytesperline set-v4l2-pix-format-bytesperline!)
  (unsigned-int32 sizeimage v4l2-pix-format-sizeimage set-v4l2-pix-format-sizeimage!)
  (unsigned-int32 colorspace v4l2-pix-format-colorspace set-v4l2-pix-format-colorspace!)
  (unsigned-int32 priv v4l2-pix-format-priv set-v4l2-pix-format-priv!)
  (unsigned-int32 flags v4l2-pix-format-flags set-v4l2-pix-format-flags!)
  (unsigned-int32 ycbcr_enc v4l2-pix-format-ycbcr-enc set-v4l2-pix-format-ycbcr-enc!)
  (unsigned-int32 quantization v4l2-pix-format-quantization set-v4l2-pix-format-quantization!)
  (unsigned-int32 xfer_func v4l2-pix-format-xfer-func set-v4l2-pix-format-xfer-func!))