Changeset 25880 in project
- Timestamp:
- 02/08/12 22:52:49 (9 years ago)
- Location:
- release/4/dbus/trunk
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/dbus/trunk/dbus.meta
r23255 r25880 4 4 (category os) 5 5 (license "MIT") 6 (depends easyffi protobj matchable miscmacros foreigners) 6 ;(depends easyffi protobj matchable miscmacros foreigners) 7 (depends easyffi matchable miscmacros foreigners) 7 8 (doc-from-wiki) 8 9 (author "Shawn Rutledge") -
release/4/dbus/trunk/dbus.scm
r25785 r25880 85 85 (define dbus:type-string-string (foreign-value DBUS_TYPE_STRING_AS_STRING int)) 86 86 (define dbus:type-object-path (foreign-value DBUS_TYPE_OBJECT_PATH int)) 87 (define dbus:type-object-path-string (foreign-value DBUS_TYPE_OBJECT_PATH_AS_STRING int))88 87 (define dbus:type-signature (foreign-value DBUS_TYPE_SIGNATURE int)) 89 88 (define dbus:type-signature-string (foreign-value DBUS_TYPE_SIGNATURE_AS_STRING int)) 90 89 (define dbus:type-array (foreign-value DBUS_TYPE_ARRAY int)) 91 90 (define dbus:type-array-string (foreign-value DBUS_TYPE_ARRAY_AS_STRING int)) 91 (define dbus:type-dict (foreign-value DBUS_TYPE_DICT_ENTRY int)) 92 (define dbus:type-variant (foreign-value DBUS_TYPE_VARIANT int)) 92 93 93 94 (define dbus:make-context) … … 308 309 309 310 ;; TODO: iter-append-basic-T for each possible type: 310 ;; especially array, variant and struct mightbe possible311 ;; especially variant, array and struct might still be possible 311 312 312 313 ;; val would usually be a single value, but … … 348 349 (cond 349 350 [(memq type `(,dbus:type-string ,dbus:type-invalid-string 350 ,dbus:type-string-string ,dbus:type-object-path -string351 ,dbus:type-string-string ,dbus:type-object-path 351 352 ,dbus:type-signature-string 352 353 ;; TODO maybe the following types ought to be converted? … … 388 389 [(eq? type dbus:type-array) 389 390 (iter->vector (make-sub-iter iter))] 391 [(eq? type dbus:type-dict) 392 (iter->pair (make-sub-iter iter))] 393 [(eq? type dbus:type-variant) 394 ((make-sub-iter iter))] 390 395 ;; unsupported so far (not understood well enough): 391 396 ;; dbus:type-object-path and dbus:type-signature 392 397 ;; dbus:type-invalid is returned as #f (could be (void) but that 393 398 ;; would be the termination condition for the iterator) 399 ;[else (format "unsupported-~c" (integer->char type))] ))) 394 400 [else #f] ))) 395 401 … … 440 446 (reverse retval) 441 447 (loop (cons next retval)))))) 448 449 (define (iter->pair iter) 450 (cons (iter) (iter))) 442 451 443 452 (define (iter->vector iter) … … 711 720 (and (pair? xml) (car xml)))))) 712 721 713 ) 714 ) 722 )) ;; end module -
release/4/dbus/trunk/dbus.setup
r25788 r25880 3 3 (use files utils) 4 4 5 (make (("dbus.import.so" ("dbus.c") 6 (compile -s -O3 -d0 dbus.import.scm)) 7 ("dbus.so" ("dbus.c") 8 (compile -s -O3 -d1 dbus.scm -C "`pkg-config --cflags dbus-1`" -L "`pkg-config --libs dbus-1`")) 9 ("dbus.c" ("dbus.scm") 10 (compile -t dbus.scm -O3 -d1 -X easyffi -C -g -j dbus))) 11 '("dbus.so" "dbus.import.so")) 5 (make ( 6 ("dbus.import.so" ("dbus.c") 7 (compile -s -O3 -d0 dbus.import.scm)) 8 ("dbus.so" ("dbus.c") 9 (compile -s -O3 -d1 dbus.scm -C "`pkg-config --cflags dbus-1`" -L "`pkg-config --libs dbus-1`")) 10 ("dbus.c" ("dbus.scm") 11 (compile -t dbus.scm -O3 -d1 -X easyffi -C -g -j dbus))) 12 '("dbus.so" "dbus.import.so")) 12 13 13 14 (install-extension 'dbus 14 `("dbus.so" "dbus.import.so") 15 `((version 0.88))) 16 15 `("dbus.so" "dbus.import.so") 16 `((version 0.88)))
Note: See TracChangeset
for help on using the changeset viewer.