Changeset 31084 in project


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

got rid of duplication

File:
1 edited

Legend:

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

    r31083 r31084  
    346346        (define make-message (foreign-lambda message-ptr "dbus_message_new_method_call"
    347347                c-string c-string c-string c-string))
    348 
    349         (define make-error
    350                 (foreign-lambda* (c-pointer (struct "DBusError")) ()
    351                          "DBusError err;
    352         dbus_error_init(&err);
    353         C_return(&err);"))
    354 
    355         (define free-error!
    356                 (foreign-lambda* void (((c-pointer (struct "DBusError")) err))
    357                         "dbus_error_free(err);"))
    358 
    359         (define (raise-dbus-error location err)
    360                 (let ((err-name
    361                                          ((foreign-lambda* c-string (((c-pointer (struct "DBusError")) err))
    362                                                         "C_return(err->name);")
    363                                                 err))
    364                                         (err-message
    365                                          ((foreign-lambda* c-string (((c-pointer (struct "DBusError")) err))
    366                                                         "C_return(err->message);")
    367                                                 err)))
    368                         (free-error! err)
    369                         (signal
    370                          (make-composite-condition
    371                                 (make-property-condition 'dbus-call)
    372                                 (make-property-condition 'exn
    373                                                                                                                                  'location location
    374                                                                                                                                  'message (string-append "(" err-name "): " err-message))
    375                                 ))))
    376 
    377348
    378349        (define make-error
     
    712683                                        (printf "failed to find callback for ~a ~a ~a ~a on ~a~%" path svc iface mber (bus-name bus))
    713684                                        (for-each (lambda (bus)
    714                                                 (printf "~a:~%" (bus-name bus))
     685                                                (printf "~a:~%" (bus-name (car bus)))
    715686                                                (if (cdr bus)
    716687                                                        (for-each (lambda (path)
Note: See TracChangeset for help on using the changeset viewer.