39 lines
928 B
Scheme
39 lines
928 B
Scheme
(module browser-unit mzscheme
|
|
(require (lib "unit.ss")
|
|
(lib "mred-sig.ss" "mred")
|
|
(lib "plt-installer-sig.ss" "setup")
|
|
(lib "tcp-sig.ss" "net")
|
|
(lib "url-sig.ss" "net")
|
|
(lib "url-unit.ss" "net")
|
|
"browser-sig.ss"
|
|
"private/sig.ss"
|
|
"private/bullet.ss"
|
|
"private/html.ss"
|
|
"private/hyper.ss")
|
|
|
|
(provide browser@)
|
|
|
|
(define-unit-from-context bullet@ bullet-export^)
|
|
|
|
(define-compound-unit/infer pre-browser@
|
|
(import setup:plt-installer^
|
|
mred^
|
|
url^)
|
|
(export hyper^ html-export^ bullet-export^)
|
|
(link html@ hyper@ bullet@))
|
|
|
|
(define-unit/new-import-export browser@
|
|
(import setup:plt-installer^
|
|
mred^
|
|
url^)
|
|
(export browser^)
|
|
((hyper^ html-export^ bullet-export^)
|
|
pre-browser@
|
|
setup:plt-installer^
|
|
mred^
|
|
url^)))
|
|
|
|
|
|
|
|
|