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

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

@ -300,6 +300,9 @@
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"))
@ -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,14 +392,19 @@
(case doc-kind (case doc-kind
[(html) [(html)
(found "index entries") (found "index entries")
(add-choice "" name (add-choice
"" name
(list-ref desc 2) (list-ref desc 2)
(combine-path/url-path doc (list-ref desc 0)) (let ([filename (list-ref desc 0)])
(if (hd-servlet? filename)
filename
(combine-path/url-path doc filename)))
(list-ref desc 1) (list-ref desc 1)
ckey)] ckey)]
[(text) [(text)
(found "index entries") (found "index entries")
(add-choice "" name (add-choice
"" name
"indexed content" "indexed content"
(apply build-path doc) (apply build-path doc)
desc desc