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

..

Browse Source 
original commit: d9b9354df5cbe6b112950de1f69a78efaac549c2
This commit is contained in:
Robby Findler 2003-12-30 14:23:15 +00:00
parent eee8f02e6d
commit 82e4cc05aa
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -450,9 +450,13 @@
[else (let ([man (car manuals)]) [else (let ([man (car manuals)])
(let-values ([(r-doc r-doc-names r-doc-kinds) (loop (cdr manuals))] (let-values ([(r-doc r-doc-names r-doc-kinds) (loop (cdr manuals))]
[(t-doc t-doc-names t-doc-kinds) (find-doc man)]) [(t-doc t-doc-names t-doc-kinds) (find-doc man)])
(values (cons t-doc r-doc) (if t-doc
(cons t-doc-names r-doc-names) (values (cons t-doc r-doc)
(cons t-doc-kinds r-doc-kinds))))]))) (cons t-doc-names r-doc-names)
(cons t-doc-kinds r-doc-kinds))
(values r-doc
r-doc-names
r-doc-kinds))))])))
;; find-doc : ;; find-doc :
;; string -> (values doc[element of docs] doc-name[element of doc-names] doc-kind[element of doc-kinds]) ;; string -> (values doc[element of docs] doc-name[element of doc-names] doc-kind[element of doc-kinds])
@ -461,16 +465,20 @@
[x-doc-names doc-names] [x-doc-names doc-names]
[x-doc-kinds doc-kinds]) [x-doc-kinds doc-kinds])
(cond (cond
[(null? x-docs) (error 'find-doc "didn't find the manual ~s" man)] [(and (null? x-docs) (null? x-doc-names) (null? x-doc-kinds))
[(or (null? x-doc-names) (null? x-doc-kinds)) (values #f #f #f)]
[(or (null? x-docs) (null? x-doc-names) (null? x-doc-kinds))
(error 'find-doc "mismatched lists\n")] (error 'find-doc "mismatched lists\n")]
[else [else
(let ([doc (car x-docs)]) (let ([doc (car x-docs)])
(let-values ([(base name dir?) (split-path doc)]) (cond
(cond [(eq? 'html (car x-doc-kinds))
[(and (eq? 'html (car x-doc-kinds)) (equal? man name)) (let-values ([(base name dir?) (split-path doc)])
(values doc (car x-doc-names) (car x-doc-kinds))] (cond
[else (loop (cdr x-docs) (cdr x-doc-names) (cdr x-doc-kinds))])))]))) [(equal? man name)
(values doc (car x-doc-names) (car x-doc-kinds))]
[else (loop (cdr x-docs) (cdr x-doc-names) (cdr x-doc-kinds))]))]
[else (loop (cdr x-docs) (cdr x-doc-names) (cdr x-doc-kinds))]))])))
;; extract-doc-txt : (listof string) boolean -> (values docs[sublist] doc-names[sublist] doc-kinds[sublist]) ;; extract-doc-txt : (listof string) boolean -> (values docs[sublist] doc-names[sublist] doc-kinds[sublist])
;; returns the manuals that are not 'html. ;; returns the manuals that are not 'html.