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

fix lncs and jfp class file download

Browse Source 
original commit: 26fe665dd795c9d365fad1bad9fcc6b125c14f5b
This commit is contained in:
Matthew Flatt 2011-08-15 09:58:21 -06:00
parent 2dcc9d11af
commit a2f330a9c1
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/jfp/lang.rkt
View File

@ -7,6 +7,7 @@
setup/main-collects
"../private/defaults.rkt"
net/ftp
racket/file
(for-syntax scheme/base))
(provide (except-out (all-from-out scribble/doclang) #%module-begin)
(all-from-out scribble/jfp)
@ -48,5 +49,6 @@
(define c (ftp-establish-connection site 21 "anonymous" "user@racket-lang.org"))
(ftp-cd c path)
(let-values ([(base name dir?) (split-path cls-file)])
(make-directory* base)
(ftp-download-file c base file))
(ftp-close-connection c))

2
collects/scribble/lncs/lang.rkt
View File

@ -1,6 +1,7 @@
#lang racket/base
(require scribble/doclang
scribble/core
racket/file
(except-in scribble/base author)
(prefix-in s/b: scribble/base)
scribble/decode
@ -65,6 +66,7 @@
(log-error (format "Downloading via ftp://~a/~a/~a..." site path file))
(define c (ftp-establish-connection site 21 "anonymous" "user@racket-lang.org"))
(ftp-cd c path)
(make-directory* (find-system-path 'temp-dir))
(ftp-download-file c (find-system-path 'temp-dir) file)
(ftp-close-connection c)
(define z (build-path (find-system-path 'temp-dir) file))