scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add finalizer to remove temporary session files.

This commit is contained in:
interp 2003-01-18 15:02:22 +00:00
parent 48290e2f83
commit b7133f4393
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
View File

@ -10,6 +10,7 @@
locks locks
let-opt let-opt
receiving receiving
primitives
) )
(begin (begin
@ -206,7 +207,6 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
(state:file-names-to-delete state))))) (state:file-names-to-delete state)))))
(define (delete-files state) (define (delete-files state)
(format #t "running delete-files with state ~a~%" (state:file-names-to-delete state))
(let ((file-names-to-delete (state:file-names-to-delete state))) (let ((file-names-to-delete (state:file-names-to-delete state)))
(if file-names-to-delete (if file-names-to-delete
(for-each delete-filesys-object file-names-to-delete)))) (for-each delete-filesys-object file-names-to-delete))))
@ -235,6 +235,8 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
(set! gnuplot (search-gnuplot)) (set! gnuplot (search-gnuplot))
(set-servlet-data! (make-state #f #f 0)) (set-servlet-data! (make-state #f #f 0))
(reset-profiling-state!) (reset-profiling-state!)
;; Remove state files if user did not do it.
(add-finalizer! (get-servlet-data) delete-files)
(profile req)) (profile req))
(define (search-gnuplot) (define (search-gnuplot)