suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed PR 8919 (Problem with refreshing of individual manuals).

Browse Source 
svn: r7326
This commit is contained in:
Jens Axel Soegaard 2007-09-13 09:34:51 +00:00
parent 124609d4c3
commit de8ec8f1d5
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/help/private/manuals.ss
View File

@ -255,12 +255,11 @@
(list (list
"[" "["
`(a ((mzscheme `(a ((mzscheme
; TODO: The path->bytes is rewritten as path->bytes
; by xexpr->string (somewehere in the web-server)
; Figure out how to avoid it.
,(to-string/escape-quotes ,(to-string/escape-quotes
`((dynamic-require '(lib "refresh-manuals.ss" "help") 'refresh-manuals) `((dynamic-require '(lib "refresh-manuals.ss" "help") 'refresh-manuals)
(list (cons (bytes->path ,(path->bytes manual-name)) ,name)))))) (list (cons ((dynamic-require '(lib "refresh-manuals.ss" "help") 'bytes-to-path)
,(path->bytes manual-name))
,name))))))
,(string-constant plt:hd:refresh)) ,(string-constant plt:hd:refresh))
"]" 'nbsp) "]" 'nbsp)
(list))))] (list))))]

7
collects/help/refresh-manuals.ss
View File

@ -12,7 +12,9 @@
(lib "port.ss") (lib "port.ss")
(lib "thread.ss")) (lib "thread.ss"))
(provide refresh-manuals) (provide refresh-manuals
bytes-to-path)
(define sc-refreshing-manuals (string-constant plt:hd:refreshing-manuals)) (define sc-refreshing-manuals (string-constant plt:hd:refreshing-manuals))
(define sc-refresh-downloading... (string-constant plt:hd:refresh-downloading...)) (define sc-refresh-downloading... (string-constant plt:hd:refresh-downloading...))
@ -75,6 +77,9 @@
(unless success? (unless success?
(delete-local-plt-files tmp-directory)) (delete-local-plt-files tmp-directory))
(kill-thread thd))))])) (kill-thread thd))))]))
; needed in "../private/manuals.ss" due to links with > getting mangled
(define bytes-to-path bytes->path)
(define (make-local-doc-filename tmp-dir stub) (define (make-local-doc-filename tmp-dir stub)
(build-path tmp-dir (format "~a-doc.plt" stub))) (build-path tmp-dir (format "~a-doc.plt" stub)))