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

.

Browse Source 
original commit: 0e9087507f8ed7198055cf0fa326617fd0a24d55
This commit is contained in:
Robby Findler 2004-09-28 13:57:04 +00:00
parent 1b1bb84b37
commit e0cd7f14f0
1 changed files with 8 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -144,14 +144,15 @@
(map (lambda (l) (map (lambda (l)
(match l (match l
[`(,(? string? index) [`(,(? string? index)
,(? bytes? file) ,(? string? file)
,(? string? label) ,(? string? label)
,(? string? title)) ,(? string? title))
(list index (list index
(bytes->path file) file
label label
title)] title)]
[else (fail)])) [else
(fail)]))
l)))) l))))
;; transform-keywords : any -> (listof (list string string path string string) ;; transform-keywords : any -> (listof (list string string path string string)
@ -292,29 +293,8 @@
(set! text-keywords (make-hash-table 'equal)) (set! text-keywords (make-hash-table 'equal))
(set! text-indices (make-hash-table 'equal)) (set! text-indices (make-hash-table 'equal))
(reset-doc-positions!)) (reset-doc-positions!))
(define re:url-dir (regexp "^([^/]*)/(.*)$"))
(define (combine-path/url-path path url-path)
(let loop ([path path]
[url-path url-path])
(cond
[(regexp-match re:url-dir url-path)
=>
(lambda (m)
(let* ([url-dir (cadr m)]
[rest (caddr m)]
[dir
(cond
[(string=? ".." url-dir) 'up]
[(string=? "." url-dir) 'same]
[(string=? "" url-dir) 'same]
[else url-dir])])
(loop (build-path path dir)
rest)))]
[else (build-path path url-path)])))
(define max-reached #f)
(define max-reached #f)
(define (build-string-finds/finds given-find regexp? exact?) (define (build-string-finds/finds given-find regexp? exact?)
(cond (cond
@ -389,7 +369,7 @@
(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)
(let ([file (list-ref v 2)]) (let ([file (bytes->path (string->bytes/utf-8 (list-ref v 2)))])
(if (servlet-path? file) (if (servlet-path? file)
file file
(build-path doc file)))) (build-path doc file))))
@ -426,10 +406,10 @@
(add-choice (add-choice
"" name "" name
(list-ref desc 2) (list-ref desc 2)
(let ([filename (list-ref desc 0)]) (let ([filename (bytes->path (string->bytes/utf-8 (list-ref desc 0)))])
(if (servlet-path? filename) (if (servlet-path? filename)
filename filename
(combine-path/url-path doc filename))) (build-path doc filename)))
(list-ref desc 1) (list-ref desc 1)
ckey))] ckey))]
[(text) [(text)