Configure Builds with Lua

configur.lua

@@ -0,0 +1,88 @@
+require("lua.boot")
+
+-- Determine operating system family
+System = CheckSystemFamily()
+
+-- Check 'lua' contains required files
+CheckDirContains("lua", {
+	"asm.lua",
+	"checks.lua",
+	"compiler.lua",
+	"compiler/custom.lua",
+	"compiler/gcc.lua",
+	"compiler/watcom.lua",
+	"makefile.lua",
+	"makefile/make.lua",
+	"makefile/wmake.lua",
+	"util.lua",
+	}
+)
+
+-- Required files are found and can now be loaded
+require("lua.checks")
+require("lua.makefile")
+require("lua.util")
+
+Target = {}
+GetOpt()
+
+-- Check parameters and which makefile to generate
+Target.makefile = CheckMakefileRequestValid()
+
+-- Create a unique name for testing file and folder
+TmpFolder = UniqueName()
+
+-- Check creating/deleting files and folders works
+CheckCreateDirCmd(TmpFolder)
+CheckRemoveFileCmd(TmpFolder)
+CheckRemoveDirCmd(TmpFolder)
+
+-- Check 'util' contains required source code files
+CheckDirContains("util", {
+	"errnos.c",
+	}
+)
+
+-- Check 'inc' contains required files (for application to include)
+CheckDirContains("inc", {
+	"arpa/inet.h",
+	"netdb.h",
+	"netinet/in.h",
+	"sys/socket.h",
+	"tcp.h",
+	}
+)
+
+-- Check 'src' contains required files
+CheckDirContains("src", MakefileCoreSource())
+
+-- Create a basic C file to test the compiler
+Compiler = {}
+CheckAssembler()
+CheckCompiler()
+
+-- Check size of standard types an actual 32-bit typedef can be defined
+CheckCompilerNative() -- Check that these tests can be done (or skipped)
+CheckCompilerIntSize()
+CheckCompilerLongSize()
+
+-- Check archiver and linker works
+CheckArchiver()
+CheckLinker()
+
+-- Free memory (nessasary for real mode DOS systems)
+package.loaded["lua.boot"] = nil
+package.loaded["lua.checks"] = nil
+package.loaded["lua.compiler"] = nil
+package.loaded["lua.compiler.custom"] = nil
+package.loaded["lua.compiler.gcc"] = nil
+package.loaded["lua.compiler.watcom"] = nil
+collectgarbage("collect", 9001)
+
+-- Generate makefile
+GenerateMakefile()
+
+-- Print helpful commands to run next
+PrintFooterHelper()
+
+os.exit()

lua/asm.lua

@@ -0,0 +1,245 @@
+--[[
+	asm.lua contains functions for testing assemblers.
+]]
+
+function CreateNasmTestFile(name, src)
+	if not src then
+		src =
+[[
+org 100h            ; Origin point for .COM files
+
+; Print string
+mov ah, 09h         ; Function to print string
+mov dx, helloMsg    ; Load address of the message directly into dx
+int 21h             ; Call DOS interrupt to print the string
+
+; Terminate program
+mov ah, 4Ch         ; DOS function to terminate program
+int 21h             ; Call DOS interrupt
+
+helloMsg db 'Hello, NASM!', '$'
+]]
+	end
+
+	local file = io.open(name, "w")
+	if file then
+		file:write(src)
+		file:close()
+		src = nil
+		return true
+	end
+
+	return false
+end
+
+function CreateMasmTestFile(name, src)
+	if not src then
+		src =
+[[
+.model small
+.stack 100h
+
+.data
+	helloMsg db 'Hello, MASM!', '$'
+
+.code
+main:
+	mov ax, @data
+	mov ds, ax
+
+	mov ah, 09h         ; Function to print string
+	lea dx, helloMsg    ; Load address of the message
+	int 21h             ; Call DOS interrupt to print the string
+
+	mov ah, 4Ch         ; DOS function to terminate program
+	int 21h             ; Call DOS interrupt
+
+end main
+]]
+	end
+
+	local file = io.open(name, "w")
+	if file then
+		file:write(src)
+		file:close()
+		src = nil
+		return true
+	end
+
+	return false
+end
+
+function CreateGasTestFile(name, src)
+	if not src then
+		src =
+[[
+.section .data
+hello_msg:
+	.ascii "Hello, GAS!\0"
+.section .text
+.global _start
+_start:
+	mov $0x2, %ax
+	mov %ax, %ds
+
+	mov $0x09, %ah      # Function to print string
+	mov $hello_msg, %dx # Load address of the message
+	int $0x21           # Call DOS interrupt to print the string
+
+	mov $0x4c, %ah      # DOS function to terminate program
+	int $0x21           # Call DOS interrupt
+]]
+	end
+
+	local file = io.open(name, "w")
+	if file then
+		file:write(src)
+		file:close()
+		src = nil
+		return true
+	end
+
+	return false
+end
+
+function CheckCustomAssembler(as, tmpName)
+	Check("Checking '" .. as .. "' compiler understands MASM format")
+
+	if Target.skip then
+		Pass("Skipped")
+		return
+	end
+
+	if not CreateMasmTestFile(tmpName .. ".asm") then Error() end
+	RunCommand(as .. " " .. tmpName .. ".asm")
+	os.remove(tmpName .. ".asm")
+
+	local exists = CheckAndRemoveCommonArtifacts(tmpName)
+	if exists > 0 then
+		Pass("Yes")
+		Compiler.as = as
+		Compiler.aext = ".asm"
+	else
+		Pass("No")
+		Check("Checking '" .. as .. "' compiler understands GAS format")
+
+		if not CreateGasTestFile(tmpName .. ".s") then Error() end
+		RunCommand(as .. " " .. tmpName .. ".s")
+		os.remove(tmpName .. ".s")
+		exists = CheckAndRemoveCommonArtifacts(tmpName)
+		if exists > 0 then
+			Pass("Yes")
+			Compiler.as = as
+			Compiler.aext = ".s"
+			Pass("Yes")
+		end
+	end
+
+	local name
+
+	if Compiler.aext == "masm" then
+		if not CreateMasmTestFile(tmpName .. ".asm") then Error() else
+			name = tmpName .. ".asm"
+		end
+	else
+		if not CreateGasTestFile(tmpName .. ".s") then Error() else
+			name = tmpName .. ".s"
+		end
+	end
+
+	local aflags = CheckEnvVar("AFLAGS")
+	if aflags then
+		Check("Checking if C compiler works with CFLAGS")
+		local r = RunCommand (as .. " " .. aflags .. " " .. name)
+
+		local exists = CheckAndRemoveCommonArtifacts(tmpName)
+		if exists > 0 then Pass("Yes")
+		else
+			os.remove(name)
+			Fail("No")
+		end
+
+		Compiler.aflags = aflags
+	end
+
+	os.remove(name)
+end
+
+function CheckGccAssembler(as, tmpName)
+	local gcc = as or "as"
+
+	Check("Checking '" .. gcc .. "' is available")
+
+	if Target.skip then
+		Pass("Skipped")
+		Compiler.as = gcc
+		Compiler.aext = ".s"
+		return
+	end
+
+	if not CreateGasTestFile(tmpName .. ".s") then Error() end
+
+	RunCommand (gcc .. " " .. tmpName .. ".s ")
+
+	local exist = CheckAndRemoveCommonArtifacts(tmpName)
+	if exist > 0 then Pass("Yes")
+	else
+		os.remove(tmpName .. ".s")
+		Fail("No")
+	end
+
+	os.remove(tmpName .. ".s")
+	Compiler.as = gcc
+	Compiler.aext = ".s"
+end
+
+function CheckNasmAssembler(tmpName)
+	local nasm = CheckEnvVar("NASM") or "nasm"
+
+	Check("Checking " .. nasm .. " is available")
+
+	if not CreateNasmTestFile(tmpName .. ".nas") then Error() end
+
+	RunCommand (nasm .. " -f bin -o " ..
+	tmpName .. ".com " ..
+	tmpName .. ".nas"
+	)
+
+	os.remove(tmpName .. ".nas")
+
+	local exist = CheckAndRemoveCommonArtifacts(tmpName)
+	if exist > 0 then
+		Pass("Yes")
+		Compiler.nasm = nasm
+	else
+		Pass("No")
+	end
+end
+
+function CheckWasmAssembler(as, tmpName)
+	local wasm = as or "wasm"
+
+	Check("Checking " .. wasm .. " is available")
+
+	if Target.skip then
+		Compiler.as = "wasm"
+		Compiler.aext = ".asm"
+		Pass("Skipped")
+		return
+	end
+
+	if not CreateMasmTestFile(tmpName .. ".asm") then Error() end
+
+	RunCommand (
+		wasm .. " -bt=dos " ..
+		tmpName .. ".asm"
+	)
+
+	os.remove(tmpName .. ".asm")
+
+	local exist = CheckAndRemoveCommonArtifacts(tmpName)
+	if exist > 0 then Pass("Yes") else Fail("No") end
+
+	Compiler.as = wasm
+	Compiler.aext = ".asm"
+end

lua/bin2c.lua

@@ -0,0 +1,43 @@
+--[[
+	This lua script converts an ASCII characters into to a
+	C hex array for generating cflagsbf.h and asmpkt.bin
+
+	Usage: lua bin2c.lua [file] (> [output file])
+]]
+
+-- Silent exit with error if no readable file can be found
+if #arg < 1 then os.exit(1) end
+local file = io.open(arg[1], "rb")
+if not file then os.exit(1) end
+
+local column = {}
+local row = {}
+local count = 0
+
+-- Parse the file
+while true do
+	local byte = file:read(1)
+
+	if not byte then break end  -- EOF
+
+	-- Insert the processed byte into the table
+	table.insert(column, string.format("0x%02X", string.byte(byte)))
+
+	-- Newline after every 12th element
+	count = count + 1
+	if count % 12 == 0 then
+		table.insert(row, table.concat(column, ", ") .. ",")
+		column = {}
+	end
+end
+file:close()
+
+-- Append last row
+table.insert(row, table.concat(column, ", ") .. ",")
+
+-- Write C hex array to stdout
+local result = "/* bin2c.lua output begin */\n\t" ..
+	table.concat(row, '\n\t') ..
+	"\n/* bin2c.lua output end */"
+print(result)
+os.exit(0)