Changeset 22017 in project


Ignore:
Timestamp:
12/16/10 18:35:51 (9 years ago)
Author:
Moritz Heidkamp
Message:

pulseaudio: add context-sink-input-info callback, subscription-event accesors for facility and type, use o rather than compose to appease zbigniew's hatred for multi values

Location:
release/4/pulseaudio/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/pulseaudio/trunk/pulseaudio-lolevel.scm

    r22012 r22017  
    99 context-source-output-info-list source-output-info-name
    1010 context-sink-input-info-list
     11
     12 subscription-event-facility subscription-event-type
    1113
    1214 sink-input-info-index sink-input-info-name
     
    8991  handle-eol)
    9092
     93(define-callback context-sink-input-info
     94  (dispatch_context_sink_input_info_callback context sink-input-info int)
     95  (pa_context_get_sink_input_info pa_sink_input_info_cb_t)
     96  handle-eol)
     97
    9198(define make-context
    92   (compose
    93    (lambda (c)
    94      ;; additional finalizers are prepended, see ticket #446
    95      (set-finalizer! c free-context-state-callback)
    96      (set-finalizer! c free-context-subscribe-callback)
    97      (set-finalizer! c free-context-server-info-callbacks))
    98    make-context))
     99  (o (lambda (c)
     100       ;; additional finalizers are prepended, see ticket #446
     101       (set-finalizer! c free-context-state-callback)
     102       (set-finalizer! c free-context-subscribe-callback)
     103       (set-finalizer! c free-context-server-info-callbacks))
     104     make-context))
    99105
    100106(define (context-state c)
  • release/4/pulseaudio/trunk/types.scm

    r22012 r22017  
    231231  ((type-mask se/type-mask) PA_SUBSCRIPTION_EVENT_TYPE_MASK))
    232232
     233(define (subscription-event-facility se)
     234  (int->subscription-event (bitwise-and se se/facility-mask)))
     235
     236(define (subscription-event-type se)
     237  (int->subscription-event (bitwise-and se se/type-mask)))
     238
    233239(define properties
    234240  (let-syntax ((p (syntax-rules () ((_ n) (foreign-value n c-string)))))
Note: See TracChangeset for help on using the changeset viewer.