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

adjust to new distribution dirs

Browse Source 
svn: r2980
This commit is contained in:
Eli Barzilay 2006-05-18 22:30:43 +00:00
parent 325b4f5970
commit 621ad09135
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/teachpack/htdc/Docs/mkdocs
View File

@ -7,7 +7,7 @@ else
fi fi
|# |#
(require (lib "etc.ss")) (require (lib "etc.ss") (lib "dirs.ss" "setup"))
(current-directory (this-expression-source-directory)) (current-directory (this-expression-source-directory))
; for john? ; for john?
@ -18,7 +18,7 @@ fi
#"An Imperative Drawing Library (HtDC)" #"An Imperative Drawing Library (HtDC)"
)) ))
(define dest-dir (build-path (collection-path "doc") "teachpack-htdc")) (define dest-dir (build-path (find-doc-dir) "teachpack-htdc"))
(printf "writing docs to ~s\n" (path->string dest-dir)) (printf "writing docs to ~s\n" (path->string dest-dir))
(require (lib "list.ss")) (require (lib "list.ss"))
@ -41,7 +41,8 @@ fi
(unless (file-exists? (build-path 'up ss-name)) (unless (file-exists? (build-path 'up ss-name))
(error 'mkdocs "Found ~s but no ~s teachpack found" s ss-name)) (error 'mkdocs "Found ~s but no ~s teachpack found" s ss-name))
(list (cadr m) (bytes->path basename)))) (list (cadr m) (bytes->path basename))))
(filter (lambda (f) (not (equal? (path->bytes f) #"index.thtml"))) thtml-files)))) (filter (lambda (f) (not (equal? (path->bytes f) #"index.thtml")))
thtml-files))))
;; Check that `lib-names' exactly match `libraires': ;; Check that `lib-names' exactly match `libraires':
(let ([file-libs (map car lib-names)]) (let ([file-libs (map car lib-names)])
(define (test x) (and (pair? x) x)) (define (test x) (and (pair? x) x))

10
collects/teachpack/htdp/Docs/mkdocs
View File

@ -7,7 +7,7 @@ else
fi fi
|# |#
(require (lib "etc.ss")) (require (lib "etc.ss") (lib "dirs.ss" "setup"))
(current-directory (this-expression-source-directory)) (current-directory (this-expression-source-directory))
; for john? ; for john?
@ -35,7 +35,7 @@ fi
#"Scheme Web Servlets" #"Scheme Web Servlets"
#"Show Queen")) #"Show Queen"))
(define dest-dir (build-path (collection-path "doc") "teachpack")) (define dest-dir (build-path (find-doc-dir) "teachpack"))
(printf "writing docs to ~s\n" (path->string dest-dir)) (printf "writing docs to ~s\n" (path->string dest-dir))
(require (lib "list.ss")) (require (lib "list.ss"))
@ -56,10 +56,10 @@ fi
[basename (regexp-replace #rx#"[.]thtml$" (path->bytes s) #"")] [basename (regexp-replace #rx#"[.]thtml$" (path->bytes s) #"")]
[ss-name (bytes->path (bytes-append basename #".ss"))]) [ss-name (bytes->path (bytes-append basename #".ss"))])
(unless (file-exists? (build-path 'up ss-name)) (unless (file-exists? (build-path 'up ss-name))
(error 'mkdocs "Found ~s but no ~s teachpack found" (error 'mkdocs "Found ~s but no ~s teachpack found" s ss-name))
s ss-name))
(list (cadr m) (bytes->path basename)))) (list (cadr m) (bytes->path basename))))
(filter (lambda (f) (not (equal? (path->bytes f) #"index.thtml"))) thtml-files)))) (filter (lambda (f) (not (equal? (path->bytes f) #"index.thtml")))
thtml-files))))
;; Check that `lib-names' exactly match `libraires': ;; Check that `lib-names' exactly match `libraires':
(let ([file-libs (map car lib-names)]) (let ([file-libs (map car lib-names)])
(define (test x) (and (pair? x) x)) (define (test x) (and (pair? x) x))