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

mysterx: fix private/mxmain hack to avoid cross-module optimization

Browse Source 
Using the old extension protocol for MysterX --- plus the hack of
a dummy source module for a kind of portability --- really should
be replaced with an FFI-based approach to the MysterX DLL.
This commit is contained in:
Matthew Flatt 2011-12-21 13:57:16 -07:00
parent ed8e3367d4
commit 5a7f1b15ed
1 changed files with 297 additions and 571 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

306
collects/mysterx/private/mxmain.rkt
View File

@ -1,9 +1,21 @@
(module mxmain mzscheme #lang racket/base
; dummy entries to make Setup happy (error "mxmain.rkt: you seem to be missing mxmain.dll; you need to build MysterX in plt\\src\\mysterx\\")
; these are the names defined in mxPrims[] in src/mysterx.cxx
(provide (define-syntax provide-dummy
(syntax-rules ()
[(_ id) (begin
(provide id)
(define id (false/thwart-optimization)))]
[(_ id ...) (begin (provide-dummy id) ...)]))
(define false/thwart-optimization #f)
(set! false/thwart-optimization (lambda () #f))
;; dummy entries to make Setup happy;
;; these are the names defined in mxPrims[] in src/mysterx.cxx
(provide-dummy
mx-version mx-version
block-while-browsers block-while-browsers
com-invoke com-invoke
@ -287,289 +299,3 @@
release-type-table release-type-table
com-omit com-omit
%%initialize-dotnet-runtime) %%initialize-dotnet-runtime)
(error "mxmain.rkt: you seem to be missing mxmain.dll; you need to build MysterX in plt\\src\\mysterx\\")
(define mx-version #f)
(define block-while-browsers #f)
(define com-invoke #f)
(define com-set-property! #f)
(define com-get-property #f)
(define com-get-properties #f)
(define com-set-properties #f)
(define com-methods #f)
(define com-events #f)
(define com-method-type #f)
(define com-get-property-type #f)
(define com-set-property-type #f)
(define com-event-type #f)
(define com-help #f)
(define com-object-type #f)
(define com-is-a? #f)
(define com-currency? #f)
(define com-date? #f)
(define com-date->date #f)
(define date->com-date #f)
(define com-scode? #f)
(define com-scode->number #f)
(define number->com-scode #f)
(define com-currency->number #f)
(define number->com-currency #f)
(define com-object? #f)
(define com-iunknown? #f)
(define com-register-event-handler #f)
(define com-unregister-event-handler #f)
(define com-all-coclasses #f)
(define com-all-controls #f)
(define coclass->html #f)
(define progid->html #f)
(define cocreate-instance-from-coclass #f)
(define cocreate-instance-from-progid #f)
(define com-get-active-object-from-coclass #f)
(define coclass #f)
(define progid #f)
(define set-coclass! #f)
(define set-coclass-from-progid! #f)
(define com-object-eq? #f)
(define com-register-object #f)
(define com-release-object #f)
(define com-add-ref #f)
(define com-ref-count #f)
(define com-terminate #f)
(define make-browser #f)
(define browser-show #f)
(define navigate #f)
(define go-back #f)
(define go-forward #f)
(define refresh #f)
(define iconize #f)
(define restore #f)
(define current-url #f)
(define register-navigate-handler #f)
(define current-document #f)
(define print-document #f)
(define document? #f)
(define document-title #f)
(define document-insert-html #f)
(define document-append-html #f)
(define document-replace-html #f)
(define document-find-element #f)
(define document-find-element-by-id-or-name #f)
(define document-elements-with-tag #f)
(define document-objects #f)
(define element-insert-html #f)
(define element-append-html #f)
(define element-insert-text #f)
(define element-append-text #f)
(define element-replace-html #f)
(define element-get-html #f)
(define element-get-text #f)
(define element-focus #f)
(define element-selection #f)
(define element-set-selection! #f)
(define element-attribute #f)
(define element-set-attribute! #f)
(define element-click #f)
(define element-tag #f)
(define element-font-family #f)
(define element-set-font-family! #f)
(define element-font-style #f)
(define element-set-font-style! #f)
(define element-font-variant #f)
(define element-set-font-variant! #f)
(define element-font-weight #f)
(define element-set-font-weight! #f)
(define element-font #f)
(define element-set-font! #f)
(define element-background #f)
(define element-set-background! #f)
(define element-background-attachment #f)
(define element-set-background-attachment! #f)
(define element-background-image #f)
(define element-set-background-image! #f)
(define element-background-repeat #f)
(define element-set-background-repeat! #f)
(define element-background-position #f)
(define element-set-background-position! #f)
(define element-text-decoration #f)
(define element-set-text-decoration! #f)
(define element-text-transform #f)
(define element-set-text-transform! #f)
(define element-text-align #f)
(define element-set-text-align! #f)
(define element-margin #f)
(define element-set-margin! #f)
(define element-padding #f)
(define element-set-padding! #f)
(define element-border #f)
(define element-set-border! #f)
(define element-border-top #f)
(define element-set-border-top! #f)
(define element-border-bottom #f)
(define element-set-border-bottom! #f)
(define element-border-left #f)
(define element-set-border-left! #f)
(define element-border-right #f)
(define element-set-border-right! #f)
(define element-border-color #f)
(define element-set-border-color! #f)
(define element-border-width #f)
(define element-set-border-width! #f)
(define element-border-style #f)
(define element-set-border-style! #f)
(define element-border-top-style #f)
(define element-set-border-top-style! #f)
(define element-border-bottom-style #f)
(define element-set-border-bottom-style! #f)
(define element-border-left-style #f)
(define element-set-border-left-style! #f)
(define element-border-right-style #f)
(define element-set-border-right-style! #f)
(define element-style-float #f)
(define element-set-style-float! #f)
(define element-clear #f)
(define element-set-clear! #f)
(define element-display #f)
(define element-set-display! #f)
(define element-visibility #f)
(define element-set-visibility! #f)
(define element-list-style-type #f)
(define element-set-list-style-type! #f)
(define element-list-style-position #f)
(define element-set-list-style-position! #f)
(define element-list-style-image #f)
(define element-set-list-style-image! #f)
(define element-list-style #f)
(define element-set-list-style! #f)
(define element-position #f)
(define element-overflow #f)
(define element-set-overflow! #f)
(define element-pagebreak-before #f)
(define element-set-pagebreak-before! #f)
(define element-pagebreak-after #f)
(define element-set-pagebreak-after! #f)
(define element-css-text #f)
(define element-set-css-text! #f)
(define element-cursor #f)
(define element-set-cursor! #f)
(define element-clip #f)
(define element-set-clip! #f)
(define element-filter #f)
(define element-set-filter! #f)
(define element-style-string #f)
(define element-text-decoration-none #f)
(define element-set-text-decoration-none! #f)
(define element-text-decoration-underline #f)
(define element-set-text-decoration-underline! #f)
(define element-text-decoration-overline #f)
(define element-set-text-decoration-overline! #f)
(define element-text-decoration-linethrough #f)
(define element-set-text-decoration-linethrough! #f)
(define element-text-decoration-blink #f)
(define element-set-text-decoration-blink! #f)
(define element-pixel-top #f)
(define element-set-pixel-top! #f)
(define element-pixel-left #f)
(define element-set-pixel-left! #f)
(define element-pixel-width #f)
(define element-set-pixel-width! #f)
(define element-pixel-height #f)
(define element-set-pixel-height! #f)
(define element-pos-top #f)
(define element-set-pos-top! #f)
(define element-pos-left #f)
(define element-set-pos-left! #f)
(define element-pos-width #f)
(define element-set-pos-width! #f)
(define element-pos-height #f)
(define element-set-pos-height! #f)
(define element-font-size #f)
(define element-set-font-size! #f)
(define element-color #f)
(define element-set-color! #f)
(define element-background-color #f)
(define element-set-background-color! #f)
(define element-background-position-x #f)
(define element-set-background-position-x! #f)
(define element-background-position-y #f)
(define element-set-background-position-y! #f)
(define element-letter-spacing #f)
(define element-set-letter-spacing! #f)
(define element-vertical-align #f)
(define element-set-vertical-align! #f)
(define element-text-indent #f)
(define element-set-text-indent! #f)
(define element-line-height #f)
(define element-set-line-height! #f)
(define element-margin-top #f)
(define element-set-margin-top! #f)
(define element-margin-bottom #f)
(define element-set-margin-bottom! #f)
(define element-margin-left #f)
(define element-set-margin-left! #f)
(define element-margin-right #f)
(define element-set-margin-right! #f)
(define element-padding-top #f)
(define element-set-padding-top! #f)
(define element-padding-bottom #f)
(define element-set-padding-bottom! #f)
(define element-padding-left #f)
(define element-set-padding-left! #f)
(define element-padding-right #f)
(define element-set-padding-right! #f)
(define element-border-top-color #f)
(define element-set-border-top-color! #f)
(define element-border-bottom-color #f)
(define element-set-border-bottom-color! #f)
(define element-border-left-color #f)
(define element-set-border-left-color! #f)
(define element-border-right-color #f)
(define element-set-border-right-color! #f)
(define element-border-top-width #f)
(define element-set-border-top-width! #f)
(define element-border-bottom-width #f)
(define element-set-border-bottom-width! #f)
(define element-border-left-width #f)
(define element-set-border-left-width! #f)
(define element-border-right-width #f)
(define element-set-border-right-width! #f)
(define element-width #f)
(define element-set-width! #f)
(define element-height #f)
(define element-set-height! #f)
(define element-top #f)
(define element-set-top! #f)
(define element-left #f)
(define element-set-left! #f)
(define element-z-index #f)
(define element-set-z-index! #f)
(define event? #f)
(define get-event #f)
(define event-tag #f)
(define event-id #f)
(define event-from-tag #f)
(define event-from-id #f)
(define event-to-tag #f)
(define event-to-id #f)
(define event-keycode #f)
(define event-shiftkey #f)
(define event-ctrlkey #f)
(define event-altkey #f)
(define event-x #f)
(define event-y #f)
(define event-keypress? #f)
(define event-keydown? #f)
(define event-keyup? #f)
(define event-mousedown? #f)
(define event-mousemove? #f)
(define event-mouseover? #f)
(define event-mouseout? #f)
(define event-mouseup? #f)
(define event-click? #f)
(define event-dblclick? #f)
(define event-error? #f)
(define block-until-event #f)
(define process-win-events #f)
(define release-type-table #f)
(define com-omit #f)
(define %%initialize-dotnet-runtime #f))