module main

__global fd [2]int
__global buffer [128]byte

const (
	sample_text_file1 = ""
)

fn fork_test (test_fn fn(), name string) {
	//print ("checking")
	// a := "$name"
	println (name)
	child := sys_fork()
	if child == 0 {
		test_fn()
		sys_exit(0)
	}
//	pid := sys_wait(0)
//	assert
}

fn check_read_write_pipe() {
	//	Checks the following system calls:
	//		sys_pipe
	//		sys_write
	//		sys_read
	//		sys_close
	//
	println ("checking pipe read/write")
	fd[0] = -1
	fd[1] = -1

	assert fd[0] == -1
	assert fd[1] == -1

	a := sys_pipe(intptr(fd))

	assert a == .enoerror

	assert fd[0] != -1
	assert fd[1] != -1

	test_data := "test_data"
	b := test_data.len + 1
	c1, e1 := sys_write (fd[1], test_data.str, u64(b))

	assert e1 == .enoerror
	assert c1 == b

	c2, e2 := sys_read(fd[0], byteptr(buffer), u64(b))

	assert e2 == .enoerror
	assert c2 == b

	assert buffer[b-1] == 0

	for i in 0..b {
		assert test_data[i] == buffer[i]
	}

	assert sys_close(fd[0]) == .enoerror
	assert sys_close(fd[1]) == .enoerror

	assert sys_close(-1) == .ebadf

	println ("pipe read/write passed")
}

fn check_read_file() {
	/*
		Checks the following system calls:
			sys_read
			sys_write
			sys_close
			sys_open
	*/
	test_file := "sample_text1.txt"
	sample_text := "Do not change this text.\n"
	println ("checking read file")
	fd, ec := sys_open(test_file.str, .o_rdonly, 0)
	assert fd > 0
	assert ec == .enoerror
	n := sample_text.len
	c, e := sys_read(fd, buffer, u64(n*2))
	assert e == .enoerror
	assert c == n
	for i in 0..n {
		assert sample_text[i] == buffer[i]
	}
	assert sys_close(fd) == .enoerror

	println("read file passed")
}

fn check_open_file_fail() {
	println ("checking 'open file fail'")
	fd1, ec1 := sys_open("./nofilehere".str, .o_rdonly, 0)
	assert fd1 == -1
	assert ec1 == .enoent
	println ("'open file fail' check passed")
}

/*
fn check_print() {
	println ("checking print and println")

	a := sys_pipe(intptr(fd))
	assert a != -1
	assert fd[0] != -1
	assert fd[1] != -1

	//sys_dup2
	println ("print and println passed")
}
*/

fn check_munmap_fail() {
	println ("checking 'munmap fail'")

	ec := sys_munmap(-16384,8192)
	assert ec == .einval
	//es := i64_tos(buffer2,80,int(ec),16)
	//println(es)

	println ("'munmap fail' check passed")
}

fn check_mmap_one_page() {
	println ("checking check_mmap_one_page")

	mp := int(mm_prot.prot_read) | int(mm_prot.prot_write)
	mf := int(map_flags.map_private) | int(map_flags.map_anonymous)
	mut a, e := sys_mmap(0, u64(linux_mem.page_size), mm_prot(mp), map_flags(mf), -1, 0)

	assert e == .enoerror
	assert a != byteptr(-1)

	for i in 0..int(linux_mem.page_size) {
		b := i & 0xFF
		a[i] = b
		assert a[i] == b
	}

	ec := sys_munmap(a, u64(linux_mem.page_size))
	assert ec == .enoerror

	println ("check_mmap_one_page passed")
}

fn check_mm_pages() {
	println ("checking check_mm_pages")
	for i in 0 .. int(linux_mem.page_size)-4 {
		assert u32(1) == mm_pages(u64(i))
	}
	for i in int(linux_mem.page_size)-3 .. (int(linux_mem.page_size)*2)-4 {
		assert u32(2) == mm_pages(u64(i))
	}
	for i in (int(linux_mem.page_size)*2)-3 .. (int(linux_mem.page_size)*3)-4 {
		assert u32(3) == mm_pages(u64(i))
	}
	println ("check_mm_pages passed")
}

//pub fn mm_alloc(size u64) (voidptr, errno)

fn check_mm_alloc() {
	println ("checking mm_alloc")

	for i in 1 .. 2000 {
		size := u64(i*1000)
		pages := mm_pages(size)
		mut a, e := mm_alloc(size)

		//ads := i64_tos(buffer,80,i64(a),16)
		//println(ads)
		//es := i64_tos(buffer,80,i64(e),16)
		//println(es)

		assert e == .enoerror
		ap := intptr(a-4)
		assert *ap == int(pages)
		assert e == .enoerror
		assert !isnil(a)

		if (i%111) == 0 {
			for j in 0 .. int(size) {
				b := j & 0xFF
				a[j] = b
				assert b == int(a[j])
			}
		}

		mfa := mm_free(a)

		//mfas := i64_tos(buffer,80,i64(mfa),16)
		//println(mfas)

		assert mfa == .enoerror
	}
	println ("mm_alloc passed")
}

fn check_int_array_ro() {
	println ("trying check_int_array_ro")
	a := [100,110,120,130]
	assert a.len == 4
	assert a[0] == 100
	assert a[1] == 110
	assert a[2] == 120
	assert a[3] == 130
	println ("check_int_array_ro passed")
}

fn check_int_array_rw() {
	println ("trying check_int_array_rw")
	mut a := [-10,-11,-12,-13]
	assert a.len == 4
	assert a[0] == -10
	assert a[1] == -11
	assert a[2] == -12
	assert a[3] == -13
	for i in 0..a.len {
		b := -a[i] * 10
		a[i] = b
		assert a[i] == b
	}
	assert a[3] == 130

	println ("check_int_array_rw passed")
}

fn check_int64_array_ro() {
	println ("trying check_int64_array_ro")
	a := [i64(1000),1100,1200,1300,1400]
	assert a.len == 5
	assert a[0] == 1000
	assert a[1] == 1100
	assert a[2] == 1200
	assert a[3] == 1300
	assert a[4] == 1400
	println ("check_int64_array_ro passed")
}

fn check_voidptr_array_ro() {
	println ("trying check_voidptr_array_ro")
	a := [
		voidptr(10000),
		voidptr(11000),
		voidptr(12000),
		voidptr(13000),
		voidptr(14000),
		voidptr(15000)
	]
	assert a.len == 6
	assert a[0] == voidptr(10000)
	assert a[1] == voidptr(11000)
	assert a[2] == voidptr(12000)
	assert a[3] == voidptr(13000)
	assert a[4] == voidptr(14000)
	assert a[5] == voidptr(15000)
	println ("check_voidptr_array_ro passed")
}

fn check_voidptr_array_rw() {
	println ("trying check_voidptr_array_rw")
	mut a := [
		voidptr(-1),
		voidptr(-1),
		voidptr(-1),
		voidptr(-1),
		voidptr(-1),
		voidptr(-1)
	]
	assert a.len == 6

	assert a[0] == voidptr(-1)
	assert a[1] == voidptr(-1)
	assert a[2] == voidptr(-1)
	assert a[3] == voidptr(-1)
	assert a[4] == voidptr(-1)
	assert a[5] == voidptr(-1)

	a[0] = voidptr(100000)
	assert a[0] == voidptr(100000)

	a[1] = voidptr(110000)
	assert a[1] == voidptr(110000)

	a[2] = voidptr(120000)
	assert a[2] == voidptr(120000)

	a[3] = voidptr(130000)
	assert a[3] == voidptr(130000)

	a[4] = voidptr(140000)
	assert a[4] == voidptr(140000)

	a[5] = voidptr(150000)
	assert a[5] == voidptr(150000)
	println ("check_voidptr_array_rw passed")
}


fn main() {
	check_read_write_pipe()
	check_read_file()
	// check_print()
	check_open_file_fail()
	check_munmap_fail()
	check_mmap_one_page()
	check_mm_pages()
	check_mm_alloc()
	check_int_array_ro()
	check_int_array_rw()
	check_int64_array_ro()
	check_voidptr_array_ro()
	check_voidptr_array_rw()
	sys_exit(0)
}