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

Using racket-lang

Browse Source
This commit is contained in:
Jay McCarthy 2010-06-02 11:21:43 -06:00
parent 2985001a79
commit 0748a08cd4
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/meta/drdr/analyze.ss
View File

@ -120,7 +120,7 @@
(define totals
(apply format "(timeout ~a) (unclean ~a) (stderr ~a) (changes ~a)" (map number->string nums)))
(define (path->url pth)
(format "http://drdr.plt-scheme.org/~a~a" cur-rev pth))
(format "http://drdr.racket-lang.org/~a~a" cur-rev pth))
(define responsible-ht (statuses->responsible-ht cur-rev timeout unclean stderr changes))
(define responsibles
(for/list ([(responsible ht) (in-hash responsible-ht)]
@ -168,7 +168,7 @@
cur-rev
(format-duration-ms abs-dur))
""
(format "http://drdr.plt-scheme.org/~a/"
(format "http://drdr.racket-lang.org/~a/"
cur-rev)
""
(if include-committer?
@ -200,7 +200,7 @@
""))))))
(send-mail-message "drdr"
(format "http://drdr.plt-scheme.org/~a/"
(format "http://drdr.racket-lang.org/~a/"
cur-rev)
(list "eli+ircbot@eli.barzilay.org")
empty empty

2
collects/meta/drdr/graphs/README
View File

@ -7,7 +7,7 @@
- to build a script for a particular page, do this:
mred-text build-graph.ss -l http://drdr.plt-scheme.org/~a/collects/path/to/file.scm \
mred-text build-graph.ss -l http://drdr.racket-lang.org/~a/collects/path/to/file.scm \
--image-loc /static/data/graph-images/ \
file_scm.timing \
file_scm_png_file_prefix \

4
collects/meta/drdr/graphs/build-graph.ss
View File

@ -4,7 +4,7 @@
(require "constants.ss")
;; example data:
;; http://drdr.plt-scheme.org/data/collects/tests/mzscheme/benchmarks/common/earley_ss.timing
;; http://drdr.racket-lang.org/data/collects/tests/mzscheme/benchmarks/common/earley_ss.timing
;;; ========================================
@ -47,7 +47,7 @@
#|
#:argv
#("-l"
"http://drdr.plt-scheme.org/~a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm"
"http://drdr.racket-lang.org/~a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm"
"expand-class_scm.timing" "out" "out.html" )
|#
#:once-each

6
collects/meta/drdr/render.ss
View File

@ -165,7 +165,7 @@
commits))]
[(struct svn-rev-log (num author date msg changes))
(define url (format "http://svn.plt-scheme.org/view?view=rev&revision=~a" num))
(define url (format "http://svn.racket-lang.org/view?view=rev&revision=~a" num))
(define cg-id (symbol->string (gensym 'changes)))
(define ccss-id (symbol->string (gensym 'changes)))
`(table ([class "data"])
@ -236,7 +236,7 @@
(base-path log-pth))
(define scm-url
(if ((current-rev) . < . 20000)
(format "http://svn.plt-scheme.org/view/trunk/~a?view=markup&pathrev=~a"
(format "http://svn.racket-lang.org/view/trunk/~a?view=markup&pathrev=~a"
the-base-path
(current-rev))
(local [(define msg (read-cache* (revision-commit-msg (current-rev))))]
@ -332,7 +332,7 @@
(format-commit-msg)
"")
,(local [(define (path->url pth)
(format "http://drdr.plt-scheme.org/~a~a" (current-rev) pth))
(format "http://drdr.racket-lang.org/~a~a" (current-rev) pth))
(define responsible->problems
(rendering->responsible-ht (current-rev) pth-rendering))

2
collects/meta/drdr/time.ss
View File

@ -61,7 +61,7 @@
"-t"
(path->string (build-path (drdr-directory) "graphs" "build-graph.ss"))
"--"
"-l" (string-append "http://drdr.plt-scheme.org/~a/" (path->string* filename)) ; XXX
"-l" (string-append "http://drdr.racket-lang.org/~a/" (path->string* filename)) ; XXX
"--image-loc" "/graph-images/"
(path->string (path-timing-log filename))
(path->string prefix)