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

fix .tgz file sizes in get-libs and fix download to check size

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-08 06:09:32 -07:00
parent bc2c95f564
commit 81488335cd
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/gracket/get-libs.rkt
View File

@ -42,7 +42,7 @@
["libpixman-1.0.dylib" 459304] ["libpixman-1.0.dylib" 459304]
["libgthread-2.0.0.dylib" 24592] ["libgthread-2.0.0.dylib" 24592]
["libpng14.14.dylib" 182992] ["libpng14.14.dylib" 182992]
["PSMTabBarControl.tgz" 91318])] ["PSMTabBarControl.tgz" 89039])]
[(x86_64-macosx) [(x86_64-macosx)
'(["libcairo.2.dylib" 944552] '(["libcairo.2.dylib" 944552]
["libintl.8.dylib" 61016] ["libintl.8.dylib" 61016]
@ -56,7 +56,7 @@
["libpixman-1.0.dylib" 499440] ["libpixman-1.0.dylib" 499440]
["libgthread-2.0.0.dylib" 21728] ["libgthread-2.0.0.dylib" 21728]
["libpng14.14.dylib" 192224] ["libpng14.14.dylib" 192224]
["PSMTabBarControl.tgz" 107171])] ["PSMTabBarControl.tgz" 105765])]
[(ppc-macosx) [(ppc-macosx)
'(["libcairo.2.dylib" 2716096] '(["libcairo.2.dylib" 2716096]
["libintl.8.dylib" 133156] ["libintl.8.dylib" 133156]
@ -70,7 +70,7 @@
["libpixman-1.0.dylib" 1366816] ["libpixman-1.0.dylib" 1366816]
["libgthread-2.0.0.dylib" 25416] ["libgthread-2.0.0.dylib" 25416]
["libpng14.14.dylib" 505920] ["libpng14.14.dylib" 505920]
["PSMTabBarControl.tgz" 96036])])] ["PSMTabBarControl.tgz" 95862])])]
[(windows) [(windows)
(let ([basic '(["libjpeg-7.dll" 233192] (let ([basic '(["libjpeg-7.dll" 233192]
["libcairo-2.dll" 921369] ["libcairo-2.dll" 921369]
@ -159,6 +159,12 @@
(lambda (out) (lambda (out)
(copy-port i out))) (copy-port i out)))
(rename-file-or-directory tmp dest #t) (rename-file-or-directory tmp dest #t)
(let ([sz (file-size dest)])
(unless (= size sz)
(raise-user-error
'get-libs
"size of ~a is ~a; doesn't match expected size ~a"
dest sz size)))
(printf "done\n")))))) (printf "done\n"))))))
(define (same-content? f1 f2) (define (same-content? f1 f2)