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

..

Browse Source 
original commit: 5e0bc6e9e3857a0c1ea72d80db3d20570830d421
This commit is contained in:
Robby Findler 2004-01-13 20:13:20 +00:00
parent 82e4cc05aa
commit e0dd79a1cd
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,8 @@
boolean? boolean?
. -> . . -> .
(values (listof string?) (values (listof string?)
(listof (union regexp? string?)))))) (listof (union regexp? string?)))))
(non-regexp (string? . -> . string?)))
(define (html-doc-position x) (define (html-doc-position x)
(or (user-defined-doc-position x) (or (user-defined-doc-position x)
@ -213,7 +214,8 @@
(cons (cadr m) (cons (cadr m)
(split-words (caddr m))) (split-words (caddr m)))
null))) null)))
;; non-regexp : string -> string
(define (non-regexp s) (define (non-regexp s)
(list->string (list->string
(apply (apply
@ -290,7 +292,6 @@
(define (do-search given-find search-level regexp? exact? manuals doc-txt? (define (do-search given-find search-level regexp? exact? manuals doc-txt?
ckey maxxed-out ckey maxxed-out
add-doc-section add-kind-section add-choice) add-doc-section add-kind-section add-choice)
; When new docs are installed, the directory's modification date changes: ; When new docs are installed, the directory's modification date changes:
(set! max-reached #f) (set! max-reached #f)
(unless (eq? doc-collection-date 'none) (unless (eq? doc-collection-date 'none)
@ -334,7 +335,6 @@
(build-path doc file)))) (build-path doc file))))
(list-ref v 3) ; label (list-ref v 3) ; label
ckey))]) ckey))])
(unless regexp? (unless regexp?
(for-each (for-each
(lambda (v) (lambda (v)
@ -390,6 +390,7 @@
(unless (and (not regexp?) (string=? given-find (car v))) (unless (and (not regexp?) (string=? given-find (car v)))
(add-index-choice (car v) (cdr v))))) (add-index-choice (car v) (cdr v)))))
index))))) index)))))
; Content Search ; Content Search
(unless (or (< search-level 2) exact? (null? finds)) (unless (or (< search-level 2) exact? (null? finds))
(let ([files (case doc-kind (let ([files (case doc-kind
@ -427,6 +428,7 @@
(loop)))))))) (loop))))))))
files)))) files))))
filtered-docs filtered-doc-names filtered-doc-kinds) filtered-docs filtered-doc-names filtered-doc-kinds)
(if (= 0 hit-count) (if (= 0 hit-count)
(format (string-constant plt:hd:nothing-found-for) (format (string-constant plt:hd:nothing-found-for)
(if (null? string-finds) (if (null? string-finds)