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

..

Browse Source 
original commit: 58a60934bb4e73b0fc3e06ed90141c5528592c2f
This commit is contained in:
Robby Findler 2003-04-06 21:03:14 +00:00
parent bb58e25a7a
commit 0cabae7acd
1 changed files with 194 additions and 182 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,10 +3,17 @@
"docpos.ss" "docpos.ss"
"colldocs.ss" "colldocs.ss"
"path.ss" "path.ss"
(lib "list.ss")) (lib "list.ss")
(lib "contract.ss"))
(provide do-search (provide do-search
doc-collections-changed) doc-collections-changed)
(provide/contract (build-string-finds/finds (string?
boolean?
boolean?
. -> .
(values (listof string?)
(listof (union regexp? string?))))))
(define (html-doc-position x) (define (html-doc-position x)
(or (user-defined-doc-position x) (or (user-defined-doc-position x)
@ -83,8 +90,7 @@
txt-doc-names))) txt-doc-names)))
(set! doc-kinds (append (map (lambda (x) 'html) std-docs) (map (lambda (x) 'text) txt-docs))) (set! doc-kinds (append (map (lambda (x) 'html) std-docs) (map (lambda (x) 'text) txt-docs)))
(with-handlers ([not-break-exn? (with-handlers ([not-break-exn? (lambda (x) (set! doc-collection-date 'none))])
(lambda (x) (set! doc-collection-date 'none))])
(set! doc-collection-date (set! doc-collection-date
(file-or-directory-modify-seconds (file-or-directory-modify-seconds
(collection-path "doc"))))) (collection-path "doc")))))
@ -281,6 +287,16 @@
(define max-reached #f) (define max-reached #f)
(define (build-string-finds/finds given-find regexp? exact?)
(cond
[exact? (values (list given-find)
(list given-find))]
[regexp? (values (list given-find)
(list (regexp given-find)))]
[else (let ([wl (split-words given-find)])
(values wl
(map regexp (map non-regexp wl))))]))
; do-search : (string ; the search text, unprocessed ; do-search : (string ; the search text, unprocessed
; num ; 0 = keyword, 1 = keyword+index, 2 = all text ; num ; 0 = keyword, 1 = keyword+index, 2 = all text
; boolean ; #t if string should be used as a regexp ; boolean ; #t if string should be used as a regexp
@ -306,14 +322,8 @@
(> (file-or-directory-modify-seconds (collection-path "doc")) (> (file-or-directory-modify-seconds (collection-path "doc"))
doc-collection-date)) doc-collection-date))
(reset-doc-lists))) (reset-doc-lists)))
(let* ([hit-count 0] (let ([hit-count 0])
[string-finds (list given-find)] (let-values ([(string-finds finds) (build-string-finds/finds given-find regexp? exact?)])
[finds (cond
[exact? (list given-find)]
[regexp? (list (regexp given-find))]
[else (let ([wl (split-words given-find)])
(set! string-finds wl)
(map regexp (map non-regexp wl)))])])
(for-each (for-each
(lambda (doc doc-name doc-kind) (lambda (doc doc-name doc-kind)
(define found-one #f) (define found-one #f)
@ -440,11 +450,13 @@
docs doc-names doc-kinds) docs doc-names 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)
""
(apply (apply
string-append string-append
(cons (format "\"~a\"" (car string-finds)) (cons (format "\"~a\"" (car string-finds))
(map (lambda (i) (format " ~a \"~a\"" (string-constant plt:hd:and) i)) (map (lambda (i) (format " ~a \"~a\"" (string-constant plt:hd:and) i))
(cdr string-finds))))) (cdr string-finds))))))
#f)))) #f)))))