suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

COM doc and error fixups

Browse Source
This commit is contained in:
Matthew Flatt 2012-02-21 06:14:28 -07:00
parent b656219f8a
commit b9012a2504
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mysterx/mysterx.rkt
View File

@ -65,9 +65,12 @@
com-register-event-handler com-register-event-handler
com-unregister-event-handler) com-unregister-event-handler)
(define (coclass->clsid* who coclass)
(or (coclass->clsid coclass)
(error who "coclass not found: ~e" coclass)))
(define (cocreate-instance-from-coclass coclass [where 'local]) (define (cocreate-instance-from-coclass coclass [where 'local])
(com-create-instance (coclass->clsid coclass) where)) (com-create-instance (coclass->clsid* 'cocreate-instance-from-coclass coclass) where))
(define (cci/coclass coclass [where 'local]) (define (cci/coclass coclass [where 'local])
(cocreate-instance-from-coclass coclass where)) (cocreate-instance-from-coclass coclass where))
@ -79,7 +82,7 @@
(cocreate-instance-from-progid progid where)) (cocreate-instance-from-progid progid where))
(define (get-active-object-from-coclass coclass) (define (get-active-object-from-coclass coclass)
(com-get-active-object (coclass->clsid coclass))) (com-get-active-object (coclass->clsid* 'get-active-object-from-coclass coclass)))
(define (gao/coclass coclass) (define (gao/coclass coclass)
(get-active-object-from-coclass coclass)) (get-active-object-from-coclass coclass))
@ -90,7 +93,7 @@
(clsid->progid (com-object-clsid obj))) (clsid->progid (com-object-clsid obj)))
(define (set-coclass! obj coclass) (define (set-coclass! obj coclass)
(com-object-set-clsid! obj (coclass->clsid coclass))) (com-object-set-clsid! obj (coclass->clsid* 'set-coclass! coclass)))
(define (set-coclass-from-progid! obj progid) (define (set-coclass-from-progid! obj progid)
(com-object-set-clsid! obj (progid->clsid progid))) (com-object-set-clsid! obj (progid->clsid progid)))

2
collects/scribblings/foreign/com-intf.scrbl
View File

@ -202,7 +202,7 @@ message, but @racket[hresult] and its human-readable interpretation
Here's an example using the Standard Component Categories Manager to Here's an example using the Standard Component Categories Manager to
enumerate installed COM classes that are in the different enumerate installed COM classes that are in the different
systemd-defined categories. The example illustrates instantiating a system-defined categories. The example illustrates instantiating a
COM class by @tech{CLSID}, describing COM interfaces with COM class by @tech{CLSID}, describing COM interfaces with
@racket[define-com-interface], and using allocation specifications to @racket[define-com-interface], and using allocation specifications to
ensure that resources are reclaimed even if an error is encountered or ensure that resources are reclaimed even if an error is encountered or