ed/WATL_Exercise
1
0
Fork 0
mirror of https://github.com/Ed94/WATL_Exercise.git synced 2025-08-05 14:52:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

change pragma region format for comments

Browse Source
This commit is contained in:
Edward R. Gonzalez
2025-06-30 09:10:30 -04:00
parent 8753d41e83
commit 39e04230d6
1 changed files with 38 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
Odin/watl.v0.odin
View File

@@ -14,7 +14,7 @@ main :: proc()
import "base:builtin" import "base:builtin"
import "base:intrinsics" import "base:intrinsics"
//#region("Package Mappings") //region Package Mappings
abs :: builtin.abs abs :: builtin.abs
min :: builtin.min min :: builtin.min
max :: builtin.max max :: builtin.max
@@ -69,9 +69,9 @@ watl_parse :: proc {
api_watl_parse, api_watl_parse,
watl_parse_stack, watl_parse_stack,
} }
//#endregion("Package Mappings") //endregion Package Mappings
//#region("Memory") //region Memory
Kilo :: 1024 Kilo :: 1024
Mega :: Kilo * 1024 Mega :: Kilo * 1024
Giga :: Mega * 1024 Giga :: Mega * 1024
@@ -152,9 +152,9 @@ sll_queue_push_nz :: proc(nil_val: ^$Type, first, last, n: ^^Type) {
sll_queue_push_n :: proc "contextless" (first: ^$Type, last, n: ^^Type) { sll_queue_push_n :: proc "contextless" (first: ^$Type, last, n: ^^Type) {
sll_queue_push_nz(nil, first, last, n) sll_queue_push_nz(nil, first, last, n)
} }
//#endregion("Memory") //endregion Memory
//#region("Allocator Interface") //region Allocator Interface
AllocatorOp :: enum u32 { AllocatorOp :: enum u32 {
Alloc_NoZero = 0, // If Alloc exist, so must No_Zero Alloc_NoZero = 0, // If Alloc exist, so must No_Zero
Alloc, Alloc,
@@ -320,9 +320,9 @@ alloc_slice :: proc(ainfo: AllocatorInfo, $SliceType: []$Type, num : int) -> []T
ainfo.procedure(input, & output) ainfo.procedure(input, & output)
return transmute([]Type) Raw_Slice { raw_data(output.allocation), num } return transmute([]Type) Raw_Slice { raw_data(output.allocation), num }
} }
//#endregion("Allocator Interface") //endregion Allocator Interface
//#region("Strings") //region Strings
Raw_String :: struct { Raw_String :: struct {
data: [^]byte, data: [^]byte,
len: int, len: int,
@@ -330,9 +330,9 @@ Raw_String :: struct {
string_copy :: proc(dst, src: string) { slice_copy (transmute([]byte) dst, transmute([]byte) src) } string_copy :: proc(dst, src: string) { slice_copy (transmute([]byte) dst, transmute([]byte) src) }
string_end :: proc(s: string) -> ^u8 { return slice_end (transmute([]byte) s) } string_end :: proc(s: string) -> ^u8 { return slice_end (transmute([]byte) s) }
string_assert :: proc(s: string) { slice_assert(transmute([]byte) s) } string_assert :: proc(s: string) { slice_assert(transmute([]byte) s) }
//#endregion("Strings") //endregion Strings
//#region("FArena") //region FArena
FArena :: struct { FArena :: struct {
mem: []byte, mem: []byte,
used: int, used: int,
@@ -459,9 +459,9 @@ farena_allocator_proc :: proc(input: AllocatorProc_In, output: ^AllocatorProc_Ou
output.save_point = farena_save(arena^) output.save_point = farena_save(arena^)
} }
} }
//#endregion("FArena") //endregion FArena
//#region("OS") //region OS
OS_SystemInfo :: struct { OS_SystemInfo :: struct {
target_page_size: int, target_page_size: int,
} }
@@ -553,9 +553,9 @@ os_vmem_reserve :: proc(size: int, base_addr: int = 0, no_large_pages: b32 = fal
os_vmem_release :: proc(vm: rawptr, size: int) { os_vmem_release :: proc(vm: rawptr, size: int) {
VirtualFree(vm, 0, MS_MEM_RELEASE) VirtualFree(vm, 0, MS_MEM_RELEASE)
} }
//#endregion("OS") //endregion OS
//#region("VArena") //region VArena
VArenaFlag :: enum u32 { VArenaFlag :: enum u32 {
No_Large_Pages, No_Large_Pages,
} }
@@ -723,9 +723,9 @@ varena_allocator_proc :: proc(input: AllocatorProc_In, output: ^AllocatorProc_Ou
output.save_point = varena_save(vm) output.save_point = varena_save(vm)
} }
} }
//#endregion("VArena") //endregion VArena
//#region("Arena (Casey-Ryan Composite Arena)") //region Arena (Casey-Ryan Composite Arena)
ArenaFlag :: enum u32 { ArenaFlag :: enum u32 {
No_Large_Pages, No_Large_Pages,
No_Chaining, No_Chaining,
@@ -914,18 +914,18 @@ arena_allocator_proc :: proc(input: AllocatorProc_In, output: ^AllocatorProc_Out
output.save_point = arena_save(arena) output.save_point = arena_save(arena)
} }
} }
//#endregion("Arena (Casey-Ryan Composite Arena)") //endregion Arena (Casey-Ryan Composite Arena)
//#region("Hashing") //region Hashing
hash64_djb8 :: proc(hash: ^u64, bytes: []byte) { hash64_djb8 :: proc(hash: ^u64, bytes: []byte) {
for elem in bytes { for elem in bytes {
// This hash is a 1:1 translation of the C version's hash. // This hash is a 1:1 translation of the C version's hash.
hash^ = ((hash^ << 8) + hash^) + u64(elem) hash^ = ((hash^ << 8) + hash^) + u64(elem)
} }
} }
//#endregion("Hashing") //endregion Hashing
//#region("Key Table 1-Layer Linear (KT1L)") //region Key Table 1-Layer Linear (KT1L)
KT1L_Slot :: struct($Type: typeid) { KT1L_Slot :: struct($Type: typeid) {
key: u64, key: u64,
value: Type, value: Type,
@@ -967,9 +967,9 @@ kt1l_populate_slice_a2 :: proc($Type: typeid, kt: ^[]KT1L_Slot(Type), backing: A
type_name = #type_string(Type), type_name = #type_string(Type),
}) })
} }
//#endregion("Key Table 1-Layer Linear (KT1L)") //endregion Key Table 1-Layer Linear (KT1L)
//#region("Key Table 1-Layer Chained-Chunked-Cells (KT1CX)") //region Key Table 1-Layer Chained-Chunked-Cells (KT1CX)
KT1CX_Slot :: struct($type: typeid) { KT1CX_Slot :: struct($type: typeid) {
value: type, value: type,
key: u64, key: u64,
@@ -1042,7 +1042,7 @@ kt1cx_clear :: proc(kt: KT1CX_Byte, m: KT1CX_ByteMeta) {
cell := Raw_Slice { rawptr(cursor), m.cell_size } cell := Raw_Slice { rawptr(cursor), m.cell_size }
slots := Raw_Slice { cell.data, m.cell_depth * m.slot_size } slots := Raw_Slice { cell.data, m.cell_depth * m.slot_size }
slot_cursor := uintptr(slots.data) slot_cursor := uintptr(slots.data)
for;; { defer{slot_cursor += uintptr(m.slot_size)} { for;; {
slot := transmute([]byte) Raw_Slice { rawptr(slot_cursor), m.slot_size } slot := transmute([]byte) Raw_Slice { rawptr(slot_cursor), m.slot_size }
zero(slot) zero(slot)
if slot_cursor == cast(uintptr) end(transmute([]byte) slots) { if slot_cursor == cast(uintptr) end(transmute([]byte) slots) {
@@ -1053,7 +1053,8 @@ kt1cx_clear :: proc(kt: KT1CX_Byte, m: KT1CX_ByteMeta) {
continue continue
} }
} }
}} slot_cursor += uintptr(m.slot_size)
}
} }
} }
kt1cx_slot_id :: proc(kt: KT1CX_Byte, key: u64, m: KT1CX_ByteMeta) -> u64 { kt1cx_slot_id :: proc(kt: KT1CX_Byte, key: u64, m: KT1CX_ByteMeta) -> u64 {
@@ -1067,7 +1068,7 @@ kt1cx_get :: proc(kt: KT1CX_Byte, key: u64, m: KT1CX_ByteMeta) -> ^byte {
{ {
slots := Raw_Slice {cell.data, m.cell_depth * m.slot_size} slots := Raw_Slice {cell.data, m.cell_depth * m.slot_size}
slot_cursor := uintptr(slots.data) slot_cursor := uintptr(slots.data)
for;; { defer{slot_cursor += uintptr(m.slot_size)} for;;
{ {
slot := transmute(^KT1CX_Byte_Slot) (slot_cursor + m.slot_key_offset) slot := transmute(^KT1CX_Byte_Slot) (slot_cursor + m.slot_key_offset)
if slot.occupied && slot.key == key { if slot.occupied && slot.key == key {
@@ -1086,7 +1087,8 @@ kt1cx_get :: proc(kt: KT1CX_Byte, key: u64, m: KT1CX_ByteMeta) -> ^byte {
return nil return nil
} }
} }
}} slot_cursor += uintptr(m.slot_size)
}
} }
} }
kt1cx_set :: proc(kt: KT1CX_Byte, key: u64, value: []byte, backing_cells: AllocatorInfo, m: KT1CX_ByteMeta) -> ^byte { kt1cx_set :: proc(kt: KT1CX_Byte, key: u64, value: []byte, backing_cells: AllocatorInfo, m: KT1CX_ByteMeta) -> ^byte {
@@ -1096,7 +1098,7 @@ kt1cx_set :: proc(kt: KT1CX_Byte, key: u64, value: []byte, backing_cells: Alloca
{ {
slots := Raw_Slice {cell.data, m.cell_depth * m.slot_size} slots := Raw_Slice {cell.data, m.cell_depth * m.slot_size}
slot_cursor := uintptr(slots.data) slot_cursor := uintptr(slots.data)
for ;; { defer{slot_cursor += uintptr(m.slot_size)} for ;;
{ {
slot := transmute(^KT1CX_Byte_Slot) rawptr(slot_cursor + m.slot_key_offset) slot := transmute(^KT1CX_Byte_Slot) rawptr(slot_cursor + m.slot_key_offset)
if slot.occupied == false { if slot.occupied == false {
@@ -1124,7 +1126,8 @@ kt1cx_set :: proc(kt: KT1CX_Byte, key: u64, value: []byte, backing_cells: Alloca
return raw_data(new_cell) return raw_data(new_cell)
} }
} }
}} slot_cursor += uintptr(m.slot_size)
}
return nil return nil
} }
} }
@@ -1133,9 +1136,9 @@ kt1cx_assert :: proc(kt: $type / KT1CX) {
slice_assert(kt.table) slice_assert(kt.table)
} }
kt1cx_byte :: proc(kt: $type / KT1CX) -> KT1CX_Byte { return { slice_to_bytes(kt.cell_pool), slice_to_bytes(kt.table) } } kt1cx_byte :: proc(kt: $type / KT1CX) -> KT1CX_Byte { return { slice_to_bytes(kt.cell_pool), slice_to_bytes(kt.table) } }
//#endregion("Key Table 1-Layer Chained-Chunked-Cells (KT1CX)") //endregion Key Table 1-Layer Chained-Chunked-Cells (KT1CX)
//#region("String Operations") //region String Operations
char_is_upper :: proc(c: u8) -> b32 { return('A' <= c && c <= 'Z') } char_is_upper :: proc(c: u8) -> b32 { return('A' <= c && c <= 'Z') }
char_to_lower :: proc(c: u8) -> u8 { c:=c; if (char_is_upper(c)) { c += ('a' - 'A') }; return (c) } char_to_lower :: proc(c: u8) -> u8 { c:=c; if (char_is_upper(c)) { c += ('a' - 'A') }; return (c) }
@@ -1238,7 +1241,7 @@ str8_fmt_kt1l :: proc(ainfo: AllocatorInfo, buffer: []byte, table: []KT1L_Slot(s
} }
if curr_code == '<' if curr_code == '<'
{ {
} }
} }
return {} return {}
@@ -1296,9 +1299,9 @@ str8gen_append_str8 :: proc(gen: ^Str8Gen, str: string) {
} }
str8gen_append_fmt :: proc(gen: ^Str8Gen, fmt_template: string, tokens: [][2]string) { str8gen_append_fmt :: proc(gen: ^Str8Gen, fmt_template: string, tokens: [][2]string) {
} }
//#endregion("String Operations") //#endregion String Operations
//#region("File System") //region File System
FileOpInfo :: struct { FileOpInfo :: struct {
content: []byte, content: []byte,
} }
@@ -1307,9 +1310,9 @@ api_file_read_contents :: proc(result: ^FileOpInfo, path: string, backing: Alloc
file_read_contents_stack :: proc(path: string, backing: AllocatorInfo, zero_backing: b32 = false) -> FileOpInfo { file_read_contents_stack :: proc(path: string, backing: AllocatorInfo, zero_backing: b32 = false) -> FileOpInfo {
return {} return {}
} }
//#endregion("File System") //endregion File System
//#region("WATL") //region WATL
WATL_TokKind :: enum u32 { WATL_TokKind :: enum u32 {
Space = ' ', Space = ' ',
Tab = '\t', Tab = '\t',
@@ -1390,4 +1393,4 @@ watl_parse_stack :: proc(tokens: []WATL_Tok,
{ {
return return
} }
//#endregion("WATL") //endregion WATL