[nongnu] elpa/pacmacs 3e25c67590 345/472: Add script for semi-automatic ATT measuring

[ELPA Syncer]

branch: elpa/pacmacs
commit 3e25c675905b3906935f04a9c506f8784a67c532
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    Add script for semi-automatic ATT measuring
---
 tools/README.md |  5 +++++
 tools/att.el    | 17 +++++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/tools/README.md b/tools/README.md
index b4dab9e5d6..299e60f774 100644
--- a/tools/README.md
+++ b/tools/README.md
@@ -2,6 +2,11 @@
 
 Tools that help to develop the game
 
+## att.el ##
+
+Runs `./it-cases/it-case03.el` it case using `pacmacs-rr` module and
+outputs the ATT to `./att.txt` file.
+
 ## compile.el ##
 
 Compiles all the source code, treats warnings as errors and exits with
diff --git a/tools/att.el b/tools/att.el
new file mode 100644
index 0000000000..8a3902c68e
--- /dev/null
+++ b/tools/att.el
@@ -0,0 +1,17 @@
+(add-to-list 'load-path default-directory)
+(add-to-list 'load-path (concat default-directory "/tools/"))
+
+(require 'pacmacs-rr)
+(require 'f)
+
+(defconst att-result-file-path "./att.txt")
+(defvar att-it-case-path "./it-cases/it-case03.el")
+
+(defun att-replayer-finished ()
+  (f-write (format "Average Tick Time: %fms" (pacmacs--average-tick-time))
+           'utf-8
+           att--result-file-path)
+  (kill-emacs 0))
+
+(add-hook 'pacmacs-replay-finished-hook #'performance-replayer-finished)
+(pacmacs--start-it-replayer att-it-case-path)