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

.

Browse Source 
original commit: e3ecaa24484714f4161fa5e76ee5bd426d97ad63
This commit is contained in:
Robby Findler 2004-03-10 18:31:37 +00:00
parent ac6de0c74b
commit b69c0b4625
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,7 +20,7 @@
(-> any) (-> any)
(string? any? . -> . void?) (string? any? . -> . void?)
(string? any? . -> . void?) (string? any? . -> . void?)
(string? string? string? string? (union string? false?) any . -> . void?) (string? string? string? path? (union string? false?) any? . -> . void?)
. -> . . -> .
(union string? false?))] (union string? false?))]
@ -58,8 +58,10 @@
(let ([ordered (quicksort (let ([ordered (quicksort
(map list docs doc-names) (map list docs doc-names)
(lambda (a b) ; html-doc-position expects collection name (lambda (a b) ; html-doc-position expects collection name
(< (html-doc-position (cadr a)) (let-values ([(_1 a-short _2) (split-path (car a))]
(html-doc-position (cadr b)))))]) [(_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 (map car ordered) (map cadr ordered))))) ; here we want the std title
; Check collections for doc.txt files: ; Check collections for doc.txt files:
@ -105,17 +107,16 @@
(dynamic-wind (dynamic-wind
(lambda () (semaphore-wait ht-lock)) (lambda () (semaphore-wait ht-lock))
(lambda () (lambda ()
(let ([sym (string->symbol key)]) (hash-table-get
(hash-table-get ht
ht key
sym (lambda ()
(lambda () (let ([v (compute)])
(let ([v (compute)]) (hash-table-put! ht key v)
(hash-table-put! ht sym v) v))))
v)))))
(lambda () (semaphore-post ht-lock)))) (lambda () (semaphore-post ht-lock))))
(define html-keywords (make-hash-table)) (define html-keywords (make-hash-table 'equal))
(define (load-html-keywords doc) (define (load-html-keywords doc)
(with-hash-table (with-hash-table
html-keywords html-keywords
@ -125,7 +126,7 @@
(with-input-from-file (build-path doc "keywords") (with-input-from-file (build-path doc "keywords")
read))))) read)))))
(define html-indices (make-hash-table)) (define html-indices (make-hash-table 'equal))
(define (load-html-index doc) (define (load-html-index doc)
(with-hash-table (with-hash-table
html-indices html-indices
@ -155,7 +156,7 @@
[else (loop next)]))))))))) [else (loop next)])))))))))
(define re:keyword-line (regexp "^>")) (define re:keyword-line (regexp "^>"))
(define text-keywords (make-hash-table)) (define text-keywords (make-hash-table 'equal))
(define (load-txt-keywords doc) (define (load-txt-keywords doc)
(parse-txt-file (parse-txt-file
(apply build-path doc) (apply build-path doc)
@ -203,7 +204,7 @@
[else #f])))) [else #f]))))
(define re:index-line (regexp "_([^_]*)_(.*)")) (define re:index-line (regexp "_([^_]*)_(.*)"))
(define text-indices (make-hash-table)) (define text-indices (make-hash-table 'equal))
(define (load-txt-index doc) (define (load-txt-index doc)
(parse-txt-file (parse-txt-file
(apply build-path doc) (apply build-path doc)
@ -248,10 +249,10 @@
(define (doc-collections-changed) (define (doc-collections-changed)
(set! doc-collection-date #f) (set! doc-collection-date #f)
(set! html-keywords (make-hash-table)) (set! html-keywords (make-hash-table 'equal))
(set! html-indices (make-hash-table)) (set! html-indices (make-hash-table 'equal))
(set! text-keywords (make-hash-table)) (set! text-keywords (make-hash-table 'equal))
(set! text-indices (make-hash-table)) (set! text-indices (make-hash-table 'equal))
(reset-doc-positions!)) (reset-doc-positions!))
(define re:url-dir (regexp "^([^/]*)/(.*)$")) (define re:url-dir (regexp "^([^/]*)/(.*)$"))
@ -297,8 +298,8 @@
; (-> A) ; called when more than enough are found; must escape ; (-> A) ; called when more than enough are found; must escape
; (string value -> void) ; called to output a document section header (e.g., a manual name) ; (string value -> void) ; called to output a document section header (e.g., a manual name)
; (symbol value -> void) ; called to output a document-kind section header, 'text or 'html ; (symbol value -> void) ; called to output a document-kind section header, 'text or 'html
; (string string string string (union string #f) value -> void) ; (string string string path (union string #f) value -> void)
; ^ ^ ^ ^ ^- label within page ; ^ ^ ^ ^ ^- label within page
; ^ ^ ^ ^- path to doc page ; ^ ^ ^ ^- path to doc page
; ^ ^ ^- source doc title ; ^ ^ ^- source doc title
; ^ ^- display label ; ^ ^- display label