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

A quick check of the 2004 season, which is when Eli pretty much became the

Browse Source 
primary QB for the Giants halfway through the season, shows that in the games
where he started he went 1-6.  I think Cassel's doing a fine job so far
at 4-2.  (Not counting the first game, even though he basically started that
since the injury happened on the first drive, which would give him another
win.)  He just needs some time in the sunshine after being in the shade for
so long.

svn: r12139
This commit is contained in:
Stevie Strickland 2008-10-27 14:46:24 +00:00
commit ab227ffaf8
14 changed files with 103 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/macro-debugger/view/frame.ss
View File

@ -200,6 +200,31 @@
"(Debug) Catch internal errors?"
(get-field debug-catch-errors? config)))
;; fixup-menu : menu -> void
;; Delete separators at beginning/end and duplicates in middle
(define/private (fixup-menu menu)
(define items
(filter (lambda (i) (not (send i is-deleted?)))
(send menu get-items)))
(define (delete-seps-loop items)
(if (and (pair? items) (is-a? (car items) separator-menu-item%))
(begin (send (car items) delete)
(delete-seps-loop (cdr items)))
items))
(define (middle-loop items)
(cond
[(and (pair? items) (is-a? (car items) separator-menu-item%))
(middle-loop (delete-seps-loop (cdr items)))]
[(pair? items)
(middle-loop (cdr items))]
[else null]))
(middle-loop (delete-seps-loop items))
(delete-seps-loop (reverse items))
(void))
(for ([menu (send (get-menu-bar) get-items)])
(fixup-menu menu))
(frame:remove-empty-menus this)
(frame:reorder-menus this)))
;; Stolen from stepper

2
collects/repos-time-stamp/stamp.ss
View File

@ -1 +1 @@
#lang scheme/base (provide stamp) (define stamp "24oct2008")
#lang scheme/base (provide stamp) (define stamp "25oct2008")

31
collects/scribble/html-render.ss
View File

@ -199,21 +199,22 @@
(let ([sa string-append]
[emptylabel "...search manuals..."]
[dimcolor "#888"])
`(input
([class "searchbox"]
[style ,(sa "color: "dimcolor";")]
[type "text"]
[value ,emptylabel]
[title "Enter a search string to search the manuals"]
[onkeypress ,(format "return DoSearchKey(event, this, ~s, ~s);"
(version) top-path)]
[onfocus ,(sa "this.style.color=\"black\"; "
"this.style.textAlign=\"left\"; "
"if (this.value == \""emptylabel"\") this.value=\"\";")]
[onblur ,(sa "if (this.value.match(/^ *$/)) {"
" this.style.color=\""dimcolor"\";"
" this.style.textAlign=\"center\";"
" this.value=\""emptylabel"\"; }")]))))
`(form ([class "searchform"])
(input
([class "searchbox"]
[style ,(sa "color: "dimcolor";")]
[type "text"]
[value ,emptylabel]
[title "Enter a search string to search the manuals"]
[onkeypress ,(format "return DoSearchKey(event, this, ~s, ~s);"
(version) top-path)]
[onfocus ,(sa "this.style.color=\"black\"; "
"this.style.textAlign=\"left\"; "
"if (this.value == \""emptylabel"\") this.value=\"\";")]
[onblur ,(sa "if (this.value.match(/^ *$/)) {"
" this.style.color=\""dimcolor"\";"
" this.style.textAlign=\"center\";"
" this.value=\""emptylabel"\"; }")])))))
(define search-box (make-search-box "../"))
(define top-search-box (make-search-box ""))

6
collects/scribble/scribble.css
View File

@ -101,6 +101,12 @@ table td {
color: #e0e0e0;
}
.searchform {
display: inline;
margin: 0;
padding: 0;
}
.searchbox {
width: 16em;
margin: 0px;

28
collects/tests/drscheme/module-lang-test-utils.ss
View File

@ -12,32 +12,39 @@
interactions ; (union #f string)
result ; string
all? ; boolean (#t => compare all of the text between the 3rd and n-1-st line)
error-ranges) ; (or/c 'dont-test
error-ranges ; (or/c 'dont-test
; (-> (is-a?/c text)
; (is-a?/c text)
; (or/c #f (listof ...))))
; fn => called with defs & ints, result must match get-error-ranges method's result
line) ; number or #f: the line number of the test case
#:omit-define-syntaxes)
(define in-here
(let ([here (this-expression-source-directory)])
(lambda (file) (path->string (build-path here file)))))
(lambda (file) (format "~s" (path->string (build-path here file))))))
(define tests '())
(define (test definitions interactions results [all? #f] #:error-ranges [error-ranges 'dont-test])
(define-syntax (test stx)
(syntax-case stx ()
[(_ args ...)
(with-syntax ([line (syntax-line stx)])
#'(test/proc line args ...))]))
(define (test/proc line definitions interactions results [all? #f] #:error-ranges [error-ranges 'dont-test])
(set! tests (cons (make-test (if (string? definitions)
definitions
(format "~s" definitions))
interactions
results
all?
error-ranges)
error-ranges
line)
tests)))
(define temp-files '())
(define (write-test-modules* name code)
(let ([file (in-here (format "~a.ss" name))])
(let ([file (build-path (this-expression-source-directory) (format "~a.ss" name))])
(set! temp-files (cons file temp-files))
(with-output-to-file file #:exists 'truncate
(lambda () (printf "~s\n" code)))))
@ -65,7 +72,8 @@
(send interactions-text paragraph-start-position 2)
(send interactions-text paragraph-end-position 2))])
(unless (or (test-all? test) (string=? "> " after-execute-output))
(printf "FAILED: ~a\n ~a\n expected no output after execution, got: ~s\n"
(printf "FAILED (line ~a): ~a\n ~a\n expected no output after execution, got: ~s\n"
(test-line test)
(test-definitions test)
(or (test-interactions test) 'no-interactions)
after-execute-output)
@ -96,7 +104,8 @@
[else 'module-lang-test "bad test value: ~e" r])
r text))])
(unless output-passed?
(printf "FAILED: ~a\n ~a\n expected: ~s\n got: ~s\n"
(printf "FAILED (line ~a): ~a\n ~a\n expected: ~s\n got: ~s\n"
(test-line test)
(test-definitions test)
(or (test-interactions test) 'no-interactions)
(test-result test)
@ -108,7 +117,8 @@
(let ([error-ranges-expected
((test-error-ranges test) definitions-text interactions-text)])
(unless (equal? error-ranges-expected (send interactions-text get-error-ranges))
(printf "FAILED (ranges): ~a\n expected: ~s\n got: ~s\n"
(printf "FAILED (line ~a; ranges): ~a\n expected: ~s\n got: ~s\n"
(test-line test)
(test-definitions test)
error-ranges-expected
(send interactions-text get-error-ranges))))])))))

12
collects/tests/drscheme/module-lang-test.ss
View File

@ -98,11 +98,11 @@
(require (prefix x: (lib "list.ss")) (lib "list.ss")))}
@t{x:foldl}
#rx"foldl>")
(test @t{(module m (file "@in-here{module-lang-test-tmp1.ss}") x)}
(test @t{(module m (file @in-here{module-lang-test-tmp1.ss}) x)}
@t{x}
"1")
;; + shouldn't be bound in the REPL because it isn't bound in the module.
(test @t{(module m (file "@in-here{module-lang-test-tmp1.ss}") x)}
(test @t{(module m (file @in-here{module-lang-test-tmp1.ss}) x)}
@t{+}
". . reference to an identifier before its definition: +")
(test @t{(module m mzscheme (provide lambda))}
@ -138,7 +138,7 @@
@t{a}
"78")
(test @t{(module m mzscheme
(require-for-syntax (file "@in-here{module-lang-test-tmp2.ss}"))
(require-for-syntax (file @in-here{module-lang-test-tmp2.ss}))
(provide s)
(define-syntax (s stx) e))}
@t{(require m) s}
@ -160,7 +160,7 @@
#f
@rx{. compile: bad syntax; reference to top-level identifier is not
allowed, because no #%top syntax transformer is bound in: cons})
(test @t{(module m (file "@in-here{module-lang-test-tmp1.ss}") 1 2 3)}
(test @t{(module m (file @in-here{module-lang-test-tmp1.ss}) 1 2 3)}
@t{1} ;; just make sure no errors.
"1")
@ -195,7 +195,7 @@
Interactions disabled:
does not support a REPL \(no #%top-interaction\)}
#t)
(test @t{(module xx (file "@in-here{module-lang-test-tmp4.ss}")
(test @t{(module xx (file @in-here{module-lang-test-tmp4.ss})
(define x 1)
(* x 123))}
#f
@ -205,7 +205,7 @@
does not support a REPL \(no #%top-interaction\)
}
#t)
(test @t{(module xx (file "@in-here{this-file-does-not-exist}")
(test @t{(module xx (file @in-here{this-file-does-not-exist})
(define x 1)
(* x 123))}
#f

2
doc/release-notes/mred/HISTORY.txt
View File

@ -1,4 +1,4 @@
Version 4.1.1.1
Version 4.1.2, October 2008
Changed -z/--text-repl to a configuration option

9
doc/release-notes/mzscheme/HISTORY.txt
View File

@ -1,14 +1,13 @@
Version 4.1.1.3
Version 4.1.2.1
Extended continuation-marks to work on a thread argument
Version 4.1.2, October 2008
Changed binding of identifiers introduced by unit signatures
to take into account the signature use's context
Added make-syntax-delta-introducer
Changed continuation-marks to accept a thread argument
Version 4.1.1.2
Added eqv-based hash tables
Added hash-update and hash-update!
Version 4.1.1.1
Changed -X and -S to complete directory relative to pwd, and
changed -S to add after main collects

4
doc/release-notes/stepper/HISTORY.txt
View File

@ -1,6 +1,10 @@
Stepper
-------
Changes for v4.1.2:
None.
Changes for v4.1.1:
Check-expect now reduces to a boolean in the stepper. Also, this history file

5
doc/release-notes/teachpack/HISTORY.txt
View File

@ -1,3 +1,8 @@
------------------------------------------------------------------------
Version 4.1.2 [Sat Oct 25 10:31:05 EDT 2008]
nothing new to report
------------------------------------------------------------------------
Version 4.1.1 [Tue Sep 30 10:17:26 EDT 2008]

2
src/mzscheme/gc2/newgc.c
View File

@ -943,7 +943,7 @@ static void *get_backtrace(struct mpage *page, void *ptr)
unsigned long delta;
if (page->big_page)
ptr = PTR(page->addr + PREFIX_SIZE + WORD_SIZE);
ptr = PTR((char *)page->addr + PREFIX_SIZE + WORD_SIZE);
delta = PPTR(ptr) - PPTR(page->addr);
return page->backtrace[delta - 1];

4
src/mzscheme/src/salloc.c
View File

@ -1462,7 +1462,7 @@ static void cons_onto_list(void *p)
# ifdef MZ_PRECISE_GC
START_XFORM_SKIP;
# ifdef DOS_FILE_SYSTEM
extern void gc_fprintf(int ignored, const char *c, ...);
extern void gc_fprintf(FILE *ignored, const char *c, ...);
# define object_console_printf gc_fprintf
# endif
# endif
@ -2039,7 +2039,7 @@ Scheme_Object *scheme_dump_gc_stats(int c, Scheme_Object *p[])
var_stack = (void **)t->jmpup_buf.gc_var_stack;
delta = (long)t->jmpup_buf.stack_copy - (long)t->jmpup_buf.stack_from;
/* FIXME: stack direction */
limit = (void *)t->jmpup_buf.stack_copy + t->jmpup_buf.stack_size;
limit = (char *)t->jmpup_buf.stack_copy + t->jmpup_buf.stack_size;
}
GC_dump_variable_stack(var_stack, delta, limit, NULL,
scheme_get_type_name,

12
src/worksp/gc2/make.ss
View File

@ -11,6 +11,7 @@
(system s))
(define accounting-gc? #t)
(define backtrace-gc? #f)
(define opt-flags "/O2 /Oy-")
(define re:only #f)
@ -169,6 +170,9 @@
(string-append "/D LIBMZ_EXPORTS "
(if accounting-gc?
"/D NEWGC_BTC_ACCOUNT "
"")
(if backtrace-gc?
"/D MZ_GC_BACKTRACE "
""))
"mz.pch"
#f))
@ -214,6 +218,9 @@
(if accounting-gc?
"/D NEWGC_BTC_ACCOUNT "
"/D USE_COMPACT_3M_GC ")
(if backtrace-gc?
"/D MZ_GC_BACKTRACE "
"")
mz-inc))
(c-compile "../../mzscheme/src/mzsj86.c" "xsrc/mzsj86.obj" '() mz-inc)
@ -323,7 +330,10 @@
wx-inc
(and use-precomp? "xsrc/wxprecomp.h")
"-DGC2_JUST_MACROS /FI../../../mzscheme/gc2/gc2.h"
"-DGC2_AS_IMPORT"
(string-append "-DGC2_AS_IMPORT"
(if backtrace-gc?
" /D MZ_GC_BACKTRACE"
""))
"wx.pch"
indirect?)))

2
src/wxwindow/src/msw/wx_win.cxx
View File

@ -172,6 +172,8 @@ wxWindow::wxWindow(void)
winEnabled = TRUE;
focusWindow = NULL;
WXGC_IGNORE(this, focusWindow); // can be a self pointer in a frame
}
// Destructor