Changeset 31085 in project for release/4/dbus/trunk/dbus.scm


Ignore:
Timestamp:
07/03/14 22:49:57 (6 years ago)
Author:
ecloud
Message:

default-signal-handler is a parameter taking a single-arg function to handle warnings

Preformatting the warnings is nice but maybe the individual args are more useful.

File:
1 edited

Legend:

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

    r31084 r31085  
    2020                unsupported-type?
    2121                unsupported-type-signature
     22                default-signal-handler
    2223
    2324                make-variant
     
    183184(define request-name)
    184185
    185 
    186186(define find-callback)
     187
     188(define default-signal-handler (make-parameter #f))
    187189
    188190(define-foreign-type error-ptr c-pointer) ;; DBusError*
     
    681683                                                (tassq callbacks-table bus path iface mber) ))
    682684                                (unless ret
    683                                         (printf "failed to find callback for ~a ~a ~a ~a on ~a~%" path svc iface mber (bus-name bus))
    684                                         (for-each (lambda (bus)
    685                                                 (printf "~a:~%" (bus-name (car bus)))
    686                                                 (if (cdr bus)
    687                                                         (for-each (lambda (path)
    688                                                                 (printf "   ~a~%" (car path))
    689                                                                 (for-each (lambda (iface)
    690                                                                         (printf "    ~a ~a~%" (car iface) (cdr iface))) (cdr path)))
    691                                                                 (cdr bus))
    692                                                         (printf "   no callbacks registered~%")
    693                                                 ))
    694                                                 callbacks-table))
     685                                        (when (default-signal-handler)
     686                                                ((default-signal-handler) (format "failed to find callback for ~a ~a ~a ~a on ~a" path svc iface mber (bus-name bus)))))
    695687                                ret
    696688                        ))))
Note: See TracChangeset for help on using the changeset viewer.