suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 540924904c0f2a72cfa37821b74b9dbff5192eab
This commit is contained in:
Robby Findler 2001-04-10 20:30:05 +00:00
parent 3fd94648db
commit b185c3e8f6
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/help/help.ss
View File

@ -9,15 +9,17 @@
|# |#
(module help mzscheme (module help mzscheme
(require "startup-url.ss" (require (lib "class.ss")
(lib "framework.ss" "framework") (lib "unitsig.ss")
"startup-url.ss"
"help-unit.ss" "help-unit.ss"
"help-sig.ss" "help-sig.ss"
(lib "framework.ss" "framework")
(lib "framework-sig.ss" "framework")
(lib "plt-installer.ss" "setup") (lib "plt-installer.ss" "setup")
(lib "getinfo.ss" "setup") (lib "plt-installer-sig.ss" "setup")
(lib "mred.ss")) (lib "mred-sig.ss" "mred")
(lib "mred.ss" "mred"))
(provide-signature-elements help^)
(define frame-mixin values) (define frame-mixin values)
(define (user-defined-doc-position x) #f) (define (user-defined-doc-position x) #f)
@ -33,14 +35,12 @@
(lambda (x) (and (number? x) (exact? x) (= x (floor x))))) (lambda (x) (and (number? x) (exact? x) (= x (floor x)))))
(define-values/invoke-unit/sig help^ (define-values/invoke-unit/sig help^
help-unit@ help@
#f #f
setup:plt-installer^ setup:plt-installer^
setup:get-info^
mred^ mred^
framework^ framework^
(frame-mixin) (frame-mixin)
help:doc-position^) help:doc-position^)
(new-help-frame startup-url)) (new-help-frame startup-url))

3
collects/help/private/search.ss
View File

@ -4,6 +4,7 @@
"sig.ss" "sig.ss"
"../help-sig.ss" "../help-sig.ss"
"docpos.ss" "docpos.ss"
"colldocs.ss"
(lib "list.ss")) (lib "list.ss"))
(provide search@) (provide search@)
@ -28,8 +29,6 @@
; doc-collection-date : ?? ; doc-collection-date : ??
(define doc-collection-date #f) (define doc-collection-date #f)
(define colldocs (require-library "colldocs.ss" "help"))
(define re:title (regexp "<[tT][iI][tT][lL][eE]>(.*)</[tT][iI][tT][lL][eE]>")) (define re:title (regexp "<[tT][iI][tT][lL][eE]>(.*)</[tT][iI][tT][lL][eE]>"))
; get-std-doc-title : string -> string ; get-std-doc-title : string -> string