diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index b560e4ddff..ed77f56043 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -5,7 +5,9 @@ unstable/file scheme/file scheme/list - scheme/path) + scheme/path + racket/promise + openssl/sha1) (provide make-compilation-manager-load/use-compiled-handler managed-compile-zo @@ -13,9 +15,11 @@ trust-existing-zos manager-compile-notify-handler manager-skip-file-handler - file-date-in-collection - file-date-in-paths - (rename-out [trace manager-trace-handler])) + file-stamp-in-collection + file-stamp-in-paths + (rename-out [trace manager-trace-handler]) + get-file-sha1 + get-compiled-file-sha1) (define manager-compile-notify-handler (make-parameter void)) (define trace (make-parameter void)) @@ -23,10 +27,10 @@ (define trust-existing-zos (make-parameter #f)) (define manager-skip-file-handler (make-parameter (λ (x) #f))) -(define (file-date-in-collection p) - (file-date-in-paths p (current-library-collection-paths))) +(define (file-stamp-in-collection p) + (file-stamp-in-paths p (current-library-collection-paths))) -(define (file-date-in-paths p paths) +(define (file-stamp-in-paths p paths) (let ([p-eles (explode-path (simplify-path p))]) (let c-loop ([paths paths]) (cond @@ -47,11 +51,16 @@ #f (lambda () #f)))] [date (or p-date alt-date)] + [get-path (lambda () + (if p-date + p + (rkt->ss p)))] + [mode (car (use-compiled-file-paths))] [get-zo-date (lambda (name) (file-or-directory-modify-seconds (build-path base - (car (use-compiled-file-paths)) + mode (path-add-suffix name #".zo")) #f (lambda () #f)))] @@ -62,12 +71,21 @@ (not alt-date) (not main-zo-date))) (get-zo-date (rkt->ss name)))] - [zo-date (or main-zo-date alt-zo-date)]) - (or (and date - zo-date - (max date zo-date)) - date - zo-date)))] + [zo-date (or main-zo-date alt-zo-date)] + [get-zo-path (lambda () + (if main-zo-date + (path-add-suffix name #".zo") + (path-add-suffix (rkt->ss name) #".zo")))]) + (cond + [(and zo-date + (or (not date) + (zo-date . > . date))) + (cons zo-date + (delay (get-compiled-file-sha1 (get-zo-path) mode)))] + [date + (cons date + (delay (get-source-sha1 (get-path))))] + [else #f])))] [(null? p-eles) ;; this case shouldn't happen... I think. (c-loop (cdr paths))] @@ -107,7 +125,11 @@ dir)) (define (touch path) - (close-output-port (open-output-file path #:exists 'append))) + (file-or-directory-modify-seconds + path + (current-seconds) + (lambda () + (close-output-port (open-output-file path #:exists 'append))))) (define (try-file-time path) (file-or-directory-modify-seconds path #f (lambda () #f))) @@ -148,20 +170,57 @@ (rename-file-or-directory tmp-path path #t) (try-delete-file tmp-path)))))) -(define (write-deps code mode path external-deps reader-deps) +(define (get-source-sha1 p) + (with-handlers ([exn:fail:filesystem? (lambda (exn) #f)]) + (call-with-input-file* p sha1))) + +(define (get-dep-sha1s deps up-to-date read-src-syntax mode must-exist?) + (let ([l (for/fold ([l null]) ([dep (in-list deps)]) + (and l + ;; (cons 'ext rel-path) => a non-module file, check source + ;; rel-path => a module file name, check cache + (let* ([ext? (and (pair? dep) (eq? 'ext (car dep)))] + [p (main-collects-relative->path (if ext? (cdr dep) dep))]) + (cond + [ext? (let ([v (get-source-sha1 p)]) + (cond + [v (cons (cons (delay v) dep) l)] + [must-exist? (error 'cm "cannot find external-dependency file: ~v" p)] + [else #f]))] + [(or (hash-ref up-to-date (simplify-path (cleanse-path p)) #f) + ;; Use `compiler-root' with `sha1-only?' as #t: + (compile-root mode p up-to-date read-src-syntax #t)) + => (lambda (sh) + (cons (cons (cdr sh) dep) l))] + [must-exist? + (error 'cm "internal error?; cannot find sha1 for module: ~v" p)] + [else #f]))))]) + (and l + (let ([p (open-output-string)] + [l (map (lambda (v) (cons (force (car v)) (cdr v))) l)]) + ;; sort by sha1s so that order doesn't matter + (write (sort l stringmain-collects-relative deps) - ,@(map (lambda (x) - (cons 'ext (path->main-collects-relative x))) - external-deps)) + (let ([deps (append + (map path->main-collects-relative deps) + (map (lambda (x) + (cons 'ext (path->main-collects-relative x))) + external-deps))]) + (write (list* (version) + (cons (or src-sha1 (get-source-sha1 path)) + (get-dep-sha1s deps up-to-date read-src-syntax mode #t)) + deps) op) - (newline op))))) + (newline op)))))) (define (format-time sec) (let ([d (seconds->date sec)]) @@ -188,7 +247,7 @@ #:property prop:procedure (struct-field-index proc)) (define-struct file-dependency (path) #:prefab) -(define (compile-zo* mode path read-src-syntax zo-name) +(define (compile-zo* mode path src-sha1 read-src-syntax zo-name up-to-date) ;; The `path' argument has been converted to .rkt or .ss form, ;; as appropriate. ;; External dependencies registered through reader guard and @@ -278,7 +337,7 @@ ;; Note that we check time and write .deps before returning from ;; with-compile-output... (verify-times path tmp-name) - (write-deps code mode path external-deps reader-deps))))) + (write-deps code mode path src-sha1 external-deps reader-deps up-to-date read-src-syntax))))) (define depth (make-parameter 0)) @@ -290,31 +349,60 @@ alt-path path)))) -(define (compile-zo mode path orig-path read-src-syntax) +(define (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date) (let ([actual-path (actual-source-path orig-path)]) - ((manager-compile-notify-handler) actual-path) - (trace-printf "compiling: ~a" actual-path) - (parameterize ([indent (string-append " " (indent))]) - (let* ([zo-name (path-add-suffix (get-compilation-path mode path) #".zo")] - [zo-exists? (file-exists? zo-name)]) - (if (and zo-exists? (trust-existing-zos)) - (touch zo-name) - (begin (when zo-exists? (delete-file zo-name)) - (log-info (format "cm: ~acompiling ~a" - (build-string - (depth) - (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) - actual-path)) - (parameterize ([depth (+ (depth) 1)]) - (with-handlers - ([exn:get-module-code? - (lambda (ex) - (compilation-failure mode path zo-name - (exn:get-module-code-path ex) - (exn-message ex)) - (raise ex))]) - (compile-zo* mode path read-src-syntax zo-name))))))) - (trace-printf "end compile: ~a" actual-path))) + (unless sha1-only? + ((manager-compile-notify-handler) actual-path) + (trace-printf "compiling: ~a" actual-path)) + (begin0 + (parameterize ([indent (string-append " " (indent))]) + (let* ([zo-name (path-add-suffix (get-compilation-path mode path) #".zo")] + [zo-exists? (file-exists? zo-name)]) + (if (and zo-exists? (trust-existing-zos)) + (begin + (log-info (format "cm: ~atrusting ~a" + (build-string + (depth) + (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) + zo-name)) + (touch zo-name) + #f) + (let ([src-sha1 (and zo-exists? + deps + (cadr deps) + (get-source-sha1 path))]) + (if (and zo-exists? + src-sha1 + (equal? src-sha1 (caadr deps)) + (equal? (get-dep-sha1s (cddr deps) up-to-date read-src-syntax mode #f) + (cdadr deps))) + (begin + (log-info (format "cm: ~ahash-equivalent ~a" + (build-string + (depth) + (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) + zo-name)) + (touch zo-name) + #f) + ((if sha1-only? values (lambda (build) (build) #f)) + (lambda () + (when zo-exists? (delete-file zo-name)) + (log-info (format "cm: ~acompiling ~a" + (build-string + (depth) + (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) + actual-path)) + (parameterize ([depth (+ (depth) 1)]) + (with-handlers + ([exn:get-module-code? + (lambda (ex) + (compilation-failure mode path zo-name + (exn:get-module-code-path ex) + (exn-message ex)) + (raise ex))]) + (compile-zo* mode path src-sha1 read-src-syntax zo-name up-to-date)))))))))) + (unless sha1-only? + (trace-printf "end compile: ~a" actual-path))))) (define (get-compiled-time mode path) (define-values (dir name) (get-compilation-dir+name mode path)) @@ -324,16 +412,34 @@ (try-file-time (build-path dir (path-add-suffix name #".zo"))) -inf.0)) +(define (try-file-sha1 path dep-path) + (with-handlers ([exn:fail:filesystem? (lambda (exn) #f)]) + (string-append + (call-with-input-file* path sha1) + (with-handlers ([exn:fail:filesystem? (lambda (exn) "")]) + (call-with-input-file* dep-path (lambda (p) (cdadr (read p)))))))) + +(define (get-compiled-sha1 mode path) + (define-values (dir name) (get-compilation-dir+name mode path)) + (let ([dep-path (build-path dir (path-add-suffix name #".dep"))]) + (or (try-file-sha1 (build-path dir "native" (system-library-subpath) + (path-add-suffix name (system-type + 'so-suffix))) + dep-path) + (try-file-sha1 (build-path dir (path-add-suffix name #".zo")) + dep-path) + ""))) + (define (rkt->ss p) (let ([b (path->bytes p)]) (if (regexp-match? #rx#"[.]rkt$" b) (path-replace-suffix p #".ss") p))) -(define (compile-root mode path0 up-to-date read-src-syntax) +(define (compile-root mode path0 up-to-date read-src-syntax sha1-only?) (define orig-path (simplify-path (cleanse-path path0))) (define (read-deps path) - (with-handlers ([exn:fail:filesystem? (lambda (ex) (list (version)))]) + (with-handlers ([exn:fail:filesystem? (lambda (ex) (list (version) '#f))]) (call-with-input-file (path-add-suffix (get-compilation-path mode path) #".dep") read))) @@ -350,41 +456,59 @@ (cond [(not path-time) (trace-printf "~a does not exist" orig-path) - path-zo-time] + (or (and up-to-date (hash-ref up-to-date orig-path #f)) + (let ([stamp (cons path-zo-time + (delay (get-compiled-sha1 mode path)))]) + (hash-set! up-to-date main-path stamp) + (unless (eq? main-path alt-path) + (hash-set! up-to-date alt-path stamp)) + stamp))] [else - (cond - [(> path-time path-zo-time) - (trace-printf "newer src...") - (compile-zo mode path orig-path read-src-syntax)] - [else - (let ([deps (read-deps path)]) + (let ([deps (read-deps path)]) + (define build (cond - [(not (and (pair? deps) (equal? (version) (car deps)))) - (trace-printf "newer version...") - (compile-zo mode path orig-path read-src-syntax)] - [(ormap - (lambda (p) - ;; (cons 'ext rel-path) => a non-module file (check date) - ;; rel-path => a module file name (check transitive dates) - (define ext? (and (pair? p) (eq? 'ext (car p)))) - (define d (main-collects-relative->path (if ext? (cdr p) p))) - (define t - (if ext? - (try-file-time d) - (compile-root mode d up-to-date read-src-syntax))) - (and t (> t path-zo-time) - (begin (trace-printf "newer: ~a (~a > ~a)..." - d t path-zo-time) - #t))) - (cdr deps)) - (compile-zo mode path orig-path read-src-syntax)]))]) - (let ([stamp (get-compiled-time mode path)]) - (hash-set! up-to-date main-path stamp) - (unless (eq? main-path alt-path) - (hash-set! up-to-date alt-path stamp)) - stamp)]))) + [(not (and (pair? deps) (equal? (version) (car deps)))) + (lambda () + (trace-printf "newer version...") + (maybe-compile-zo #f #f mode path orig-path read-src-syntax up-to-date))] + [(> path-time path-zo-time) + (trace-printf "newer src...") + ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk: + (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date)] + [(ormap + (lambda (p) + ;; (cons 'ext rel-path) => a non-module file (check date) + ;; rel-path => a module file name (check transitive dates) + (define ext? (and (pair? p) (eq? 'ext (car p)))) + (define d (main-collects-relative->path (if ext? (cdr p) p))) + (define t + (if ext? + (cons (try-file-time d) #f) + (compile-root mode d up-to-date read-src-syntax #f))) + (and (car t) + (> (car t) path-zo-time) + (begin (trace-printf "newer: ~a (~a > ~a)..." + d (car t) path-zo-time) + #t))) + (cddr deps)) + ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk: + (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date)] + [else #f])) + (cond + [(and build sha1-only?) #f] + [else + (when build (build)) + (let ([stamp (cons (get-compiled-time mode path) + (delay (get-compiled-sha1 mode path)))]) + (hash-set! up-to-date main-path stamp) + (unless (eq? main-path alt-path) + (hash-set! up-to-date alt-path stamp)) + stamp)]))]))) (or (and up-to-date (hash-ref up-to-date orig-path #f)) - ((manager-skip-file-handler) orig-path) + (let ([v ((manager-skip-file-handler) orig-path)]) + (and v + (hash-set! up-to-date orig-path v) + v)) (begin (trace-printf "checking: ~a" orig-path) (do-check)))) @@ -400,7 +524,8 @@ (compile-root (car (use-compiled-file-paths)) (path->complete-path src) cache - read-src-syntax) + read-src-syntax + #f) (void))))) (define (make-compilation-manager-load/use-compiled-handler) @@ -444,7 +569,7 @@ (namespace-module-registry (current-namespace)))] [else (trace-printf "processing: ~a" path) - (compile-root (car modes) path cache read-syntax) + (compile-root (car modes) path cache read-syntax #f) (trace-printf "done: ~a" path)]) (default-handler path mod-name)) (when (null? modes) @@ -452,3 +577,11 @@ "empty use-compiled-file-paths list: " modes)) compilation-manager-load-handler)) + + +;; Exported: +(define (get-compiled-file-sha1 path) + (try-file-sha1 path (path-replace-suffix path #".dep"))) + +(define (get-file-sha1 path) + (get-source-sha1 path)) diff --git a/collects/compiler/commands/c-ext.rkt b/collects/compiler/commands/ctool.rkt similarity index 100% rename from collects/compiler/commands/c-ext.rkt rename to collects/compiler/commands/ctool.rkt diff --git a/collects/compiler/commands/info.rkt b/collects/compiler/commands/info.rkt index 732470021c..9a3106d696 100644 --- a/collects/compiler/commands/info.rkt +++ b/collects/compiler/commands/info.rkt @@ -7,4 +7,4 @@ ("decompile" compiler/commands/decompile "decompile bytecode" #f) ("expand" compiler/commands/expand "macro-expand source" #f) ("distribute" compiler/commands/exe-dir "prepare executable(s) in a directory for distribution" #f) - ("c-ext" compiler/commands/c-ext "compile and link C-based extensions" #f))) + ("ctool" compiler/commands/ctool "compile and link C-based extensions" #f))) diff --git a/collects/compiler/compiler-unit.rkt b/collects/compiler/compiler-unit.rkt index 9ff5b08921..834470a1c7 100644 --- a/collects/compiler/compiler-unit.rkt +++ b/collects/compiler/compiler-unit.rkt @@ -171,7 +171,7 @@ [len (bytes-length skip-path)]) (and ((bytes-length b) . > . len) (bytes=? (subbytes b 0 len) skip-path))) - -inf.0))]) + (list -inf.0 "")))]) (let* ([sses (append ;; Find all .rkt/.ss/.scm files: (filter extract-base-filename/ss (directory-list)) @@ -195,7 +195,7 @@ (define (compile-collection-zos collection #:skip-path [skip-path #f] - #:skip-doc-sources? [skip-docs? #f] + #:skip-doc-sources? [skip-docs? #f] . cp) (compile-directory (apply collection-path collection cp) (c-get-info (cons collection cp)) diff --git a/collects/deinprogramm/scribblings/DMdA-assignments.scrbl b/collects/deinprogramm/scribblings/DMdA-assignments.scrbl index 57fb90b39a..bdcd49dd49 100644 --- a/collects/deinprogramm/scribblings/DMdA-assignments.scrbl +++ b/collects/deinprogramm/scribblings/DMdA-assignments.scrbl @@ -2,7 +2,7 @@ @(require scribblings/htdp-langs/common "std-grammar.ss" "prim-ops.ss" - (for-label deinprogramm/DMdA-assignments)) + (for-label deinprogramm/DMdA-assignments (only-in deinprogramm/DMdA-beginner define-record-procedures-parametric))) @title[#:style 'toc #:tag "DMdA-assignments"]{Die Macht der Abstraktion mit Zuweisungen} @@ -45,7 +45,7 @@ Mutators sein. @defform[(define-record-procedures-parametric-2 t cc c p (field-spec1 ...))]{ Diese Form ist wie @scheme[define-record-procedures-2], nur parametrisch -wie @schemeidfont{define-record-procedures-parametric}. Außerdem +wie @scheme[define-record-procedures-parametric]. Außerdem werden die Verträge für die Feldinhalte, anders als bei @scheme[define-record-procedures-parametric], sofort bei der Konstruktion überprüft und nicht erst beim Aufruf eines Selektors. diff --git a/collects/drscheme/private/module-language.rkt b/collects/drscheme/private/module-language.rkt index e62ab2bff6..97fdf4a723 100644 --- a/collects/drscheme/private/module-language.rkt +++ b/collects/drscheme/private/module-language.rkt @@ -213,7 +213,7 @@ (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)) (manager-skip-file-handler - (λ (p) (file-date-in-paths + (λ (p) (file-stamp-in-paths p (cons (CACHE-DIR) (current-library-collection-paths))))))))) diff --git a/collects/drscheme/syncheck-drscheme-button.rkt b/collects/drscheme/syncheck-drscheme-button.rkt deleted file mode 100644 index 59ca26373f..0000000000 --- a/collects/drscheme/syncheck-drscheme-button.rkt +++ /dev/null @@ -1,18 +0,0 @@ -#lang racket/base -(require racket/class - racket/gui/base - string-constants/string-constant) -(provide syncheck-drracket-button - syncheck-bitmap - syncheck:button-callback) - -(define-local-member-name syncheck:button-callback) - -(define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) - -(define syncheck-drracket-button - (list - (string-constant check-syntax) - syncheck-bitmap - (λ (drs-frame) (send drs-frame syncheck:button-callback)))) - diff --git a/collects/games/cards/cards.scrbl b/collects/games/cards/cards.scrbl index cd360fb306..1fc6e3ddcc 100644 --- a/collects/games/cards/cards.scrbl +++ b/collects/games/cards/cards.scrbl @@ -97,7 +97,6 @@ Returns a region like one made by @scheme[make-region], but the is [y real?] [w (and/c real? (not/c negative?))] [h (and/c real? (not/c negative?))] - [label (or/c string? false/c)] [paint-callback ((is-a?/c dc<%>) real? real? real? real? . -> . any)]) region?]{ diff --git a/collects/htdp/bsl/reader.rkt b/collects/htdp/bsl/reader.rkt index 7bbb381ba1..ed1cf82b95 100644 --- a/collects/htdp/bsl/reader.rkt +++ b/collects/htdp/bsl/reader.rkt @@ -27,7 +27,7 @@ (case key [(drscheme:toolbar-buttons) (list (dynamic-require 'stepper/drscheme-button 'stepper-drscheme-button) - (dynamic-require 'drscheme/syncheck-drscheme-button 'syncheck-drscheme-button))] + (dynamic-require 'drscheme/syncheck-drracket-button 'syncheck-drracket-button))] [(drscheme:opt-out-toolbar-buttons) ;; opt-out of all of the extra buttons b/c diff --git a/collects/lang/posn.rkt b/collects/lang/posn.rkt index 333637c2fe..479b4b85aa 100644 --- a/collects/lang/posn.rkt +++ b/collects/lang/posn.rkt @@ -1,5 +1,10 @@ +#lang racket/base ;; The posn struct for the teaching languages -(module posn mzscheme - (define-struct posn (x y) (make-inspector)) ; transparent - (provide (struct posn (x y)))) +(provide (struct-out posn) make-posn) + +(struct posn (x y) #:mutable #:transparent) + +;; We define a separate function so tha it has the +;; name `make-posn': +(define (make-posn x y) (posn x y)) diff --git a/collects/lang/private/beginner-funs.rkt b/collects/lang/private/beginner-funs.rkt index 2de47bccff..e7ee53b0d8 100644 --- a/collects/lang/private/beginner-funs.rkt +++ b/collects/lang/private/beginner-funs.rkt @@ -297,7 +297,7 @@ " if so, it produces the suffix of the list that starts with x" " if not, it produces false." " (it compares values with the eqv? predicate.)") - ((beginner-member member?) (any (listof any) -> boolean) + ((beginner-member? member?) (any (listof any) -> boolean) "to determine whether some value is on the list" " (comparing values with equal?)") ((beginner-member member) (any (listof any) -> boolean) diff --git a/collects/lang/private/teach.rkt b/collects/lang/private/teach.rkt index a28073cc50..f6547a4490 100644 --- a/collects/lang/private/teach.rkt +++ b/collects/lang/private/teach.rkt @@ -757,7 +757,10 @@ (stepper-syntax-property #`(define-values (def-proc-name ...) (let () - (define-struct name_ (field_ ...) #:transparent #:constructor-name #,(car proc-names)) + (define-struct name_ (field_ ...) + #:transparent + #:mutable + #:constructor-name #,(car proc-names)) (values proc-name ...))) 'stepper-define-struct-hint stx))))]) diff --git a/collects/lang/private/teachprims.rkt b/collects/lang/private/teachprims.rkt index e1c1be29e0..bbd667e1f3 100644 --- a/collects/lang/private/teachprims.rkt +++ b/collects/lang/private/teachprims.rkt @@ -163,6 +163,11 @@ namespace. (check-second 'member a b) (not (boolean? (member a b))))) +(define-teach beginner member? + (lambda (a b) + (check-second 'member? a b) + (not (boolean? (member a b))))) + (define-teach beginner remove (lambda (a b) (check-second 'remove a b) @@ -350,6 +355,7 @@ namespace. beginner-sqr beginner-list? beginner-member + beginner-member? beginner-remove beginner-cons beginner-list* diff --git a/collects/make/make.scrbl b/collects/make/make.scrbl index 205073f1ce..2f16fb91cf 100644 --- a/collects/make/make.scrbl +++ b/collects/make/make.scrbl @@ -12,7 +12,7 @@ dynext/file-sig compiler/sig)) -@(define mzc-manual @other-manual['(lib "scribblings/mzc/mzc.scrbl")]) +@(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")]) @title{@bold{Make}: Dependency Manager} @@ -27,8 +27,8 @@ syntax of @exec{make}, only in Scheme. @section[#:tag "overview"]{Overview} @margin-note{If you want to build Scheme modules with automatic -dependency tracking, just use @exec{mzc} as described in -@|mzc-manual|.} +dependency tracking, just use @exec{raco make} as described in +@|raco-manual|.} If you are already familiar with @exec{make}, skip to the precise details of the @schememodname[make] library in @secref["make"]. This @@ -238,8 +238,8 @@ A unit that imports nothing and exports @scheme[make^].} The @schememodname[make/setup-extension] library helps compile C code via Setup PLT's ``pre-install'' phase (triggered by a -@schemeidfont{pre-install-collection} item in @filepath{info.ss}; see -also @secref[#:doc '(lib "scribblings/setup-plt/setup-plt.scrbl") +@schemeidfont{pre-install-collection} item in @filepath{info.rkt}; see +also @secref[#:doc '(lib "scribblings/raco/raco.scrbl") "setup-info"]). The @scheme[pre-install] function takes a number of arguments that @@ -361,7 +361,7 @@ The arguments are as follows: AIX-specific compile flag in this step when compiling under AIX.} @item{@scheme[3m-too?]--- a boolean. If true, when the 3m variant is - installed, use the equivalent to @exec{mzc --xform} to transform + installed, use the equivalent to @exec{raco ctool --xform} to transform the source file and then compile and link for 3m. Otherwise, the extension is built only for CGC when the CGC variant is installed.} @@ -384,8 +384,8 @@ managing dependencies. Supply @scheme['#("zo")] as @scheme[argv] to compile all files. The @scheme[collection-name] argument is used only for printing status information. -Compilation is performed as with @exec{mzc --make} (see -@|mzc-manual|).} +Compilation is performed as with @exec{raco make} (see +@|raco-manual|).} @subsection{Signature} diff --git a/collects/meta/checker.rkt b/collects/meta/checker.rkt index 0e089b6753..9f8c606566 100644 --- a/collects/meta/checker.rkt +++ b/collects/meta/checker.rkt @@ -463,7 +463,7 @@ [`(ext collects ,(and (? bytes?) s) ...) (pltpath s)] [_ (error 'dependencies "bad dependency item in ~s: ~s" file x)])) - (cdr x)))) + (cddr x)))) (dprintf "Reading dependencies...") (let loop ([tree (tree-filter "*.dep" *plt-tree*)]) (if (pair? tree) diff --git a/collects/meta/drdr/config.ss b/collects/meta/drdr/config.ss index b14497b73d..02f1ec3028 100644 --- a/collects/meta/drdr/config.ss +++ b/collects/meta/drdr/config.ss @@ -9,8 +9,8 @@ (drdr-directory "/opt/svn/drdr") (git-path "/usr/bin/git") (Xvfb-path "/usr/bin/Xvfb") -(current-make-install-timeout-seconds (* 60 60)) -(current-make-timeout-seconds (* 60 60)) +(current-make-install-timeout-seconds (* 90 60)) +(current-make-timeout-seconds (* 90 60)) (current-subprocess-timeout-seconds 90) (current-monitoring-interval-seconds 60) (number-of-cpus 12) diff --git a/collects/meta/drdr/good-init.sh b/collects/meta/drdr/good-init.sh index 833be414f6..ed6c58f745 100755 --- a/collects/meta/drdr/good-init.sh +++ b/collects/meta/drdr/good-init.sh @@ -9,7 +9,7 @@ cd "$DRDR" kill_all() { cat "$LOGS/"*.pid > /tmp/leave-pids-$$ - KILL=`pgrep '^(Xvfb|fluxbox|mzscheme|mred(-text)?)$' | grep -w -v -f /tmp/leave-pids-$$` + KILL=`pgrep '^(Xvfb|fluxbox|racket|gracket(-text)?)$' | grep -w -v -f /tmp/leave-pids-$$` rm /tmp/leave-pids-$$ kill -15 $KILL sleep 2 diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.ss index 0418eb0742..2f9d2de4a8 100644 --- a/collects/meta/drdr/metadata.ss +++ b/collects/meta/drdr/metadata.ss @@ -3,21 +3,23 @@ "dirstruct.ss" "scm.ss") -(define (testable-file? pth) - (define suffix (filename-extension pth)) - (and suffix - (ormap (lambda (bs) (bytes=? suffix bs)) - (list #"ss" #"scm" #"scrbl" #"rkt" #"sls")))) - (define PROP:command-line "drdr:command-line") (define PROP:timeout "drdr:timeout") (define (path-command-line a-path) (match (get-prop a-path 'drdr:command-line #f) [#f - (if (testable-file? a-path) - (list "mzscheme" "-qt" (path->string* a-path)) - #f)] + (define suffix (filename-extension a-path)) + (and suffix + (cond + [(ormap (lambda (bs) (bytes=? suffix bs)) + (list #"ss" #"scm" #"scrbl" #"rkt" #"sls")) + (list "racket" "-qt" (path->string* a-path))] + [(ormap (lambda (bs) (bytes=? suffix bs)) + (list #"rktl")) + (list "racket" "-f" (path->string* a-path))] + [else + #f]))] ["" #f] [(? string? s) diff --git a/collects/meta/drdr/pkgs.bak b/collects/meta/drdr/pkgs.bak deleted file mode 100644 index a733b187cd..0000000000 --- a/collects/meta/drdr/pkgs.bak +++ /dev/null @@ -1,1054 +0,0 @@ -(("ams" "roman.plt" 1 1 #f) - ("ams" "roman.plt" 1 0 #f) - ("pjmatos" "logic.plt" 1 1 #f) - ("pjmatos" "logic.plt" 1 0 #f) - ("pjmatos" "mrtex2im.plt" 1 3 #f) - ("pjmatos" "mrtex2im.plt" 1 2 #f) - ("pjmatos" "mrtex2im.plt" 1 1 #f) - ("pjmatos" "mrtex2im.plt" 1 0 #f) - ("jao" "mzfam.plt" 1 2 "369.8") - ("jao" "mzfam.plt" 1 1 "369.8") - ("jao" "mzfam.plt" 1 0 "369.8") - ("oesterholt" "datastructs.plt" 1 0 #f) - ("oesterholt" "geolocate.plt" 1 1 #f) - ("oesterholt" "geolocate.plt" 1 0 #f) - ("oesterholt" "ho-utils.plt" 1 6 #f) - ("oesterholt" "ho-utils.plt" 1 5 #f) - ("oesterholt" "ho-utils.plt" 1 4 #f) - ("oesterholt" "ho-utils.plt" 1 3 #f) - ("oesterholt" "ho-utils.plt" 1 2 #f) - ("oesterholt" "ho-utils.plt" 1 1 #f) - ("oesterholt" "ho-utils.plt" 1 0 #f) - ("oesterholt" "host-serial.plt" 1 2 #f) - ("oesterholt" "host-serial.plt" 1 1 #f) - ("oesterholt" "host-serial.plt" 1 0 #f) - ("oesterholt" "hwiki.plt" 1 15 #f) - ("oesterholt" "hwiki.plt" 1 14 #f) - ("oesterholt" "hwiki.plt" 1 13 #f) - ("oesterholt" "hwiki.plt" 1 12 #f) - ("oesterholt" "hwiki.plt" 1 11 #f) - ("oesterholt" "hwiki.plt" 1 10 #f) - ("oesterholt" "hwiki.plt" 1 9 #f) - ("oesterholt" "hwiki.plt" 1 8 #f) - ("oesterholt" "hwiki.plt" 1 7 #f) - ("oesterholt" "hwiki.plt" 1 6 #f) - ("oesterholt" "hwiki.plt" 1 5 #f) - ("oesterholt" "hwiki.plt" 1 4 #f) - ("oesterholt" "hwiki.plt" 1 3 #f) - ("oesterholt" "hwiki.plt" 1 2 #f) - ("oesterholt" "hwiki.plt" 1 1 #f) - ("oesterholt" "hwiki.plt" 1 0 #f) - ("oesterholt" "internat.plt" 1 2 #f) - ("oesterholt" "internat.plt" 1 1 #f) - ("oesterholt" "internat.plt" 1 0 #f) - ("oesterholt" "launch-browser.plt" 1 1 #f) - ("oesterholt" "launch-browser.plt" 1 0 #f) - ("oesterholt" "log4scm.plt" 1 3 #f) - ("oesterholt" "log4scm.plt" 1 2 #f) - ("oesterholt" "log4scm.plt" 1 1 #f) - ("oesterholt" "log4scm.plt" 1 0 #f) - ("oesterholt" "mz-language-tags.plt" 1 2 #f) - ("oesterholt" "mz-language-tags.plt" 1 1 #f) - ("oesterholt" "mz-language-tags.plt" 1 0 #f) - ("oesterholt" "mzrpc.plt" 1 4 #f) - ("oesterholt" "mzrpc.plt" 1 3 #f) - ("oesterholt" "mzrpc.plt" 1 2 #f) - ("oesterholt" "mzrpc.plt" 1 1 #f) - ("oesterholt" "mzrpc.plt" 1 0 #f) - ("oesterholt" "roos.plt" 1 9 #f) - ("oesterholt" "roos.plt" 1 8 #f) - ("oesterholt" "roos.plt" 1 7 #f) - ("oesterholt" "roos.plt" 1 6 #f) - ("oesterholt" "roos.plt" 1 5 #f) - ("oesterholt" "roos.plt" 1 4 #f) - ("oesterholt" "roos.plt" 1 3 #f) - ("oesterholt" "roos.plt" 1 2 #f) - ("oesterholt" "roos.plt" 1 1 #f) - ("oesterholt" "roos.plt" 1 0 #f) - ("oesterholt" "sqld-psql-c.plt" 1 1 #f) - ("oesterholt" "sqld-psql-c.plt" 1 0 #f) - ("oesterholt" "sqld-psql-ffi.plt" 1 1 #f) - ("oesterholt" "sqld-psql-ffi.plt" 1 0 #f) - ("oesterholt" "sqld-psql.plt" 1 0 #f) - ("oesterholt" "sqld-sqlite.plt" 1 7 #f) - ("oesterholt" "sqld-sqlite.plt" 1 6 #f) - ("oesterholt" "sqld-sqlite.plt" 1 5 #f) - ("oesterholt" "sqld-sqlite.plt" 1 4 #f) - ("oesterholt" "sqld-sqlite.plt" 1 3 #f) - ("oesterholt" "sqld-sqlite.plt" 1 2 #f) - ("oesterholt" "sqld-sqlite.plt" 1 1 #f) - ("oesterholt" "sqld-sqlite.plt" 1 0 #f) - ("oesterholt" "sqlid.plt" 1 5 #f) - ("oesterholt" "sqlid.plt" 1 4 #f) - ("oesterholt" "sqlid.plt" 1 3 #f) - ("oesterholt" "sqlid.plt" 1 2 #f) - ("oesterholt" "sqlid.plt" 1 1 #f) - ("oesterholt" "sqlid.plt" 1 0 #f) - ("oesterholt" "url-rewriting.plt" 1 2 #f) - ("oesterholt" "url-rewriting.plt" 1 1 #f) - ("oesterholt" "url-rewriting.plt" 1 0 #f) - ("oesterholt" "webbot.plt" 1 3 #f) - ("oesterholt" "webbot.plt" 1 2 #f) - ("oesterholt" "webbot.plt" 1 1 #f) - ("oesterholt" "webbot.plt" 1 0 #f) - ("abromfie" "drocaml.plt" 1 2 #f) - ("abromfie" "drocaml.plt" 1 1 #f) - ("abromfie" "drocaml.plt" 1 0 #f) - ("zck" "mrmathematica.plt" 1 2 #f) - ("zck" "mrmathematica.plt" 1 1 #f) - ("zck" "mrmathematica.plt" 1 0 #f) - ("samth" "cairo.plt" 1 0 #f) - ("samth" "typed-scheme.plt" 1 0 "369.1") - ("dfisher" "sql-table.plt" 1 1 #f) - ("dfisher" "sql-table.plt" 1 0 #f) - ("erast" "list-accessor-predicates.plt" 1 0 #f) - ("ryanc" "macros.plt" 1 2 #f) - ("ryanc" "macros.plt" 1 1 #f) - ("ryanc" "macros.plt" 1 0 #f) - ("ryanc" "require.plt" 1 3 #f) - ("ryanc" "require.plt" 1 2 #f) - ("ryanc" "require.plt" 1 1 #f) - ("ryanc" "require.plt" 1 0 #f) - ("ryanc" "scripting.plt" 1 1 #f) - ("ryanc" "scripting.plt" 1 0 #f) - ("ryanc" "syntax-browser.plt" 2 0 #f) - ("ryanc" "syntax-browser.plt" 1 0 #f) - ("mato" "ddeclient.plt" 1 0 #f) - ("dfriedman" "miniKanren.plt" 1 1 #f) - ("dfriedman" "miniKanren.plt" 1 0 #f) - ("dignatof" "cdrswift.plt" 1 5 #f) - ("dignatof" "cdrswift.plt" 1 4 #f) - ("dignatof" "cdrswift.plt" 1 3 #f) - ("dignatof" "cdrswift.plt" 1 2 #f) - ("dignatof" "cdrswift.plt" 1 1 #f) - ("dignatof" "cdrswift.plt" 1 0 #f) - ("toups" "fun.plt" 1 0 #f) - ("evanfarrer" "SPeaCAP.plt" 1 0 "300") - ("sweeney" "sqlid-helper.plt" 1 0 #f) - ("mburns" "mail-parse.plt" 1 0 #f) - ("lshift" "xxexpr.plt" 1 0 #f) - ("planet" "test-connection.plt" 1 0 #f) - ("daedalus" "prometheus.plt" 1 0 #f) - ("cdutchyn" "aspect-scheme.plt" 2 1 #f) - ("cdutchyn" "aspect-scheme.plt" 2 0 #f) - ("cdutchyn" "aspect-scheme.plt" 1 1 #f) - ("cdutchyn" "aspect-scheme.plt" 1 0 #f) - ("chongkai" "mrmathematica.plt" 1 1 "371") - ("chongkai" "mrmathematica.plt" 1 0 "371") - ("jacobm" "resume.plt" 3 0 #f) - ("jacobm" "resume.plt" 2 1 #f) - ("jacobm" "resume.plt" 2 0 #f) - ("jacobm" "resume.plt" 1 0 #f) - ("mk" "identicons.plt" 1 1 #f) - ("mk" "identicons.plt" 1 0 #f) - ("grettke" "drsync.plt" 2 7 "4.0") - ("grettke" "drsync.plt" 2 6 "370") - ("grettke" "drsync.plt" 2 5 "370") - ("grettke" "drsync.plt" 2 4 "370") - ("grettke" "drsync.plt" 2 3 "370") - ("grettke" "drsync.plt" 2 2 "370") - ("grettke" "drsync.plt" 2 1 "370") - ("grettke" "drsync.plt" 2 0 "370") - ("grettke" "drsync.plt" 1 0 #f) - ("dutchyn" "aspectscheme.plt" 1 0 #f) - ("divascheme" "divascheme.plt" 1 6 "4.0") - ("divascheme" "divascheme.plt" 1 5 "4.0") - ("divascheme" "divascheme.plt" 1 4 "4.0") - ("divascheme" "divascheme.plt" 1 3 "360") - ("divascheme" "divascheme.plt" 1 2 #f) - ("divascheme" "divascheme.plt" 1 1 #f) - ("divascheme" "divascheme.plt" 1 0 #f) - ("eli" "sample-teachpacks.plt" 1 0 #f) - ("cobbe" "check-values.plt" 1 1 #f) - ("cobbe" "check-values.plt" 1 0 #f) - ("cobbe" "classic-java.plt" 1 1 #f) - ("cobbe" "classic-java.plt" 1 0 #f) - ("cobbe" "contract-utils.plt" 3 0 #f) - ("cobbe" "contract-utils.plt" 2 2 #f) - ("cobbe" "contract-utils.plt" 2 1 "301.7") - ("cobbe" "contract-utils.plt" 2 0 "301.7") - ("cobbe" "contract-utils.plt" 1 3 #f) - ("cobbe" "contract-utils.plt" 1 2 #f) - ("cobbe" "contract-utils.plt" 1 1 #f) - ("cobbe" "contract-utils.plt" 1 0 #f) - ("cobbe" "environment.plt" 3 0 "301.7") - ("cobbe" "environment.plt" 2 1 #f) - ("cobbe" "environment.plt" 2 0 #f) - ("cobbe" "environment.plt" 1 0 #f) - ("cobbe" "views.plt" 2 1 "4.0") - ("cobbe" "views.plt" 2 0 "4.0") - ("cobbe" "views.plt" 1 1 "350") - ("cobbe" "views.plt" 1 0 "350") - ("zwizwa" "staapl.plt" 1 7 #f) - ("zwizwa" "staapl.plt" 1 6 #f) - ("zwizwa" "staapl.plt" 1 5 #f) - ("zwizwa" "staapl.plt" 1 4 #f) - ("zwizwa" "staapl.plt" 1 3 #f) - ("zwizwa" "staapl.plt" 1 2 #f) - ("zwizwa" "staapl.plt" 1 1 #f) - ("zwizwa" "staapl.plt" 1 0 #f) - ("spdegabrielle" "mail-parse.plt" 3 1 #f) - ("spdegabrielle" "mail-parse.plt" 3 0 #f) - ("spdegabrielle" "mail-parse.plt" 2 4 #f) - ("spdegabrielle" "mail-parse.plt" 2 3 #f) - ("spdegabrielle" "mail-parse.plt" 2 2 #f) - ("spdegabrielle" "mail-parse.plt" 2 1 #f) - ("spdegabrielle" "mail-parse.plt" 2 0 #f) - ("spdegabrielle" "mail-parse.plt" 1 0 #f) - ("spdegabrielle" "projectmgr.plt" 1 0 "4.0") - ("spdegabrielle" "projects-project.plt" 1 4 "4.0") - ("spdegabrielle" "projects-project.plt" 1 3 "4.0") - ("spdegabrielle" "projects-project.plt" 1 2 "4.0") - ("spdegabrielle" "projects-project.plt" 1 1 "4.0") - ("spdegabrielle" "projects-project.plt" 1 0 "4.0") - ("spdegabrielle" "table-snip.plt" 1 0 #f) - ("spdegabrielle" "valet.plt" 1 1 "4.0") - ("spdegabrielle" "valet.plt" 1 0 "4.0") - ("dvanhorn" "advanced-student.plt" 1 1 "4.0.2") - ("dvanhorn" "advanced-student.plt" 1 0 "4.0.2") - ("dvanhorn" "closure-calculus.plt" 1 0 "301.3") - ("dvanhorn" "finite-types.plt" 1 1 "350") - ("dvanhorn" "finite-types.plt" 1 0 #f) - ("dvanhorn" "flickr.plt" 1 0 "370") - ("dvanhorn" "grammar.plt" 1 3 "370") - ("dvanhorn" "grammar.plt" 1 2 "370") - ("dvanhorn" "grammar.plt" 1 1 "370") - ("dvanhorn" "grammar.plt" 1 0 "370") - ("dvanhorn" "r4rs-compiler.plt" 1 0 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 3 2 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 3 1 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 3 0 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 4 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 3 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 2 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 1 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 0 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 1 2 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 1 1 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 1 0 "370") - ("dvanhorn" "record-case.plt" 1 1 "370") - ("dvanhorn" "record-case.plt" 1 0 "370") - ("dvanhorn" "snake.plt" 1 0 "4.1") - ("dvanhorn" "srfi-53.plt" 1 0 "370") - ("dvanhorn" "tetris.plt" 2 4 "4.0.2") - ("dvanhorn" "tetris.plt" 2 3 "4.0.2") - ("dvanhorn" "tetris.plt" 2 2 "4.0.2") - ("dvanhorn" "tetris.plt" 2 1 "4.0.2") - ("dvanhorn" "tetris.plt" 2 0 "4.0.2") - ("dvanhorn" "tetris.plt" 1 1 "372") - ("dvanhorn" "tetris.plt" 1 0 "3.99") - ("dvanhorn" "time-expand.plt" 1 0 "370") - ("dvanhorn" "typed-student.plt" 1 1 "4.1") - ("dvanhorn" "typed-student.plt" 1 0 "4.1") - ("dvanhorn" "whiff.plt" 1 1 "4.1") - ("dvanhorn" "whiff.plt" 1 0 "4.1") - ("joskoot" "planet-fmt.plt" 1 0 #f) - ("zitterbewegung" "uuid-v4.plt" 1 0 "4.1") - ("lizorkin" "sedna.plt" 1 2 #f) - ("lizorkin" "sedna.plt" 1 1 #f) - ("lizorkin" "sedna.plt" 1 0 #f) - ("lizorkin" "ssax.plt" 2 0 #f) - ("lizorkin" "ssax.plt" 1 3 #f) - ("lizorkin" "ssax.plt" 1 2 #f) - ("lizorkin" "ssax.plt" 1 1 #f) - ("lizorkin" "ssax.plt" 1 0 #f) - ("lizorkin" "sxml.plt" 2 1 #f) - ("lizorkin" "sxml.plt" 2 0 #f) - ("lizorkin" "sxml.plt" 1 4 #f) - ("lizorkin" "sxml.plt" 1 3 #f) - ("lizorkin" "sxml.plt" 1 2 #f) - ("lizorkin" "sxml.plt" 1 1 #f) - ("lizorkin" "sxml.plt" 1 0 #f) - ("fjl" "leftparen.plt" 1 3 #f) - ("fjl" "leftparen.plt" 1 2 #f) - ("fjl" "leftparen.plt" 1 1 #f) - ("fjl" "leftparen.plt" 1 0 #f) - ("clements" "gnucash.plt" 1 1 #f) - ("clements" "gnucash.plt" 1 0 #f) - ("clements" "iTunes-helper.plt" 1 0 #f) - ("clements" "mboxrd-read.plt" 1 0 #f) - ("clements" "no-brainer.plt" 1 4 #f) - ("clements" "no-brainer.plt" 1 3 #f) - ("clements" "no-brainer.plt" 1 2 #f) - ("clements" "no-brainer.plt" 1 1 #f) - ("clements" "no-brainer.plt" 1 0 #f) - ("ashinn" "fmt.plt" 1 0 #f) - ("ashinn" "html-parser.plt" 1 1 #f) - ("ashinn" "html-parser.plt" 1 0 #f) - ("offby1" "offby1.plt" 2 1 #f) - ("offby1" "offby1.plt" 2 0 #f) - ("wmfarr" "SO31.plt" 1 2 #f) - ("wmfarr" "SO31.plt" 1 1 #f) - ("wmfarr" "SO31.plt" 1 0 #f) - ("wmfarr" "amb.plt" 1 0 #f) - ("wmfarr" "array-ec.plt" 1 0 #f) - ("wmfarr" "bh-tree.plt" 1 0 #f) - ("wmfarr" "deriv.plt" 3 0 "3.99") - ("wmfarr" "deriv.plt" 2 0 "371.2") - ("wmfarr" "deriv.plt" 1 0 #f) - ("wmfarr" "mzgsl.plt" 3 0 #f) - ("wmfarr" "mzgsl.plt" 2 0 #f) - ("wmfarr" "mzgsl.plt" 1 0 #f) - ("wmfarr" "nbody-ics.plt" 1 0 #f) - ("wmfarr" "pairing-heap.plt" 1 0 #f) - ("wmfarr" "permutations.plt" 1 3 "4.0.2.6") - ("wmfarr" "permutations.plt" 1 2 #f) - ("wmfarr" "permutations.plt" 1 1 #f) - ("wmfarr" "permutations.plt" 1 0 #f) - ("wmfarr" "plt-linalg.plt" 1 10 #f) - ("wmfarr" "plt-linalg.plt" 1 9 #f) - ("wmfarr" "plt-linalg.plt" 1 8 #f) - ("wmfarr" "plt-linalg.plt" 1 7 #f) - ("wmfarr" "plt-linalg.plt" 1 6 #f) - ("wmfarr" "plt-linalg.plt" 1 5 #f) - ("wmfarr" "plt-linalg.plt" 1 4 #f) - ("wmfarr" "plt-linalg.plt" 1 3 #f) - ("wmfarr" "plt-linalg.plt" 1 2 #f) - ("wmfarr" "plt-linalg.plt" 1 1 #f) - ("wmfarr" "plt-linalg.plt" 1 0 #f) - ("wmfarr" "simple-matrix.plt" 1 0 #f) - ("wmfarr" "srfi-4-comprehensions.plt" 1 1 #f) - ("wmfarr" "srfi-4-comprehensions.plt" 1 0 #f) - ("kumar" "muveeStyleBrowser.plt" 1 2 "4.1.3") - ("kumar" "muveeStyleBrowser.plt" 1 1 "4.1.3") - ("kumar" "muveeStyleBrowser.plt" 1 0 #f) - ("vegashacker" "leftparen.plt" 4 1 "4.1.3.9") - ("vegashacker" "leftparen.plt" 4 0 "4.1.3.9") - ("vegashacker" "leftparen.plt" 3 0 "4.1") - ("vegashacker" "leftparen.plt" 2 2 "4.1") - ("vegashacker" "leftparen.plt" 2 1 "4.1") - ("vegashacker" "leftparen.plt" 2 0 "4.1") - ("vegashacker" "leftparen.plt" 1 2 #f) - ("vegashacker" "leftparen.plt" 1 1 #f) - ("vegashacker" "leftparen.plt" 1 0 #f) - ("jim" "webit.plt" 1 6 "4.0") - ("jim" "webit.plt" 1 4 #f) - ("jim" "webit.plt" 1 3 #f) - ("jim" "webit.plt" 1 2 #f) - ("jim" "webit.plt" 1 1 #f) - ("jim" "webit.plt" 1 0 #f) - ("murphy" "amb.plt" 1 1 #f) - ("murphy" "amb.plt" 1 0 #f) - ("murphy" "growl.plt" 1 2 #f) - ("murphy" "growl.plt" 1 1 #f) - ("murphy" "growl.plt" 1 0 #f) - ("murphy" "multimethod.plt" 2 1 #f) - ("murphy" "multimethod.plt" 2 0 #f) - ("murphy" "multimethod.plt" 1 1 #f) - ("murphy" "multimethod.plt" 1 0 #f) - ("murphy" "rpg-utils.plt" 1 0 #f) - ("murphy" "svn.plt" 1 0 #f) - ("murphy" "xosd.plt" 1 0 #f) - ("williams" "animated-canvas.plt" 1 1 #f) - ("williams" "animated-canvas.plt" 1 0 #f) - ("williams" "inference.plt" 2 0 #f) - ("williams" "inference.plt" 1 3 #f) - ("williams" "inference.plt" 1 2 #f) - ("williams" "inference.plt" 1 1 #f) - ("williams" "inference.plt" 1 0 #f) - ("williams" "packed-binary.plt" 1 1 #f) - ("williams" "packed-binary.plt" 1 0 #f) - ("williams" "science.plt" 3 5 #f) - ("williams" "science.plt" 3 4 #f) - ("williams" "science.plt" 3 3 #f) - ("williams" "science.plt" 3 2 #f) - ("williams" "science.plt" 3 1 #f) - ("williams" "science.plt" 3 0 #f) - ("williams" "science.plt" 2 9 #f) - ("williams" "science.plt" 2 8 #f) - ("williams" "science.plt" 2 7 #f) - ("williams" "science.plt" 2 6 #f) - ("williams" "science.plt" 2 5 #f) - ("williams" "science.plt" 2 4 #f) - ("williams" "science.plt" 2 3 #f) - ("williams" "science.plt" 2 2 #f) - ("williams" "science.plt" 2 1 #f) - ("williams" "science.plt" 2 0 #f) - ("williams" "science.plt" 1 0 #f) - ("williams" "simulation.plt" 3 2 #f) - ("williams" "simulation.plt" 3 1 #f) - ("williams" "simulation.plt" 3 0 #f) - ("williams" "simulation.plt" 2 2 #f) - ("williams" "simulation.plt" 2 1 #f) - ("williams" "simulation.plt" 2 0 #f) - ("williams" "simulation.plt" 1 0 #f) - ("williams" "table-panel.plt" 1 0 #f) - ("soegaard" "bit-io.plt" 2 0 #f) - ("soegaard" "bit-io.plt" 1 0 #f) - ("soegaard" "control.plt" 2 0 #f) - ("soegaard" "control.plt" 1 2 #f) - ("soegaard" "control.plt" 1 1 #f) - ("soegaard" "control.plt" 1 0 #f) - ("soegaard" "digest.plt" 1 2 "369.8") - ("soegaard" "digest.plt" 1 1 "369.8") - ("soegaard" "digest.plt" 1 0 "350") - ("soegaard" "disk.plt" 1 0 "350") - ("soegaard" "evector.plt" 1 1 #f) - ("soegaard" "evector.plt" 1 0 #f) - ("soegaard" "galore.plt" 4 1 #f) - ("soegaard" "galore.plt" 4 0 #f) - ("soegaard" "galore.plt" 3 6 #f) - ("soegaard" "galore.plt" 3 5 #f) - ("soegaard" "galore.plt" 3 4 #f) - ("soegaard" "galore.plt" 3 3 #f) - ("soegaard" "galore.plt" 3 2 #f) - ("soegaard" "galore.plt" 3 1 #f) - ("soegaard" "galore.plt" 3 0 #f) - ("soegaard" "galore.plt" 2 2 #f) - ("soegaard" "galore.plt" 2 1 #f) - ("soegaard" "galore.plt" 2 0 #f) - ("soegaard" "galore.plt" 1 0 #f) - ("soegaard" "gzip.plt" 2 0 #f) - ("soegaard" "gzip.plt" 1 0 "369.8") - ("soegaard" "listit.plt" 1 0 #f) - ("soegaard" "math.plt" 1 4 #f) - ("soegaard" "math.plt" 1 3 #f) - ("soegaard" "math.plt" 1 2 #f) - ("soegaard" "math.plt" 1 1 #f) - ("soegaard" "math.plt" 1 0 #f) - ("soegaard" "sicp.plt" 2 1 #f) - ("soegaard" "sicp.plt" 2 0 #f) - ("soegaard" "sicp.plt" 1 1 #f) - ("soegaard" "sicp.plt" 1 0 #f) - ("soegaard" "sqlite.plt" 1 2 #f) - ("soegaard" "sqlite.plt" 1 1 #f) - ("soegaard" "sqlite.plt" 1 0 #f) - ("soegaard" "srfi.plt" 2 1 "360") - ("soegaard" "srfi.plt" 2 0 "360") - ("soegaard" "srfi.plt" 1 2 "360") - ("soegaard" "srfi.plt" 1 1 #f) - ("soegaard" "srfi.plt" 1 0 #f) - ("soegaard" "syntax.plt" 1 0 #f) - ("soegaard" "web.plt" 2 1 #f) - ("soegaard" "web.plt" 2 0 #f) - ("soegaard" "web.plt" 1 0 #f) - ("dyoo" "ahocorasick.plt" 1 0 #f) - ("dyoo" "bisect-search.plt" 1 0 #f) - ("dyoo" "calm-evt.plt" 1 0 "370") - ("dyoo" "country-codes.plt" 1 1 #f) - ("dyoo" "country-codes.plt" 1 0 #f) - ("dyoo" "generator.plt" 2 2 "360") - ("dyoo" "generator.plt" 2 1 "360") - ("dyoo" "generator.plt" 2 0 #f) - ("dyoo" "generator.plt" 1 0 #f) - ("dyoo" "get-environment.plt" 1 0 #f) - ("dyoo" "hash-cons.plt" 1 0 #f) - ("dyoo" "infix.plt" 1 1 #f) - ("dyoo" "infix.plt" 1 0 #f) - ("dyoo" "join-forest.plt" 1 2 #f) - ("dyoo" "join-forest.plt" 1 1 #f) - ("dyoo" "join-forest.plt" 1 0 #f) - ("dyoo" "moby-tool.plt" 1 1 #f) - ("dyoo" "moby-tool.plt" 1 0 #f) - ("dyoo" "move-pos.plt" 1 0 #f) - ("dyoo" "rle.plt" 1 1 #f) - ("dyoo" "rle.plt" 1 0 #f) - ("dyoo" "rope.plt" 3 2 #f) - ("dyoo" "rope.plt" 3 1 #f) - ("dyoo" "rope.plt" 3 0 #f) - ("dyoo" "rope.plt" 2 3 #f) - ("dyoo" "rope.plt" 2 2 #f) - ("dyoo" "rope.plt" 2 1 #f) - ("dyoo" "rope.plt" 2 0 #f) - ("dyoo" "rope.plt" 1 1 #f) - ("dyoo" "rope.plt" 1 0 #f) - ("dyoo" "sicp-concurrency.plt" 1 2 #f) - ("dyoo" "sicp-concurrency.plt" 1 1 #f) - ("dyoo" "sicp-concurrency.plt" 1 0 #f) - ("dyoo" "simply-scheme.plt" 1 2 "4.0") - ("dyoo" "srfi-alias.plt" 1 3 #f) - ("dyoo" "srfi-alias.plt" 1 2 #f) - ("dyoo" "srfi-alias.plt" 1 1 #f) - ("dyoo" "srfi-alias.plt" 1 0 #f) - ("dyoo" "string-template.plt" 1 0 #f) - ("dyoo" "suffixtree.plt" 1 1 #f) - ("dyoo" "suffixtree.plt" 1 0 #f) - ("dyoo" "syntax-reprinter.plt" 1 0 #f) - ("dyoo" "tqueue.plt" 1 2 "3.99") - ("dyoo" "tqueue.plt" 1 1 "3.99") - ("dyoo" "tqueue.plt" 1 0 "3.99") - ("dyoo" "union-find.plt" 1 0 #f) - ("dyoo" "version-case.plt" 1 8 #f) - ("dyoo" "version-case.plt" 1 7 #f) - ("dyoo" "version-case.plt" 1 6 #f) - ("dyoo" "version-case.plt" 1 5 #f) - ("dyoo" "version-case.plt" 1 4 #f) - ("dyoo" "version-case.plt" 1 3 #f) - ("dyoo" "version-case.plt" 1 2 #f) - ("dyoo" "version-case.plt" 1 1 #f) - ("dyoo" "version-case.plt" 1 0 #f) - ("dyoo" "weak-map.plt" 1 0 #f) - ("dyoo" "xml-pull.plt" 1 0 #f) - ("sbloch" "sb-world.plt" 1 4 "4.0") - ("sbloch" "sb-world.plt" 1 3 "4.0") - ("sbloch" "sb-world.plt" 1 2 "4.0") - ("sbloch" "sb-world.plt" 1 1 "4.0") - ("sbloch" "tiles.plt" 1 12 "4.0") - ("sbloch" "tiles.plt" 1 11 "4.0") - ("sbloch" "tiles.plt" 1 10 "4.0") - ("sbloch" "tiles.plt" 1 9 "4.0") - ("sbloch" "tiles.plt" 1 8 "4.0") - ("sbloch" "tiles.plt" 1 7 "4.0") - ("sbloch" "tiles.plt" 1 6 "4.0") - ("sbloch" "tiles.plt" 1 5 "4.0") - ("sbloch" "tiles.plt" 1 4 "4.0") - ("sbloch" "tiles.plt" 1 2 "370") - ("sbloch" "tiles.plt" 1 1 #f) - ("sbloch" "tiles.plt" 1 0 #f) - ("mflatt" "scribble-paper.plt" 2 0 "4.1.4.3") - ("mflatt" "scribble-paper.plt" 1 0 #f) - ("mflatt" "test-box-recover.plt" 1 0 "370") - ("untyped" "autoplanet.plt" 1 1 "4.0") - ("untyped" "autoplanet.plt" 1 0 "4.0") - ("untyped" "delicious.plt" 1 3 #f) - ("untyped" "delicious.plt" 1 2 #f) - ("untyped" "delicious.plt" 1 1 #f) - ("untyped" "delicious.plt" 1 0 #f) - ("untyped" "delirium.plt" 3 0 "4.1.3") - ("untyped" "delirium.plt" 2 4 "4.0") - ("untyped" "delirium.plt" 2 3 "4.0") - ("untyped" "delirium.plt" 2 2 "4.0") - ("untyped" "delirium.plt" 2 1 "4.0") - ("untyped" "delirium.plt" 2 0 "4.0") - ("untyped" "delirium.plt" 1 0 "371") - ("untyped" "dispatch.plt" 2 1 "4.1.4.3") - ("untyped" "dispatch.plt" 2 0 "4.1.4.3") - ("untyped" "dispatch.plt" 1 10 "4.1.3.8") - ("untyped" "dispatch.plt" 1 8 "4.1.3.8") - ("untyped" "dispatch.plt" 1 7 "4.1.3") - ("untyped" "dispatch.plt" 1 6 "4.1.3") - ("untyped" "dispatch.plt" 1 5 "4.0") - ("untyped" "dispatch.plt" 1 4 "4.0") - ("untyped" "dispatch.plt" 1 3 "3.99") - ("untyped" "dispatch.plt" 1 2 "3.99") - ("untyped" "dispatch.plt" 1 1 #f) - ("untyped" "dispatch.plt" 1 0 "3.99") - ("untyped" "idcheck.plt" 1 5 "4.0") - ("untyped" "idcheck.plt" 1 4 #f) - ("untyped" "idcheck.plt" 1 3 #f) - ("untyped" "idcheck.plt" 1 2 #f) - ("untyped" "idcheck.plt" 1 1 #f) - ("untyped" "idcheck.plt" 1 0 #f) - ("untyped" "instaservlet.plt" 2 2 "4.1.3.8") - ("untyped" "instaservlet.plt" 2 1 "4.1.3") - ("untyped" "instaservlet.plt" 2 0 "4.1.3") - ("untyped" "instaservlet.plt" 1 7 "4.0") - ("untyped" "instaservlet.plt" 1 6 "4.0") - ("untyped" "instaservlet.plt" 1 5 "4.0") - ("untyped" "instaservlet.plt" 1 4 "4.0") - ("untyped" "instaservlet.plt" 1 3 "4.0") - ("untyped" "instaservlet.plt" 1 2 "3.99") - ("untyped" "instaservlet.plt" 1 1 #f) - ("untyped" "instaservlet.plt" 1 0 #f) - ("untyped" "mirrors.plt" 2 1 "4.1.4.3") - ("untyped" "mirrors.plt" 2 0 "4.1.4.3") - ("untyped" "mirrors.plt" 1 8 "4.1.3") - ("untyped" "mirrors.plt" 1 7 "4.1.3") - ("untyped" "mirrors.plt" 1 6 "4.1.3") - ("untyped" "mirrors.plt" 1 5 "4.1.3") - ("untyped" "mirrors.plt" 1 3 "4.0") - ("untyped" "mirrors.plt" 1 2 "3.99") - ("untyped" "mirrors.plt" 1 1 "3.99") - ("untyped" "mirrors.plt" 1 0 "3.99") - ("untyped" "net-repl.plt" 1 0 #f) - ("untyped" "snooze.plt" 2 6 "4.0.2.5") - ("untyped" "snooze.plt" 2 5 "4.0.2.5") - ("untyped" "snooze.plt" 2 4 "4.0.2.5") - ("untyped" "snooze.plt" 2 3 "4.0.2.5") - ("untyped" "snooze.plt" 2 2 "4.0.2.5") - ("untyped" "snooze.plt" 2 1 "4.0.2.5") - ("untyped" "snooze.plt" 2 0 "4.0.2.5") - ("untyped" "snooze.plt" 1 4 #f) - ("untyped" "snooze.plt" 1 3 #f) - ("untyped" "snooze.plt" 1 2 #f) - ("untyped" "snooze.plt" 1 1 #f) - ("untyped" "snooze.plt" 1 0 #f) - ("untyped" "unlib.plt" 3 14 "4.0.2.5") - ("untyped" "unlib.plt" 3 13 "4.0.2.5") - ("untyped" "unlib.plt" 3 12 "4.0.2.5") - ("untyped" "unlib.plt" 3 11 "4.0.2.5") - ("untyped" "unlib.plt" 3 10 "4.0.2.5") - ("untyped" "unlib.plt" 3 9 "4.0.2.5") - ("untyped" "unlib.plt" 3 8 "4.0.2.5") - ("untyped" "unlib.plt" 3 7 "4.0") - ("untyped" "unlib.plt" 3 6 "4.0") - ("untyped" "unlib.plt" 3 5 "3.99") - ("untyped" "unlib.plt" 3 4 "3.99") - ("untyped" "unlib.plt" 3 3 "3.99") - ("untyped" "unlib.plt" 3 2 "3.99") - ("untyped" "unlib.plt" 3 1 "3.99") - ("untyped" "unlib.plt" 3 0 "3.99") - ("untyped" "unlib.plt" 2 5 #f) - ("untyped" "unlib.plt" 2 4 #f) - ("untyped" "unlib.plt" 2 3 #f) - ("untyped" "unlib.plt" 2 2 #f) - ("untyped" "unlib.plt" 2 1 #f) - ("untyped" "unlib.plt" 2 0 #f) - ("untyped" "unlib.plt" 1 1 #f) - ("untyped" "unlib.plt" 1 0 #f) - ("schematics" "benchmark.plt" 2 0 "4.0") - ("schematics" "benchmark.plt" 1 0 #f) - ("schematics" "instaweb.plt" 4 0 "4.1.3") - ("schematics" "instaweb.plt" 3 2 "4.0") - ("schematics" "instaweb.plt" 3 1 "4.0") - ("schematics" "instaweb.plt" 3 0 "3.99") - ("schematics" "instaweb.plt" 2 2 "371") - ("schematics" "instaweb.plt" 2 1 "371") - ("schematics" "instaweb.plt" 2 0 "371") - ("schematics" "instaweb.plt" 1 8 "370.2") - ("schematics" "instaweb.plt" 1 7 "370.2") - ("schematics" "instaweb.plt" 1 6 #f) - ("schematics" "instaweb.plt" 1 5 #f) - ("schematics" "instaweb.plt" 1 4 #f) - ("schematics" "instaweb.plt" 1 3 #f) - ("schematics" "instaweb.plt" 1 2 #f) - ("schematics" "instaweb.plt" 1 1 #f) - ("schematics" "instaweb.plt" 1 0 #f) - ("schematics" "macro.plt" 1 2 #f) - ("schematics" "macro.plt" 1 1 "3.99") - ("schematics" "macro.plt" 1 0 #f) - ("schematics" "namespace.plt" 1 0 #f) - ("schematics" "password.plt" 1 0 #f) - ("schematics" "port.plt" 1 3 #f) - ("schematics" "port.plt" 1 2 #f) - ("schematics" "port.plt" 1 1 #f) - ("schematics" "port.plt" 1 0 #f) - ("schematics" "random.plt" 1 0 #f) - ("schematics" "sake.plt" 1 0 "4.0") - ("schematics" "racunit.plt" 3 4 "4.0") - ("schematics" "racunit.plt" 3 3 "4.0") - ("schematics" "racunit.plt" 3 2 "4.0") - ("schematics" "racunit.plt" 3 1 "4.0") - ("schematics" "racunit.plt" 3 0 "4.0") - ("schematics" "racunit.plt" 2 11 "4.1.0.3") - ("schematics" "racunit.plt" 2 10 "369.1") - ("schematics" "racunit.plt" 2 9 "369.1") - ("schematics" "racunit.plt" 2 8 "369.1") - ("schematics" "racunit.plt" 2 7 "369.1") - ("schematics" "racunit.plt" 2 6 "369.1") - ("schematics" "racunit.plt" 2 5 "369.1") - ("schematics" "racunit.plt" 2 4 "369.1") - ("schematics" "racunit.plt" 2 3 #f) - ("schematics" "racunit.plt" 2 2 #f) - ("schematics" "racunit.plt" 2 1 #f) - ("schematics" "racunit.plt" 2 0 #f) - ("schematics" "racunit.plt" 1 2 #f) - ("schematics" "racunit.plt" 1 1 #f) - ("schematics" "racunit.plt" 1 0 #f) - ("schematics" "si.plt" 1 0 #f) - ("schematics" "spgsql.plt" 2 3 "371.3") - ("schematics" "spgsql.plt" 2 2 "371.3") - ("schematics" "spgsql.plt" 2 1 "371.3") - ("schematics" "spgsql.plt" 2 0 #f) - ("schematics" "spgsql.plt" 1 2 #f) - ("schematics" "spgsql.plt" 1 1 #f) - ("schematics" "spgsql.plt" 1 0 #f) - ("schematics" "xmlrpc.plt" 4 0 "4.1.1") - ("schematics" "xmlrpc.plt" 2 1 #f) - ("schematics" "xmlrpc.plt" 2 0 #f) - ("schematics" "xmlrpc.plt" 1 4 #f) - ("schematics" "xmlrpc.plt" 1 3 #f) - ("schematics" "xmlrpc.plt" 1 2 #f) - ("schematics" "xmlrpc.plt" 1 1 #f) - ("schematics" "xmlrpc.plt" 1 0 #f) - ("dherman" "aterm.plt" 2 0 #f) - ("dherman" "aterm.plt" 1 0 #f) - ("dherman" "binary.plt" 1 0 #f) - ("dherman" "c.plt" 2 1 "4.1.4.3") - ("dherman" "c.plt" 2 0 "4.1.4.3") - ("dherman" "c.plt" 1 0 "4.1.3.8") - ("dherman" "csv-write.plt" 1 2 #f) - ("dherman" "csv-write.plt" 1 1 #f) - ("dherman" "csv-write.plt" 1 0 #f) - ("dherman" "fractal.plt" 2 0 #f) - ("dherman" "fractal.plt" 1 0 #f) - ("dherman" "geocoder.plt" 1 1 #f) - ("dherman" "geocoder.plt" 1 0 #f) - ("dherman" "inspector.plt" 1 0 #f) - ("dherman" "io.plt" 1 9 "369.2") - ("dherman" "io.plt" 1 8 "369.2") - ("dherman" "io.plt" 1 7 #f) - ("dherman" "io.plt" 1 6 #f) - ("dherman" "io.plt" 1 5 #f) - ("dherman" "io.plt" 1 4 #f) - ("dherman" "io.plt" 1 3 #f) - ("dherman" "io.plt" 1 2 #f) - ("dherman" "io.plt" 1 1 #f) - ("dherman" "io.plt" 1 0 #f) - ("dherman" "java.plt" 1 5 #f) - ("dherman" "java.plt" 1 4 #f) - ("dherman" "java.plt" 1 3 #f) - ("dherman" "java.plt" 1 2 #f) - ("dherman" "java.plt" 1 1 #f) - ("dherman" "java.plt" 1 0 #f) - ("dherman" "javascript.plt" 9 0 "4.1.3") - ("dherman" "javascript.plt" 8 0 "4.1.2.4") - ("dherman" "javascript.plt" 7 5 "4.0") - ("dherman" "javascript.plt" 7 4 "4.0") - ("dherman" "javascript.plt" 7 3 "4.0") - ("dherman" "javascript.plt" 7 2 "4.0") - ("dherman" "javascript.plt" 7 1 "4.0") - ("dherman" "javascript.plt" 7 0 "4.0") - ("dherman" "javascript.plt" 6 6 "4.0") - ("dherman" "javascript.plt" 6 5 "4.0") - ("dherman" "javascript.plt" 6 4 "4.0") - ("dherman" "javascript.plt" 6 3 "4.0") - ("dherman" "javascript.plt" 6 2 "4.0") - ("dherman" "javascript.plt" 6 1 "4.0") - ("dherman" "javascript.plt" 6 0 "4.0") - ("dherman" "javascript.plt" 5 4 "369.3") - ("dherman" "javascript.plt" 5 3 "369.3") - ("dherman" "javascript.plt" 5 2 "369.3") - ("dherman" "javascript.plt" 5 1 "350.3") - ("dherman" "javascript.plt" 5 0 "350.3") - ("dherman" "javascript.plt" 4 1 "350.3") - ("dherman" "javascript.plt" 4 0 "350.3") - ("dherman" "javascript.plt" 3 5 "350.3") - ("dherman" "javascript.plt" 3 4 "350.3") - ("dherman" "javascript.plt" 3 3 "350.3") - ("dherman" "javascript.plt" 3 2 "350.3") - ("dherman" "javascript.plt" 3 1 "350.3") - ("dherman" "javascript.plt" 3 0 "350.3") - ("dherman" "javascript.plt" 2 3 "350.3") - ("dherman" "javascript.plt" 2 2 "301.13") - ("dherman" "javascript.plt" 2 1 "301.13") - ("dherman" "javascript.plt" 2 0 "301.13") - ("dherman" "javascript.plt" 1 0 #f) - ("dherman" "json.plt" 1 2 "3.99") - ("dherman" "json.plt" 1 1 "3.99") - ("dherman" "json.plt" 1 0 "3.99") - ("dherman" "lambda-gradual.plt" 1 2 #f) - ("dherman" "lambda-gradual.plt" 1 1 #f) - ("dherman" "lambda-gradual.plt" 1 0 #f) - ("dherman" "lambda-sigma.plt" 1 1 #f) - ("dherman" "lambda-sigma.plt" 1 0 #f) - ("dherman" "lift.plt" 1 0 "4.0") - ("dherman" "list.plt" 2 0 "3.99") - ("dherman" "list.plt" 1 0 #f) - ("dherman" "macro-object.plt" 1 0 #f) - ("dherman" "memoize.plt" 3 1 "4.0") - ("dherman" "memoize.plt" 3 0 "4.0") - ("dherman" "memoize.plt" 2 3 #f) - ("dherman" "memoize.plt" 2 2 #f) - ("dherman" "memoize.plt" 2 1 #f) - ("dherman" "memoize.plt" 2 0 #f) - ("dherman" "memoize.plt" 1 3 #f) - ("dherman" "memoize.plt" 1 2 #f) - ("dherman" "memoize.plt" 1 1 #f) - ("dherman" "memoize.plt" 1 0 #f) - ("dherman" "mysqldump.plt" 1 0 #f) - ("dherman" "mzlite.plt" 1 0 #f) - ("dherman" "nationality.plt" 3 0 #f) - ("dherman" "nationality.plt" 2 0 #f) - ("dherman" "nationality.plt" 1 1 #f) - ("dherman" "nationality.plt" 1 0 #f) - ("dherman" "network.plt" 1 0 #f) - ("dherman" "parameter.plt" 1 3 "4.0") - ("dherman" "parameter.plt" 1 2 "4.0") - ("dherman" "parameter.plt" 1 1 "4.0") - ("dherman" "parameter.plt" 1 0 "4.0") - ("dherman" "pprint.plt" 4 4 "4.0") - ("dherman" "pprint.plt" 4 3 "4.0") - ("dherman" "pprint.plt" 4 2 "4.0") - ("dherman" "pprint.plt" 4 1 "4.0") - ("dherman" "pprint.plt" 4 0 "4.0") - ("dherman" "pprint.plt" 3 1 #f) - ("dherman" "pprint.plt" 3 0 #f) - ("dherman" "pprint.plt" 2 1 #f) - ("dherman" "pprint.plt" 2 0 #f) - ("dherman" "pprint.plt" 1 0 #f) - ("dherman" "prophecy.plt" 1 0 #f) - ("dherman" "set.plt" 3 0 "3.99") - ("dherman" "set.plt" 2 0 "3.99") - ("dherman" "set.plt" 1 0 "3.99") - ("dherman" "sort.plt" 1 0 #f) - ("dherman" "stream.plt" 1 1 #f) - ("dherman" "stream.plt" 1 0 #f) - ("dherman" "struct.plt" 2 4 #f) - ("dherman" "struct.plt" 2 3 #f) - ("dherman" "struct.plt" 2 2 #f) - ("dherman" "struct.plt" 2 1 #f) - ("dherman" "struct.plt" 2 0 #f) - ("dherman" "struct.plt" 1 4 #f) - ("dherman" "struct.plt" 1 3 #f) - ("dherman" "struct.plt" 1 2 #f) - ("dherman" "struct.plt" 1 1 #f) - ("dherman" "struct.plt" 1 0 #f) - ("dherman" "syntactic-closures.plt" 1 0 #f) - ("dherman" "tail.plt" 3 0 #f) - ("dherman" "tail.plt" 2 2 #f) - ("dherman" "tail.plt" 2 1 #f) - ("dherman" "tail.plt" 2 0 #f) - ("dherman" "tail.plt" 1 0 #f) - ("dherman" "test.plt" 2 0 "4.0") - ("dherman" "test.plt" 1 3 #f) - ("dherman" "test.plt" 1 2 #f) - ("dherman" "test.plt" 1 1 #f) - ("dherman" "test.plt" 1 0 #f) - ("dherman" "types.plt" 2 0 "4.0") - ("dherman" "types.plt" 1 0 "4.0") - ("dherman" "unit.plt" 4 0 #f) - ("dherman" "unit.plt" 3 0 #f) - ("dherman" "unit.plt" 2 0 #f) - ("dherman" "unit.plt" 1 0 #f) - ("dherman" "web-page.plt" 1 0 #f) - ("dherman" "widgets.plt" 2 0 "350.3") - ("dherman" "widgets.plt" 1 0 #f) - ("dherman" "xhtml.plt" 1 2 "371") - ("dherman" "xhtml.plt" 1 1 #f) - ("dherman" "xhtml.plt" 1 0 #f) - ("dherman" "zip.plt" 2 1 #f) - ("dherman" "zip.plt" 2 0 #f) - ("dherman" "zip.plt" 1 1 #f) - ("dherman" "zip.plt" 1 0 #f) - ("neil" "bencode.plt" 1 1 #f) - ("neil" "bencode.plt" 1 0 #f) - ("neil" "ccnum.plt" 1 2 #f) - ("neil" "ccnum.plt" 1 1 #f) - ("neil" "ccnum.plt" 1 0 #f) - ("neil" "csv.plt" 1 5 #f) - ("neil" "csv.plt" 1 4 #f) - ("neil" "csv.plt" 1 3 #f) - ("neil" "csv.plt" 1 2 #f) - ("neil" "csv.plt" 1 1 #f) - ("neil" "csv.plt" 1 0 #f) - ("neil" "htmlprag.plt" 1 3 #f) - ("neil" "htmlprag.plt" 1 2 #f) - ("neil" "htmlprag.plt" 1 1 #f) - ("neil" "htmlprag.plt" 1 0 #f) - ("neil" "levenshtein.plt" 1 3 #f) - ("neil" "levenshtein.plt" 1 2 #f) - ("neil" "levenshtein.plt" 1 1 #f) - ("neil" "levenshtein.plt" 1 0 #f) - ("neil" "linux-proc-apm.plt" 1 0 #f) - ("neil" "numspell.plt" 1 1 #f) - ("neil" "numspell.plt" 1 0 #f) - ("neil" "postnet-planet.plt" 1 0 #f) - ("neil" "postnet.plt" 1 0 #f) - ("neil" "protobj.plt" 1 1 #f) - ("neil" "protobj.plt" 1 0 #f) - ("neil" "rfc3339.plt" 1 1 #f) - ("neil" "rfc3339.plt" 1 0 #f) - ("neil" "soundex.plt" 1 3 #f) - ("neil" "soundex.plt" 1 2 #f) - ("neil" "soundex.plt" 1 1 #f) - ("neil" "soundex.plt" 1 0 #f) - ("neil" "tabexpand.plt" 1 1 #f) - ("neil" "tabexpand.plt" 1 0 #f) - ("neil" "testeez.plt" 1 2 #f) - ("neil" "testeez.plt" 1 1 #f) - ("neil" "testeez.plt" 1 0 #f) - ("neil" "webscraperhelper.plt" 1 2 #f) - ("neil" "webscraperhelper.plt" 1 1 #f) - ("neil" "webscraperhelper.plt" 1 0 #f) - ("kazzmir" "allegro.plt" 2 3 #f) - ("kazzmir" "allegro.plt" 2 2 #f) - ("kazzmir" "allegro.plt" 2 1 #f) - ("kazzmir" "allegro.plt" 2 0 #f) - ("kazzmir" "allegro.plt" 1 6 #f) - ("kazzmir" "allegro.plt" 1 5 #f) - ("kazzmir" "allegro.plt" 1 4 #f) - ("kazzmir" "allegro.plt" 1 3 #f) - ("kazzmir" "allegro.plt" 1 2 #f) - ("kazzmir" "allegro.plt" 1 1 #f) - ("kazzmir" "allegro.plt" 1 0 #f) - ("kazzmir" "java-class.plt" 1 1 #f) - ("kazzmir" "java-class.plt" 1 0 #f) - ("kazzmir" "peg.plt" 2 0 "4.0") - ("kazzmir" "peg.plt" 1 1 "4.0") - ("kazzmir" "peg.plt" 1 0 "4.0") - ("kazzmir" "vi.plt" 1 4 #f) - ("kazzmir" "vi.plt" 1 3 #f) - ("kazzmir" "vi.plt" 1 2 #f) - ("kazzmir" "vi.plt" 1 1 #f) - ("kazzmir" "vi.plt" 1 0 #f) - ("kazzmir" "x11.plt" 2 0 #f) - ("kazzmir" "x11.plt" 1 1 #f) - ("kazzmir" "x11.plt" 1 0 #f) - ("jaymccarthy" "SET.plt" 1 0 #f) - ("jaymccarthy" "blogue.plt" 1 2 #f) - ("jaymccarthy" "blogue.plt" 1 1 #f) - ("jaymccarthy" "blogue.plt" 1 0 #f) - ("jaymccarthy" "datalog.plt" 1 1 #f) - ("jaymccarthy" "datalog.plt" 1 0 #f) - ("jaymccarthy" "delim-control.plt" 1 0 #f) - ("jaymccarthy" "fortunedb.plt" 1 0 #f) - ("jaymccarthy" "fs-persist.plt" 1 0 #f) - ("jaymccarthy" "grid.plt" 1 2 #f) - ("jaymccarthy" "grid.plt" 1 1 #f) - ("jaymccarthy" "grid.plt" 1 0 #f) - ("jaymccarthy" "hash-store.plt" 1 4 #f) - ("jaymccarthy" "hash-store.plt" 1 3 #f) - ("jaymccarthy" "hash-store.plt" 1 2 #f) - ("jaymccarthy" "hash-store.plt" 1 1 #f) - ("jaymccarthy" "hash-store.plt" 1 0 #f) - ("jaymccarthy" "hmac-sha1.plt" 1 1 #f) - ("jaymccarthy" "hmac-sha1.plt" 1 0 #f) - ("jaymccarthy" "ical.plt" 1 2 #f) - ("jaymccarthy" "ical.plt" 1 1 #f) - ("jaymccarthy" "ical.plt" 1 0 #f) - ("jaymccarthy" "javascript.plt" 1 2 #f) - ("jaymccarthy" "javascript.plt" 1 1 #f) - ("jaymccarthy" "javascript.plt" 1 0 #f) - ("jaymccarthy" "mbform.plt" 1 0 #f) - ("jaymccarthy" "meta-q.plt" 1 0 #f) - ("jaymccarthy" "mmss.plt" 1 1 #f) - ("jaymccarthy" "mmss.plt" 1 0 #f) - ("jaymccarthy" "prefix.plt" 1 1 #f) - ("jaymccarthy" "prefix.plt" 1 0 #f) - ("jaymccarthy" "rsitunes.plt" 1 1 #f) - ("jaymccarthy" "rsitunes.plt" 1 0 #f) - ("jaymccarthy" "sql-oo.plt" 2 0 #f) - ("jaymccarthy" "sql-oo.plt" 1 3 #f) - ("jaymccarthy" "sql-oo.plt" 1 2 #f) - ("jaymccarthy" "sql-oo.plt" 1 1 #f) - ("jaymccarthy" "sql-oo.plt" 1 0 #f) - ("jaymccarthy" "sqlite.plt" 4 1 #f) - ("jaymccarthy" "sqlite.plt" 4 0 #f) - ("jaymccarthy" "sqlite.plt" 3 8 #f) - ("jaymccarthy" "sqlite.plt" 3 7 #f) - ("jaymccarthy" "sqlite.plt" 3 6 #f) - ("jaymccarthy" "sqlite.plt" 3 5 #f) - ("jaymccarthy" "sqlite.plt" 3 4 #f) - ("jaymccarthy" "sqlite.plt" 3 3 #f) - ("jaymccarthy" "sqlite.plt" 3 2 #f) - ("jaymccarthy" "sqlite.plt" 3 1 #f) - ("jaymccarthy" "sqlite.plt" 3 0 #f) - ("jaymccarthy" "sqlite.plt" 2 0 #f) - ("jaymccarthy" "sqlite.plt" 1 9 #f) - ("jaymccarthy" "sqlite.plt" 1 8 #f) - ("jaymccarthy" "sqlite.plt" 1 7 #f) - ("jaymccarthy" "sqlite.plt" 1 6 #f) - ("jaymccarthy" "sqlite.plt" 1 5 #f) - ("jaymccarthy" "sqlite.plt" 1 4 #f) - ("jaymccarthy" "sqlite.plt" 1 3 #f) - ("jaymccarthy" "sqlite.plt" 1 2 #f) - ("jaymccarthy" "sqlite.plt" 1 1 #f) - ("jaymccarthy" "sqlite.plt" 1 0 #f) - ("jaymccarthy" "trie.plt" 1 0 #f) - ("jaymccarthy" "url-param.plt" 2 0 #f) - ("jaymccarthy" "url-param.plt" 1 3 #f) - ("jaymccarthy" "url-param.plt" 1 2 #f) - ("jaymccarthy" "url-param.plt" 1 1 #f) - ("jaymccarthy" "url-param.plt" 1 0 #f) - ("jaymccarthy" "with-bindings.plt" 1 2 #f) - ("jaymccarthy" "with-bindings.plt" 1 1 #f) - ("jaymccarthy" "with-bindings.plt" 1 0 #f) - ("jaymccarthy" "wtk.plt" 1 8 #f) - ("jaymccarthy" "wtk.plt" 1 7 #f) - ("jaymccarthy" "wtk.plt" 1 6 #f) - ("jaymccarthy" "wtk.plt" 1 5 #f) - ("jaymccarthy" "wtk.plt" 1 4 #f) - ("jaymccarthy" "wtk.plt" 1 3 #f) - ("jaymccarthy" "wtk.plt" 1 2 #f) - ("jaymccarthy" "wtk.plt" 1 1 #f) - ("jaymccarthy" "wtk.plt" 1 0 #f) - ("jaymccarthy" "yppdb.plt" 2 1 #f) - ("jaymccarthy" "yppdb.plt" 2 0 #f) - ("jaymccarthy" "yppdb.plt" 1 1 #f) - ("jaymccarthy" "yppdb.plt" 1 0 #f) - ("jaymccarthy" "zipper.plt" 1 0 #f) - ("synx" "microdate.plt" 1 0 #f) - ("synx" "sizeof.plt" 1 3 #f) - ("synx" "sizeof.plt" 1 2 #f) - ("synx" "sizeof.plt" 1 1 #f) - ("synx" "sizeof.plt" 1 0 #f) - ("cce" "dracula.plt" 8 2 "4.0.1") - ("cce" "dracula.plt" 8 1 "4.0.1") - ("cce" "dracula.plt" 8 0 "4.0.1") - ("cce" "dracula.plt" 7 1 "4.0.1") - ("cce" "dracula.plt" 7 0 "4.0.1") - ("cce" "dracula.plt" 6 0 "4.0.1") - ("cce" "dracula.plt" 4 2 "4.0.1") - ("cce" "dracula.plt" 4 1 "4.0.1") - ("cce" "dracula.plt" 4 0 "4.0.1") - ("cce" "dracula.plt" 3 2 "4.0.1") - ("cce" "dracula.plt" 3 1 #f) - ("cce" "dracula.plt" 3 0 #f) - ("cce" "fasttest.plt" 3 5 #f) - ("cce" "fasttest.plt" 3 4 #f) - ("cce" "fasttest.plt" 3 3 #f) - ("cce" "fasttest.plt" 3 2 #f) - ("cce" "fasttest.plt" 3 1 #f) - ("cce" "fasttest.plt" 3 0 #f) - ("cce" "fasttest.plt" 2 0 #f) - ("cce" "scheme.plt" 4 1 #f) - ("cce" "scheme.plt" 4 0 #f) - ("cce" "scheme.plt" 3 0 #f) - ("cce" "scheme.plt" 2 0 #f) - ("cce" "scheme.plt" 1 3 #f) - ("cce" "scheme.plt" 1 2 #f) - ("cce" "scheme.plt" 1 1 #f) - ("cce" "scheme.plt" 1 0 #f) - ("vyzo" "crypto.plt" 2 1 #f) - ("vyzo" "crypto.plt" 2 0 #f) - ("vyzo" "crypto.plt" 1 5 #f) - ("vyzo" "crypto.plt" 1 4 "360") - ("vyzo" "crypto.plt" 1 3 "360") - ("vyzo" "crypto.plt" 1 2 #f) - ("vyzo" "crypto.plt" 1 1 #f) - ("vyzo" "crypto.plt" 1 0 #f) - ("vyzo" "docgen.plt" 1 0 #f) - ("vyzo" "gnuplot.plt" 1 3 #f) - ("vyzo" "gnuplot.plt" 1 2 "4.0") - ("vyzo" "gnuplot.plt" 1 1 #f) - ("vyzo" "gnuplot.plt" 1 0 "4.0") - ("vyzo" "socket.plt" 3 1 "4.0") - ("vyzo" "socket.plt" 3 0 "4.0") - ("vyzo" "socket.plt" 2 0 #f) - ("vyzo" "socket.plt" 1 2 #f) - ("vyzo" "socket.plt" 1 1 #f) - ("vyzo" "socket.plt" 1 0 #f) - ("robby" "bug.plt" 1 0 #f) - ("robby" "redex.plt" 4 4 "371.4") - ("robby" "redex.plt" 4 3 "371.4") - ("robby" "redex.plt" 4 2 "371.4") - ("robby" "redex.plt" 4 1 "371.4") - ("robby" "redex.plt" 4 0 "371.4") - ("robby" "redex.plt" 3 28 "370.3") - ("robby" "redex.plt" 3 27 "370.3") - ("robby" "redex.plt" 3 26 "370.3") - ("robby" "redex.plt" 3 25 "370.3") - ("robby" "redex.plt" 3 24 "370.3") - ("robby" "redex.plt" 3 23 "370.3") - ("robby" "redex.plt" 3 22 "370.3") - ("robby" "redex.plt" 3 21 "370.3") - ("robby" "redex.plt" 3 20 "370.3") - ("robby" "redex.plt" 3 19 "370.3") - ("robby" "redex.plt" 3 18 "370.3") - ("robby" "redex.plt" 3 17 "370.3") - ("robby" "redex.plt" 3 16 "370.3") - ("robby" "redex.plt" 3 15 "369.100") - ("robby" "redex.plt" 3 14 "369.100") - ("robby" "redex.plt" 3 13 "369.100") - ("robby" "redex.plt" 3 12 "369.100") - ("robby" "redex.plt" 3 11 "369.9") - ("robby" "redex.plt" 3 10 "369.9") - ("robby" "redex.plt" 3 9 "369.9") - ("robby" "redex.plt" 3 8 "369.9") - ("robby" "redex.plt" 3 7 "369.8") - ("robby" "redex.plt" 3 6 "369.8") - ("robby" "redex.plt" 3 5 "301.3") - ("robby" "redex.plt" 3 4 "301.3") - ("robby" "redex.plt" 3 3 "301.3") - ("robby" "redex.plt" 3 2 "301.3") - ("robby" "redex.plt" 3 1 "301.3") - ("robby" "redex.plt" 3 0 "301.3") - ("robby" "redex.plt" 2 6 "301.3") - ("robby" "redex.plt" 2 5 "301.3") - ("robby" "redex.plt" 2 4 "301.3") - ("robby" "redex.plt" 2 3 "301.3") - ("robby" "redex.plt" 2 2 "301.3") - ("robby" "redex.plt" 2 1 "301.3") - ("robby" "redex.plt" 2 0 #f) - ("robby" "redex.plt" 1 3 #f) - ("robby" "redex.plt" 1 2 #f) - ("robby" "redex.plt" 1 1 #f) - ("robby" "redex.plt" 1 0 #f) - ("robby" "sml.plt" 1 6 "4.2.0.2") - ("robby" "sml.plt" 1 5 "4.2.0.2") - ("robby" "sml.plt" 1 4 "4.2.0.2") - ("robby" "sml.plt" 1 3 "4.2.0.2") - ("robby" "sml.plt" 1 2 "4.2.0.2") - ("robby" "sml.plt" 1 1 "4.2.0.2") - ("robby" "sml.plt" 1 0 "4.2.0.2")) diff --git a/collects/meta/drdr/plt-build.ss b/collects/meta/drdr/plt-build.ss index f9749c8af9..d0791683f1 100644 --- a/collects/meta/drdr/plt-build.ss +++ b/collects/meta/drdr/plt-build.ss @@ -145,14 +145,16 @@ (revision-log-dir rev)) (define trunk->log (rebase-path trunk-dir log-dir)) - (define mzscheme-path - (path->string (build-path trunk-dir "bin" "mzscheme"))) + (define racket-path + (path->string (build-path trunk-dir "bin" "racket"))) + ; XXX fix (define mzc-path (path->string (build-path trunk-dir "bin" "mzc"))) - (define mred-text-path - (path->string (build-path trunk-dir "bin" "mred-text"))) - (define mred-path - (path->string (build-path trunk-dir "bin" "mred"))) + (define gracket-text-path + (path->string (build-path trunk-dir "bin" "gracket-text"))) + (define gracket-path + (path->string (build-path trunk-dir "bin" "gracket"))) + ; XXX fix (define planet-path (path->string (build-path trunk-dir "bin" "planet"))) (define collects-pth @@ -185,13 +187,19 @@ [#f #f] [(list-rest "mzscheme" rst) - (lambda () (list* mzscheme-path rst))] + (lambda () (list* racket-path rst))] + [(list-rest "racket" rst) + (lambda () (list* racket-path rst))] [(list-rest "mzc" rst) (lambda () (list* mzc-path rst))] [(list-rest "mred-text" rst) - (lambda () (list* mred-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + (lambda () (list* gracket-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] [(list-rest "mred" rst) - (lambda () (list* mred-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + (lambda () (list* gracket-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + [(list-rest "gracket-text" rst) + (lambda () (list* gracket-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + [(list-rest "gracket" rst) + (lambda () (list* gracket-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] [_ #f]))] (if pth-cmd @@ -233,7 +241,7 @@ #:timeout (current-subprocess-timeout-seconds) #:env (current-env) (build-path log-dir "src" "build" "set-browser.ss") - mzscheme-path + racket-path (list "-t" (path->string* (build-path (drdr-directory) "set-browser.ss")))) ; And go (notify! "Starting testing") diff --git a/collects/meta/drdr/scm.ss b/collects/meta/drdr/scm.ss index 4cd6367403..95bb4abc91 100644 --- a/collects/meta/drdr/scm.ss +++ b/collects/meta/drdr/scm.ss @@ -179,7 +179,7 @@ (define (scm-revisions-after cur-rev) (define newest-rev (newest-push)) - (for/list ([rev (in-range (add1 cur-rev) newest-rev)] + (for/list ([rev (in-range (add1 cur-rev) (add1 newest-rev))] #:when (let ([info (push-info rev)]) (and info (hash-has-key? (push-data-branches info) master-branch)))) diff --git a/collects/meta/props b/collects/meta/props old mode 100644 new mode 100755 index 023f3f0cda..61b10c3dd7 --- a/collects/meta/props +++ b/collects/meta/props @@ -1,6 +1,6 @@ #!/bin/sh #| -*- scheme -*- -exec mzscheme -um "$0" "$@" +exec racket -um "$0" "$@" |# #lang scheme/base @@ -8,11 +8,13 @@ exec mzscheme -um "$0" "$@" This file contains "properties" of various files and directories in the PLT tree. Its format is briefly described below, but it is mainly intended to be -used as a script -- run it with `-h' to find out how to use it. In addition, -you can add this to your git config file: +used as a command-line script -- run it with `-h' to find out how to use it. +In addition, you can make it work as a git command -- put this in a file +called "git-prop" somewhere in your path (make sure to "chmod +x" it): - [alias] - prop = "!$(git rev-parse --show-toplevel)/collects/meta/props" + #!/bin/sh + top="$(git rev-parse --show-toplevel)" || exit 1 + exec "$top/collects/meta/props" "$@" and use it as a git command: `git prop cmd args...'. This will use the script from the work tree that you're now in, with any mzscheme executable that @@ -374,7 +376,8 @@ path/s is either such a string or a list of them. `([("help" "h" "-h" "--help") "help: show this help" ,help] [("get") "get " ,get] [("set") "set " ,set] - [("del") "del " ,del])) + [("del") "del " ,del] + [("mv") "mv " ,mv])) (define (find-root) (let loop ([p this-file] [n 3]) ; look only a few level up (let-values ([(base _1 _2) (split-path p)]) @@ -386,18 +389,23 @@ path/s is either such a string or a list of them. (loop base (sub1 n)) (error* #f "could not find the plt root from ~a" (path-only this-file)))))))) + (define check-existing-paths? #t) (define (paths->list path paths) (if (and (equal? "-" path) (null? paths)) (for/list ([p (in-lines (current-input-port))]) p) (let ([root (normalize-path (find-root))]) (define (norm p) (let ([n (find-relative-path root (normalize-path p))]) - (if (equal? n root) - "" - (let ([n (path->string n)]) - (if (regexp-match #rx"^\\.\\.(?:/|$)" n) - (error* #f "path is not in the plt tree: ~s" p) - n))))) + (cond + [(not (or (not check-existing-paths?) + (file-exists? n) + (directory-exists? n))) + (error* #f "path does not exist: ~s" p)] + [(equal? n root) ""] + [else (let ([n (path->string n)]) + (if (regexp-match #rx"^\\.\\.(?:/|$)" n) + (error* #f "path is not in the plt tree: ~s" p) + n))]))) (if (null? paths) (norm path) (map norm (cons path paths)))))) (define (get prop path . paths) (let ([prop (string->symbol prop)] @@ -414,9 +422,22 @@ path/s is either such a string or a list of them. (set-prop! (paths->list path paths) prop val #:as-string? #t) (write-props))) (define (del prop path . paths) + (set! check-existing-paths? #f) (del-prop! (paths->list path paths) (string->symbol prop)) (write-props)) + (define (mv from to) + (set! check-existing-paths? #f) + (let ([nonesuch (gensym 'none)] + [from (paths->list from null)] + [to (paths->list to null)]) + (for ([p (in-list (map prop-name known-props))]) + (let ([v (get-prop from p nonesuch #:strict? #t)]) + (unless (eq? v nonesuch) + (set-prop! to p v) + (del-prop! from p))))) + (write-props)) (set! running-as-script? #t) + ;; (perhaps add some `--force' flag to (set! check-existing-paths? #f)) (let* ([verb (if (pair? args) (car args) (usage "missing subcommand"))] [args (cdr args)] [proc (or (for/or ([v (in-list (verbs))] #:when (member verb (car v))) @@ -508,6 +529,7 @@ path/s is either such a string or a list of them. "collects/algol60" responsible (mflatt) "collects/algol60/bd-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/algol60/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/at-exp" responsible (eli) "collects/browser" responsible (robby) "collects/browser/browser-unit.rkt" drdr:command-line "mred-text -t ~s" "collects/browser/browser.rkt" drdr:command-line "mred-text -t ~s" @@ -522,10 +544,11 @@ path/s is either such a string or a list of them. "collects/browser/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/combinator-parser" responsible (kathyg) "collects/compiler" responsible (mflatt) -"collects/compiler/commands/c-ext.rkt" drdr:command-line "" +"collects/compiler/commands/ctool.rkt" drdr:command-line "" "collects/compiler/commands/exe-dir.rkt" drdr:command-line "" "collects/compiler/commands/exe.rkt" drdr:command-line "" "collects/compiler/commands/pack.rkt" drdr:command-line "" +"collects/config" responsible (mflatt eli) "collects/defaults" responsible (robby) "collects/deinprogramm" responsible (sperber) "collects/deinprogramm/contract/contract-test-display.rkt" drdr:command-line "mred-text -t ~s" @@ -533,8 +556,8 @@ path/s is either such a string or a list of them. "collects/deinprogramm/define-record-procedures.scm" drdr:command-line "" "collects/deinprogramm/deinprogramm-langs.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/image.rkt" drdr:command-line "mred-text -t ~s" -"collects/deinprogramm/line3d.scm" drdr:command-line "" "collects/deinprogramm/line3d.rkt" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/line3d.scm" drdr:command-line "" "collects/deinprogramm/quickcheck/quickcheck.scm" drdr:command-line "" "collects/deinprogramm/quickcheck/random.scm" drdr:command-line "" "collects/deinprogramm/run-dmda-code.rkt" drdr:command-line "mzc ~s" @@ -580,16 +603,18 @@ path/s is either such a string or a list of them. "collects/drscheme/private/stick-figures.rkt" drdr:command-line "mzc ~s" "collects/drscheme/private/syncheck-debug.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/private/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/tools-drs.rkt" drdr:command-line "mred ~s" "collects/drscheme/private/tools.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/private/tracing.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/private/unit.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/sprof.rkt" drdr:command-line "mred-text -t ~s" -"collects/drscheme/syncheck-drscheme-button.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/syncheck-drracket-button.rkt" drdr:command-line "mred-text ~s" "collects/drscheme/syncheck.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme/tool-lib.rkt" drdr:command-line "mzc ~s" "collects/dynext" responsible (mflatt) "collects/dynext/private/macinc.rkt" drdr:command-line "mzscheme -f ~s" "collects/dynext/private/stdio.rkt" drdr:command-line "" +"collects/embedded-gui" responsible (mflatt) "collects/embedded-gui/embedded-gui.rkt" drdr:command-line "mred-text -t ~s" "collects/embedded-gui/main.rkt" drdr:command-line "mred-text -t ~s" "collects/embedded-gui/private/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" @@ -626,6 +651,7 @@ path/s is either such a string or a list of them. "collects/embedded-gui/private/tests/test-show-feature.rkt" drdr:command-line "" "collects/embedded-gui/private/tests/unaligned-childless-redux.rkt" drdr:command-line "" "collects/embedded-gui/private/verthoriz-alignment.rkt" drdr:command-line "mred-text -t ~s" +"collects/eopl" responsible (eli) "collects/errortrace" responsible (mflatt) "collects/ffi" responsible (eli) "collects/ffi/esd.rkt" drdr:command-line "mzc ~s" @@ -634,8 +660,6 @@ path/s is either such a string or a list of them. "collects/ffi/examples/magick.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/sndfile.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/tcl.rkt" drdr:command-line "mzc ~s" -"collects/ffi/examples/xmmsctrl.rkt" drdr:command-line "" -"collects/ffi/examples/xosd.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/use-c-printf.rkt" drdr:command-line "mzc -k ~s" "collects/ffi/examples/use-esd.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/use-magick.rkt" drdr:command-line "mzc ~s" @@ -643,14 +667,17 @@ path/s is either such a string or a list of them. "collects/ffi/examples/use-tcl.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/use-xmmsctrl.rkt" drdr:command-line "" "collects/ffi/examples/use-xosd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/xmmsctrl.rkt" drdr:command-line "" +"collects/ffi/examples/xosd.rkt" drdr:command-line "mzc ~s" "collects/ffi/magick.rkt" drdr:command-line "mzc ~s" "collects/ffi/objc.rkt" drdr:command-line "mzc ~s" -"collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s" "collects/ffi/private/objc-doc-unsafe.rkt" drdr:command-line "mzc ~s" "collects/ffi/sndfile.rkt" drdr:command-line "mzc ~s" "collects/ffi/tcl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s" "collects/ffi/xmmsctrl.rkt" drdr:command-line "mzc ~s" "collects/ffi/xosd.rkt" drdr:command-line "mzc ~s" +"collects/file" responsible (mflatt) "collects/framework" responsible (robby) "collects/framework/collapsed-snipclass.rkt" drdr:command-line "mred-text -t ~s" "collects/framework/comment-snip.rkt" drdr:command-line "mred-text -t ~s" @@ -783,6 +810,7 @@ path/s is either such a string or a list of them. "collects/games/show-help.rkt" drdr:command-line "mred-text -t ~s" "collects/games/slidey/slidey.rkt" drdr:command-line "mred-text -t ~s" "collects/games/spider/spider.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics" responsible (mflatt robby) "collects/graphics/graphics-posn-less-unit.rkt" drdr:command-line "mred-text -t ~s" "collects/graphics/graphics-unit.rkt" drdr:command-line "mred-text -t ~s" "collects/graphics/graphics.rkt" drdr:command-line "mred-text -t ~s" @@ -796,6 +824,7 @@ path/s is either such a string or a list of them. "collects/gui-debugger" responsible (gmarceau) "collects/gui-debugger/debug-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/gui-debugger/load-sandbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder" responsible (robby) "collects/guibuilder/base.rkt" drdr:command-line "mred-text -t ~s" "collects/guibuilder/canvas.rkt" drdr:command-line "mred-text -t ~s" "collects/guibuilder/feature.rkt" drdr:command-line "mred-text -t ~s" @@ -824,6 +853,7 @@ path/s is either such a string or a list of them. "collects/help" responsible (robby) "collects/help/bug-report.rkt" drdr:command-line "mred-text -t ~s" "collects/help/help.rkt" drdr:command-line "mzc ~s" +"collects/hierlist" responsible (mflatt) "collects/hierlist/hierlist.rkt" drdr:command-line "mred-text -t ~s" "collects/honu" responsible (mflatt rafkind) "collects/htdp" responsible (matthias) @@ -873,9 +903,12 @@ path/s is either such a string or a list of them. "collects/htdp/tests/world.rkt" drdr:command-line "mred -t ~s" "collects/htdp/world.rkt" drdr:command-line "mred-text -t ~s" "collects/html" responsible (jay) +"collects/icons" responsible (robby) +"collects/lang" responsible (mflatt robby matthias) "collects/lang/htdp-langs.rkt" drdr:command-line "mred-text -t ~s" "collects/lang/plt-pretty-big.rkt" drdr:command-line "mred-text -t ~s" "collects/lang/private/imageeq.rkt" drdr:command-line "mred-text -t ~s" +"collects/launcher" responsible (mflatt eli) "collects/lazy" responsible (eli) "collects/macro-debugger" responsible (ryanc) "collects/macro-debugger/model/trace-raw.rkt" drdr:command-line "mred-text -t ~s" @@ -911,6 +944,7 @@ path/s is either such a string or a list of them. "collects/meta/check-dists.rkt" drdr:command-line "" "collects/meta/contrib/completion/racket-completion.bash" responsible (samth sstrickl) drdr:command-line "" "collects/meta/drdr" responsible (jay) drdr:command-line "" +"collects/mred" responsible (mflatt robby) "collects/mred/edit-main.rkt" drdr:command-line "mzc ~s" "collects/mred/edit.rkt" drdr:command-line "mred-text -t ~s" "collects/mred/lang/main.rkt" drdr:command-line "mred-text -t ~s" @@ -1022,11 +1056,14 @@ path/s is either such a string or a list of them. "collects/mrlib/syntax-browser.rkt" drdr:command-line "mred-text -t ~s" "collects/mrlib/tab-choice.rkt" drdr:command-line "mred-text -t ~s" "collects/mrlib/text-string-style-desc.rkt" drdr:command-line "mred-text -t ~s" +"collects/mysterx" responsible (mflatt) "collects/mysterx/main.rkt" drdr:command-line "mzc ~s" "collects/mysterx/mxdemo.rkt" drdr:command-line "mzc ~s" "collects/mysterx/mysterx.rkt" drdr:command-line "mzc ~s" "collects/mysterx/private/mxmain.rkt" drdr:command-line "mzc ~s" "collects/mysterx/private/prims.rkt" drdr:command-line "mzc ~s" +"collects/mzcom" responsible (mflatt) +"collects/mzlib" responsible (eli cce robby sstrickl mflatt) "collects/mzlib/contract.rkt" responsible (robby) "collects/mzlib/foreign.rkt" responsible (eli) "collects/mzlib/kw.rkt" responsible (eli) @@ -1035,11 +1072,13 @@ path/s is either such a string or a list of them. "collects/mzlib/plt-match.rkt" responsible (samth) "collects/mzlib/private/shared-body.rkt" drdr:command-line "" "collects/mzlib/shared.rkt" responsible (robby) +"collects/mzscheme" responsible (mflatt) "collects/mzscheme/examples/cfile.rkt" drdr:command-line "" "collects/mzscheme/examples/curses-demo.rkt" drdr:command-line "" "collects/mzscheme/examples/fmod-ez.rkt" drdr:command-line "" "collects/mzscheme/examples/msgbox.rkt" drdr:command-line "" "collects/mzscheme/examples/tree-finish.rkt" drdr:command-line "" +"collects/net" responsible (eli jay) "collects/openssl" responsible (eli) "collects/parser-tools" responsible (sowens) "collects/parser-tools/private-lex/error-tests.rkt" drdr:command-line "" @@ -1066,12 +1105,28 @@ path/s is either such a string or a list of them. "collects/plot/view.rkt" drdr:command-line "mred-text -t ~s" "collects/preprocessor" responsible (eli) "collects/profile" responsible (eli) +"collects/r5rs" responsible (mflatt) +"collects/r6rs" responsible (mflatt) +"collects/r6rs/run.rkt" drdr:command-line "mzc ~s" +"collects/racket" responsible (mflatt) "collects/racket/gui/base.rkt" drdr:command-line "mred -t ~s" "collects/racket/gui/init.rkt" drdr:command-line "mred -t ~s" "collects/racket/gui.rkt" drdr:command-line "mred -t ~s" +"collects/raclog" responsible (jay) "collects/raco" responsible (mflatt) -"collects/r5rs" responsible (mflatt) -"collects/r6rs/run.rkt" drdr:command-line "mzc ~s" +"collects/raco/main.rkt" drdr:command-line "" +"collects/raco/raco.rkt" drdr:command-line "" +"collects/racunit" responsible (jay noel ryanc) +"collects/racunit/gui.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui" responsible (ryanc) +"collects/racunit/private/gui/config.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/controller.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/model2rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/view.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/tool.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/reader" responsible (mflatt) "collects/readline" responsible (mflatt) "collects/redex" responsible (clklein) "collects/redex/examples/arithmetic.rkt" drdr:command-line "mred-text -t ~s -- --no-print" @@ -1114,8 +1169,9 @@ path/s is either such a string or a list of them. "collects/redex/tests/tl-test.rkt" drdr:command-line "mzc ~s" "collects/repos-time-stamp" responsible (eli) "collects/repos-time-stamp/time-stamp.rkt" drdr:command-line "mred-text -t ~s" -"collects/raco/main.rkt" drdr:command-line "" -"collects/raco/raco.rkt" drdr:command-line "" +"collects/rnrs" responsible (mflatt) +"collects/s-exp" responsible (mflatt eli) +"collects/scheme" responsible (mflatt sstrickl samth robby eli) "collects/scheme/contract/private/arrow.rkt" responsible (robby) "collects/scheme/contract/private/base.rkt" responsible (robby) "collects/scheme/contract/private/ds-helpers.rkt" responsible (robby) @@ -1127,25 +1183,19 @@ path/s is either such a string or a list of them. "collects/scheme/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/match" responsible (samth) "collects/scheme/match.rkt" responsible (samth) -"collects/racunit" responsible (jay noel ryanc) "collects/schemeunit" responsible (jay) -"collects/schemeunit/gui.rkt" responsible (jay) drdr:command-line "mred-text -t ~s" -"collects/racunit/gui.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui" responsible (ryanc) -"collects/racunit/private/gui/config.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/controller.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/gui.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/model2rml.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/rml.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/view.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/tool.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/schemeunit/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/scribble" responsible (mflatt eli) "collects/scribble/run.rkt" drdr:command-line "mzc ~s" "collects/scribble/tools/drscheme-buttons.rkt" drdr:command-line "mred-text ~s" -"collects/scribble/tools/private/mk-drs-bitmaps.rkt" drdr:command-line "mred-text ~s" drdr:timeout 240 +"collects/scribble/tools/private/mk-drs-bitmaps.rkt" drdr:command-line "mred-text ~s" drdr:timeout 600 +"collects/scribblings" responsible (mflatt eli robby mathias) "collects/scribblings/foreign/unsafe-foreign.rkt" drdr:command-line "mzc ~s" "collects/scribblings/framework/standard-menus.scrbl" drdr:command-line "" "collects/scribblings/guide/contracts-examples/6.rkt" drdr:command-line "mzscheme -f ~s" "collects/scribblings/guide/read.scrbl" drdr:command-line "" +"collects/scriblib" responsible (mflatt) +"collects/setup" responsible (mflatt) "collects/setup/main.rkt" drdr:command-line "" "collects/setup/plt-installer.rkt" drdr:command-line "mred-text -t ~s" "collects/setup/setup-go.rkt" drdr:command-line "" @@ -1167,6 +1217,7 @@ path/s is either such a string or a list of them. "collects/sirmail/sirmail.rkt" drdr:command-line "mzc ~s" "collects/sirmail/sirmailr.rkt" drdr:command-line "mred-text -t ~s" "collects/sirmail/spell.rkt" drdr:command-line "mred-text -t ~s" +"collects/slatex" responsible (sstrickl) "collects/slatex/pdf-slatex-launcher.rkt" drdr:command-line "mzc ~s" "collects/slatex/slatex-launcher.rkt" drdr:command-line "mzc ~s" "collects/slideshow" responsible (mflatt robby) @@ -1196,6 +1247,7 @@ path/s is either such a string or a list of them. "collects/slideshow/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/slideshow/tutorial-show.rkt" drdr:command-line "mzc ~s" "collects/slideshow/viewer.rkt" drdr:command-line "mred-text -t ~s" +"collects/srfi" responsible (mflatt noel chongkai jay) "collects/srfi/25/arlib.scm" drdr:command-line "" "collects/srfi/25/ix-ctor.scm" drdr:command-line "" "collects/srfi/25/op-ctor.scm" drdr:command-line "" @@ -1256,21 +1308,24 @@ path/s is either such a string or a list of them. "collects/teachpack/turtles.ss" drdr:command-line "mred-text -t ~s" "collects/teachpack/value-turtles.ss" drdr:command-line "mred-text -t ~s" "collects/teachpack/world.ss" drdr:command-line "mred-text -t ~s" +"collects/test-box-recovery" responsible (mflatt) "collects/test-box-recovery/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine" responsible (kathyg) "collects/test-engine/scheme-gui.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-coverage.scm" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-display.scm" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-tool.scm" drdr:command-line "mred-text -t ~s" -"collects/tests/aligned-pasteboard/example.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/big-min.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt" drdr:command-line "" +"collects/tests" responsible (eli) +"collects/tests/aligned-pasteboard" responsible (unknown) +"collects/tests/aligned-pasteboard/example.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/big-min.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl" drdr:command-line "" "collects/tests/aligned-pasteboard/snip-dumper.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/aligned-pasteboard/test-alignment.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-snip-lib.rkt" drdr:command-line "" -"collects/tests/aligned-pasteboard/test.rkt" drdr:command-line "mred -f ~s" -"collects/tests/aligned-pasteboard/test2.rkt" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/test-alignment.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-snip-lib.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test.rktl" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/test2.rktl" drdr:command-line "mred -f ~s" "collects/tests/compiler" responsible (jay) "collects/tests/compiler/regression.rkt" responsible (mflatt) "collects/tests/compiler/zo-test.rkt" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R" @@ -1313,54 +1368,75 @@ path/s is either such a string or a list of them. "collects/tests/framework/search.rkt" drdr:command-line "mzc -k ~s" "collects/tests/framework/test-suite-utils.rkt" drdr:command-line "mzc -k ~s" "collects/tests/framework/text.rkt" drdr:command-line "mzc -k ~s" -"collects/tests/framework/utils.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/framework/utils.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/frtime" responsible (gcooper jay) "collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/future" responsible (jamesswaine mflatt robby) "collects/tests/future/future.rkt" drdr:command-line "mzscheme ~s" "collects/tests/future/random-future.rkt" drdr:timeout 240 +"collects/tests/honu" responsible (rafkind) +"collects/tests/html" responsible (jay) "collects/tests/macro-debugger" responsible (ryanc) "collects/tests/macro-debugger/all-tests.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/macro-debugger/gui-tests.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/match" responsible (samth) "collects/tests/mred" responsible (mflatt) -"collects/tests/mred/auto.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/auto.rktl" drdr:command-line "mred -f ~s" "collects/tests/mred/blits.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/dc.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/dc.rktl" drdr:command-line "mred -f ~s" "collects/tests/mred/draw.rkt" drdr:command-line "mzc ~s" -"collects/tests/mred/editor.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui-main.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/editor.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui-main.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui.rktl" drdr:command-line "mred -f ~s" "collects/tests/mred/item.rkt" drdr:command-line "mzc ~s" -"collects/tests/mred/loadtest.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/mem.rkt" drdr:command-line "" -"collects/tests/mred/paramz.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/png.rkt" drdr:command-line "" -"collects/tests/mred/random.rkt" drdr:command-line "" -"collects/tests/mred/showkey.rkt" drdr:command-line "" -"collects/tests/mred/sixlib.rkt" drdr:command-line "" +"collects/tests/mred/loadtest.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/mem.rktl" drdr:command-line "" +"collects/tests/mred/paramz.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/png.rktl" drdr:command-line "" +"collects/tests/mred/random.rktl" drdr:command-line "" +"collects/tests/mred/showkey.rktl" drdr:command-line "" +"collects/tests/mred/sixlib.rktl" drdr:command-line "" "collects/tests/mred/test-editor-admin.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/mred/testing.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mred/text-scale.rkt" drdr:command-line "" -"collects/tests/mred/windowing.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/testing.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/text-scale.rktl" drdr:command-line "" +"collects/tests/mred/windowing.rktl" drdr:command-line "mred -f ~s" "collects/tests/mred/wxme-doc-random.rkt" drdr:command-line "mzc ~s" "collects/tests/mred/wxme-random.rkt" drdr:command-line "" "collects/tests/mred/wxme.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" -"collects/tests/mysterx/mystests.rkt" drdr:command-line "" -"collects/tests/mzcom/test.rkt" drdr:command-line "" +"collects/tests/mysterx" responsible (mflatt) +"collects/tests/mysterx/dhtmltests.rktl" drdr:command-line "" +"collects/tests/mysterx/mystests.rktl" drdr:command-line "" +"collects/tests/mzcom" responsible (mflatt) +"collects/tests/mzcom/test.rktl" drdr:command-line "" +"collects/tests/plai" responsible (jay) +"collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator1.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator2.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator3.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator5.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/void-app.rkt" drdr:command-line "" +"collects/tests/plai/test-random-mutator.rkt" responsible (jay robby) +"collects/tests/plai/web.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/planet" responsible (robby jay) +"collects/tests/planet/cmdline-tool.rkt" drdr:command-line "" +"collects/tests/planet/examples/dummy-module.rkt" drdr:command-line "" +"collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/r6rs" responsible (mflatt) "collects/tests/racket" responsible (mflatt) -"collects/tests/racket/advanced.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/all.rkt" drdr:command-line "" -"collects/tests/racket/async-channel.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/awk.rkt" drdr:command-line "" -"collects/tests/racket/basic.rkt" drdr:command-line "" -"collects/tests/racket/beg-adv.rkt" drdr:command-line "" -"collects/tests/racket/beg-bega.rkt" drdr:command-line "" -"collects/tests/racket/beg-intm.rkt" drdr:command-line "" -"collects/tests/racket/beg-intml.rkt" drdr:command-line "" -"collects/tests/racket/bega-adv.rkt" drdr:command-line "" -"collects/tests/racket/beginner-abbr.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/beginner.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/advanced.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/all.rktl" drdr:command-line "" +"collects/tests/racket/async-channel.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/awk.rktl" drdr:command-line "" +"collects/tests/racket/basic.rktl" drdr:command-line "" +"collects/tests/racket/beg-adv.rktl" drdr:command-line "" +"collects/tests/racket/beg-bega.rktl" drdr:command-line "" +"collects/tests/racket/beg-intm.rktl" drdr:command-line "" +"collects/tests/racket/beg-intml.rktl" drdr:command-line "" +"collects/tests/racket/bega-adv.rktl" drdr:command-line "" +"collects/tests/racket/beginner-abbr.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/beginner.rktl" drdr:command-line "racket -f ~s" "collects/tests/racket/benchmarks/common/auto.rkt" drdr:command-line "racket ~s -- racket ctak" "collects/tests/racket/benchmarks/common/conform.rkt" drdr:command-line "" "collects/tests/racket/benchmarks/common/ctak.rkt" drdr:command-line "" @@ -1373,14 +1449,14 @@ path/s is either such a string or a list of them. "collects/tests/racket/benchmarks/common/maze.rkt" drdr:command-line "" "collects/tests/racket/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s" -"collects/tests/racket/benchmarks/common/mk-bigloo.rkt" drdr:command-line "" -"collects/tests/racket/benchmarks/common/mk-chicken.rkt" drdr:command-line "" -"collects/tests/racket/benchmarks/common/mk-gambit.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-bigloo.rktl" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-chicken.rktl" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-gambit.rktl" drdr:command-line "" "collects/tests/racket/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/peval.rkt" drdr:command-line "" -"collects/tests/racket/benchmarks/common/r5rs-wrap.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/common/r5rs-wrap.rktl" drdr:command-line "racket -f ~s" "collects/tests/racket/benchmarks/common/scheme.rkt" drdr:command-line "" "collects/tests/racket/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/sort1.rkt" drdr:command-line "" @@ -1388,10 +1464,10 @@ path/s is either such a string or a list of them. "collects/tests/racket/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s" -"collects/tests/racket/benchmarks/mz/expand-class.scm" drdr:command-line "racket -f ~s" -"collects/tests/racket/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" -"collects/tests/racket/benchmarks/mz/redsem.scm" drdr:command-line "racket -f ~s -- --skip-struct-test" -"collects/tests/racket/benchmarks/mz/ssax.scm" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/mz/expand-class.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/mz/parsing.rktl" drdr:command-line "mred -f ~s" +"collects/tests/racket/benchmarks/mz/redsem.rkt" drdr:command-line "racket -f ~s -- --skip-struct-test" +"collects/tests/racket/benchmarks/mz/ssax.rktl" drdr:command-line "racket -f ~s" "collects/tests/racket/benchmarks/rx/auto.rkt" drdr:command-line "racket -qt ~s -- racket simple" drdr:timeout 600 "collects/tests/racket/benchmarks/rx/pcre.rkt" drdr:command-line "racket ~s \"mz\"\"scheme\"" "collects/tests/racket/benchmarks/shootout/ackermann.rkt" drdr:command-line "racket -t ~s -- 10" @@ -1426,223 +1502,217 @@ path/s is either such a string or a list of them. "collects/tests/racket/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s" "collects/tests/racket/benchmarks/shootout/strcat.rkt" drdr:command-line "racket -t ~s -- 25" "collects/tests/racket/benchmarks/shootout/thread-ring.rkt" drdr:command-line "racket -t ~s -- 25" -"collects/tests/racket/binc.rkt" drdr:command-line "" -"collects/tests/racket/boundmap-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s" -"collects/tests/racket/censor.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/chaperone.rkt" drdr:command-line "" -"collects/tests/racket/char-set.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/chez-module.rkt" drdr:command-line "" -"collects/tests/racket/cm.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/cmdline.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/compat.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/compile.rkt" drdr:command-line "" -"collects/tests/racket/contmark.rkt" drdr:command-line "" -"collects/tests/racket/contract-mzlib-test.rkt" drdr:command-line "" +"collects/tests/racket/binc.rktl" drdr:command-line "" +"collects/tests/racket/boundmap-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/cache-image-snip-test.rktl" drdr:command-line "mred -f ~s" +"collects/tests/racket/censor.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/chaperone.rktl" drdr:command-line "" +"collects/tests/racket/char-set.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/chez-module.rktl" drdr:command-line "" +"collects/tests/racket/cm.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/cmdline.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/compat.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/compile.rktl" drdr:command-line "" +"collects/tests/racket/contmark.rktl" drdr:command-line "" +"collects/tests/racket/contract-mzlib-test.rktl" drdr:command-line "" "collects/tests/racket/contract-opt-tests.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/contract-test.rkt" responsible (robby) drdr:command-line "" -"collects/tests/racket/control.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/date.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/deep.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/dict.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/embed-in-c.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/embed-me4.rkt" drdr:command-line "" +"collects/tests/racket/contract-test.rktl" responsible (robby) drdr:command-line "" +"collects/tests/racket/control.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/date.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/deep.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/dict.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-in-c.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-me4.rktl" drdr:command-line "" "collects/tests/racket/embed-me5.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/racket/embed-me7.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/racket/embed-me9.rkt" drdr:command-line "" -"collects/tests/racket/embed.rkt" drdr:command-line "" -"collects/tests/racket/etc.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/expand.rkt" drdr:command-line "" -"collects/tests/racket/fact.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/file.rkt" drdr:command-line "" -"collects/tests/racket/filelib.rkt" drdr:command-line "" drdr:timeout 360 -"collects/tests/racket/fixnum.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 -"collects/tests/racket/for.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/foreign-test.c" responsible (eli) -"collects/tests/racket/foreign-test.rkt" responsible (eli) drdr:command-line "racket -f ~s" -"collects/tests/racket/function.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/head.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s" -"collects/tests/racket/htdp-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/htdp.rkt" drdr:command-line "" -"collects/tests/racket/id-table-test.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/imap.rkt" drdr:command-line "" -"collects/tests/racket/intermediate-lambda.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/intermediate.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/intm-adv.rkt" drdr:command-line "" -"collects/tests/racket/intm-intml.rkt" drdr:command-line "" -"collects/tests/racket/intmlam-adv.rkt" drdr:command-line "" -"collects/tests/racket/ktest.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/kw.rkt" responsible (eli) drdr:command-line "racket -f ~s" -"collects/tests/racket/list.rkt" drdr:command-line "" -"collects/tests/racket/loadable.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/loadtest.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/logger.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/loop.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ltest.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/macro.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/macrolib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/makeflat.rkt" drdr:command-line "" -"collects/tests/racket/makeflats.rkt" drdr:command-line "" -"collects/tests/racket/math.rkt" drdr:command-line "" -"collects/tests/racket/moddep.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/modprot.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/module-reader.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/module.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/mpair.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/mz-tests.rkt" drdr:command-line "" -"collects/tests/racket/mzlib-tests.rkt" drdr:command-line "" -"collects/tests/racket/mzq.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/name.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/namespac.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/nch.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/net.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/number.rkt" drdr:command-line "" -"collects/tests/racket/numstrs.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/object-old.rkt" drdr:command-line "" -"collects/tests/racket/object.rkt" drdr:command-line "" -"collects/tests/racket/oe.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/openssl.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/optimize.rkt" drdr:command-line "" -"collects/tests/racket/pack.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/package-gen.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/package.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/parallel.rkt" drdr:command-line "" -"collects/tests/racket/param.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/path.rkt" drdr:command-line "" -"collects/tests/racket/pathlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/pconvert.rkt" drdr:command-line "" -"collects/tests/racket/place-channel.rkt" drdr:command-line "" -"collects/tests/racket/port.rkt" drdr:command-line "" -"collects/tests/racket/portlib.rkt" drdr:command-line "" +"collects/tests/racket/embed.rktl" drdr:command-line "" +"collects/tests/racket/etc.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/expand.rktl" drdr:command-line "" +"collects/tests/racket/fact.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/file.rktl" drdr:command-line "" +"collects/tests/racket/filelib.rktl" drdr:command-line "" drdr:timeout 360 +"collects/tests/racket/fixnum.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/for.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/foreign-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/function.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/head.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp-image.rktl" responsible (robby) drdr:command-line "mred -f ~s" +"collects/tests/racket/htdp-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp.rktl" drdr:command-line "" +"collects/tests/racket/id-table-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/imap.rktl" drdr:command-line "" +"collects/tests/racket/intermediate-lambda.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/intermediate.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/intm-adv.rktl" drdr:command-line "" +"collects/tests/racket/intm-intml.rktl" drdr:command-line "" +"collects/tests/racket/intmlam-adv.rktl" drdr:command-line "" +"collects/tests/racket/ktest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/kw.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/list.rktl" drdr:command-line "" +"collects/tests/racket/loadable.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/loadtest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/logger.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/loop.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ltest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/macro.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/macrolib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/makeflat.rktl" drdr:command-line "" +"collects/tests/racket/makeflats.rktl" drdr:command-line "" +"collects/tests/racket/math.rktl" drdr:command-line "" +"collects/tests/racket/moddep.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/modprot.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/module-reader.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/module.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/mpair.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/mz-tests.rktl" drdr:command-line "" +"collects/tests/racket/mzlib-tests.rktl" drdr:command-line "" +"collects/tests/racket/mzq.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/name.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/namespac.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/nch.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/net.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/number.rktl" drdr:command-line "" +"collects/tests/racket/numstrs.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/object-old.rktl" drdr:command-line "" +"collects/tests/racket/object.rktl" drdr:command-line "" +"collects/tests/racket/oe.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/openssl.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/optimize.rktl" drdr:command-line "" +"collects/tests/racket/pack.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/package-gen.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/package.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/parallel.rktl" drdr:command-line "" +"collects/tests/racket/param.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/path.rktl" drdr:command-line "" +"collects/tests/racket/pathlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/pconvert.rktl" drdr:command-line "" +"collects/tests/racket/place-channel.rktl" drdr:command-line "" +"collects/tests/racket/port.rktl" drdr:command-line "" +"collects/tests/racket/portlib.rktl" drdr:command-line "" "collects/tests/racket/pp-regression.rkt" drdr:command-line "" -"collects/tests/racket/pretty.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/procs.rkt" drdr:command-line "" -"collects/tests/racket/prompt-tests.rkt" drdr:command-line "" -"collects/tests/racket/prompt.rkt" drdr:command-line "" -"collects/tests/racket/quiet.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 -"collects/tests/racket/read.rkt" drdr:command-line "" -"collects/tests/racket/readtable.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/restart.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/runflats.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/rx.rkt" drdr:command-line "" -"collects/tests/racket/sandbox.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/scheme-tests.rkt" drdr:command-line "" -"collects/tests/racket/serialize.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/set.rkt" drdr:command-line "" -"collects/tests/racket/shared-tests.rkt" drdr:command-line "" -"collects/tests/racket/shared.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/srfi.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/stream.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/string-mzlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/string.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/struct.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/structlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/stx.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/subprocess.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/sync.rkt" drdr:command-line "" -"collects/tests/racket/syntax-tests.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/syntax.rkt" drdr:command-line "" -"collects/tests/racket/tcp.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/testing.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/thread.rkt" drdr:command-line "" -"collects/tests/racket/threadlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/thrport.rkt" drdr:command-line "" -"collects/tests/racket/trace.rkt" drdr:command-line "" -"collects/tests/racket/trait.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/listlib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/tic-bang.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/tic-func.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/ttt.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/ttt/uinc4.rkt" drdr:command-line "" -"collects/tests/racket/ttt/veclib.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/udp.rkt" drdr:command-line "" -"collects/tests/racket/uinc.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/uinc2.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/uinc3.rkt" drdr:command-line "" -"collects/tests/racket/uni-norm.rkt" drdr:command-line "" -"collects/tests/racket/unicode.rkt" drdr:command-line "" -"collects/tests/racket/unit.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/unitsig.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/unsafe.rkt" drdr:command-line "" -"collects/tests/racket/vector.rkt" drdr:command-line "" -"collects/tests/racket/version.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/will.rkt" drdr:command-line "racket -f ~s" -"collects/tests/racket/zo-marshal.rkt" drdr:command-line "" -"collects/tests/racket/ztest.rkt" drdr:command-line "" -"collects/tests/net" responsible (eli) -"collects/tests/plai" responsible (jay) -"collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator1.rkt" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator2.rkt" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator3.rkt" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator5.rkt" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/void-app.rkt" drdr:command-line "" -"collects/tests/plai/test-random-mutator.rkt" responsible (jay robby) -"collects/tests/plai/web.rkt" drdr:command-line "mzc -k ~s" -"collects/tests/planet/cmdline-tool.rkt" drdr:command-line "" -"collects/tests/planet/examples/dummy-module.rkt" drdr:command-line "" -"collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 +"collects/tests/racket/pretty.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/procs.rktl" drdr:command-line "" +"collects/tests/racket/prompt-tests.rktl" drdr:command-line "" +"collects/tests/racket/prompt.rktl" drdr:command-line "" +"collects/tests/racket/quiet.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/read.rktl" drdr:command-line "" +"collects/tests/racket/readtable.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/restart.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/runflats.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/rx.rktl" drdr:command-line "" +"collects/tests/racket/sandbox.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/scheme-tests.rktl" drdr:command-line "" +"collects/tests/racket/serialize.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/set.rktl" drdr:command-line "" +"collects/tests/racket/shared-tests.rktl" drdr:command-line "" +"collects/tests/racket/shared.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/srfi.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/stream.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/string-mzlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/string.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/struct.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/structlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/stx.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/subprocess.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/sync.rktl" drdr:command-line "" +"collects/tests/racket/syntax-tests.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/syntax.rktl" drdr:command-line "" +"collects/tests/racket/tcp.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/testing.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/thread.rktl" drdr:command-line "" +"collects/tests/racket/threadlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/thrport.rktl" drdr:command-line "" +"collects/tests/racket/trace.rktl" drdr:command-line "" +"collects/tests/racket/trait.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/listlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-bang.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-func.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/ttt.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/uinc4.rktl" drdr:command-line "" +"collects/tests/racket/ttt/veclib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/udp.rktl" drdr:command-line "" +"collects/tests/racket/uinc.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc2.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc3.rktl" drdr:command-line "" +"collects/tests/racket/uni-norm.rktl" drdr:command-line "" +"collects/tests/racket/unicode.rktl" drdr:command-line "" +"collects/tests/racket/unit.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/unitsig.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/unsafe.rktl" drdr:command-line "" +"collects/tests/racket/vector.rktl" drdr:command-line "" +"collects/tests/racket/version.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/will.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/zo-marshal.rktl" drdr:command-line "" +"collects/tests/racket/ztest.rktl" drdr:command-line "" +"collects/tests/raclog" responsible (jay) "collects/tests/racunit" responsible (jay noel) -"collects/tests/srfi/1/run-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/40/run-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/43/run-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/load-srfis.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/srpersist/srptests.rkt" drdr:command-line "" +"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 +"collects/tests/scribble" responsible (eli mflatt) +"collects/tests/slatex" responsible (jay sstrickl) +"collects/tests/srfi" responsible (noel chongkai jay) +"collects/tests/srfi/1/run-tests.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/40/run-tests.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/43/run-tests.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/load-srfis.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srpersist" responsible (unknown) +"collects/tests/srpersist/srptests.rktl" drdr:command-line "" "collects/tests/stepper" responsible (clements) -"collects/tests/stepper/already-defined.rkt" drdr:command-line "" -"collects/tests/stepper/bad-letrec-test.rkt" drdr:command-line "" -"collects/tests/stepper/constructor-redexes.rkt" drdr:command-line "" -"collects/tests/stepper/global-prim-reduction.rkt" drdr:command-line "" -"collects/tests/stepper/image-test.rkt" drdr:command-line "" -"collects/tests/stepper/intermediate-y.rkt" drdr:command-line "" +"collects/tests/stepper/already-defined.rktl" drdr:command-line "" +"collects/tests/stepper/bad-letrec-test.rktl" drdr:command-line "" +"collects/tests/stepper/constructor-redexes.rktl" drdr:command-line "" +"collects/tests/stepper/global-prim-reduction.rktl" drdr:command-line "" +"collects/tests/stepper/image-test.rktl" drdr:command-line "" +"collects/tests/stepper/intermediate-y.rktl" drdr:command-line "" "collects/tests/stepper/jump-to-ui-test.rkt" drdr:command-line "" -"collects/tests/stepper/lambda-test.rkt" drdr:command-line "" -"collects/tests/stepper/let-test.rkt" drdr:command-line "" -"collects/tests/stepper/letrec-test.rkt" drdr:command-line "" -"collects/tests/stepper/local-define-struct.rkt" drdr:command-line "" -"collects/tests/stepper/local-test-2.rkt" drdr:command-line "" -"collects/tests/stepper/local-test.rkt" drdr:command-line "" -"collects/tests/stepper/long-error-message.rkt" drdr:command-line "" -"collects/tests/stepper/multiply-defined.rkt" drdr:command-line "" -"collects/tests/stepper/name-chaining.rkt" drdr:command-line "" -"collects/tests/stepper/no-else-clause.rkt" drdr:command-line "" -"collects/tests/stepper/non-procedure.rkt" drdr:command-line "" -"collects/tests/stepper/print-convert-test.rkt" drdr:command-line "" -"collects/tests/stepper/printing-reducing-test.rkt" drdr:command-line "" -"collects/tests/stepper/procedure-display.rkt" drdr:command-line "" -"collects/tests/stepper/right-redex.rkt" drdr:command-line "" -"collects/tests/stepper/structures.rkt" drdr:command-line "" -"collects/tests/stepper/symbol-identifier.rkt" drdr:command-line "" -"collects/tests/stepper/symbols.rkt" drdr:command-line "" -"collects/tests/stepper/syntax-error-ordering.rkt" drdr:command-line "" -"collects/tests/stepper/test-or.rkt" drdr:command-line "" -"collects/tests/stepper/two-tests.rkt" drdr:command-line "" -"collects/tests/stepper/unannotated.rkt" drdr:command-line "" -"collects/tests/stepper/undefined.rkt" drdr:command-line "" -"collects/tests/stepper/world-test.rkt" drdr:command-line "" -"collects/tests/stepper/write-display.rkt" drdr:command-line "" +"collects/tests/stepper/lambda-test.rktl" drdr:command-line "" +"collects/tests/stepper/let-test.rktl" drdr:command-line "" +"collects/tests/stepper/letrec-test.rktl" drdr:command-line "" +"collects/tests/stepper/local-define-struct.rktl" drdr:command-line "" +"collects/tests/stepper/local-test-2.rktl" drdr:command-line "" +"collects/tests/stepper/local-test.rktl" drdr:command-line "" +"collects/tests/stepper/long-error-message.rktl" drdr:command-line "" +"collects/tests/stepper/multiply-defined.rktl" drdr:command-line "" +"collects/tests/stepper/name-chaining.rktl" drdr:command-line "" +"collects/tests/stepper/no-else-clause.rktl" drdr:command-line "" +"collects/tests/stepper/non-procedure.rktl" drdr:command-line "" +"collects/tests/stepper/print-convert-test.rktl" drdr:command-line "" +"collects/tests/stepper/printing-reducing-test.rktl" drdr:command-line "" +"collects/tests/stepper/procedure-display.rktl" drdr:command-line "" +"collects/tests/stepper/right-redex.rktl" drdr:command-line "" +"collects/tests/stepper/structures.rktl" drdr:command-line "" +"collects/tests/stepper/symbol-identifier.rktl" drdr:command-line "" +"collects/tests/stepper/symbols.rktl" drdr:command-line "" +"collects/tests/stepper/syntax-error-ordering.rktl" drdr:command-line "" +"collects/tests/stepper/test-or.rktl" drdr:command-line "" +"collects/tests/stepper/two-tests.rktl" drdr:command-line "" +"collects/tests/stepper/unannotated.rktl" drdr:command-line "" +"collects/tests/stepper/undefined.rktl" drdr:command-line "" +"collects/tests/stepper/world-test.rktl" drdr:command-line "" +"collects/tests/stepper/write-display.rktl" drdr:command-line "" "collects/tests/stxparse" responsible (ryanc) "collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/syntax-color/paren-tree.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/syntax-color/token-tree.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/syntax-color" responsible (sowens mflatt) +"collects/tests/syntax-color/paren-tree.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/syntax-color/token-tree.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/test-engine" responsible (kathyg) "collects/tests/typed-scheme" responsible (samth) "collects/tests/typed-scheme/fail" drdr:command-line "" "collects/tests/typed-scheme/fail/with-type3.rkt" responsible (sstrickl) -"collects/tests/typed-scheme/nightly-run.rkt" drdr:timeout 600 +"collects/tests/typed-scheme/nightly-run.rkt" drdr:timeout 1200 "collects/tests/typed-scheme/run.rkt" drdr:command-line "" drdr:timeout 600 "collects/tests/typed-scheme/xfail" drdr:command-line "" "collects/tests/units" responsible (sstrickl) -"collects/tests/units/multi-mod-sigs.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-cert.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-exptime.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/multi-mod-sigs.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-cert.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-exptime.rktl" drdr:command-line "mzscheme -f ~s" "collects/tests/units/test-harness.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-runtime.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit-contracts.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/unstable/srcloc.rkt" responsible (cce) drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-runtime.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit-contracts.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/unstable/generics.rkt" responsible (jay) +"collects/tests/unstable/srcloc.rktl" responsible (cce) drdr:command-line "mzscheme -f ~s" +"collects/tests/utils" responsible (unknown) "collects/tests/utils/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/web-server" responsible (jay) "collects/tests/web-server/run-all-tests.rkt" drdr:timeout 300 @@ -1653,6 +1723,8 @@ path/s is either such a string or a list of them. "collects/tests/xml" responsible (jay) "collects/tests/xml/test-clark.rkt" drdr:command-line "" drdr:timeout 300 "collects/tests/xml/xml-snip-bug.rkt" drdr:command-line "mred -t ~s" +"collects/tex2page" responsible (mflatt eli jay) +"collects/texpict" responsible (mflatt robby) "collects/texpict/balloon.rkt" drdr:command-line "mred-text -t ~s" "collects/texpict/code.rkt" drdr:command-line "mred-text -t ~s" "collects/texpict/face-demo.rkt" drdr:command-line "mzc ~s" @@ -1668,11 +1740,15 @@ path/s is either such a string or a list of them. "collects/texpict/texpict-unit.rkt" drdr:command-line "mred-text -t ~s" "collects/texpict/texpict.rkt" drdr:command-line "mred-text -t ~s" "collects/texpict/utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/trace" responsible (mflatt robby) "collects/typed" responsible (samth) "collects/typed/framework/framework.rkt" drdr:command-line "mred-text -t ~s" "collects/typed/framework/prefs-contract.rkt" drdr:command-line "mred-text -t ~s" "collects/typed/mred/mred.rkt" drdr:command-line "mred-text -t ~s" +"collects/typed/racunit" responsible (jay) +"collects/typed/racunit/gui.rkt" drdr:command-line "gracket -t ~s" "collects/typed-scheme" responsible (samth) +"collects/unstable" responsible (jay samth cce ryanc) "collects/unstable/debug.rkt" responsible (samth) "collects/unstable/gui/notify.rkt" drdr:command-line "mred-text -t ~s" "collects/unstable/gui/prefs.rkt" drdr:command-line "mred-text -t ~s" @@ -1721,6 +1797,8 @@ path/s is either such a string or a list of them. "collects/web-server/scribblings/tutorial/examples/send-suspend-2.rkt" drdr:command-line "mzc ~s" "collects/web-server/scribblings/tutorial/examples/test-static.rkt" drdr:command-line "mzc ~s" "collects/web-server/scribblings/tutorial/examples/use-redirect.rkt" drdr:command-line "mzc ~s" +"collects/wxme" responsible (mflatt) +"collects/wxme/xml.rkt" responsible (jay) "collects/xml" responsible (jay) "collects/xml/scheme-snipclass.rkt" drdr:command-line "mred-text -t ~s" "collects/xml/text-box-tool.rkt" drdr:command-line "mred-text -t ~s" @@ -1728,13 +1806,17 @@ path/s is either such a string or a list of them. "collects/xml/xml-snipclass.rkt" drdr:command-line "mred-text -t ~s" "doc/release-notes/COPYING-libscheme.txt" responsible (mflatt) "doc/release-notes/COPYING.LIB" responsible (mflatt) -"doc/release-notes/drscheme" responsible (robby) -"doc/release-notes/mred" responsible (mflatt) -"doc/release-notes/mzscheme" responsible (mflatt) +"doc/release-notes/drracket" responsible (robby) +"doc/release-notes/gracket" responsible (mflatt) +"doc/release-notes/racket" responsible (mflatt) "doc/release-notes/stepper" responsible (clements) "man/man1/drscheme.1" responsible (robby) +"man/man1/drracket.1" responsible (robby) "man/man1/mred.1" responsible (mflatt) +"man/man1/gracket.1" responsible (mflatt) "man/man1/mzscheme.1" responsible (mflatt) +"man/man1/racket.1" responsible (mflatt) +"man/man1/raco.1" responsible (mflatt) "man/man1/plt-help.1" responsible (robby) "src/Makefile.in" responsible (mflatt) "src/README" responsible (mflatt) @@ -1752,66 +1834,5 @@ path/s is either such a string or a list of them. "src/wxmac" responsible (mflatt) "src/wxwindow" responsible (mflatt) "src/wxxt" responsible (mflatt) -"collects/at-exp" responsible (eli) -"collects/config" responsible (mflatt eli) -"collects/embedded-gui" responsible (mflatt) -"collects/eopl" responsible (eli) -"collects/file" responsible (mflatt) -"collects/graphics" responsible (mflatt robby) -"collects/guibuilder" responsible (robby) -"collects/hierlist" responsible (mflatt) -"collects/icons" responsible (robby) -"collects/lang" responsible (mflatt robby matthias) -"collects/launcher" responsible (mflatt eli) -"collects/mred" responsible (mflatt robby) -"collects/mysterx" responsible (mflatt) -"collects/mzcom" responsible (mflatt) -"collects/mzlib" responsible (eli cce robby sstrickl mflatt) -"collects/mzscheme" responsible (mflatt) -"collects/net" responsible (eli jay) -"collects/r6rs" responsible (mflatt) -"collects/racket" responsible (mflatt) -"collects/raco" responsible (mflatt) -"collects/reader" responsible (mflatt) -"collects/rnrs" responsible (mflatt) -"collects/s-exp" responsible (mflatt eli) -"collects/raclog" responsible (jay) -"collects/tests/raclog" responsible (jay) -"collects/scheme" responsible (mflatt sstrickl samth robby eli) -"collects/scribble" responsible (mflatt eli) -"collects/scribblings" responsible (mflatt eli robby mathias) -"collects/scriblib" responsible (mflatt) -"collects/setup" responsible (mflatt) -"collects/slatex" responsible (sstrickl) -"collects/srfi" responsible (mflatt noel chongkai jay) -"collects/test-box-recovery" responsible (mflatt) -"collects/tex2page" responsible (mflatt eli jay) -"collects/texpict" responsible (mflatt robby) -"collects/trace" responsible (mflatt robby) -"collects/unstable" responsible (jay samth cce ryanc) -"collects/wxme" responsible (mflatt) -"collects/wxme/xml.rkt" responsible (jay) -"collects/tests" responsible (eli) -"collects/tests/aligned-pasteboard" responsible (unknown) -"collects/tests/file" responsible (eli) -"collects/tests/frtime" responsible (gcooper jay) -"collects/tests/honu" responsible (rafkind) -"collects/tests/html" responsible (jay) -"collects/tests/lazy" responsible (eli) -"collects/tests/match" responsible (samth) -"collects/tests/mysterx" responsible (mflatt) -"collects/tests/mzcom" responsible (mflatt) -"collects/tests/planet" responsible (robby jay) -"collects/tests/plot" responsible (eli) -"collects/tests/profile" responsible (eli) -"collects/tests/r6rs" responsible (mflatt) -"collects/tests/scribble" responsible (eli mflatt) -"collects/tests/srfi" responsible (noel chongkai jay) -"collects/tests/srpersist" responsible (unknown) -"collects/tests/slatex" responsible (jay sstrickl) -"collects/tests/syntax-color" responsible (sowens mflatt) -"collects/tests/test-engine" responsible (kathyg) -"collects/tests/unstable/generics.rkt" responsible (jay) -"collects/tests/unstable/srcloc.rkt" responsible (cce) -"collects/tests/utils" responsible (unknown) + #:end-props |# diff --git a/collects/meta/tree/tests.rkt b/collects/meta/tree/tests.rkt index f46f4af20e..7644e0bb2a 100644 --- a/collects/meta/tree/tests.rkt +++ b/collects/meta/tree/tests.rkt @@ -2,8 +2,8 @@ (require tests/eli-tester scheme/sandbox scheme/runtime-path scheme/file) -(define-runtime-path tree-module "tree.ss") -(define-runtime-path file-tree-module "file-tree.ss") +(define-runtime-path tree-module "tree.rkt") +(define-runtime-path file-tree-module "file-tree.rkt") (define (glob-tests) (define e diff --git a/collects/openssl/sha1.rkt b/collects/openssl/sha1.rkt new file mode 100644 index 0000000000..f9a8d2f5f8 --- /dev/null +++ b/collects/openssl/sha1.rkt @@ -0,0 +1,55 @@ +#lang racket/base +(require ffi/unsafe + racket/runtime-path + (for-syntax racket/base)) + +(provide sha1 + sha1-bytes + bytes->hex-string) + +(define-runtime-path libcrypto-so + (case (system-type) + [(windows) '(so "libeay32")] + [else '(so "libcrypto")])) + +(define libcrypto + (ffi-lib libcrypto-so '("" "0.9.8b" "0.9.8" "0.9.7"))) + +(define _SHA_CTX-pointer _pointer) + +(define SHA1_Init + (get-ffi-obj 'SHA1_Init libcrypto (_fun _SHA_CTX-pointer -> _int))) +(define SHA1_Update + (get-ffi-obj 'SHA1_Update libcrypto (_fun _SHA_CTX-pointer _pointer _long -> _int))) +(define SHA1_Final + (get-ffi-obj 'SHA1_Final libcrypto (_fun _pointer _SHA_CTX-pointer -> _int))) + +(define (sha1-bytes in) + (let ([ctx (malloc 256)] + [tmp (make-bytes 4096)] + [result (make-bytes 20)]) + (SHA1_Init ctx) + (let loop () + (let ([n (read-bytes-avail! tmp in)]) + (unless (eof-object? n) + (SHA1_Update ctx tmp n) + (loop)))) + (SHA1_Final result ctx) + result)) + +(define (sha1 in) + (bytes->hex-string (sha1-bytes in))) + +(define (bytes->hex-string bstr) + (let* ([len (bytes-length bstr)] + [bstr2 (make-bytes (* len 2))] + [digit + (lambda (v) + (if (v . < . 10) + (+ v (char->integer #\0)) + (+ v (- (char->integer #\a) 10))))]) + (for ([i (in-range len)]) + (let ([c (bytes-ref bstr i)]) + (bytes-set! bstr2 (* 2 i) (digit (arithmetic-shift c -4))) + (bytes-set! bstr2 (+ (* 2 i) 1) (digit (bitwise-and c #xF))))) + (bytes->string/latin-1 bstr2))) diff --git a/collects/planet/planet.scrbl b/collects/planet/planet.scrbl index 511b4f1b05..d5123da4b2 100644 --- a/collects/planet/planet.scrbl +++ b/collects/planet/planet.scrbl @@ -3,7 +3,7 @@ @(require scribble/manual scribble/bnf scribble/eval - (for-label scheme) + (for-label racket) (for-label planet/config) (for-label planet/util)) @@ -20,9 +20,9 @@ The @PLaneT system is a method for automatically sharing code packages, both as libraries and as full applications, that gives every user of a @PLaneT client the illusion of having a local copy of every code package on the server. It -consists of @link["http://planet.plt-scheme.org/"]{the central @PLaneT +consists of @link["http://planet.racket-lang.org/"]{the central @PLaneT package repository}, a server that holds all PLaneT packages, and -the PLaneT client, built into PLT Scheme, which transparently +the PLaneT client, built into Racket, which transparently interacts with the server on your behalf when necessary. @table-of-contents[] @@ -30,41 +30,41 @@ interacts with the server on your behalf when necessary. @section{Using PLaneT} To use a @PLaneT package in a program, require it using the -@scheme[planet] @scheme[require] form (see @(secref "require" #:doc +@racket[planet] @racket[require] form (see @(secref "require" #:doc '(lib "scribblings/reference/reference.scrbl")) for a full reference -on the features of the @scheme[require] statement in general and the +on the features of the @racket[require] statement in general and the exact allowed grammar of PLaneT require statements). Here we explain how to use PLaneT by example. @subsection[#:tag "finding-a-package"]{Finding a Package} If you are new to PLaneT, the first thing to do is visit -@link["http://planet.plt-scheme.org/"]{the PLaneT repository web site} +@link["http://planet.racket-lang.org/"]{the PLaneT repository web site} and see what packages are available. People contribute new PLaneT packages all the time --- if you want to be notified whenever a new or updated package is released, you can subscribe to the (announcement-only) @link["http://mailman.cs.uchicago.edu/mailman/listinfo/planet-announce"]{PLaneT-announce mailing list} or use an RSS reader to subscribe to -@link["http://planet.plt-scheme.org/300/planet.rss"]{PLaneT's RSS feed}. +@link["http://planet.racket-lang.org/300/planet.rss"]{PLaneT's RSS feed}. To use a package from PLaneT in your program, the easiest thing to do -is copy the @scheme[require] code snippet off of that package's page +is copy the @racket[require] code snippet off of that package's page and paste it ino your program. For instance, to use Schematics' -@link["http://planet.plt-scheme.org/users/schematics/spgsql.plt"]{spgsql.plt} +@link["http://planet.racket-lang.org/users/schematics/spgsql.plt"]{spgsql.plt} package (a library for interacting with the @link["http://www.postgresql.org/"]{PostgresQL} database), as of this writing you would copy and paste the line: -@schemeblock[(require (planet "spgsql.ss" ("schematics" "spgsql.plt" 2 3)))] +@racketblock[(require (planet "spgsql.rkt" ("schematics" "spgsql.plt" 2 3)))] -into your program. This line requires the file @filepath{spgsql.ss} in package +into your program. This line requires the file @filepath{spgsql.rkt} in package version 2.3 of the @filepath{spgsql.plt} package written by @filepath{schematics}. That does two things: first, it downloads and installs a version of @filepath{spgsql.plt} that is compatible with -package version 2.3 from @link["http://planet.plt-scheme.org/"]{the +package version 2.3 from @link["http://planet.racket-lang.org/"]{the central PLaneT repository} if a compatible version hasn't already been -installed. Second, it requires the module in file @filepath{spgsql.ss} +installed. Second, it requires the module in file @filepath{spgsql.rkt} from that package, making all of its exported bindings available for use. Unlike with most package-distribution systems, package downloading and @@ -76,17 +76,16 @@ will be deployed. @subsection{Shorthand Syntax} -As of PLT Scheme version 4.0, the code snippet above can also be -written using a new shorter syntax: +The code snippet above can also be written using a new shorter syntax: -@schemeblock[(require (planet schematics/spgsql:2:3/spgsql))] +@racketblock[(require (planet schematics/spgsql:2:3/spgsql))] The two forms behave identically. In the abbreviated syntax, however, -it is illegal to write the trailing @filepath{.ss} suffix on the file +it is illegal to write the trailing @filepath{.rkt} suffix on the file name to be required or the trailing @filepath{.plt} on the package file name. (They are mandatory for the long-form syntax.) It is also legal in the abbreviated syntax to omit a filename to be required entirely; -in that case, PLaneT requires the file @filepath{main.ss} in the given +in that case, PLaneT requires the file @filepath{main.rkt} in the given package. @subsection{Networking troubles} @@ -94,15 +93,15 @@ package. Sometimes, when PLaneT tries to download and install a package for the first time, your operating system may block it from access to the network. If you are uncomfortable -giving DrScheme free access to the network (or if your +giving DrRacket free access to the network (or if your attempts to do so do not seem to work), then you can use your browser to manually install a planet package. To see how this works, lets assume you want to install the PLAI package -and @schemeblock[(require (planet plai/plai:1))] is not working for you. +and @racketblock[(require (planet plai/plai:1))] is not working for you. @itemize[ @item{First, -fire up a command-line window and use @tt{planet url} to +fire up a command-line window and use @tt{raco planet url} to determine the url for downloading the package. To find the url for version @tt{(1 1)} of the plai package, do this: @@ -111,7 +110,7 @@ do this: and get this as a response: -@tt{http://planet.plt-scheme.org/servlets/planet-servlet.ss?lang=%224.1.5.3%22&name=%22plai.plt%22&maj=1&min-lo=1&min-hi=%23f&path=%28%22plai%22%29}} +@tt{http://planet.racket-lang.org/servlets/planet-servlet.rkt?lang=%224.1.5.3%22&name=%22plai.plt%22&maj=1&min-lo=1&min-hi=%23f&path=%28%22plai%22%29}} @item{Copy and paste that url into your browser, which should trigger the dowload of a file called @@ -130,7 +129,7 @@ repeat the above steps for that package first, and then continue with the @tt{fileinject} command for PLAI.} @item{Finally, to check that the installation is successful, -run @tt{planet show}. You should see output like this +run @tt{raco planet show}. You should see output like this (possibly with slightly different version numbers, if the packages have been updated since this was written): @verbatim{ @@ -141,7 +140,7 @@ Normally-installed packages: ] Once that is complete, PLaneT will use that version of the -package for any subsequent @scheme[require]s and won't try +package for any subsequent @racket[require]s and won't try to use the network. @subsection{Fine-Grained Control Over Package Imports} @@ -159,11 +158,11 @@ number that encodes backwards-compatibility information.} The most basic planet require line, which is what is used in the form -@schemeblock[(require (planet "spgsql.ss" ("schematics" "spgsql.plt" 2 3)))] +@racketblock[(require (planet "spgsql.rkt" ("schematics" "spgsql.plt" 2 3)))] in longhand notation, or -@schemeblock[(require (planet schematics/spgsql:2:3/spgsql))] +@racketblock[(require (planet schematics/spgsql:2:3/spgsql))] in shorthand notation, should be read ``Require from PLaneT @italic{any} release of Schematics' @filepath{spgsql.plt} package that @@ -172,11 +171,11 @@ package version used is determined by @seclink["search-order"]{the PLaneT search order}.) To signal this explicitly, it is possible to write -@schemeblock[(require (planet "spgsql.ss" ("schematics" "spgsql.plt" 2 (+ 3))))] +@racketblock[(require (planet "spgsql.rkt" ("schematics" "spgsql.plt" 2 (+ 3))))] or -@schemeblock[(require (planet schematics/spgsql:2:>=3/spgsql))] +@racketblock[(require (planet schematics/spgsql:2:>=3/spgsql))] both of which mean the same thing as the first pair of require lines. @@ -199,12 +198,12 @@ in third-party libraries was already working around. In those cases, it may help to make use of the ``upper bound'' form of the planet require, in longhand form: -@schemeblock[(require (planet "reduction-semantics.ss" +@racketblock[(require (planet "reduction-semantics.rkt" ("robby" "redex.plt" 4 (- 3))))] and using shorthand notation: -@schemeblock[(require (planet robby/redex:4:<=3/reduction-semantics))] +@racketblock[(require (planet robby/redex:4:<=3/reduction-semantics))] In this require line, any version of the package @filepath{redex.plt} from package version 4.0 to package version 4.3 will match the require @@ -215,11 +214,11 @@ which package is actually loaded). It is also possible to specify both an upper and a lower bound, using the planet require's ``range'' form: -@schemeblock[(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 (9 10))))] +@racketblock[(require (planet "test.rkt" ("schematics" "schemeunit.plt" 2 (9 10))))] or -@schemeblock[(require (planet schematics/schemeunit:2:9-10/test))] +@racketblock[(require (planet schematics/schemeunit:2:9-10/test))] This form matches any package in the specified range (inclusive on both ends), in this example the specifications match either package @@ -232,11 +231,11 @@ a package as a special case (choosing the upper and lower bounds to be equal), but this is a common enough case that it has special support with the ``exact-match'' form: -@schemeblock[(require (planet "unzip.ss" ("dherman" "zip.plt" 2 (= 1))))] +@racketblock[(require (planet "unzip.rkt" ("dherman" "zip.plt" 2 (= 1))))] or -@schemeblock[(require (planet dherman/zip:2:=1/unzip))] +@racketblock[(require (planet dherman/zip:2:=1/unzip))] match only the exact package version 2.1 of the @filepath{zip.plt} package. @@ -247,9 +246,9 @@ match only the exact package version 2.1 of the @filepath{zip.plt} package. @subsection{Monitoring PLaneT's progress} PLaneT logs information about what it is doing to the @tt{info} -log (via @scheme[log-info]). -In DrScheme, you can view the logs from the @onscreen{Show Log} -menu item in the @onscreen{View} menu, and MzScheme's logging output +log (via @racket[log-info]). +In DrRacket, you can view the logs from the @onscreen{Show Log} +menu item in the @onscreen{View} menu, and Racket's logging output can be controlled via command-line options and via environment variables. See @secref["logging" #:doc '(lib "scribblings/reference/reference.scrbl")] @@ -292,22 +291,22 @@ it to satisfy the original requirement. If the remote server cannot be contacted (or fails in any way to deliver an acceptable package), the PLaneT client consults the uninstalled-packages cache, a cache of all previously-downloaded -packages, even those that are not currently installed. PLT Scheme +packages, even those that are not currently installed. Racket users who frequently upgrade their installations may have many packages downloaded but not installed at any given time; this step is intended to ensure that these users can still run programs even if they temporarily lose network connection. -@section[#:tag "cmdline"]{The @exec{planet} Command-Line Tool} +@section[#:tag "cmdline"]{The @exec{raco planet} Command-Line Tool} -The @exec{planet} command-line tool allows a command-line interface to +The @exec{raco planet} command-line tool allows a command-line interface to the most commonly-performed PLaneT tasks. It is invoked from the command line as -@commandline{planet @italic{subcommand} arg ...} +@commandline{raco planet @italic{subcommand} @italic{arg} ...} -where @italic{command} is a subcommand from the following list, and -@exec{arg} is a sequence of arguments determined by that subcommand: +where @italic{subcommand} is a subcommand from the following list, and +@exec{@italic{arg}} is a sequence of arguments determined by that subcommand: @(define (cmd name desc) @item{@(seclink name (exec name)): @desc}) @@ -329,31 +328,31 @@ where @italic{command} is a subcommand from the following list, and Each of these commands is described in more detail below. All the functionality of the command-line tool is also provided with a programmatic interface by -@seclink["util.ss"]{the @filepath{util.ss} library}. +@seclink["util.rkt"]{the @filepath{util.rkt} library}. @subsection[#:tag "create"]{@exec{create}} Usage: -@commandline{planet create [