progress on base

code/base/command_line.c

@@ -0,0 +1,232 @@
+// Copyright (c) 2024 Epic Games Tools
+// Licensed under the MIT license (https://opensource.org/license/mit/)
+
+////////////////////////////////
+//~ NOTE(rjf): Command Line Option Parsing
+
+internal U64
+cmd_line_hash_from_string(String8 string)
+{
+  U64 result = 5381;
+  for(U64 i = 0; i < string.size; i += 1)
+  {
+    result = ((result << 5) + result) + string.str[i];
+  }
+  return result;
+}
+
+internal CmdLineOpt **
+cmd_line_slot_from_string(CmdLine *cmd_line, String8 string)
+{
+  CmdLineOpt **slot = 0;
+  if(cmd_line->option_table_size != 0)
+  {
+    U64 hash = cmd_line_hash_from_string(string);
+    U64 bucket = hash % cmd_line->option_table_size;
+    slot = &cmd_line->option_table[bucket];
+  }
+  return slot;
+}
+
+internal CmdLineOpt *
+cmd_line_opt_from_slot(CmdLineOpt **slot, String8 string)
+{
+  CmdLineOpt *result = 0;
+  for(CmdLineOpt *var = *slot; var; var = var->hash_next)
+  {
+    if(str8_match(string, var->string, 0))
+    {
+      result = var;
+      break;
+    }
+  }
+  return result;
+}
+
+internal void
+cmd_line_push_opt(CmdLineOptList *list, CmdLineOpt *var)
+{
+  SLLQueuePush(list->first, list->last, var);
+  list->count += 1;
+}
+
+internal CmdLineOpt *
+cmd_line_insert_opt(Arena *arena, CmdLine *cmd_line, String8 string, String8List values)
+{
+  CmdLineOpt *var = 0;
+  CmdLineOpt **slot = cmd_line_slot_from_string(cmd_line, string);
+  CmdLineOpt *existing_var = cmd_line_opt_from_slot(slot, string);
+  if(existing_var != 0)
+  {
+    var = existing_var;
+  }
+  else
+  {
+    var = push_array(arena, CmdLineOpt, 1);
+    var->hash_next = *slot;
+    var->hash = cmd_line_hash_from_string(string);
+    var->string = push_str8_copy(arena, string);
+    var->value_strings = values;
+    StringJoin join = {0};
+    join.pre = str8_lit("");
+    join.sep = str8_lit(",");
+    join.post = str8_lit("");
+    var->value_string = str8_list_join(arena, &var->value_strings, &join);
+    *slot = var;
+    cmd_line_push_opt(&cmd_line->options, var);
+  }
+  return var;
+}
+
+internal CmdLine
+cmd_line_from_string_list(Arena *arena, String8List command_line)
+{
+  CmdLine parsed = {0};
+  parsed.exe_name = command_line.first->string;
+  
+  // NOTE(rjf): Set up config option table.
+  {
+    parsed.option_table_size = 4096;
+    parsed.option_table = push_array(arena, CmdLineOpt *, parsed.option_table_size);
+  }
+  
+  // NOTE(rjf): Parse command line.
+  B32 after_passthrough_option = 0;
+  B32 first_passthrough = 1;
+  for(String8Node *node = command_line.first->next, *next = 0; node != 0; node = next)
+  {
+    next = node->next;
+    String8 option_name = node->string;
+    
+    // NOTE(rjf): Look at -- or - at the start of an argument to determine if it's
+    // a flag option. All arguments after a single "--" (with no trailing string
+    // on the command line will be considered as input files.
+    B32 is_option = 1;
+    if(after_passthrough_option == 0)
+    {
+      if(str8_match(node->string, str8_lit("--"), 0))
+      {
+        after_passthrough_option = 1;
+        is_option = 0;
+      }
+      else if(str8_match(str8_prefix(node->string, 2), str8_lit("--"), 0))
+      {
+        option_name = str8_skip(option_name, 2);
+      }
+      else if(str8_match(str8_prefix(node->string, 1), str8_lit("-"), 0))
+      {
+        option_name = str8_skip(option_name, 1);
+      }
+      else
+      {
+        is_option = 0;
+      }
+    }
+    else
+    {
+      is_option = 0;
+    }
+    
+    // NOTE(rjf): This string is an option.
+    if(is_option)
+    {
+      B32 has_arguments = 0;
+      U64 arg_signifier_position1 = str8_find_needle(option_name, 0, str8_lit(":"), 0);
+      U64 arg_signifier_position2 = str8_find_needle(option_name, 0, str8_lit("="), 0);
+      U64 arg_signifier_position = Min(arg_signifier_position1, arg_signifier_position2);
+      String8 arg_portion_this_string = str8_skip(option_name, arg_signifier_position+1);
+      if(arg_signifier_position < option_name.size)
+      {
+        has_arguments = 1;
+      }
+      option_name = str8_prefix(option_name, arg_signifier_position);
+      
+      String8List arguments = {0};
+      
+      // NOTE(rjf): Parse arguments.
+      if(has_arguments)
+      {
+        for(String8Node *n = node; n; n = n->next)
+        {
+          next = n->next;
+          
+          String8 string = n->string;
+          if(n == node)
+          {
+            string = arg_portion_this_string;
+          }
+          
+          U8 splits[] = { ',' };
+          String8List args_in_this_string = str8_split(arena, string, splits, ArrayCount(splits), 0);
+          for(String8Node *sub_arg = args_in_this_string.first; sub_arg; sub_arg = sub_arg->next)
+          {
+            str8_list_push(arena, &arguments, sub_arg->string);
+          }
+          if(!str8_match(str8_postfix(n->string, 1), str8_lit(","), 0) &&
+             (n != node || arg_portion_this_string.size != 0))
+          {
+            break;
+          }
+        }
+      }
+      
+      // NOTE(rjf): Register config variable.
+      cmd_line_insert_opt(arena, &parsed, option_name, arguments);
+    }
+    
+    // NOTE(rjf): Default path, treat as a passthrough config option to be
+    // handled by tool-specific code.
+    else if(!str8_match(node->string, str8_lit("--"), 0) || !first_passthrough)
+    {
+      str8_list_push(arena, &parsed.inputs, node->string);
+      after_passthrough_option = 1;
+      first_passthrough = 0;
+    }
+  }
+  
+  return parsed;
+}
+
+internal CmdLineOpt *
+cmd_line_opt_from_string(CmdLine *cmd_line, String8 name)
+{
+  return cmd_line_opt_from_slot(cmd_line_slot_from_string(cmd_line, name), name);
+}
+
+internal String8List 
+cmd_line_strings(CmdLine *cmd_line, String8 name)
+{
+  String8List result = {0};
+  CmdLineOpt *var = cmd_line_opt_from_string(cmd_line, name);
+  if(var != 0)
+  {
+    result = var->value_strings;
+  }
+  return result;
+}
+
+internal String8     
+cmd_line_string(CmdLine *cmd_line, String8 name)
+{
+  String8 result = {0};
+  CmdLineOpt *var = cmd_line_opt_from_string(cmd_line, name);
+  if(var != 0)
+  {
+    result = var->value_string;
+  }
+  return result;
+}
+
+internal B32
+cmd_line_has_flag(CmdLine *cmd_line, String8 name)
+{
+  CmdLineOpt *var = cmd_line_opt_from_string(cmd_line, name);
+  return(var != 0);
+}
+
+internal B32
+cmd_line_has_argument(CmdLine *cmd_line, String8 name)
+{
+  CmdLineOpt *var = cmd_line_opt_from_string(cmd_line, name);
+  return(var != 0 && var->value_strings.node_count > 0);
+}

code/base/command_line.h

@@ -0,0 +1,58 @@
+#ifdef MD_INTELLISENSE_DIRECTIVES
+#pragma once
+#include "base_types.h"
+#include 
+#include "strings.h"
+#endif
+
+// Copyright (c) 2024 Epic Games Tools
+// Licensed under the MIT license (https://opensource.org/license/mit/)
+
+////////////////////////////////
+//~ rjf: Parsed Command Line Types
+
+typedef struct CmdLineOpt CmdLineOpt;
+struct CmdLineOpt
+{
+  CmdLineOpt *next;
+  CmdLineOpt *hash_next;
+  U64 hash;
+  String8 string;
+  String8List value_strings;
+  String8 value_string;
+};
+
+typedef struct CmdLineOptList CmdLineOptList;
+struct CmdLineOptList
+{
+  U64 count;
+  CmdLineOpt *first;
+  CmdLineOpt *last;
+};
+
+typedef struct CmdLine CmdLine;
+struct CmdLine
+{
+  String8 exe_name;
+  CmdLineOptList options;
+  String8List inputs;
+  U64 option_table_size;
+  CmdLineOpt **option_table;
+};
+
+////////////////////////////////
+//~ NOTE(rjf): Command Line Option Parsing
+
+internal U64              cmd_line_hash_from_string(String8 string);
+internal CmdLineOpt**     cmd_line_slot_from_string(CmdLine *cmd_line, String8 string);
+internal CmdLineOpt*      cmd_line_opt_from_slot(CmdLineOpt **slot, String8 string);
+internal void             cmd_line_push_opt(CmdLineOptList *list, CmdLineOpt *var);
+internal CmdLineOpt*      cmd_line_insert_opt(Arena *arena, CmdLine *cmd_line, String8 string, String8List values);
+internal CmdLine          cmd_line_from_string_list(Arena *arena, String8List arguments);
+internal CmdLineOpt*      cmd_line_opt_from_string(CmdLine *cmd_line, String8 name);
+internal String8List      cmd_line_strings(CmdLine *cmd_line, String8 name);
+internal String8          cmd_line_string(CmdLine *cmd_line, String8 name);
+internal B32              cmd_line_has_flag(CmdLine *cmd_line, String8 name);
+internal B32              cmd_line_has_argument(CmdLine *cmd_line, String8 name);
+
+#endif // BASE_COMMAND_LINE_H

code/base/memory.h

@@ -0,0 +1,83 @@
+#ifdef MD_INTELLISENSE_DIRECTIVES
+#pragma once
+#include "macros.h"
+#endif
+
+////////////////////////////////
+//~ rjf: Units
+
+#define KB(n)  (((U64)(n)) << 10)
+#define MB(n)  (((U64)(n)) << 20)
+#define GB(n)  (((U64)(n)) << 30)
+#define TB(n)  (((U64)(n)) << 40)
+
+#define thousand(n)   ((n) * 1000)
+#define million(n)    ((n) * 1000000)
+#define billion(n)    ((n) * 1000000000)
+
+////////////////////////////////
+//~ rjf: Clamps, Mins, Maxes
+
+#define min(A,B) (((A) < (B)) ? (A) : (B))
+#define max(A,B) (((A) > (B)) ? (A) : (B))
+
+#define clamp_top(A,X) Min(A, X)
+#define clamp_bot(X,B) Max(X, B)
+
+#define clamp(A,X,B) (((X) < (A)) ? (A) : ((X) > (B)) ? (B) : (X))
+
+////////////////////////////////
+//~ rjf: Type -> Alignment
+
+#if MD_COMPILER_MSVC
+# define align_of(T) __alignof(T)
+#elif MD_COMPILER_CLANG
+# define align_of(T) __alignof(T)
+#elif MD_COMPILER_GCC
+# define align_of(T) __alignof__(T)
+#else
+# error AlignOf not defined for this compiler.
+#endif
+
+////////////////////////////////
+//~ rjf: Member Offsets
+
+#define member(T, m)                    ( ((T*) 0)->m )
+#define offset_of(T, m)                 int_from_ptr(& member(T, m))
+#define member_from_offset(T, ptr, off) (T)  ((((U8 *) ptr) + (off)))
+#define cast_from_member(T, m, ptr)     (T*) (((U8*)ptr) - offset_of(T, m))
+
+////////////////////////////////
+//~ rjf: For-Loop Construct Macros
+
+#define defer_loop(begin, end)         for(int _i_ =       ((begin), 0); ! _i_;                           _i_ += 1, (end))
+#define defer_loop_checked(begin, end) for(int _i_ = 2 * ! (begin);       (_i_ == 2 ? ((end), 0) : !_i_); _i_ += 1, (end))
+
+#define each_enum_val(type, it)          type it = (type) 0; it < type ## _COUNT; it = (type)( it + 1 )
+#define each_non_zero_enum_val(type, it) type it = (type) 1; it < type ## _COUNT; it = (type)( it + 1 )
+
+////////////////////////////////
+//~ rjf: Memory Operation Macros
+
+#define memory_copy(dst, src, size)    memmove((dst), (src), (size))
+#define memory_set(dst, byte, size)    memset((dst), (byte), (size))
+#define memory_compare(a, b, size)     memcmp((a), (b), (size))
+#define memory_str_len(ptr)            cstr_len(ptr)
+
+#define memory_copy_struct(d,s)   memory_copy((d),(s),sizeof(*(d)))
+#define memory_copy_array(d,s)    memory_copy((d),(s),sizeof(d))
+#define memory_copy_type(d,s,c)   memory_copy((d),(s),sizeof(*(d))*(c))
+
+#define memory_zero(s,z)       mem_set((s),0,(z))
+#define memory_zero_struct(s)  memory_zero((s),sizeof(*(s)))
+#define memory_zero_array(a)   memroy_zero((a),sizeof(a))
+#define memory_zero_type(m,c)  memroy_zero((m),sizeof(*(m))*(c))
+
+#define memory_match(a,b,z)      (memory_compare((a),(b),(z)) == 0)
+#define memory_match_struct(a,b) memory_match((a),(b),sizeof(*(a)))
+#define memory_match_array(a,b)  memory_match((a),(b),sizeof(a))
+
+#define memory_read(T,p,e)    ( ((p)+sizeof(T)<=(e))?(*(T*)(p)):(0) )
+#define memory_consume(T,p,e) ( ((p)+sizeof(T)<=(e))?((p)+=sizeof(T),*(T*)((p)-sizeof(T))):((p)=(e),0) )
+
+

code/base/string.h

@@ -1,12 +0,0 @@
-#if MD_INTELLISENSE_DIRECTIVES
-#pragma once
-#include "base_types.h"
-#endif
-
-typedef struct String8 String8;
-struct String8
-{
-  U8 *str;
-  U64 size;
-};
-

code/base/strings.h

@@ -0,0 +1,384 @@
+#ifdef MD_INTELLISENSE_DIRECTIVES
+#pragma once
+#include "macros.h"
+#include "base_types.h"
+#endif
+
+// Copyright (c) 2024 Epic Games Tools
+// Licensed under the MIT license (https://opensource.org/license/mit/)
+
+////////////////////////////////
+//~ rjf: Third Party Includes
+
+#define STB_SPRINTF_DECORATE(name) raddbg_##name
+#include "third_party/stb/stb_sprintf.h"
+
+////////////////////////////////
+//~ rjf: String Types
+
+typedef struct String8 String8;
+struct String8
+{
+  U8 *str;
+  U64 size;
+};
+
+typedef struct String16 String16;
+struct String16
+{
+  U16 *str;
+  U64 size;
+};
+
+typedef struct String32 String32;
+struct String32
+{
+  U32 *str;
+  U64 size;
+};
+
+////////////////////////////////
+//~ rjf: String List & Array Types
+
+typedef struct String8Node String8Node;
+struct String8Node
+{
+  String8Node *next;
+  String8 string;
+};
+
+typedef struct String8MetaNode String8MetaNode;
+struct String8MetaNode
+{
+  String8MetaNode *next;
+  String8Node *node;
+};
+
+typedef struct String8List String8List;
+struct String8List
+{
+  String8Node *first;
+  String8Node *last;
+  U64 node_count;
+  U64 total_size;
+};
+
+typedef struct String8Array String8Array;
+struct String8Array
+{
+  String8 *v;
+  U64 count;
+};
+
+////////////////////////////////
+//~ rjf: String Matching, Splitting, & Joining Types
+
+typedef U32 StringMatchFlags;
+enum
+{
+  StringMatchFlag_CaseInsensitive  = (1 << 0),
+  StringMatchFlag_RightSideSloppy  = (1 << 1),
+  StringMatchFlag_SlashInsensitive = (1 << 2),
+};
+
+typedef U32 StringSplitFlags;
+enum
+{
+  StringSplitFlag_KeepEmpties = (1 << 0),
+};
+
+typedef enum PathStyle
+{
+  PathStyle_Relative,
+  PathStyle_WindowsAbsolute,
+  PathStyle_UnixAbsolute,
+  
+#if OS_WINDOWS
+  PathStyle_SystemAbsolute = PathStyle_WindowsAbsolute
+#elif OS_LINUX
+  PathStyle_SystemAbsolute = PathStyle_UnixAbsolute
+#else
+# error "absolute path style is undefined for this OS"
+#endif
+}
+PathStyle;
+
+typedef struct StringJoin StringJoin;
+struct StringJoin
+{
+  String8 pre;
+  String8 sep;
+  String8 post;
+};
+
+////////////////////////////////
+//~ rjf: String Pair Types
+
+typedef struct String8TxtPtPair String8TxtPtPair;
+struct String8TxtPtPair
+{
+  String8 string;
+  TxtPt pt;
+};
+
+////////////////////////////////
+//~ rjf: UTF Decoding Types
+
+typedef struct UnicodeDecode UnicodeDecode;
+struct UnicodeDecode
+{
+  U32 inc;
+  U32 codepoint;
+};
+
+////////////////////////////////
+//~ rjf: String Fuzzy Matching Types
+
+typedef struct FuzzyMatchRangeNode FuzzyMatchRangeNode;
+struct FuzzyMatchRangeNode
+{
+  FuzzyMatchRangeNode *next;
+  Rng1U64 range;
+};
+
+typedef struct FuzzyMatchRangeList FuzzyMatchRangeList;
+struct FuzzyMatchRangeList
+{
+  FuzzyMatchRangeNode *first;
+  FuzzyMatchRangeNode *last;
+  U64 count;
+  U64 needle_part_count;
+  U64 total_dim;
+};
+
+////////////////////////////////
+//~ rjf: Character Classification & Conversion Functions
+
+internal B32 char_is_space(U8 c);
+internal B32 char_is_upper(U8 c);
+internal B32 char_is_lower(U8 c);
+internal B32 char_is_alpha(U8 c);
+internal B32 char_is_slash(U8 c);
+internal B32 char_is_digit(U8 c, U32 base);
+internal U8 char_to_lower(U8 c);
+internal U8 char_to_upper(U8 c);
+internal U8 char_to_correct_slash(U8 c);
+
+////////////////////////////////
+//~ rjf: C-String Measurement
+
+internal U64 cstring8_length(U8 *c);
+internal U64 cstring16_length(U16 *c);
+internal U64 cstring32_length(U32 *c);
+
+////////////////////////////////
+//~ rjf: String Constructors
+
+#define str8_lit(S)  str8((U8*)(S), sizeof(S) - 1)
+#define str8_lit_comp(S) {(U8*)(S), sizeof(S) - 1,}
+#define str8_varg(S) (int)((S).size), ((S).str)
+
+#define str8_array(S,C) str8((U8*)(S), sizeof(*(S))*(C))
+#define str8_array_fixed(S) str8((U8*)(S), sizeof(S))
+#define str8_struct(S) str8((U8*)(S), sizeof(*(S)))
+
+internal String8  str8(U8 *str, U64 size);
+internal String8  str8_range(U8 *first, U8 *one_past_last);
+internal String8  str8_zero(void);
+internal String16 str16(U16 *str, U64 size);
+internal String16 str16_range(U16 *first, U16 *one_past_last);
+internal String16 str16_zero(void);
+internal String32 str32(U32 *str, U64 size);
+internal String32 str32_range(U32 *first, U32 *one_past_last);
+internal String32 str32_zero(void);
+internal String8  str8_cstring(char *c);
+internal String16 str16_cstring(U16 *c);
+internal String32 str32_cstring(U32 *c);
+internal String8  str8_cstring_capped(void *cstr, void *cap);
+
+////////////////////////////////
+//~ rjf: String Stylization
+
+internal String8 upper_from_str8(Arena *arena, String8 string);
+internal String8 lower_from_str8(Arena *arena, String8 string);
+internal String8 backslashed_from_str8(Arena *arena, String8 string);
+
+////////////////////////////////
+//~ rjf: String Matching
+
+internal B32 str8_match(String8 a, String8 b, StringMatchFlags flags);
+internal U64 str8_find_needle(String8 string, U64 start_pos, String8 needle, StringMatchFlags flags);
+internal B32 str8_ends_with(String8 string, String8 end, StringMatchFlags flags);
+
+////////////////////////////////
+//~ rjf: String Slicing
+
+internal String8 str8_substr(String8 str, Rng1U64 range);
+internal String8 str8_prefix(String8 str, U64 size);
+internal String8 str8_skip(String8 str, U64 amt);
+internal String8 str8_postfix(String8 str, U64 size);
+internal String8 str8_chop(String8 str, U64 amt);
+internal String8 str8_skip_chop_whitespace(String8 string);
+
+////////////////////////////////
+//~ rjf: String Formatting & Copying
+
+internal String8 push_str8_cat(Arena *arena, String8 s1, String8 s2);
+internal String8 push_str8_copy(Arena *arena, String8 s);
+internal String8 push_str8fv(Arena *arena, char *fmt, va_list args);
+internal String8 push_str8f(Arena *arena, char *fmt, ...);
+
+////////////////////////////////
+//~ rjf: String <=> Integer Conversions
+
+//- rjf: string -> integer
+internal S64 sign_from_str8(String8 string, String8 *string_tail);
+internal B32 str8_is_integer(String8 string, U32 radix);
+internal U64 u64_from_str8(String8 string, U32 radix);
+internal S64 s64_from_str8(String8 string, U32 radix);
+internal B32 try_u64_from_str8_c_rules(String8 string, U64 *x);
+internal B32 try_s64_from_str8_c_rules(String8 string, S64 *x);
+
+//- rjf: integer -> string
+internal String8 str8_from_memory_size(Arena *arena, U64 z);
+internal String8 str8_from_u64(Arena *arena, U64 u64, U32 radix, U8 min_digits, U8 digit_group_separator);
+internal String8 str8_from_s64(Arena *arena, S64 s64, U32 radix, U8 min_digits, U8 digit_group_separator);
+
+////////////////////////////////
+//~ rjf: String <=> Float Conversions
+
+internal F64 f64_from_str8(String8 string);
+
+////////////////////////////////
+//~ rjf: String List Construction Functions
+
+internal String8Node* str8_list_push_node(String8List *list, String8Node *node);
+internal String8Node* str8_list_push_node_set_string(String8List *list, String8Node *node, String8 string);
+internal String8Node* str8_list_push_node_front(String8List *list, String8Node *node);
+internal String8Node* str8_list_push_node_front_set_string(String8List *list, String8Node *node, String8 string);
+internal String8Node* str8_list_push(Arena *arena, String8List *list, String8 string);
+internal String8Node* str8_list_push_front(Arena *arena, String8List *list, String8 string);
+internal void         str8_list_concat_in_place(String8List *list, String8List *to_push);
+internal String8Node* str8_list_push_aligner(Arena *arena, String8List *list, U64 min, U64 align);
+internal String8Node* str8_list_pushf(Arena *arena, String8List *list, char *fmt, ...);
+internal String8Node* str8_list_push_frontf(Arena *arena, String8List *list, char *fmt, ...);
+internal String8List  str8_list_copy(Arena *arena, String8List *list);
+#define str8_list_first(list) ((list)->first ? (list)->first->string : str8_zero())
+
+////////////////////////////////
+//~ rjf: String Splitting & Joining
+
+internal String8List  str8_split(Arena *arena, String8 string, U8 *split_chars, U64 split_char_count, StringSplitFlags flags);
+internal String8List  str8_split_by_string_chars(Arena *arena, String8 string, String8 split_chars, StringSplitFlags flags);
+internal String8List  str8_list_split_by_string_chars(Arena *arena, String8List list, String8 split_chars, StringSplitFlags flags);
+internal String8      str8_list_join(Arena *arena, String8List *list, StringJoin *optional_params);
+internal void         str8_list_from_flags(Arena *arena, String8List *list, U32 flags, String8 *flag_string_table, U32 flag_string_count);
+
+////////////////////////////////
+//~ rjf; String Arrays
+
+internal String8Array str8_array_from_list(Arena *arena, String8List *list);
+internal String8Array str8_array_reserve(Arena *arena, U64 count);
+
+////////////////////////////////
+//~ rjf: String Path Helpers
+
+internal String8 str8_chop_last_slash(String8 string);
+internal String8 str8_skip_last_slash(String8 string);
+internal String8 str8_chop_last_dot(String8 string);
+internal String8 str8_skip_last_dot(String8 string);
+
+internal PathStyle   path_style_from_str8(String8 string);
+internal String8List str8_split_path(Arena *arena, String8 string);
+internal void        str8_path_list_resolve_dots_in_place(String8List *path, PathStyle style);
+internal String8     str8_path_list_join_by_style(Arena *arena, String8List *path, PathStyle style);
+
+internal String8TxtPtPair str8_txt_pt_pair_from_string(String8 string);
+
+////////////////////////////////
+//~ rjf: UTF-8 & UTF-16 Decoding/Encoding
+
+internal UnicodeDecode utf8_decode(U8 *str, U64 max);
+internal UnicodeDecode utf16_decode(U16 *str, U64 max);
+internal U32 utf8_encode(U8 *str, U32 codepoint);
+internal U32 utf16_encode(U16 *str, U32 codepoint);
+internal U32 utf8_from_utf32_single(U8 *buffer, U32 character);
+
+////////////////////////////////
+//~ rjf: Unicode String Conversions
+
+internal String8 str8_from_16(Arena *arena, String16 in);
+internal String16 str16_from_8(Arena *arena, String8 in);
+internal String8 str8_from_32(Arena *arena, String32 in);
+internal String32 str32_from_8(Arena *arena, String8 in);
+
+////////////////////////////////
+//~ rjf: Basic Types & Space Enum -> String Conversions
+
+internal String8 string_from_dimension(Dimension dimension);
+internal String8 string_from_side(Side side);
+internal String8 string_from_operating_system(OperatingSystem os);
+internal String8 string_from_architecture(Architecture arch);
+
+////////////////////////////////
+//~ rjf: Time Types -> String
+
+internal String8 string_from_week_day(WeekDay week_day);
+internal String8 string_from_month(Month month);
+internal String8 push_date_time_string(Arena *arena, DateTime *date_time);
+internal String8 push_file_name_date_time_string(Arena *arena, DateTime *date_time);
+internal String8 string_from_elapsed_time(Arena *arena, DateTime dt);
+
+////////////////////////////////
+//~ rjf: Basic Text Indentation
+
+internal String8 indented_from_string(Arena *arena, String8 string);
+
+////////////////////////////////
+//~ rjf: Text Wrapping
+
+internal String8List wrapped_lines_from_string(Arena *arena, String8 string, U64 first_line_max_width, U64 max_width, U64 wrap_indent);
+
+////////////////////////////////
+//~ rjf: String <-> Color
+
+internal String8 hex_string_from_rgba_4f32(Arena *arena, Vec4F32 rgba);
+internal Vec4F32 rgba_from_hex_string_4f32(String8 hex_string);
+
+////////////////////////////////
+//~ rjf: String Fuzzy Matching
+
+internal FuzzyMatchRangeList fuzzy_match_find(Arena *arena, String8 needle, String8 haystack);
+internal FuzzyMatchRangeList fuzzy_match_range_list_copy(Arena *arena, FuzzyMatchRangeList *src);
+
+////////////////////////////////
+//~ NOTE(allen): Serialization Helpers
+
+internal void    str8_serial_begin(Arena *arena, String8List *srl);
+internal String8 str8_serial_end(Arena *arena, String8List *srl);
+internal void    str8_serial_write_to_dst(String8List *srl, void *out);
+internal U64     str8_serial_push_align(Arena *arena, String8List *srl, U64 align);
+internal void *  str8_serial_push_size(Arena *arena, String8List *srl, U64 size);
+internal void *  str8_serial_push_data(Arena *arena, String8List *srl, void *data, U64 size);
+internal void    str8_serial_push_data_list(Arena *arena, String8List *srl, String8Node *first);
+internal void    str8_serial_push_u64(Arena *arena, String8List *srl, U64 x);
+internal void    str8_serial_push_u32(Arena *arena, String8List *srl, U32 x);
+internal void    str8_serial_push_u16(Arena *arena, String8List *srl, U16 x);
+internal void    str8_serial_push_u8(Arena *arena, String8List *srl, U8 x);
+internal void    str8_serial_push_cstr(Arena *arena, String8List *srl, String8 str);
+internal void    str8_serial_push_string(Arena *arena, String8List *srl, String8 str);
+#define str8_serial_push_array(arena, srl, ptr, count) str8_serial_push_data(arena, srl, ptr, sizeof(*(ptr)) * (count))
+#define str8_serial_push_struct(arena, srl, ptr) str8_serial_push_array(arena, srl, ptr, 1)
+
+////////////////////////////////
+//~ rjf: Deserialization Helpers
+
+internal U64    str8_deserial_read(String8 string, U64 off, void *read_dst, U64 read_size, U64 granularity);
+internal U64    str8_deserial_find_first_match(String8 string, U64 off, U16 scan_val);
+internal void * str8_deserial_get_raw_ptr(String8 string, U64 off, U64 size);internal U64 str8_deserial_read_cstr(String8 string, U64 off, String8 *cstr_out);
+internal U64    str8_deserial_read_windows_utf16_string16(String8 string, U64 off, String16 *str_out);
+internal U64    str8_deserial_read_block(String8 string, U64 off, U64 size, String8 *block_out);
+#define str8_deserial_read_array(string, off, ptr, count) str8_deserial_read((string), (off), (ptr), sizeof(*(ptr))*(count), sizeof(*(ptr)))
+#define str8_deserial_read_struct(string, off, ptr) str8_deserial_read((string), (off), (ptr), sizeof(*(ptr)), sizeof(*(ptr)))
+
+#endif // BASE_STRINGS_H

code/base/zpl_memory.h

@@ -3,6 +3,11 @@
 #include "base_types.h"
 #endif
 
+// This provides an alterntive memory strategy to HMH/Casey Muratori/RJF styled arenas
+// The library is derived from zpl-c which in-turn 
+// is related to the gb headers an thus the Odin-lang memory strategy
+// Users can override the underlying memory allocator used, even for the HMH arena memory strategy.
+
 #define MD_KILOBYTES( x ) (             ( x ) * ( S64 )( 1024 ) )
 #define MD_MEGABYTES( x ) ( MD_KILOBYTES( x ) * ( S64 )( 1024 ) )
 #define MD_GIGABYTES( x ) ( MD_MEGABYTES( x ) * ( S64 )( 1024 ) )