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

OS independence

Browse Source 
original commit: 5426e04e7a6b15f4b21a111820acbf3ce9c3b9a4
This commit is contained in:
Paul Steckler 2002-07-10 20:16:33 +00:00
parent 0902775c60
commit af6b63da9a
1 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -299,7 +299,10 @@
(loop (build-path path dir) (loop (build-path path dir)
rest)))] rest)))]
[else (build-path path url-path)]))) [else (build-path path url-path)])))
(define max-reached #f)
; 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
@ -319,6 +322,7 @@
(define (do-search given-find search-level regexp? exact? ckey maxxed-out (define (do-search given-find search-level regexp? exact? 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)
(unless (eq? doc-collection-date 'none) (unless (eq? doc-collection-date 'none)
(when (or (not doc-collection-date) (when (or (not doc-collection-date)
(> (file-or-directory-modify-seconds (collection-path "doc")) (> (file-or-directory-modify-seconds (collection-path "doc"))
@ -336,14 +340,14 @@
(lambda (doc doc-name doc-kind) (lambda (doc doc-name doc-kind)
(define found-one #f) (define found-one #f)
(define (found kind) (define (found kind)
(unless found-one (unless found-one
(add-doc-section doc-name ckey)) (add-doc-section doc-name ckey))
(unless (equal? found-one kind) (unless (equal? found-one kind)
(set! found-one kind) (set! found-one kind)
(add-kind-section kind ckey)) (add-kind-section kind ckey))
(set! hit-count (add1 hit-count)) (set! hit-count (add1 hit-count))
(unless (< hit-count MAX-HIT-COUNT) (unless (< hit-count MAX-HIT-COUNT)
(maxxed-out))) (maxxed-out)))
; Keyword search ; Keyword search
(let ([keys (case doc-kind (let ([keys (case doc-kind
@ -358,7 +362,10 @@
(list-ref v 4) ; title (list-ref v 4) ; title
(if (eq? 'text doc-kind) (if (eq? 'text doc-kind)
(apply build-path doc) (apply build-path doc)
(build-path doc (list-ref v 2))) ; file (let ([file (list-ref v 2)])
(if (hd-servlet? file)
file
(build-path doc file))))
(list-ref v 3) ; label (list-ref v 3) ; label
ckey))]) ckey))])
@ -385,18 +392,23 @@
(case doc-kind (case doc-kind
[(html) [(html)
(found "index entries") (found "index entries")
(add-choice "" name (add-choice
(list-ref desc 2) "" name
(combine-path/url-path doc (list-ref desc 0)) (list-ref desc 2)
(list-ref desc 1) (let ([filename (list-ref desc 0)])
ckey)] (if (hd-servlet? filename)
filename
(combine-path/url-path doc filename)))
(list-ref desc 1)
ckey)]
[(text) [(text)
(found "index entries") (found "index entries")
(add-choice "" name (add-choice
"indexed content" "" name
(apply build-path doc) "indexed content"
desc (apply build-path doc)
ckey)]))]) desc
ckey)]))])
(when index (when index
(unless regexp? (unless regexp?
(for-each (for-each