suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 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)))]
[else (build-path path url-path)])))
; do-search : ((? -> ?)
; ??
; boolean
; boolean
; ??
; (-> A) ; doesn't return
; (?? -> ??)
; (?? -> ??)
; (?? ?? ?? ?? ?? ?? -> ??)
; do-search : (string ; the search text, unprocessed
; num ; 0 = keyword, 1 = keyword+index, 2 = all text
; boolean ; #t if string should be used as a regexp
; boolean ; #t if the string should match exactly (not just "contains")
; value ; arbitrary key supplied to the "add" functions
; (-> 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))
(define (do-search given-find search-level regexp? exact? ckey maxxed-out