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

fixed bugs in manual search order code

Browse Source 
svn: r2032

original commit: 08b531825afad043ce96bc664b9833340da41eb9
This commit is contained in:
Robby Findler 2006-01-30 01:30:27 +00:00
parent 0815c70a2c
commit f5439c6bca
1 changed files with 4 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,5 @@
(module search mzscheme
(require (lib "string-constant.ss" "string-constants")
"docpos.ss"
"colldocs.ss"
"path.ss"
"manuals.ss"
@ -34,9 +33,6 @@
(non-regexp (string? . -> . string?)))
(define (html-doc-position x)
(or (user-defined-doc-position x)
(standard-html-doc-position x)))
; These are set by reset-doc-lists:
; docs, doc-names and doc-kinds are parallel lists. doc-kinds
@ -49,22 +45,14 @@
(define doc-kinds null)
; doc-collection-date : (union #f number 'none)
(define doc-collection-date #f)
(define (reset-doc-lists)
; Locate standard HTML documentation
(define-values (std-docs std-doc-names)
(let* ([docs (find-doc-directories)]
[doc-names (map get-doc-name docs)])
; Order the standard docs:
(let ([ordered (quicksort
(map list docs doc-names)
(lambda (a b) ; html-doc-position expects collection name
(let-values ([(_1 a-short _2) (split-path (car a))]
[(_3 b-short _4) (split-path (car b))])
(< (html-doc-position a-short)
(html-doc-position b-short)))))])
(values (map car ordered) (map cadr ordered))))) ; here we want the std title
(values docs doc-names)))
; Check collections for doc.txt files:
(define-values (txt-docs txt-doc-names) (colldocs))
@ -300,8 +288,7 @@
(set! html-keywords (make-hash-table 'equal))
(set! html-indices (make-hash-table 'equal))
(set! text-keywords (make-hash-table 'equal))
(set! text-indices (make-hash-table 'equal))
(reset-doc-positions!))
(set! text-indices (make-hash-table 'equal)))
(define max-reached #f)