artemis/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Issues Pull requests 2 Projects Releases Packages Wiki Activity

Compare commits

base: artemis:d1c348a85354f1427c863c0837e1a1d87d994c65
Branches Tags
artemis:main
artemis:optimizations
artemis:flamegraph
artemis:early-hints
cadence:main
cadence:disable-requests
cadence:early-hints
...
compare: artemis:91406af94bf6eb8fdeb4b612ae207b551f8f6d37
Branches Tags
artemis:optimizations
artemis:flamegraph
artemis:main
artemis:early-hints
cadence:main
cadence:disable-requests
cadence:early-hints

2 commits
d1c348a853 ... 91406af94b

Author SHA1 Message Date
Artemis Everfree
91406af94b test against block instead of frog 2023-03-22 22:41:50 -07:00
Artemis Everfree
abb898b73a benchmark flamegraph w/profile-flame-graph & flamegraph.pl 2023-03-22 22:41:41 -07:00
1 changed files with 30 additions and 3 deletions
Show stats Expand all files Collapse all files

33
lib/tree-updater.rkt
View file

@ -3,6 +3,7 @@
racket/function racket/function
racket/match racket/match
racket/string racket/string
profile-flame-graph
"pure-utils.rkt" "pure-utils.rkt"
"url-utils.rkt" "url-utils.rkt"
"xexpr-utils.rkt") "xexpr-utils.rkt")
@ -298,8 +299,34 @@
; check that noscript images are removed ; check that noscript images are removed
(check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f) (check-equal? ((query-selector (λ (t a c) (eq? t 'noscript)) transformed)) #f)
; benchmark ; benchmark
(when (file-exists? "../storage/Frog.html") (when (file-exists? "../storage/Block.html")
(with-input-from-file "../storage/Frog.html" (with-input-from-file "../storage/Block.html"
(λ () (λ ()
(define tree (html->xexp (current-input-port))) (define tree (html->xexp (current-input-port)))
(time (length (update-tree-wiki tree "minecraft"))))))) (time (length (update-tree-wiki tree "minecraft"))))))
; benchmark with flamegraph
; these two flamegraphs need to be separated i think so that they resolve
; different thunks. probably only need to be in two different with-input-file
; blocks.
(when (file-exists? "../storage/Block.html")
(with-input-from-file "../storage/Block.html"
(λ ()
(define tree (html->xexp (current-input-port)))
(profile
(length (update-tree-wiki tree "minecraft"))
#:svg-path "../storage/Block-profile-errortrace.svg"
#:repeat 100
#:use-errortrace? #t)
)))
(when (file-exists? "../storage/Block.html")
(with-input-from-file "../storage/Block.html"
(λ ()
(define tree (html->xexp (current-input-port)))
(profile
(length (update-tree-wiki tree "minecraft"))
#:svg-path "../storage/Block-profile.svg"
#:repeat 100
#:use-errortrace? #f)
)))
)