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

make log output correspond to what the user sees

Browse Source 
svn: r4350
This commit is contained in:
Eli Barzilay 2006-09-16 04:49:07 +00:00
parent 7fa381cace
commit 92c5debbc1
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/handin-server/handin-server.ss
View File

@ -606,17 +606,19 @@
(let loop ([timed-out? #f]) (let loop ([timed-out? #f])
(cond (cond
[(sync/timeout 3 session-thread) [(sync/timeout 3 session-thread)
(LOG "session killed ~awhile ~s" (let* ([status (unbox status-box)]
(if timed-out? "(timeout) " "") [status (if status
(unbox status-box)) (format " while ~a" status)
(write+flush "")])
w (format "handin terminated due to ~a (program doesn't terminate?)~a" (LOG "session killed ~a~a"
(if timed-out? "time limit" "excessive memory use") (if timed-out? "(timeout) " "(memory)")
(if (unbox status-box) status)
(format " while ~a" (unbox status-box)) (write+flush
""))) w (format "handin terminated due to ~a (program doesn't terminate?)~a"
(close-output-port w) (if timed-out? "time limit" "excessive memory use")
(channel-put session-channel 'done)] status))
(close-output-port w)
(channel-put session-channel 'done))]
[(let ([t timeout]) ; grab value to avoid races [(let ([t timeout]) ; grab value to avoid races
(and t ((current-inexact-milliseconds) . > . t))) (and t ((current-inexact-milliseconds) . > . t)))
;; Shutdown here to get the handin-terminated error ;; Shutdown here to get the handin-terminated error