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

Adapt the log update script to work on specific files.

Browse Source 
original commit: 866225b65977a7f5bedcfaccd8d9aabc56e1fff7
This commit is contained in:
Vincent St-Amour 2011-06-15 19:00:21 -04:00
parent 205f0882a5
commit 151ce60dc1
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/tests/typed-scheme/optimizer/transform.rkt
View File

@ -30,5 +30,19 @@
#:when (test-file? name))
(transform name dir)))
(transform-dir tests-dir)
(transform-dir missed-optimizations-dir)
(cond [(= (vector-length (current-command-line-arguments)) 0)
(transform-dir tests-dir)
(transform-dir missed-optimizations-dir)]
[else ; set of paths to transform
(define l (vector->list (current-command-line-arguments)))
(for-each (lambda (f)
(define-values (path p b) (split-path f))
(define dir (path->string path))
;; this only works if run from the optimizer tests dir
(transform
p
(cond [(equal? dir "tests/")
tests-dir]
[(equal? dir "missed-optimizations/")
missed-optimizations-dir])))
l)])