simple foldhash implementation

.vscode/settings.json

@@ -1,4 +1,6 @@
 {
+   "editor.insertSpaces": false,
+   "editor.detectIndentation": false,
    "rust-analyzer.checkOnSave.allTargets": false,
    "rust-analyzer.showUnlinkedFileNotification": false,
    "C_Cpp.errorSquiggles": "disabled"

Cargo.lock

@@ -213,12 +213,12 @@ dependencies = [
 [[package]]
 name = "hbbytecode"
 version = "0.1.0"
-source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#86ca959ea3eae1cb32298e135a444820583d24a0"
+source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#a3355a59c0727e58519a94a8f65013beb9c2331b"
 
 [[package]]
 name = "hblang"
 version = "0.1.0"
-source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#86ca959ea3eae1cb32298e135a444820583d24a0"
+source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#a3355a59c0727e58519a94a8f65013beb9c2331b"
 dependencies = [
  "hashbrown",
  "hbbytecode",
@@ -229,7 +229,7 @@ dependencies = [
 [[package]]
 name = "hbvm"
 version = "0.1.0"
-source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#86ca959ea3eae1cb32298e135a444820583d24a0"
+source = "git+https://git.ablecorp.us/AbleOS/holey-bytes.git#a3355a59c0727e58519a94a8f65013beb9c2331b"
 dependencies = [
  "hbbytecode",
 ]

STYLE_GUIDE.md

@@ -0,0 +1,66 @@
+# Style Guide
+This style guide has two modes that a guideline may be.
+
+`strict` means that prs will be rejected if they do not follow the guideline.
+
+`loose` means that a pr would be accepted but should later be fixed.
+
+## Empty Functions | loose
+Empty functions are typically a sign of an unfinished program or driver.
+
+In cases where there is a clear reason to have an empty function it will be allowed.
+For example FakeAlloc is only empty functions because it is a example of an the allocator api.
+
+### Allowed
+```rust
+/// in example.hb
+a := fn(): void {}
+```
+### Not Allowed
+```rust
+/// in fat32.hb
+a := fn(): void {}
+```
+
+
+## Magic Numbers | loose
+The policy on magic numbers is make them const and have a comment above them. Typically linking to a source of information about the magic number.
+
+This helps cut down on magic numbers while making acceptable names and atleast half assed documentation. 
+
+Constants are inlined anyways, so its the same thing in the binary.
+
+```rust
+// The standard vga port is mapped at 0xB8000
+$VGA_PTR := 0xB8000
+```
+
+## Tabs Vs Spaces | strict
+I prefer for hblang code to use hard tabs.
+
+The rational behind this is that a tab is `1 Indent` which some developers might want to be various different sizes when displayed
+
+Soft tabs do not allow this user/editor specific as soft tabs always become spaces.
+
+Bottom line is this is an accessibility feature.
+
+There are some samples below.
+```
+\t means hard tab
+\n means new line
+\0x20 means space
+```
+
+### Allowed
+```rust
+if x == y {\n
+\tlog(z)\n
+}\n
+```
+
+### Not Allowed
+```rust
+if x == y {\n
+\0x20\0x20\0x20\0x20log(z)\n
+}\n
+```

kernel/src/kmain.rs

@@ -22,12 +22,13 @@ use {
 pub fn kmain(_cmdline: &str, boot_modules: BootModules) -> ! {
     debug!("Entered kmain");
 
-    #[cfg(feature = "ktest")] {
+    #[cfg(feature = "ktest")]
+    {
         use crate::ktest;
         debug!("TESTING");
         ktest::test_main();
 
-        loop {};
+        loop {}
     }
 
     // let kcmd = build_cmd("Kernel Command Line", cmdline);
@@ -75,6 +76,7 @@ pub fn kmain(_cmdline: &str, boot_modules: BootModules) -> ! {
         "Graphics front ptr {:?}",
         fb1.address.as_ptr().unwrap() as *const u8
     );
+    log::info!("Started AbleOS");
 
     unsafe {
         let executor = LazyCell::<Executor>::force_mut(&mut EXECUTOR);
@@ -131,7 +133,6 @@ pub fn kmain(_cmdline: &str, boot_modules: BootModules) -> ! {
 
         executor.run();
     };
-
     crate::arch::spin_loop()
 }
 

repbuild/src/main.rs

@@ -485,7 +485,7 @@ fn run(release: bool, target: Target, do_accel: bool) -> Result<(), Error> {
             #[rustfmt::skip]
             com.args([
                 "-M", "virt",
-                "-cpu", "neoverse-n2",
+                "-cpu", "max",
                 "-device", "ramfb",
                 "-device", "qemu-xhci",
                 "-device", "usb-kbd",

sysdata/libraries/stn/src/alloc/alloc_return.hb

@@ -0,0 +1,4 @@
+AllocReturn := struct {
+	byte_count: uint,
+	ptr: ?^u8,
+}

sysdata/libraries/stn/src/alloc/block_alloc.hb

@@ -0,0 +1,79 @@
+.{log, panic} := @use("../lib.hb")
+alloc_return := @use("alloc_return.hb")
+
+/* the block size is 64 bytes, 64 blocks of 64 bytes.
+   this will very quickly lead to exhaustion of free blocks.
+*/
+BlockAlloc := struct {
+	// hi
+	state: uint,
+	ptr: ?^u8,
+
+	$init := fn(): Self {
+		return .(0, null)
+	}
+
+	alloc := fn(self: Self, alloc_type: type, count: uint): alloc_return.AllocReturn {
+		offset := 1
+		a := 1
+		loop {
+			// a = self.state >> offset
+			// check if the `offset` bit is 1, if it is move to the next offset
+			if a == 1 {
+				offset += 1
+				log.info("Already Allocated\0")
+			} else {
+				// self it to 1 and return the ptr to the allocation
+				self.state |= a
+				// return ptr + offset * 64
+				if self.ptr != null {
+					return .(64, self.ptr + offset * 64)
+				} else {
+					// panic.panic("Allocator is not inited.\0")
+					// return .(0, null)
+				}
+			}
+			// there are only 64 blocks
+			if offset >= 64 {
+				return .(0, null)
+			}
+		}
+	}
+
+	dealloc := fn(self: Self, ptr: ^u8, alloc_type: type, count: uint): void {
+		// size := size_of(alloc_type)*count
+		size := 64
+		// get the size alligned to the nearest block
+		// rounded_size := nearest_block_size_rounded_up(size)
+		rounded_size := 64
+
+		state_bit_start := {
+			// Do math here to figure out what starting ptr corresponds to what bit
+			3
+		}
+
+		offset := 0
+
+		loop {
+			if rounded_size > 0 {
+				// set state_bit_start+offset to 0
+
+				// at the end move to the next one
+				offset += 1
+			} else {
+				break
+			}
+
+			rounded_size -= 64
+		}
+		return void
+	}
+
+	$deinit := fn(self: Self): void {
+		self.state = 0
+		self.ptr = null
+	}
+}
+
+// request a kernel page
+// ptr := memory.alloc(1)

sysdata/libraries/stn/src/alloc/fake_alloc.hb

@@ -0,0 +1,19 @@
+alloc_return := @use("alloc_return.hb")
+
+FakeAlloc := struct {
+	$init := fn(): Self {
+		return .()
+	}
+
+	$alloc := fn(self: Self, alloc_type: type, count: uint): alloc_return.AllocReturn {
+		return .(0, null)
+	}
+
+	$dealloc := fn(self: Self, ptr: ^u8, alloc_type: type, count: uint): void {
+		return void
+	}
+	// Nothing to clean up here
+	$deinit := fn(self: Self): void {
+		return void
+	}
+}

sysdata/libraries/stn/src/alloc/lib.hb

@@ -0,0 +1,2 @@
+.{BlockAlloc} := @use("block_alloc.hb");
+.{FakeAlloc} := @use("fake_alloc.hb")

sysdata/libraries/stn/src/alloc/main.hb

@@ -0,0 +1,25 @@
+allocators := @use("alloc/alloc.hb")
+
+AStruct := struct {
+    a_field: u8,
+}
+
+main := fn():void{
+    alloc := allocators.FakeAlloc.init()
+    astruct := alloc.alloc(AStruct, 2)
+    if astruct.ptr != null{
+        panic("FakeAlloc actually allocated.")
+    }
+    alloc.dealloc(astruct_ptr, AStruct, 2)
+    alloc.deinit()
+
+    balloc := allocators.BlockAlloc.init()
+    bstruct_ptr := balloc.alloc(AStruct, 2)
+    if bstruct_ptr == null {
+        panic("BlockAlloc actually didn't allocate.")
+    }
+    balloc.dealloc(bstruct_ptr, AStruct, 2)
+    balloc.deinit()
+
+
+}

sysdata/libraries/stn/src/hash/foldhash.hb

@@ -0,0 +1,189 @@
+/*
+* This code is an implementation of the FoldHash algorithm from https://github.com/orlp/foldhash,
+* originally written by Orson Peters under the zlib license.
+*
+* Changes to the original code were made to meet the simplicity requirements of this implementation.
+* Behaviour aims to be equivalent but not identical to the original code.
+*
+* Copyright (c) 2024 Orson Peters
+* 
+* This software is provided 'as-is', without any express or implied warranty. In
+* no event will the authors be held liable for any damages arising from the use of
+* this software.
+* 
+* Permission is granted to anyone to use this software for any purpose, including
+* commercial applications, and to alter it and redistribute it freely, subject to
+* the following restrictions:
+* 
+* 1. The origin of this software must not be misrepresented; you must not claim
+*     that you wrote the original software. If you use this software in a product,
+*     an acknowledgment in the product documentation would be appreciated but is
+*     not required.
+* 
+* 2. Altered source versions must be plainly marked as such, and must not be
+*     misrepresented as being the original software.
+* 
+* 3. This notice may not be removed or altered from any source distribution.
+*/;
+
+.{math, random} := @use("../lib.hb")
+
+$ARBITRARY0 := 0x243F6A8885A308D3
+$ARBITRARY1 := 0x13198A2E03707344
+$ARBITRARY2 := 0xA4093822299F31D0
+$ARBITRARY3 := 0x82EFA98EC4E6C89
+$ARBITRARY4 := 0x452821E638D01377
+$ARBITRARY5 := 0xBE5466CF34E90C6C
+$ARBITRARY6 := 0xC0AC29B7C97C50DD
+$ARBITRARY7 := 0x3F84D5B5B5470917
+$ARBITRARY8 := 0x9216D5D98979FB1B
+$ARBITRARY9 := 0xD1310BA698DFB5AC
+$FIXED_GLOBAL_SEED := [uint].(ARBITRARY4, ARBITRARY5, ARBITRARY6, ARBITRARY7)
+
+global_seed := 0
+
+u128 := packed struct {a: uint, b: uint}
+
+$folded_multiply := fn(x: uint, y: uint): uint {
+	lx := @as(u32, @intcast(x))
+	ly := @as(u32, @intcast(y))
+	hx := x >> 32
+	hy := y >> 32
+	afull := lx * hy
+	bfull := hx * ly
+	return afull ^ (bfull << 32 | bfull >> 32)
+}
+
+hash_bytes_medium := fn(bytes: ^u8, len: uint, s0: uint, s1: uint, fold_seed: uint): uint {
+	lo := bytes
+	end := bytes + len
+	hi := end - 16
+
+	loop if lo >= hi break else {
+		a := *@as(^uint, @bitcast(lo))
+		b := *@as(^uint, @bitcast(lo + 8))
+		c := *@as(^uint, @bitcast(hi))
+		d := *@as(^uint, @bitcast(hi + 8))
+		s0 = folded_multiply(a ^ s0, c ^ fold_seed)
+		s1 = folded_multiply(b ^ s1, d ^ fold_seed)
+		hi -= 16
+		lo += 16
+	}
+	return s0 ^ s1
+}
+
+hash_bytes_long := fn(bytes: ^u8, len: uint, s0: uint, s1: uint, s2: uint, s3: uint, fold_seed: uint): uint {
+	$chunk_size := 64
+	chunks := len / chunk_size
+	remainder := len % chunk_size
+
+	ptr := bytes
+	i := 0
+	loop if i >= chunks break else {
+		a := *@as(^uint, @bitcast(ptr))
+		b := *@as(^uint, @bitcast(ptr + 8))
+		c := *@as(^uint, @bitcast(ptr + 16))
+		d := *@as(^uint, @bitcast(ptr + 24))
+		e := *@as(^uint, @bitcast(ptr + 32))
+		f := *@as(^uint, @bitcast(ptr + 40))
+		g := *@as(^uint, @bitcast(ptr + 48))
+		h := *@as(^uint, @bitcast(ptr + 56))
+
+		s0 = folded_multiply(a ^ s0, e ^ fold_seed)
+		s1 = folded_multiply(b ^ s1, f ^ fold_seed)
+		s2 = folded_multiply(c ^ s2, g ^ fold_seed)
+		s3 = folded_multiply(d ^ s3, h ^ fold_seed)
+
+		ptr += chunk_size
+		i += 1
+	}
+
+	s0 ^= s2
+	s1 ^= s3
+
+	if remainder > 0 {
+		remainder_start := bytes + len - math.max(uint, remainder, 16)
+		return hash_bytes_medium(remainder_start, math.max(uint, remainder, 16), s0, s1, fold_seed)
+	}
+
+	return s0 ^ s1
+}
+
+FoldHasher := struct {
+	accumulator: uint,
+	original_seed: uint,
+	sponge: u128,
+	sponge_len: u8,
+	fold_seed: uint,
+	expand_seed: uint,
+	expand_seed2: uint,
+	expand_seed3: uint,
+
+	$new := fn(seed: uint): Self {
+		return .(
+			seed,
+			seed,
+			.(0, 0),
+			0,
+			FIXED_GLOBAL_SEED[0],
+			FIXED_GLOBAL_SEED[1],
+			FIXED_GLOBAL_SEED[2],
+			FIXED_GLOBAL_SEED[3],
+		)
+	}
+
+	default := fn(): Self {
+		if global_seed == 0 {
+			// ! consider this "secure enough" for now
+			global_seed = random.any(uint)
+		}
+		return Self.new(global_seed)
+	}
+
+	write := fn(self: ^Self, bytes: ^u8, len: uint): void {
+		s0 := self.accumulator
+		s1 := self.expand_seed
+		if len <= 16 {
+			if len >= 8 {
+				s0 ^= *@bitcast(bytes)
+				s1 ^= *@bitcast(bytes + len - 8)
+			} else if len >= 4 {
+				s0 ^= *@as(^u32, @bitcast(bytes))
+				s1 ^= *@as(^u32, @bitcast(bytes + len - 4))
+			} else if len > 0 {
+				lo := *bytes
+				mid := *(bytes + len / 2)
+				hi := *(bytes + len - 1)
+				s0 ^= lo
+				s1 ^= @as(uint, hi) << 8 | mid
+			}
+			self.accumulator = folded_multiply(s0, s1)
+		} else if len < 256 {
+			self.accumulator = hash_bytes_medium(bytes, len, s0, s1, self.fold_seed)
+		} else {
+			self.accumulator = hash_bytes_long(
+				bytes,
+				len,
+				s0,
+				s1,
+				self.expand_seed2,
+				self.expand_seed3,
+				self.fold_seed,
+			)
+		}
+	}
+
+	finish := fn(self: ^Self): uint {
+		if self.sponge_len > 0 {
+			return folded_multiply(self.sponge.b ^ self.accumulator, self.sponge.a ^ self.fold_seed)
+		} else {
+			return self.accumulator
+		}
+	}
+
+	reset := fn(self: ^Self): void {
+		self.accumulator = self.original_seed
+		self.sponge = .(0, 0)
+		self.sponge_len = 0
+	}
+}

sysdata/libraries/stn/src/hash/lib.hb

@@ -0,0 +1,2 @@
+//! NON CRYPTOGRAPHIC HASHER
+foldhash := @use("foldhash.hb")

sysdata/libraries/stn/src/lib.hb

@@ -1,4 +1,6 @@
 acs := @use("acs.hb")
+allocators := @use("alloc/lib.hb")
+hashers := @use("hash/lib.hb")
 string := @use("string.hb")
 log := @use("log.hb")
 memory := @use("memory.hb")

sysdata/programs/alloc_test/README.md

@@ -0,0 +1 @@
+# alloc_test

sysdata/programs/alloc_test/meta.toml

@@ -1,6 +1,6 @@
 [package]
-name = "ps2_driver"
+name = "alloc_test"
-authors = ["Peony"]
+authors = [""]
 
 [dependants.libraries]
 

sysdata/programs/alloc_test/src/main.hb

@@ -0,0 +1,28 @@
+stn := @use("../../../libraries/stn/src/lib.hb");
+.{allocators, panic, log} := stn
+
+AStruct := struct {
+	a_field: u8,
+}
+
+main := fn(): void {
+	// alloc := allocators.FakeAlloc.init()
+	// astruct := alloc.alloc(AStruct, 2)
+	// if astruct.ptr != null{
+	// panic.panic("FakeAlloc actually allocated.")
+	// }
+	// alloc.dealloc(&astruct.ptr, AStruct, 2)
+	// alloc.deinit()
+
+	balloc := allocators.BlockAlloc.init()
+	defer balloc.deinit()
+	bstruct := balloc.alloc(AStruct, 2)
+	if bstruct.ptr == null {
+		log.info("Hi\0")
+		// panic.panic("BlockAlloc actually didn't allocate.")
+	} else {
+		log.info("Allocator functioned.\0")
+	}
+	// balloc.dealloc(bstruct_ptr, AStruct, 2)
+	return
+}

sysdata/programs/hash_test/meta.toml

@@ -0,0 +1,11 @@
+[package]
+name = "hash_test"
+authors = [""]
+
+[dependants.libraries]
+
+[dependants.binaries]
+hblang.version = "1.0.0"
+
+[build]
+command = "hblang src/main.hb"

sysdata/programs/hash_test/src/main.hb

@@ -0,0 +1,31 @@
+.{hashers, log, memory, string} := @use("../../../libraries/stn/src/lib.hb")
+
+main := fn(): void {
+	buffer := memory.request_page(1)
+	target := "abcdefghijklmnop\0"
+	strings := [^u8].("abcdefshijklmnop\0", "abcdefghijklnnop\0", "abcdefshijklmnop\0", "abcdefghijklmnop\0", "abcdefghijflmnop\0", "dbcdefghijklmnop\0", "abcdefghijklmnop\0")
+	len := @sizeof(@TypeOf(strings)) / @sizeof(^u8)
+	strlen := string.length(target)
+
+	// hasher := hashers.foldhash.FoldHasher.new(1)
+	hasher := hashers.foldhash.FoldHasher.default()
+	hasher.write(target, strlen)
+	correct := hasher.finish()
+
+	log.warn("target:\0")
+	log.warn(target)
+
+	i := 0
+	loop if i == len break else {
+		defer i += 1
+		hasher.reset()
+		hasher.write(strings[i], strlen)
+		d := hasher.finish()
+		if d == correct {
+			log.warn("match found\0")
+		}
+		log.info(strings[i])
+		log.debug(string.display_int(@bitcast(d), buffer, 16))
+		string.clear(buffer)
+	}
+}

sysdata/programs/ps2_driver/README.md

@@ -1,23 +0,0 @@
-# Unified PS/2 Driver
-
-Te entire thing is held together inspite 
-
-## !!Assumptions!!
-Anyone who works on this should work to keep this list as small as possible/remove as many of these as possible.
-- Bit 5 of the response form 0x64 indicates which port the data is coming from. (Not true on all systems)
-- A parity or timeout error never occurs.
-- PS/2 controller exists.
-- Both PS/2 ports being broken doesn't need handling.
-- One PS/2 port being broken doesn't need special attention.
-- PS/2 controller doesn't need to perform a self-check.
-- These DeviceIDs never exist:
-    - 0xFFFD
-    - 0xFFFE
-    - 0xFFFF
-    - 0x01xx
-    - 0x03xx
-    - 0x04xx
-- Literally all PS/2 keyboards can be handeled the exact same way. We have the capability for detecting different keyboard types, I just don't bother with it because that would litreally take months to get working.
-- The device doesn't send any data while we're waiting for an `ACK`.
-
-Supporting mice in the keyboard port and vice versa was a ***bad*** idea, but I do not regret it because it means we're "superior" to real world operating systems.

sysdata/programs/ps2_driver/src/bits.hb

@@ -1,26 +0,0 @@
-//Do not question.
-
-$bit0 := fn(value: u8): bool {
-	return (value & 0x1) > 0
-}
-$bit1 := fn(value: u8): bool {
-	return (value & 0x2) > 0
-}
-$bit2 := fn(value: u8): bool {
-	return (value & 0x4) > 0
-}
-$bit3 := fn(value: u8): bool {
-	return (value & 0x8) > 0
-}
-$bit4 := fn(value: u8): bool {
-	return (value & 0x10) > 0
-}
-$bit5 := fn(value: u8): bool {
-	return (value & 0x20) > 0
-}
-$bit6 := fn(value: u8): bool {
-	return (value & 0x40) > 0
-}
-$bit7 := fn(value: u8): bool {
-	return (value & 0x80) > 0
-}

sysdata/programs/ps2_driver/src/controller.hb

@@ -1,95 +0,0 @@
-.{memory, log} := @use("../../../libraries/stn/src/lib.hb");
-.{bit0, bit1, bit5, bit6, bit7} := @use("bits.hb");
-.{Port, PORT_AT_STARTUP} := @use("port.hb")
-
-port1 := @as(Port, PORT_AT_STARTUP)
-port2 := @as(Port, PORT_AT_STARTUP)
-
-$disable_port1 := fn(): void memory.outb(0x64, 0xAD)
-$enable_port1 := fn(): void memory.outb(0x64, 0xAE)
-$disable_port2 := fn(): void memory.outb(0x64, 0xA7)
-$enable_port2 := fn(): void memory.outb(0x64, 0xA8)
-
-test_port1 := fn(): bool {
-	memory.outb(0x64, 0xAB)
-	loop if has_input(get_info()) break
-	input := get_input()
-	return input == 0x0
-}
-
-test_port2 := fn(): bool {
-	memory.outb(0x64, 0xA9)
-	loop if has_input(get_info()) break
-	input := get_input()
-	return input == 0x0
-}
-
-get_config_byte := fn(): u8 {
-	memory.outb(0x64, 0x20)
-	loop if has_input(get_info()) break
-	return get_input()
-}
-
-Info := struct {d: u8}
-
-$get_info := fn(): Info return .(memory.inb(0x64))
-//inline when can
-has_input := fn(info: Info): bool return bit0(info.d)
-can_send := fn(info: Info): bool return bit1(info.d) == false
-timed_out := fn(info: Info): bool return bit6(info.d)
-check_parity := fn(info: Info): bool return bit7(info.d)
-get_port := fn(info: Info): ^Port {
-	if bit5(info.d) {
-		return &port2
-	} else {
-		return &port1
-	}
-}
-
-send_byte := fn(port: ^Port, byte: u8): void {
-	if port == &port2 {
-		memory.outb(0x64, 0xD4)
-	}
-	loop if can_send(get_info()) break
-	memory.outb(0x60, byte)
-}
-
-$get_input := fn(): u8 return memory.inb(0x60)
-$write_out := fn(data: u8): void memory.outb(0x60, data)
-
-flush_input := fn(): void {
-	loop if has_input(get_info()) == false break else get_info()
-}
-
-init := fn(): void {
-	disable_port1()
-	disable_port2()
-	//Disables ports to make sure that they won't interfere with the setup process.
-
-	flush_input()
-
-	enable_port2()
-	port2.exists = bit5(@inline(get_config_byte)) == false
-	disable_port2()
-
-	flush_input()
-
-	port1.exists = test_port1()
-
-	if port2.exists {
-		port2.exists = test_port2()
-	}
-
-	if (port1.exists | port2.exists) == false {
-		log.error("No ports detected! No input will be processed! Cannot handle this!\0")
-	}
-
-	if port1.exists {
-		log.info("Port 1 exists.\0")
-		enable_port1()
-	}
-	if port2.exists {
-		log.info("Port 2 exists.\0")
-		enable_port2()
-	}
-}

sysdata/programs/ps2_driver/src/devices.hb

@@ -1,15 +0,0 @@
-DeviceID := struct {value: u16}
-
-$MOUSE_3_BUTTON := DeviceID.(0x0)
-$MOUSE_SCROLLWHEEL := DeviceID.(0x3)
-$MOUSE_5_BUTTON := DeviceID.(0x4)
-$KEYBOARD_SPACESAVER := DeviceID.(0x84AB)
-$KEYBOARD_122_KEY := DeviceID.(0x86AB)
-$KEYBOARD_JAPANESE_G := DeviceID.(0x90AB)
-$KEYBOARD_JAPANESE_P := DeviceID.(0x91AB)
-$KEYBOARD_JAPANESE_A := DeviceID.(0x92AB)
-$KEYBOARD_NCD_SUN := DeviceID.(0xA1AC)
-
-$MOUSE_INIT_1 := DeviceID.(0xFFFD)
-$MOUSE_INIT_2 := DeviceID.(0xFFFE)
-$NO_DEVICE := DeviceID.(0xFFFF)

sysdata/programs/ps2_driver/src/main.hb

@@ -1,152 +0,0 @@
-.{memory, log, buffer, string} := @use("../../../libraries/stn/src/lib.hb");
-.{MouseEvent} := @use("../../../libraries/intouch/src/lib.hb").events;
-.{bit0, bit1, bit2, bit3, bit4} := @use("bits.hb")
-devices := @use("devices.hb")
-controller := @use("controller.hb");
-.{Info, Port} := controller
-mouse := @use("mouse.hb")
-format_page := memory.dangling(u8)
-
-mouse_buffer := 0
-keyboard_buffer := 0
-info := Info.(0)
-
-send_command := fn(port: ^Port, byte: u8): void {
-	tries := 3
-	loop if tries == 0 break else {
-		controller.send_byte(port, byte)
-		loop {
-			info = controller.get_info()
-			if controller.has_input(info) == false {
-				continue
-			}
-			input := controller.get_input()
-			if controller.get_port(info) != port {
-				if check_complete(port) == false {
-					port.packet[port.packet_length] = input
-					port.packet_length += 1
-				}
-				continue
-			}
-			if input == 0xFA {
-				return
-			} else {
-				break
-			}
-		}
-		tries -= 1
-	}
-}
-
-enable_streaming := fn(port: ^Port): void {
-	@inline(send_command, port, 0xF4)
-}
-
-process := fn(port: ^controller.Port): void {
-	if port.device.value < devices.MOUSE_5_BUTTON.value {
-		event := MouseEvent.(0, 0, false, false, false)
-
-		event.left = bit0(port.packet[0])
-		event.right = bit1(port.packet[0])
-		event.middle = bit2(port.packet[0])
-
-		event.x_change = @intcast(port.packet[1])
-		event.y_change = @intcast(port.packet[2])
-
-		buffer.write(MouseEvent, mouse_buffer, &event)
-	} else if port.device == devices.MOUSE_INIT_1 {
-		port.device.value = port.packet[0]
-		if port.device != devices.MOUSE_SCROLLWHEEL {
-			enable_streaming(port)
-			return
-		}
-		port.device = devices.MOUSE_INIT_2
-	} else if port.device == devices.MOUSE_INIT_2 {
-		port.device.value = port.packet[0]
-	} else if port.device == devices.NO_DEVICE {
-		if port.packet_length == 1 {
-			port.device.value = port.packet[0]
-			enable_streaming(port)
-			//TODO: Upgrade mouse.
-		} else {
-			port.device.value = port.packet[1] | port.packet[0] << 8
-			enable_streaming(port)
-		}
-		log.info("Identified device!\0")
-		log.info(string.display_int(port.device.value, format_page, 16))
-	} else {
-		log.info("KEY PRESSED\0")
-	}
-}
-
-check_complete := fn(port: ^controller.Port): bool {
-	last_value := port.packet[port.packet_length - 1]
-	if port.device == devices.NO_DEVICE {
-		if last_value == 0 | last_value == 3 | last_value == 4 {
-			return true
-		} else if port.packet_length == 2 {
-			return true
-		}
-	} else if port.device == devices.MOUSE_3_BUTTON {
-		if port.packet_length == 3 return true
-	} else if port.device == devices.MOUSE_SCROLLWHEEL | port.device == devices.MOUSE_5_BUTTON {
-		if port.packet_length == 4 return true
-	} else {
-		if port.packet[0] == 0xE1 {
-			if port.packet_length == 6 {
-				return true
-			}
-		} else if port.packet[0] != 0xE0 {
-			return true
-		} else if port.packet_length == 2 & port.packet[1] != 0x2A & port.packet[1] != 0xB7 {
-			return true
-		} else if port.packet_length == 4 {
-			return true
-		}
-	}
-	return false
-}
-
-main := fn(): void {
-	mouse_buffer = buffer.create("PS/2 Mouse\0")
-	format_page = memory.alloc(u8, 1024)
-
-	controller.init()
-
-	if controller.port1.exists {
-		//log.info("Port 1 exists.\0")
-		controller.send_byte(@bitcast(0), 0xF4)
-	}
-	if controller.port2.exists {
-		//controller.send_byte(&controller.port2, 0xF4)
-	}
-
-	loop {
-		info = controller.get_info()
-
-		if controller.timed_out(info) {
-			log.error("Timeout error! Cannot handle these!\0")
-		}
-		if controller.check_parity(info) {
-			log.error("Parity error! Cannot handle these!\0")
-		}
-		/*
-		if controller.has_input(info) {
-			port := controller.get_port(info)
-			if port.packet_length > 0 & check_complete(port) {
-				process(port)
-			}
-			input := controller.get_input()
-			/*if input == 0xAA & port.can_hot_plug {
-				port.device = devices.NO_DEVICE
-				controller.send_byte(port, 0xF4)
-			}*/
-			port.packet[port.packet_length] = input
-			port.packet_length += 1
-			if check_complete(port) {
-				process(port)
-				port.packet_length = 0
-			}
-		}*/
-	}
-}

sysdata/programs/ps2_driver/src/mouse.hb

@@ -1,21 +0,0 @@
-Button := struct {id: u8}
-$LEFT_BUTTON := Button.(1)
-$RIGHT_BUTTON := Button.(2)
-$MIDDLE_BUTTON := Button.(4)
-$BUTTON4 := Button.(8)
-$BUTTON5 := Button.(16)
-
-SampleRate := struct {value: u8}
-$SR10 := SampleRate.(10)
-$SR20 := SampleRate.(20)
-$SR40 := SampleRate.(40)
-$SR60 := SampleRate.(60)
-$SR80 := SampleRate.(80)
-$SR100 := SampleRate.(100)
-$SR200 := SampleRate.(200)
-
-Resolution := struct {value: u8}
-$RES_1COUNT_PER_MM := Resolution.(0)
-$RES_2COUNT_PER_MM := Resolution.(1)
-$RES_4COUNT_PER_MM := Resolution.(2)
-$RES_8COUNT_PER_MM := Resolution.(3)

sysdata/programs/ps2_driver/src/port.hb

@@ -1,21 +0,0 @@
-.{DeviceID, NO_DEVICE} := @use("devices.hb")
-
-State := struct {s: u8}
-$Recive := State.(0)
-$Reboot := State.(1)
-
-Port := packed struct {
-	exists: bool,
-	device: DeviceID,
-	packet: [u8; 8],
-	packet_length: u8,
-	can_hot_plug: bool,
-}
-
-$PORT_AT_STARTUP := Port.(
-	true,
-	NO_DEVICE,
-	.(0, 0, 0, 0, 0, 0, 0, 0),
-	0,
-	true,
-)

sysdata/programs/render_example/src/main.hb

@@ -1 +1 @@
-.{example: main} := @use("./examples/text.hb")
+.{example: main} := @use("./examples/orbit.hb")

sysdata/system_config.toml

@@ -34,11 +34,20 @@ resolution = "1024x768x24"
 # [boot.limine.ableos.modules.ps2_keyboard_driver]
 # path = "boot:///ps2_keyboard_driver.hbf"
 
-[boot.limine.ableos.modules.ps2_driver]
-path = "boot:///ps2_driver.hbf"
-
 # [boot.limine.ableos.modules.sunset_client]
 # path = "boot:///sunset_client.hbf"
 
+# [boot.limine.ableos.modules.sunset_client_2]
+# path = "boot:///sunset_client_2.hbf"
+
 # [boot.limine.ableos.modules.sunset_server]
 # path = "boot:///sunset_server.hbf"
+
+# [boot.limine.ableos.modules.processes]
+# path = "boot:///processes.hbf"
+
+# [boot.limine.ableos.modules.alloc_test]
+# path = "boot:///alloc_test.hbf"
+
+[boot.limine.ableos.modules.alloc_test]
+path = "boot:///hash_test.hbf"