;;-*-Lisp-*- (in-package goal) ;; definition of type headset-queue (deftype headset-queue (structure) ((write-offset int32) (read-offset int32) (bytes int32) (size int32) (data uint32) ) :pack-me (:methods (headset-queue-method-9 () none) (headset-queue-method-10 () none) (headset-queue-method-11 () none) (headset-queue-method-12 () none) ) ) ;; definition for method 3 of type headset-queue (defmethod inspect ((this headset-queue)) (when (not this) (set! this this) (goto cfg-4) ) (format #t "[~8x] ~A~%" this 'headset-queue) (format #t "~1Twrite-offset: ~D~%" (-> this write-offset)) (format #t "~1Tread-offset: ~D~%" (-> this read-offset)) (format #t "~1Tbytes: ~D~%" (-> this bytes)) (format #t "~1Tsize: ~D~%" (-> this size)) (format #t "~1Tdata: #x~X~%" (-> this data)) (label cfg-4) this ) ;; definition of type nci-codec-io-block (deftype nci-codec-io-block (structure) ((pcm-buffer uint32) (samples-in-pcm-buffer int16) (nelly-buffer uint32) (nelly-buffer-size uint16) (nelly-buffer-read-byte-offset uint16) (nelly-buffer-read-bit-offset uint8) (nelly-buffer-write-byte-offset uint16) (nelly-buffer-write-bit-offset uint8) ) :pack-me ) ;; definition for method 3 of type nci-codec-io-block (defmethod inspect ((this nci-codec-io-block)) (when (not this) (set! this this) (goto cfg-4) ) (format #t "[~8x] ~A~%" this 'nci-codec-io-block) (format #t "~1Tpcm-buffer: #x~X~%" (-> this pcm-buffer)) (format #t "~1Tsamples-in-pcm-buffer: ~D~%" (-> this samples-in-pcm-buffer)) (format #t "~1Tnelly-buffer: #x~X~%" (-> this nelly-buffer)) (format #t "~1Tnelly-buffer-size: ~D~%" (-> this nelly-buffer-size)) (format #t "~1Tnelly-buffer-read-byte-offset: ~D~%" (-> this nelly-buffer-read-byte-offset)) (format #t "~1Tnelly-buffer-read-bit-offset: ~D~%" (-> this nelly-buffer-read-bit-offset)) (format #t "~1Tnelly-buffer-write-byte-offset: ~D~%" (-> this nelly-buffer-write-byte-offset)) (format #t "~1Tnelly-buffer-write-bit-offset: ~D~%" (-> this nelly-buffer-write-bit-offset)) (label cfg-4) this ) ;; definition for symbol *headset-input-buffer*, type (pointer uint8) (define *headset-input-buffer* (new 'static 'array uint8 512 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 ) ) ;; definition for symbol *headset-input-bytes*, type int (define *headset-input-bytes* 0) ;; definition for symbol *headset-output-buffer*, type (pointer uint8) (define *headset-output-buffer* (new 'static 'array uint8 512 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 ) ) ;; definition for symbol *headset-output-bytes*, type int (define *headset-output-bytes* 0) ;; definition for symbol *headset-output-offset*, type int (define *headset-output-offset* 0) ;; definition for symbol *headset-cmp-out-buffer*, type (pointer uint8) (define *headset-cmp-out-buffer* (new 'static 'array uint8 100 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 ) ) ;; definition for symbol *headset-cmp-out-frames*, type int (define *headset-cmp-out-frames* 0) ;; definition for symbol *headset-scratch-buffer*, type (pointer uint8) (define *headset-scratch-buffer* (new 'static 'array uint8 160 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 ) ) ;; definition for symbol *headset-mix-buffer*, type (pointer uint8) (define *headset-mix-buffer* (new 'static 'array uint8 160 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 ) ) ;; definition for symbol *headset-decoder-ids*, type (pointer int8) (define *headset-decoder-ids* (new 'static 'array int8 4 0 0 0 0)) ;; definition for symbol *headset-decoder-ptrs*, type (array nci-codec-io-block) (define *headset-decoder-ptrs* (new 'static 'boxed-array :type nci-codec-io-block :length 0 :allocated-length 4) ) ;; definition of type headset-decoder (deftype headset-decoder (structure) ((client-idx int8) (last-time int32) (cmp-queue headset-queue :inline) (io nci-codec-io-block :inline) (scratch uint8 16) (id int8) ) :allow-misaligned ) ;; definition for method 3 of type headset-decoder (defmethod inspect ((this headset-decoder)) (when (not this) (set! this this) (goto cfg-4) ) (format #t "[~8x] ~A~%" this 'headset-decoder) (format #t "~1Tclient-idx: ~D~%" (-> this client-idx)) (format #t "~1Tlast-time: ~D~%" (-> this last-time)) (format #t "~1Tcmp-queue: #~%" (-> this cmp-queue)) (format #t "~1Tio: #~%" (-> this io)) (format #t "~1Tscratch[16] @ #x~X~%" (-> this scratch)) (format #t "~1Tid: ~D~%" (-> this id)) (label cfg-4) this ) ;; definition of type headset (deftype headset (process) ((flags uint32) (decoders headset-decoder 4 :inline) (client-to-decoder uint8 16) (encoder-io nci-codec-io-block :inline) (last-speech-time int32) (prev-operation basic) (bytes-in-playback-queue int32) (first-send basic) (frame-ct int32) (client-talking uint8 16) ) (:methods (headset-method-15 () none) (headset-method-16 () none) (headset-method-17 () none) (headset-method-18 () none) (headset-method-19 () none) (headset-method-20 () none) (headset-method-21 () none) (headset-method-22 () none) (headset-method-23 () none) (headset-method-24 () none) (headset-method-25 () none) (headset-method-26 () none) (headset-method-27 () none) (headset-method-28 () none) (headset-method-29 () none) (headset-method-30 () none) (headset-method-31 () none) (headset-method-32 () none) ) ) ;; definition for method 3 of type headset (defmethod inspect ((this headset)) (when (not this) (set! this this) (goto cfg-4) ) (let ((t9-0 (method-of-type process inspect))) (t9-0 this) ) (format #t "~2Tflags: ~D~%" (-> this flags)) (format #t "~2Tdecoders[4] @ #x~X~%" (-> this decoders)) (format #t "~2Tclient-to-decoder[16] @ #x~X~%" (-> this client-to-decoder)) (format #t "~2Tencoder-io: #~%" (-> this encoder-io)) (format #t "~2Tlast-speech-time: ~D~%" (-> this last-speech-time)) (format #t "~2Tprev-operation: ~A~%" (-> this prev-operation)) (format #t "~2Tbytes-in-playback-queue: ~D~%" (-> this bytes-in-playback-queue)) (format #t "~2Tfirst-send: ~A~%" (-> this first-send)) (format #t "~2Tframe-ct: ~D~%" (-> this frame-ct)) (format #t "~2Tclient-talking[16] @ #x~X~%" (-> this client-talking)) (label cfg-4) this ) ;; definition for symbol *headset*, type headset (define *headset* (the-as headset #f))