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

Added keywords from doc.txt files to the master index page.

Browse Source 
svn: r7345

original commit: 78b57246a2fc3f5291dab272fa6c14ec92a19f83
This commit is contained in:
Jens Axel Soegaard 2007-09-15 15:12:33 +00:00
parent 27b0e2a7c2
commit 2f1dc42b9d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,10 @@
(lib "contract.ss") (lib "contract.ss")
(lib "dirs.ss" "setup")) (lib "dirs.ss" "setup"))
(provide doc-collections-changed) (provide doc-collections-changed
reset-doc-lists
extract-doc-txt
load-txt-keywords-into-hash-table)
(provide/contract (provide/contract
[do-search [do-search
(string? (string?
@ -189,10 +192,14 @@
(define re:keyword-line (regexp "\n>")) (define re:keyword-line (regexp "\n>"))
(define text-keywords (make-hash-table 'equal)) (define text-keywords (make-hash-table 'equal))
(define (load-txt-keywords doc) (define (load-txt-keywords doc)
(load-txt-keywords-into-hash-table text-keywords doc))
(define (load-txt-keywords-into-hash-table ht doc)
(parse-txt-file (parse-txt-file
(apply build-path doc) (apply build-path doc)
text-keywords ht
(λ (p) (λ (p)
(port-count-lines! p) (port-count-lines! p)
(let loop () (let loop ()