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

mzscheme -> scheme

Browse Source 
svn: r16239
This commit is contained in:
Eli Barzilay 2009-10-05 04:34:04 +00:00
parent 337061d8c4
commit b0e8fac1f8
1 changed files with 40 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/setup/winvers.ss
View File

@ -1,36 +1,31 @@
;; This is a wrapper around `winvers-change.ss' to patch binary files with the
;; current version number.
(module winvers mzscheme
(require mzlib/file
"main-collects.ss"
"dirs.ss")
#lang scheme
(require mzlib/file "main-collects.ss" "dirs.ss")
(define (make-copy)
(let* ([tmpdir (find-system-path 'temp-dir)]
[vers (build-path tmpdir "setvers")])
(unless (directory-exists? vers) (make-directory vers))
(for-each (lambda (p)
(for ([p (in-list '("mzscheme.exe" "lib"))])
(let ([dest (build-path vers p)])
((cond [(file-exists? dest) delete-file]
[(directory-exists? dest) delete-directory/files]
[else void])
dest)
(copy-directory/files (build-path (find-console-bin-dir) p)
dest)))
'("mzscheme.exe" "lib"))
(copy-directory/files (build-path (find-console-bin-dir) p) dest)))
(build-path vers "mzscheme.exe")))
(define (patch-files)
(parameterize ((current-command-line-arguments
(vector (path->string (find-console-bin-dir)))))
(parameterize ([current-command-line-arguments
(vector (path->string (find-console-bin-dir)))])
(dynamic-require 'setup/winvers-change #f)))
(define collects-dir
(path->string (find-collects-dir)))
(let ([argv (current-command-line-arguments)])
(cond
[(equal? argv #())
(cond [(equal? argv #())
(let ([exe (make-copy)])
(printf "re-launching first time...~n")
(subprocess
@ -50,5 +45,4 @@
(delete-directory/files
(build-path (find-system-path 'temp-dir) "setvers"))
(printf "done!~n")]
[else
(error 'winvers "unknown command line: ~e" argv)])))
[else (error 'winvers "unknown command line: ~e" argv)]))