Rearranged test and build tools

... adding a build AutoHotkey script replacing compile.bat

tools/build.ahk

@@ -0,0 +1,108 @@
+/*
+:title:     bug.n -- tiling window management
+:copyright: (c) 2010-2017 by Joshua Fuhs, joten <https://github.com/joten>
+:license:   GNU General Public License version 3; for more details: 
+            ../LICENSE.md or at <http://www.gnu.org/licenses/>.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE.
+*/
+
+;; script settings
+#NoEnv                        ;; Recommended for performance and compatibility with future AutoHotkey releases.
+SendMode Input                ;; Recommended for new scripts due to its superior speed and reliability.
+SetBatchLines, -1
+SetControlDelay, 0
+SetTitleMatchMode, 3
+SetTitleMatchMode, Fast
+SetWorkingDir %A_ScriptDir%   ;; Ensures a consistent starting directory.
+#SingleInstance Force
+;#Warn                         ;; Enable warnings to assist with detecting common errors.
+
+;; pseudo main function
+  M_NAME     := "bug.n"
+  Progress,,,, Building %M_NAME%
+  M_logLevel := 5             ;; higher values mean more logging, type = int, choices = [0, 1, 2, 3, 4, 5, 6], default = 5
+  
+  _log := new Logging(A_ScriptDir . "\log-build-" . A_ComputerName . "_" . A_UserName . ".md",, M_logLevel)
+  _log.message("Building " . M_NAME . " started", 4)
+  Progress, 10
+  
+  compile(A_ScriptDir . "\..\src\Main.ahk", A_ScriptDir . "\..\bugn.exe", A_ScriptDir . "\..\src\logo.ico")
+  Progress, 100
+  
+  _log.message("Building " . M_NAME . " finished", 0)
+  Sleep, 1000
+  Progress, OFF
+Return
+;; end of the auto-execute section
+
+;; class, function & label definitions
+class Logging {
+  __New(file, truncate := True, level := 0) {
+    this.file  := file
+    this.level := level ? level : 6
+    this.label := StrSplit(";CRITICAL;ERROR;WARNING;INFO;DEBUG;SUPER", ";")
+    
+    If (truncate && FileExist(this.file)) {
+      FileDelete, % this.file
+      this.message("**Logging.__New**: File deleted (``" . this.file . "``)", 3)
+    }
+    FormatTime, timestamp, , yyyy-MM-dd
+    FileAppend, % "`r`n# " . timestamp . "`r`n", % this.file
+    this.message("Logging started with log level " . this.level, 4)
+  }
+  
+  message(text, level, timestamp := True) {    ;; level = 0: log in any case
+    If (this.level >= level) {
+      If timestamp
+        FormatTime, timestamp, , yyyy-MM-dd HH:mm:ss
+      i := level + 1
+      text := StrPad(timestamp, " ", 19) . "> " . StrPad(this.label[i], ".", 8) . ": " . text . "`r`n"
+      FileAppend, % text, % this.file
+    }
+  }
+  
+  setLevel(d, level := 0) {
+    level := level ? level : this.level
+    level := IntMin(IntMax(level + d, 1), 6)
+    If (level != this.level) {
+      this.level := level
+      i := level + 1
+      this.message("Log level set to " . this.label[i], 0)
+    }
+  }
+}
+
+compile(source, destination, customIcon, compiler := "C:\Program Files\AutoHotkey\Compiler\Ahk2Exe.exe", compressor := "C:\Program Files\AutoHotkey\Compiler\mpress.exe") {
+  Global _log
+  
+  useMpress := FileExist(compressor)
+  _log.message("**Compile**: Variable set, source      -> ``" . source      . "``, the file does " . (FileExist(source)      ? "" : "**not** ") . "exist.", 5)
+  _log.message("**Compile**: Variable set, destination -> ``" . destination . "``, the file does " . (FileExist(destination) ? "" : "**not** ") . "exist.", 5)
+  _log.message("**Compile**: Variable set, customIcon  -> ``" . customIcon  . "``, the file does " . (FileExist(customIcon)  ? "" : "**not** ") . "exist.", 5)
+  _log.message("**Compile**: Variable set, compiler    -> ``" . compiler    . "``, the file does " . (FileExist(compiler)    ? "" : "**not** ") . "exist.", 5)
+  _log.message("**Compile**: Variable set, useMpress   -> ``" . useMpress   . "``", 5)
+  If (FileExist(source) && FileExist(compiler))
+    RunWait, %compiler% /in %source% /icon %customIcon% /mpress %useMpress% /out %destination%
+  _log.message("Compiling the script to an executable finished.", 4)
+}
+
+IntMin(int_1, int_2) {
+  Return, int_1 < int_2 ? int_1 : int_2
+}
+
+IntMax(int_1, int_2) {
+  Return, int_1 > int_2 ? int_1 : int_2
+}
+
+StrPad(s, chars, count) {
+  str := ""
+  Loop, % Abs(count)
+    str .= chars
+  If (count < 0)
+    Return SubStr(str . s, count + 1)
+  Else
+    Return SubStr(s . str, 1, count)
+}