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

.

Browse Source 
original commit: 7b3293975bf54a591ebc925238bc997501b30c60
This commit is contained in:
Matthew Flatt 2002-04-23 21:45:55 +00:00
parent 7eef06ec0d
commit dca3b2a8d4
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -276,15 +276,20 @@
rest)))] rest)))]
[else (build-path path url-path)]))) [else (build-path path url-path)])))
; do-search : ((? -> ?) ; do-search : (string ; the search text, unprocessed
; ?? ; num ; 0 = keyword, 1 = keyword+index, 2 = all text
; boolean ; boolean ; #t if string should be used as a regexp
; boolean ; boolean ; #t if the string should match exactly (not just "contains")
; ?? ; value ; arbitrary key supplied to the "add" functions
; (-> A) ; doesn't return ; (-> A) ; called when more than enough are found; must escape
; (?? -> ??) ; (string value -> void) ; called to output a document section header (e.g., a manual name)
; (?? -> ??) ; (symbol value -> void) ; called to output a document-kind section header, 'text or 'html
; (?? ?? ?? ?? ?? ?? -> ??) ; (string string string string (union string #f) value -> void)
; ^ ^ ^ ^ ^- label within page
; ^ ^ ^ ^- path to doc page
; ^ ^ ^- source doc title
; ^ ^- display label
; ^- found entry's key
; -> ; ->
; (union string #f)) ; (union string #f))
(define (do-search given-find search-level regexp? exact? ckey maxxed-out (define (do-search given-find search-level regexp? exact? ckey maxxed-out