Rearranged test and build tools

... adding a build AutoHotkey script replacing compile.bat
This commit is contained in:
joten 2018-01-13 15:43:12 +01:00
parent fb37d017ae
commit b3226c8539
5 changed files with 110 additions and 2 deletions

108
tools/build.ahk Normal file
View file

@ -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)
}

View file

@ -1,3 +1,3 @@
set COMPILER_PATH="C:\Program Files\AutoHotkey\Compiler\Ahk2Exe.exe"
set COMPILER_PATH="C:\Program Files\AutoHotkey\Compiler\Ahk2Exe.exe"
%COMPILER_PATH% /in ..\src\Main.ahk /icon ..\src\logo.ico /mpress 1 /out ..\bugn.exe