ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 13:13:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhancement: some benchmarks

Browse Source
This commit is contained in:
João Távora 2012-06-30 21:49:19 +01:00
parent 72d8481910
commit 37fc2667cd
1 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
yasnippet-benchmarks.el Normal file
View File

@ -0,0 +1,68 @@
(require 'yasnippet-tests)
(defvar manywords (with-temp-buffer (insert-file-contents "/usr/share/dict/words")
(split-string (buffer-string))))
(defun yas/run-some-benchmarks ()
(interactive)
(let* ((dummy-mode-names (subseq manywords 0 10))
(dummy-snippet-names (subseq manywords 200 300))
(dummy-snippets `("testsnippets"
,@(mapcar #'(lambda (dummy-mode-name)
`(,dummy-mode-name
,@(mapcar #'(lambda (dummy-snippet-name)
`(,dummy-snippet-name . ,(concat dummy-snippet-name "'s content")))
dummy-snippet-names)))
dummy-mode-names)))
(yas/verbosity 1))
(with-current-buffer (get-buffer-create "*yas/benchmarks*")
(erase-buffer)
;; jit, no compiled, fastest
;;
(yas/with-snippet-dirs (list dummy-snippets)
;; (yas/recompile-all)
(let ((start (current-time)))
(yas/reload-all)
(insert (format "JIT NO-COMPILED: %s s\n" (float-time (time-subtract (current-time) start))))))
;; jit, compiled, this is equivalent to the first one. The real work
;; will be done when modes are effectively accessed
;;
(yas/with-snippet-dirs (list dummy-snippets)
(let ((start (current-time)))
(yas/reload-all)
(insert (format "JIT COMPILED: %s s\n" (float-time (time-subtract (current-time) start))))))
;; no-jit no-compiled files, slow
;;
(yas/with-snippet-dirs (list dummy-snippets)
(let ((start (current-time))
(yas/auto-compile-snippets nil))
(yas/reload-all t)
(insert (format "NO-JIT NO-COMPILED: %s s\n" (float-time (time-subtract (current-time) start))))))
;; no-jit compiled files, this is what normally happens when a user
;; interactive calls `yas/reload-all'
;;
(yas/with-snippet-dirs (list dummy-snippets)
(yas/recompile-all)
(let ((start (current-time))
(yas/auto-compile-snippets nil))
(yas/reload-all t)
(insert (format "NO-JIT COMPILED: %s s (no recompilation-needed, no auto-compilation checks)\n" (float-time (time-subtract (current-time) start))))))
;; no-jit compiled files, this is what normally happens when a
;; user interactive calls `yas/reload-all', but now with
;; auto-compilation `mtime' checks
;;
(yas/with-snippet-dirs (list dummy-snippets)
(yas/recompile-all)
(let ((start (current-time))
(yas/auto-compile-snippets t))
(yas/reload-all t)
(insert (format "NO-JIT COMPILED: %s s (no recompilation needed, auto-compilation checks)\n" (float-time (time-subtract (current-time) start))))))
;; no-jit no previous compilation, the autocompilation case, slowest
;;
(yas/with-snippet-dirs (list dummy-snippets)
(let ((start (current-time))
(yas/auto-compile-snippets t))
(yas/reload-all t)
(insert (format "NO-JIT NO-COMPILED: %s s (recompilation needed, auto-compilation kicks in all dirs)\n" (float-time (time-subtract (current-time) start))))))
(pop-to-buffer (current-buffer)))))