# Copyright (c) 2023 Peter McGoron <code@mcgoron.com>
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
from creole import *
import unittest
import ffi

class PushTest(unittest.TestCase):
	def test_parse_push_reg(self):
		p = Program()
		p.parse_asm_line("push r5")
		self.assertEqual(p(), b'\x01\xC2\x85\x00')

	def test_parse_push_imm(self):
		p = Program()
		p.parse_asm_line("push 5")
		b = p()
		self.assertEqual(b, b'\x01\xC0\x85\x00')

	def test_parse_push_catch_typecheck_push_lab(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("push .l0")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.l0')
		self.assertEqual(cm.exception.i, 0)
		self.assertEqual(cm.exception.opcode, Instruction.PUSH)

	def test_parse_push_catch_typecheck_argument_overflow(self):
		p = Program()
		with self.assertRaises(TypecheckLenException) as cm:
			p.parse_asm_line("push r1 r2")
		self.assertEqual(cm.exception.opcode, Instruction.PUSH)
		self.assertEqual(cm.exception.insargs, ["r1", "r2"])
		self.assertEqual(cm.exception.argtypelen, 1)

	def test_parse_push_catch_typecheck_argument_underflow(self):
		p = Program()
		with self.assertRaises(TypecheckLenException) as cm:
			p.parse_asm_line("push")
		self.assertEqual(cm.exception.opcode, Instruction.PUSH)
		self.assertEqual(cm.exception.insargs, [])
		self.assertEqual(cm.exception.argtypelen, 1)

	def test_large_reg(self):
		p = Program(reglen=0x8000000)
		p.parse_asm_line("PUSH r134217727")
		b = p()
		self.assertEqual(b, b'\x01\xFC\x8f\xbf\xbf\xbf\xbf\x00')

	def test_compile_push(self):
		p = Program()
		p.parse_asm_line("PUSH r0")
		p.parse_asm_line("PUSH 6")

		ex = ffi.Environment(p())

	def test_push_many(self):
		p = Program()
		stklen = 40
		for n in range(0,stklen):
			p.parse_asm_line("PUSH 5")
		ex = ffi.Environment(p(), stklen=stklen)
		self.assertEqual(ex(), ffi.RunRet.STOP)
		for n in range(0,stklen):
			self.assertEqual(ex.getstk(n), 5)

	def test_push_overflow(self):
		p = Program()
		stklen = 40
		for n in range(0, stklen + 1):
			p.parse_asm_line("PUSH 5")
		ex = ffi.Environment(p(), stklen=stklen)
		self.assertEqual(ex(), ffi.RunRet.STACK_OVERFLOW)

class PopTest(unittest.TestCase):
	def test_compile_pop_reg(self):
		p = Program()
		p.parse_asm_line("pop r9")
		b = p()
		self.assertEqual(b, b'\x02\xC2\x89\x00')
		ex = ffi.Environment(b)

	def test_compile_throw_pop_literal(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("pop 6")
		self.assertEqual(cm.exception.argtype, ArgType.REG)
		self.assertEqual(cm.exception.sarg, '6')
		self.assertEqual(cm.exception.i, 0)
		self.assertEqual(cm.exception.opcode, Instruction.POP)

	def test_compile_throw_pop_label(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("pop .l9")
		self.assertEqual(cm.exception.argtype, ArgType.REG)
		self.assertEqual(cm.exception.sarg, '.l9')
		self.assertEqual(cm.exception.i, 0)
		self.assertEqual(cm.exception.opcode, Instruction.POP)

	def test_compile_throw_argument_overflow(self):
		p = Program()
		with self.assertRaises(TypecheckLenException) as cm:
			p.parse_asm_line("pop r1 r2")
		self.assertEqual(cm.exception.opcode, Instruction.POP)
		self.assertEqual(cm.exception.insargs, ["r1", "r2"])
		self.assertEqual(cm.exception.argtypelen, 1)

	def test_catch_typecheck_argument_underflow(self):
		p = Program()
		with self.assertRaises(TypecheckLenException) as cm:
			p.parse_asm_line("pop")
		self.assertEqual(cm.exception.opcode, Instruction.POP)
		self.assertEqual(cm.exception.insargs, [])

	def test_pop_underflow(self):
		p = Program()
		p.parse_asm_line("pop r0")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STACK_UNDERFLOW)

	def test_pop_underflow_2(self):
		p = Program()
		p.parse_asm_line("push 5")
		p.parse_asm_line("pop r0")
		p.parse_asm_line("pop r1")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STACK_UNDERFLOW)

class AddTest(unittest.TestCase):
	def test_exec_add(self):
		p = Program()
		p.parse_asm_line("add r0 1 1")
		ex = ffi.Environment(p)
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.cenv.reg[0], 2)

	def test_exec_add_neg(self):
		p = Program()
		p.parse_asm_line("add r0 10 20")
		p.parse_asm_line("add r1 5 0")
		p.parse_asm_line("add r1 r0 -40")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 30)
		self.assertEqual(ex.getreg(1, signed=True), -10)

	def test_exec_add_throw_imm(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("add 5 6 7")
		self.assertEqual(cm.exception.argtype, ArgType.REG)
		self.assertEqual(cm.exception.sarg, '5')
		self.assertEqual(cm.exception.i, 0)
		self.assertEqual(cm.exception.opcode, Instruction.ADD)

	def test_exec_add_throw_lab_1(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("add r0 .label 7")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.label')
		self.assertEqual(cm.exception.i, 1)
		self.assertEqual(cm.exception.opcode, Instruction.ADD)

	def test_exec_add_throw_lab_2(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("add r0 12 .ab")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.ab')
		self.assertEqual(cm.exception.i, 2)
		self.assertEqual(cm.exception.opcode, Instruction.ADD)

class MulTest(unittest.TestCase):
	def test_exec_mul_imm_imm(self):
		p = Program()
		p.parse_asm_line("mul r0 2 2")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 4)

	def test_exec_mul_imm_neg_imm(self):
		p = Program()
		p.parse_asm_line("mul r0 -5 5")
		p.parse_asm_line("mul r1 r0 -5")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0, signed=True), -25)
		self.assertEqual(ex.getreg(1), 125)

	def test_exec_mul_throw_imm(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("mul 942 6 7")
		self.assertEqual(cm.exception.argtype, ArgType.REG)
		self.assertEqual(cm.exception.sarg, '942')
		self.assertEqual(cm.exception.i, 0)
		self.assertEqual(cm.exception.opcode, Instruction.MUL)

	def test_exec_mul_throw_lab_1(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("mul r9 .l2 1991")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.l2')
		self.assertEqual(cm.exception.i, 1)
		self.assertEqual(cm.exception.opcode, Instruction.MUL)

	def test_exec_mul_throw_lab_2(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("mul r0 -11 .l48")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.l48')
		self.assertEqual(cm.exception.i, 2)
		self.assertEqual(cm.exception.opcode, Instruction.MUL)

class DivTest(unittest.TestCase):
	def test_div(self):
		p = Program()
		p.parse_asm_line("div r0 8 4")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 2)

	def test_div_round_down(self):
		p = Program()
		p.parse_asm_line("div r0 8 10")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)

	def test_div_by_zero(self):
		p = Program()
		p.parse_asm_line("div r0 8 0")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.DIVIDE_BY_ZERO)

	def test_sdiv_by_zero(self):
		p = Program()
		p.parse_asm_line("sdiv r0 8 0")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.DIVIDE_BY_ZERO)

	def test_sdiv_neg(self):
		p = Program()
		p.parse_asm_line("sdiv r0 16 -4")
		p.parse_asm_line("sdiv r1 r0 -4")
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0, signed=True), -4)
		self.assertEqual(ex.getreg(1), 1)

	def test_exec_div_throw_imm(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("div 5 1 2")
		self.assertEqual(cm.exception.argtype, ArgType.REG)
		self.assertEqual(cm.exception.sarg, '5')
		self.assertEqual(cm.exception.i, 0)
		self.assertEqual(cm.exception.opcode, Instruction.DIV)

	def test_exec_div_throw_lab_1(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("div r0 .qqweq 456")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.qqweq')
		self.assertEqual(cm.exception.i, 1)
		self.assertEqual(cm.exception.opcode, Instruction.DIV)

	def test_exec_div_throw_lab_2(self):
		p = Program()
		with self.assertRaises(TypecheckException) as cm:
			p.parse_asm_line("div r5 1919 .24")
		self.assertEqual(cm.exception.argtype, ArgType.VAL)
		self.assertEqual(cm.exception.sarg, '.24')
		self.assertEqual(cm.exception.i, 2)
		self.assertEqual(cm.exception.opcode, Instruction.DIV)

class LabelTest(unittest.TestCase):
	def test_unconditional_jump(self):
		p = Program()
		p.parse_lines([
			"mov r0 5",
			"mov r0 6",
			"j .l0",
			"mov r0 7",
			".l0",
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 6)

	def test_simple_loop(self):
		p = Program()
		p.parse_lines([
			"add r0 10 0",
			"add r1 20 0",
			".loop_head",
			"add r0 r0 -1",
			"add r1 r1 1",
			"jl .loop_head 0 r0"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 0)
		self.assertEqual(ex.getreg(1), 30)

	def test_signed_jmp(self):
		p = Program()
		p.parse_lines([
			"mov r0 30",
			"mov r1 0",
			".l0",
			"add r0 r0 -1",
			"add r1 r1 1",
			"jls .l0 -30 r0"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0, signed=True), -30)
		self.assertEqual(ex.getreg(1), 60)

	def test_jeq(self):
		p = Program()
		p.parse_lines([
			"mov r0 50",
			"mov r1 0",
			".l0",
			"add r1 r1 1",
			"mul r2 r0 -1",
			"add r2 r2 r1",
			"jne .l0 r2 0"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0, signed=True), 50)
		self.assertEqual(ex.getreg(1), 50)
		self.assertEqual(ex.getreg(2), 0)

	def test_nested_loop(self):
		p = Program()
		p.parse_lines([
			"mov r0 0", # outer loop counter
			"mov r2 0", # total iteration counter
			".outer_loop",
			"mov r1 0", # inner loop counter
			".inner_loop",
			"add r1 r1 1",
			"add r2 r2 1",
			"jl .inner_loop r1 50",
			"add r0 r0 1",
			"jl .outer_loop r0 50"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 50)
		self.assertEqual(ex.getreg(1), 50)
		self.assertEqual(ex.getreg(2), 50*50)

	def test_many_jumps(self):
		p = Program()
		p.parse_lines([
			"j .f1",
			".f4",
			"j .f5",
			".f2",
			"j .f3",
			".f3",
			"j .f4",
			".f5",
			"j .f6",
			".f1",
			"j .f2",
			".f6"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)

class ProgramTest(unittest.TestCase):
	def test_exec_simple_reg(self):
		p = Program()
		p.parse_asm_line("push 5")
		p.parse_asm_line("push 6")
		p.parse_asm_line("pop r0")
		p.parse_asm_line("pop r1")
		ex = ffi.Environment()
		self.assertEqual(ex.load(p()), ffi.CompileRet.OK)
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getreg(0), 6)
		self.assertEqual(ex.getreg(1), 5)

	def range_test(self, st, en, sgn=False):
		for i in range(st, en):
			p = Program()
			p.parse_asm_line(f"mov r0 {i}")
			ex = ffi.Environment(p())
			self.assertEqual(ex(), ffi.RunRet.STOP)
			self.assertEqual(ex.getreg(0, signed=sgn), i)

	@unittest.skip("slow")
	def test_parse_imm_compile(self):
		self.range_test(0, 0x1000)
		self.range_test(0x1000, 0x1100)
		self.range_test(0x1FF00, 0x20000)
		self.range_test(0x20000, 0x20100)
		self.range_test(0x3FFF00, 0x400000)
		self.range_test(0x400000, 0x400100)
		self.range_test(0x7FFFF00, 0x8000000)
		self.range_test(0x8000000, 0x8000100)
		self.range_test(0xFFFFFF00, 0x100000000)

	@unittest.skip("slow")
	def test_parse_imm_signed(self):
		self.range_test(0, 0x1000, sgn=True)
		self.range_test(0x1000, 0x1100, sgn=True)
		self.range_test(0x1FF00, 0x20000, sgn=True)
		self.range_test(0x20000, 0x20100, sgn=True)
		self.range_test(0x3FFF00, 0x400000, sgn=True)
		self.range_test(0x400000, 0x400100, sgn=True)
		self.range_test(0x7FFFF00, 0x8000000, sgn=True)
		self.range_test(-100, 0, sgn=True)

class DataTest(unittest.TestCase):
	def test_parse_db(self):
		p = Program()
		p.parse_asm_line("db d0 [4d2,1234,0,5]")
		self.assertEqual(p(), b'\x0b\xc0\x80\xe0\x93\x92\xf0\x81\x88\xb4\xc0\x80\xc0\x85\x00')
	def test_alloc_multiple(self):
		p = Program()
		p.parse_lines([
			"db d0 [1,2,3,4]",
			"db d1 [10,11,12,13]"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getdat(0), [1,2,3,4])
		self.assertEqual(ex.getdat(1), [0x10,0x11,0x12,0x13])
	def test_alloc_repeat(self):
		p = Program()
		p.parse_lines([
			"db d0 [1,2,3,4]",
			"db d1 [10,11,12,13]",
			"db d0 [5,6,7,8,9]"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getdat(0), [5,6,7,8,9])
		self.assertEqual(ex.getdat(1), [0x10,0x11,0x12,0x13])
	def test_alloc_repeat_jump_skip(self):
		p = Program()
		p.parse_lines([
			"db d0 [1,2,3,4]",
			"db d1 [10,11,12,13]",
			"j .end",
			"db d1 [5,6,7,8,9]",
			".end"
		])
		ex = ffi.Environment(p())
		self.assertEqual(ex(), ffi.RunRet.STOP)
		self.assertEqual(ex.getdat(0), [1,2,3,4])
		self.assertEqual(ex.getdat(1), [0x10,0x11,0x12,0x13])

class SCEnv(ffi.Environment):
	def syscall(self, s):
		self.s = s.value
	def __init__(self, *args, **kwargs):
		super().__init__(*args, **kwargs)

class ProgramTest(unittest.TestCase):
	def range_test(self, st, en, sgn=False):
		for i in range(st, en):
			p = Program()
			p.parse_asm_line(f"sys {i}")
			ex = SCEnv(p())
			self.assertEqual(ex(), ffi.RunRet.STOP)
			self.assertEqual(ex.s, i)
	def test_syscall_imm(self):
		self.range_test(0, 1000)

if __name__ == "__main__":
	unittest.main()