Changeset 31082 in project


Ignore:
Timestamp:
07/03/14 20:39:04 (6 years ago)
Author:
ecloud
Message:

dump more info when failing to find a callback; updated remote-car example for Qt 5

Location:
release/4/dbus/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/dbus/trunk/dbus.scm

    r31074 r31082  
    699699                        ;; The service name is not included as part of the signal, so svc will be #f.
    700700                        ;; In that case the callback is registered under bus/path/iface/signal-name.
    701                         (let ([ret (if svc
    702                                                 (tassq callbacks-table bus path svc iface mber)
    703                                                 (tassq callbacks-table bus path iface mber) ) ])
     701                        (let ([ret (and svc
     702                                                (tassq callbacks-table bus path svc iface mber))])
     703                                (unless ret (set! ret
     704                                                (tassq callbacks-table bus path iface mber) ))
    704705                                (unless ret
    705                                         (printf "failed to find callback for ~a ~a~%" iface mber))
     706                                        (printf "failed to find callback for ~a ~a ~a ~a ~a~%" bus path svc iface mber)
     707                                        (for-each (lambda (bus)
     708                                                (cond
     709                                                        [(eq? (car bus) session-bus) (printf "session bus:~%")]
     710                                                        [(eq? (car bus) system-bus) (printf "system bus:~%")]
     711                                                        [else (printf "bus ~a:~%" (car bus))])
     712                                                (if (cdr bus)
     713                                                        (for-each (lambda (path)
     714                                                                (printf "   ~a~%" (car path))
     715                                                                (for-each (lambda (iface)
     716                                                                        (printf "    ~a ~a~%" (car iface) (cdr iface))) (cdr path)))
     717                                                                (cdr bus))
     718                                                        (printf "   no callbacks registered~%")
     719                                                ))
     720                                                callbacks-table))
    706721                                ret
    707722                        ))))
  • release/4/dbus/trunk/examples/paranoid-android.scm

    r25884 r31082  
    1616
    1717(define rc-car-context (dbus:make-context
    18         service: 'com.trolltech.CarExample
     18        service: 'org.example.CarExample
    1919        path: '/Car
    20         interface: 'com.trolltech.Examples.CarInterface ))
     20        interface: 'org.example.Examples.CarInterface ))
    2121
    2222(define query-context (dbus:make-context
  • release/4/dbus/trunk/examples/receive-car-turn.scm

    r25884 r31082  
    66(define rc-car-context (dbus:make-context
    77        ; bus: dbus:session-bus         ;; would be the session-bus by default anyway
    8         service: 'com.trolltech.CarExample
     8        service: 'org.example.CarExample
    99        path: '/Car
    10         interface: 'com.trolltech.Examples.CarInterface ))
     10        interface: 'org.example.Examples.CarInterface ))
    1111
    1212(dbus:enable-polling-thread!
  • release/4/dbus/trunk/examples/send-car-turn.scm

    r25884 r31082  
    33(define rc-car-context (dbus:make-context
    44        bus: dbus:session-bus   ;; would be the session-bus by default anyway
    5         service: 'com.trolltech.CarExample
    6         interface: 'com.trolltech.Examples.CarInterface
     5        service: 'org.example.CarExample
     6        interface: 'org.example.Examples.CarInterface
    77        path: '/Car))
    88
Note: See TracChangeset for help on using the changeset viewer.