From 151ce60dc148c4d79b65225ca7093915c82661bd Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 15 Jun 2011 19:00:21 -0400 Subject: [PATCH] Adapt the log update script to work on specific files. original commit: 866225b65977a7f5bedcfaccd8d9aabc56e1fff7 --- .../tests/typed-scheme/optimizer/transform.rkt | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/transform.rkt b/collects/tests/typed-scheme/optimizer/transform.rkt index a1aa2bd9..ab89237f 100644 --- a/collects/tests/typed-scheme/optimizer/transform.rkt +++ b/collects/tests/typed-scheme/optimizer/transform.rkt @@ -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)])