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

change some prints to fprintfs to make it easier to remove debugging printfs from this file when checking in

Browse Source
This commit is contained in:
Robby Findler 2011-08-10 12:02:20 -05:00
parent 83e70af006
commit dc326c9501
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
collects/framework/private/frame.rkt
View File

@ -2645,27 +2645,28 @@
(define ec (new editor-canvas% [parent f] [editor t]))
(send f reflow-container)
(send t begin-edit-sequence)
(parameterize ([current-output-port (open-output-text-editor t)])
(define prefs-file (find-system-path 'pref-file))
(printf "prefs file:\n ~a\n\n" (path->string prefs-file))
(printf "setting a preference:\n ")
(preferences:set 'drracket:prefs-debug #f)
(time (preferences:set 'drracket:prefs-debug #t))
(define file-contents (call-with-input-file prefs-file read))
(printf "\n~s preference keys\n\n" (length file-contents))
(printf "preferences taking the most space:\n")
(define sizes (map
(λ (x)
(list
(car x)
(bytes-length (string->bytes/utf-8 (format "~s" x)))))
file-contents))
(for ([frame (in-list (sort sizes > #:key cadr))]
[x (in-range 0 10)])
(define key (list-ref frame 0))
(define size (list-ref frame 1))
(printf " ~s (~s bytes)\n" key size)))
(define tp (open-output-text-editor t))
(define prefs-file (find-system-path 'pref-file))
(fprintf tp "prefs file:\n ~a\n\n" (path->string prefs-file))
(fprintf tp "setting a preference:\n ")
(preferences:set 'drracket:prefs-debug #f)
(parameterize ([current-output-port tp])
(time (preferences:set 'drracket:prefs-debug #t)))
(define file-contents (call-with-input-file prefs-file read))
(fprintf tp "\n~s preference keys\n\n" (length file-contents))
(fprintf tp "preferences taking the most space:\n")
(define sizes (map
(λ (x)
(list
(car x)
(bytes-length (string->bytes/utf-8 (format "~s" x)))))
file-contents))
(for ([frame (in-list (sort sizes > #:key cadr))]
[x (in-range 0 10)])
(define key (list-ref frame 0))
(define size (list-ref frame 1))
(fprintf tp " ~s (~s bytes)\n" key size))
(send t auto-wrap #t)
(send t set-position 0 0)
(send t lock #t)