demake 0.2.2 → 0.2.4

data/lib/data/libsrc/auto_bits.h

@@ -2,32 +2,240 @@
 
   auto_bits.h -- *Full Library* Header File
 
-  For auto bits
+  For creating and managing bits / flags
+
+  Note: Some of this code is easiest to write using Ruby and meta
+        programming. See the note in the example for more details.
 
   See the end of this file for an example.
 
+  Useful macros:
+
+  #define IS_SET(bits, bit)	((bits) & (bit))
+  #define SET_BIT(bits, bit)	((bits) |= (bit))
+  #define REMOVE_BIT(bits, bit)	((bits) &= ~(bit))
+  #define TOGGLE_BIT(bits, bit)	((bits) ^= (bit))
+
   Public Functions:
 
+  void auto_bits_print(cc8 *list[], b8 bits);
+  void auto_bits_show(cc8 *list[], b8 bits, cc8 *separator);
+
 */
 
-#ifndef AUTO_BITS_H_Minaswan		/* Prevent multiple inclusions */
+#ifndef AUTO_BITS_H_Minaswan	/* Prevent multiple inclusions */
 #define AUTO_BITS_H_Minaswan
-  #ifndef TYPEDEFS_H_Minaswan		/* Header guard for typedefs.h */
+  #define AUTO_BITS_VERSION	"0.1.0"
+  #ifndef TYPEDEFS_H_Minaswan	/* Header guard for typedefs.h */
     #define TYPEDEFS_H_Minaswan
+    #define TYPEDEFS_VERSION	"0.1.1"
+    #include <stdint.h>
+
+    typedef uint8_t b8;		/* Booleans			*/
+    typedef uint16_t b16;
+    typedef uint32_t b32;
+    typedef uint64_t b64;
+
+    typedef char c8;		/* Characters			*/
+    typedef const char cc8;
+    typedef unsigned char uc8;
+    typedef char as8;		/* Auto string			*/
+
+    typedef uint8_t u8;		/* Unsigned Numbers		*/
+    typedef uint16_t u16;
+    typedef uint32_t u32;
+    typedef uint64_t u64;
+
+    typedef int8_t i8;		/* Signed Numbers		*/
+    typedef int16_t i16;
+    typedef int32_t i32;
+    typedef int64_t i64;
+
+    typedef float f32;		/* Floating Point Numbers	*/
+    typedef double f64;
+  #endif			/* TYPEDEFS_H_Minaswan */
+
+  #ifndef DEFINES_H_Minaswan	/* Prevent multiple inclusions */
+    #define DEFINES_H_Minaswan
+    #define DEFINES_VERSION	"0.1.1"
+    #ifndef NULL
+      #define NULL		((void *) 0)
+    #endif
+    #ifndef FALSE
+      #define FALSE		0
+    #endif
+    #ifndef TRUE
+      #define TRUE		1
+    #endif
+    #ifndef NO
+      #define NO		0
+    #endif
+    #ifndef YES
+      #define YES		1
+    #endif
+    #ifndef OFF
+      #define OFF		0
+    #endif
+    #ifndef ON
+      #define ON		1
+    #endif
+    #ifndef MIN
+      #define MIN(x, y)		(x) < (y) ? (x) : (y)
+    #endif
+    #ifndef MAX
+      #define MAX(x, y)		(x) > (y) ? (x) : (y)
+    #endif
+    #ifndef KB
+      #define KB(x)		((u64)(x) * 1024)
+    #endif
+    #ifndef MB
+      #define MB(x)		((u64)(x) * 1024 * 1024)
+    #endif
+    #ifndef GB
+      #define GB(x)		((u64)(x) * 1024 * 1024 * 1024)
+    #endif
+    #ifndef TO_UPPER_CASE
+      #define TO_UPPER_CASE(x)	(((uc8)(x) >= (uc8)'a' && (uc8)(x) <= (uc8)'z') ? \
+  				(uc8)((uc8)(x) - (uc8)'a' + (uc8)'A') : (uc8)(x))
+    #endif
+    #ifndef TO_LOWER_CASE
+      #define TO_LOWER_CASE(x)	(((uc8)(x) >= (uc8)'A' && (uc8)(x) <= (uc8)'Z') ? \
+  				(uc8)((uc8)(x) - (uc8)'A' + (uc8)'a') : (uc8)(x))
+    #endif
+    #ifndef IS_WHITE_SPACE
+      #define IS_WHITE_SPACE(x)	((uc8)(x) == ' ' || (uc8)(x) - (uc8)'\t' < 5)
+    #endif
+  #endif				/* DEFINES_H_Minaswan */
+
+  #ifndef _SCOPE_       /* _SCOPE_ is short and can be easily redefined */
+    #define _SCOPE_WAS_NOT_PREDEFINED_
+/*
+    #define _SCOPE_             extern
+    #define _SCOPE_             static
+*/
+    #if defined(__GNUC__) || defined(__clang__)
+      #define _SCOPE_           static __inline__
+    #elif defined(_MSC_VER)
+      #define _SCOPE_           static __inline
+    #else
+      #define _SCOPE_           static inline
+    #endif
+  #endif
+
+  #include <stdio.h>
 
-  #endif				/* TYPEDEFS_H_Minaswan */
+  #define IS_SET(bits, bit)	((bits) & (bit))
+  #define SET_BIT(bits, bit)	((bits) |= (bit))
+  #define REMOVE_BIT(bits, bit)	((bits) &= ~(bit))
+  #define TOGGLE_BIT(bits, bit)	((bits) ^= (bit))
+
+  #define BIT_IS_SET(bits, bit)	((bits) & (bit))
+  #define BIT_SET(bits, bit)	((bits) |= (bit))
+  #define BIT_REMOVE(bits, bit)	((bits) &= ~(bit))
+  #define BIT_TOGGLE(bits, bit)	((bits) ^= (bit))
 
   /* Public Functions */
+  _SCOPE_ void auto_bits_print(cc8 *list[], b8 bits);
+  _SCOPE_ void auto_bits_show(cc8 *list[], b8 bits, cc8 *separator);
 
   #ifdef AUTO_BITS_IMPLEMENTATION
+  _SCOPE_ void auto_bits_print(cc8 *list[], b8 bits)
+  {
+    u8 i = 0;
+    b8 found = FALSE;
+
+    while(list[i] != NULL) {
+      if(IS_SET(bits, (1 << i))) {
+        if(!found) {
+          printf("Set bits: ");
+          printf("%s", list[i]);
+          found = TRUE;
+        } else
+          printf(", %s", list[i]);
+      }
+      i++;
+    }
+    if(found)
+      printf("\n");
+    else
+      printf("No bits are set\n");
+  }
 
+  _SCOPE_ void auto_bits_show(cc8 *list[], b8 bits, cc8 *separator)
+  {
+    u8 i = 0;
+    b8 found = FALSE;
+
+    while(list[i] != NULL) {
+      if(IS_SET(bits, (1 << i))) {
+        if(!found) {
+          printf("%s", list[i]);
+          found = TRUE;
+        } else
+          printf("%s%s", separator, list[i]);
+      }
+      i++;
+    }
+  }
   #endif	/* AUTO_BITS_IMPLEMENTATION */
 #endif		/* AUTO_BITS_H_Minaswan */
 
 /*
   Example:
 
+  *** Note: BIT_ macros and *bit_list[] are easiest to create using demake:
+
+  To create exactly what you see below, create an auto-bits.rb file containing:
+
+  prefix = "bit"
+  list = [ "0", "1", "2", "3" ]
+  auto_bits_add(prefix, list)
+
+  Then use demake to auto generate auto_bits_generated.h:
+  > demake auto-bits auto-bits.rb
+
+  *** End of Note
+
   #define AUTO_BITS_IMPLEMENTATION
   #include "auto_bits.h"
 
+  #define BIT_0                         (1 << 0)
+  #define BIT_1                         (1 << 1)
+  #define BIT_2                         (1 << 2)
+  #define BIT_3                         (1 << 3)
+
+  cc8 *bit_list[] = {
+    "0",
+    "1",
+    "2",
+    "3",
+    NULL
+  };
+
+  i32 main(i32 argc, c8 *argv[])
+  {
+    b8 bits = 0;
+
+    printf("-- Set both bits 1 & 2:\n");
+    SET_BIT(bits, BIT_1|BIT_2);
+    auto_bits_print(bit_list, bits);
+    if(IS_SET(bits, BIT_2))
+      printf("Bit #2 is set.\n");
+    printf("Manual list set bits: ");
+    auto_bits_show(bit_list, bits, "|");
+    printf("\n\n-- Remove both bits 1 & 2:\n");
+    REMOVE_BIT(bits, BIT_1|BIT_2);
+    auto_bits_print(bit_list, bits);
+    printf("\n-- Set all 4 bits:\n");
+    SET_BIT(bits, BIT_0|BIT_1|BIT_2|BIT_3);
+    auto_bits_print(bit_list, bits);
+    printf("Manual list set bits: ");
+    auto_bits_show(bit_list, bits, " + ");
+    printf("\n\n-- Toggle both bits 1 & 2:\n");
+    TOGGLE_BIT(bits, BIT_1|BIT_2);
+    auto_bits_print(bit_list, bits);
+
+    return 0;
+  }
+
 */

data/lib/data/libsrc/auto_bits.rb

@@ -0,0 +1,9 @@
+#file = "auto_bits_generated.h"
+prefix = "bit"
+list = [ "0", "1", "2", "3" ]
+auto_bits_add(prefix, list)
+#auto_bits_add(prefix, list, file)
+
+@prespace = 2
+@target_tab_column = 5
+notify("|g|[check mark]|n auto_bits.rb found - generating code")

data/lib/data/libsrc/auto_list.rb

@@ -0,0 +1,9 @@
+#file = "auto_list_generated.h"
+prefix = "color"
+list = [ "blue", "green", "red", "purple" ]
+auto_bits_add(prefix, list)
+#auto_bits_add(prefix, list, file)
+
+@prespace = 2
+@target_tab_column = 5
+notify("|g|[check mark]|n auto_list.rb found - generating code")

data/lib/data/libsrc/auto_string.c

@@ -0,0 +1,300 @@
+  /*
+    !!!		IMPORTANT NOTE ON CLAMP		!!!
+
+    This works:
+
+    c8 my_string[] = "This will work. Pretty cool, right?";
+
+    !!!	** You can't clamp on: *char literals	!!!
+    !!!						!!!
+    !!!	** Only clamp on: char[] and heap	!!!
+    !!!						!!!
+    !!!	This will segfault:			!!!
+
+    c8 *my_string2 = "This will segfault. Unfortunately.";
+
+    view2 = auto_view(my_string2);
+    auto_view_chop_right(&view2, 15);
+
+    This will segfault:
+
+    auto_view_clamp(&view2));
+
+  */
+
+#define AUTO_STRING_IMPLEMENTATION
+#include "auto_string.h"
+
+#define BUF_STRING_LENGTH	1024
+
+as8 *make_test_scratch(u64 *test_num, c8 *test_name);
+void test_scratch(u64 *test_num, c8 *test_name, c8 *data1, c8 *data2,
+    b8 result, c8 *expected_result);
+void test_scratch_view(u64 *test_num, c8 *test_name, AutoView *view, c8 *data2,
+    b8 result, c8 *expected_result);
+void test_scratch_views(u64 *test_num, c8 *test_name, AutoView *view,
+    AutoView *view2, b8 result, c8 *expected_result);
+
+i32 main(i32 argc, c8 *argv[])
+{
+  AutoView view = { 0 }, view2 = { 0 };
+  u64 length = 0, available = 0, i = 0, test_num = 0;
+  i32 auto_string_identifier = 0;
+  c8 buf[BUF_STRING_LENGTH + 1] = {0};
+  as8 *data = NULL, *substring = NULL;
+  b8 result = FALSE;
+
+  printf("\nCreating test auto string data in arena 1:\n\n");
+  data = auto_string_by_id_extra(1, "hello", 8);	/* 8 = include space for , world! */
+  data = auto_string_add(data, ", world!");
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %s = %ld (%ld available)\n", data, data, length, available);
+  data = auto_string_by_id_extra(1, "hello", -2);	/* -2 = 2 x 5 (hello) extra space */
+  data = auto_string_add(data, ", world!");
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %s = %ld (%ld available)\n", data, data, length, available);
+  data = auto_string_by_id_new(1, "hello", FALSE);	/* Default - 512 bytes */
+  data = auto_string_add(data, ", world!");
+  data = auto_string_add(data, " What's happening with your cool vibes?");
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %s = %ld (%ld available)\n", data, data, length, available);
+  for(i = 0; i < BUF_STRING_LENGTH; i++)
+    buf[i] = 'a' + i % 26;
+  buf[BUF_STRING_LENGTH + 1] = '\0';
+  data = auto_string_by_id_new(1, buf, FALSE);	/* Default based on size - 1024 bytes */
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %-50.50s ... = %ld (%ld available)\n", data, data, length, available);
+  data = auto_string_add(data, "ABCDEFGHIJKLMNOPQRSTUVWXYZ");
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p ... %-50.50s = %ld (%ld available)\n\n", data + length - 50,
+     data + length - 50, length, available);
+
+  auto_string_show();
+
+  /* Arena 2 */
+  printf("\nCreating dynamic new auto string arena (2) with 1 KB:\n\n");
+  auto_string_identifier = auto_string_init(KB(1));
+  auto_string_show();
+
+  /* Arena 3 */
+  printf("\nCreating auto string arena (3) with 1 KB:\n\n");
+  data = auto_string_by_id_extra(3, NULL, -2);	/* -2 = 2 x 512 (default) space */
+  data = auto_string_add(data, "hello, world!");
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %s = %ld (%ld available)\n", data, data, length, available);
+  auto_string_show();
+
+  /* Arena 2 (using auto_string_identifier) */
+  printf("\nUsing dynamic auto string arena (2):\n\n");
+  data = auto_string_by_id_new(auto_string_identifier, "hello, world!", TRUE); /* 0 extra */
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %s = %ld (%ld available)\n", data, data, length, available);
+  auto_string_show();
+
+  /* Arena 4 - should be the same result as arena 3 above */
+  printf("\nCreating auto string arena (4) with 1 KB:\n\n");
+  auto_string_identifier = auto_string_init(KB(1));
+  data = auto_string_by_id_extra(auto_string_identifier, "hello, world!", 0);
+  length = auto_string_length(data);
+  available = auto_string_available(data);
+  printf("%p %s = %ld (%ld available)\n", data, data, length, available);
+  auto_string_show();
+
+  printf("\nReset auto string arena (3):\n\n");
+  auto_string_by_id_reset(3);
+  auto_string_show();
+
+  printf("\nFree auto string arena (2):\n\n");
+  auto_string_by_id_free(2);
+  auto_string_show();
+
+  printf("\nFind auto string arena identifier for current data pointer (4):\n");
+  auto_string_identifier = find_auto_string_identifier(data);
+  printf("  data is currently pointing at arena %d\n", auto_string_identifier);
+
+  printf("\nPerform tests:\n--------------\n");
+
+  result = auto_string_match(data, "hello, world!");
+  test_scratch(&test_num, "match", data, "hello, world!", result, "TRUE");
+
+  result = auto_string_match_no_case(data, "hello, WORLD!");
+  test_scratch(&test_num, "match no case", data, "hello, WORLD!", result, "TRUE");
+
+  result = auto_string_contains(data, "world");
+  test_scratch(&test_num, "contains", data, "world", result, "TRUE");
+
+  result = auto_string_match(data, "hell");
+  test_scratch(&test_num, "match", data, "hell", result, "FALSE");
+
+  result = auto_string_match_no_case(data, "HELL");
+  test_scratch(&test_num, "match no case", data, "HELL", result, "FALSE");
+
+  result = auto_string_contains(data, "HELLO");
+  test_scratch(&test_num, "contains", data, "HELLO", result, "FALSE");
+
+  result = auto_string_match(data, "world");
+  test_scratch(&test_num, "match", data, "world", result, "FALSE");
+
+  result = auto_string_match_no_case(data, "WORLD");
+  test_scratch(&test_num, "match no case", data, "WORLD", result, "FALSE");
+
+  result = auto_string_prefixed(data, "hell");
+  test_scratch(&test_num, "prefixed", data, "hell", result, "TRUE");
+
+  result = auto_string_prefixed(data, "HELL");
+  test_scratch(&test_num, "prefixed", data, "HELL", result, "FALSE");
+
+  result = auto_string_prefixed_no_case(data, "HELL");
+  test_scratch(&test_num, "prefixed no case", data, "HELL", result, "TRUE");
+
+  result = auto_string_prefixed_no_case(data, "EL");
+  test_scratch(&test_num, "prefixed no case", data, "EL", result, "FALSE");
+
+  view = a_view("  \n\t\r\v-   world!   -\n\t\r\v\t        ");
+  view2 = a_view("world");
+  av_trim(&view);
+  av_chop_right(&view, 1);
+  av_chop_left(&view, 1);
+  av_trim(&view);
+  av_slice(&view, 1, 4);
+
+  result = auto_view_match(&view, "world");
+  test_scratch_view(&test_num, "view match", &view, "world", result, "FALSE");
+
+  result = av_match(&view, "orld");
+  test_scratch_view(&test_num, "view match", &view, "orld", result, "TRUE");
+
+  result = av_match_no_case(&view, "ORLD");
+  test_scratch_view(&test_num, "view match no case", &view, "ORLD", result, "TRUE");
+
+  result = av_match_no_case(&view, "OrLd");
+  test_scratch_view(&test_num, "view match no case", &view, "OrLd", result, "TRUE");
+
+  result = av_match_no_case(&view, "WORLD");
+  test_scratch_view(&test_num, "view match no case", &view, "WORLD", result, "FALSE");
+
+  result = auto_view_prefixed(&view, "orl");
+  test_scratch_view(&test_num, "view prefixed", &view, "orl", result, "TRUE");
+
+  result = auto_view_prefixed(&view2, "orl");
+  test_scratch_view(&test_num, "view prefixed", &view, "orl", result, "FALSE");
+
+  result = auto_views_match(&view, &view);
+  test_scratch_views(&test_num, "views match", &view, &view, result, "TRUE");
+
+  result = auto_views_match(&view, &view2);
+  test_scratch_views(&test_num, "views match", &view, &view2, result, "FALSE");
+
+  av_chop_left(&view2, 1);
+  result = auto_views_match(&view, &view2);
+  test_scratch_views(&test_num, "views match", &view, &view2, result, "TRUE");
+
+  view2 = a_view("ORLD");
+  result = auto_views_match_no_case(&view, &view2);
+  test_scratch_views(&test_num, "views match no case", &view, &view2, result, "TRUE");
+
+  view2 = a_view("OrlD");
+  result = auto_views_match_no_case(&view, &view2);
+  test_scratch_views(&test_num, "views match no case", &view, &view2, result, "TRUE");
+
+  view2 = a_view("0rlD");
+  result = auto_views_match_no_case(&view, &view2);
+  test_scratch_views(&test_num, "views match no case", &view, &view2, result, "FALSE");
+
+  printf("\n");
+  auto_string_show();
+
+  printf("\nFreeing scratch arena (420):\n");
+  auto_string_by_id_free(420);
+  auto_string_show();
+
+  printf("\nPerform thick (default extra capacity) substring: (world)\n");
+  substring = auto_string_by_id_substring(1, data, 6, 5, FALSE);
+  length = auto_string_length(substring);
+  available = auto_string_available(substring);
+  printf("%p %s = %ld (%ld available)\n", substring, substring, length, available);
+  printf("Perform thin (0 extra capacity) substring: (world)\n");
+  substring = auto_string_by_id_substring(1, data, 6, 5, TRUE);
+  length = auto_string_length(substring);
+  available = auto_string_available(substring);
+  printf("%p %s = %ld (%ld available)\n\n", substring, substring, length, available);
+  auto_string_show();
+
+  view = auto_view(data + 7);
+  printf("View: %.*s\n", AUTO_VIEW(view));
+
+  printf("\nReset all auto string arenas:\n\n");
+  auto_string_reset_all();
+  auto_string_show();
+
+  printf("\nFree all auto string arenas:\n\n");
+  auto_string_free_all();
+  auto_string_show();
+
+  view = a_view("  \n\t\r\v-   world!   -\n\t\r\v\t        ");
+  view2 = a_view("world");
+  printf("\nUntrimmed View: |%.*s|\n", A_VIEW(view));
+  av_trim(&view);
+  printf("Trimmed View:   |"VIEW"|\n", A_VIEW(view));
+  av_chop_right(&view, 1);
+  printf("Chop right 1:   |"VIEW"|\n", A_VIEW(view));
+  av_chop_left(&view, 1);
+  printf("Chop left 1:    |"VIEW"|\n", A_VIEW(view));
+  av_trim(&view);
+  printf("Trimmed View:   |"VIEW"|\n", A_VIEW(view));
+  av_slice(&view, 1, 4);
+  printf("Sliced View:    |"VIEW"|\n", A_VIEW(view));
+  printf("View2:          |"VIEW"|\n", A_VIEW(view2));
+
+  as_show();
+
+  return 0;
+}
+
+/* Uses auto string arena 420 as scratch */
+as8 *make_test_scratch(u64 *test_num, c8 *test_name)
+{
+  i32 i = 0;
+  as8 *string = NULL;
+
+  *test_num += 1;
+  i = snprintf(NULL, 0, "Test %lu - %s", *test_num, test_name);
+  string = auto_string_by_id_extra(420, NULL, i);	/* scratch arena / i bytes */
+  sprintf(string, "Test %lu - %s", *test_num, test_name);
+  auto_string_update(string);				/* update position and capacity */
+  return string;
+}
+
+void test_scratch(u64 *test_num, c8 *test_name, c8 *data1, c8 *data2,
+    b8 result, c8 *expected_result)
+{
+  as8 *string = make_test_scratch(test_num, test_name);
+
+  printf("%-30.30s %-15.15s %-15.15s %s | %s\n", string, data1, data2,
+     result ? " TRUE" : "FALSE", expected_result);
+}
+
+void test_scratch_view(u64 *test_num, c8 *test_name, AutoView *view, c8 *data2,
+    b8 result, c8 *expected_result)
+{
+  as8 *string = make_test_scratch(test_num, test_name);
+
+  printf("%-30.30s %-15.*s %-15.15s %s | %s\n", string, A_PVIEW(view), data2,
+     result ? " TRUE" : "FALSE", expected_result);
+}
+
+void test_scratch_views(u64 *test_num, c8 *test_name, AutoView *view,
+    AutoView *view2, b8 result, c8 *expected_result)
+{
+  as8 *string = make_test_scratch(test_num, test_name);
+
+  printf("%-30.30s "VIEW_WIDTH(-15)" "VIEW_WIDTH(-15)" %s | %s\n", string,
+     A_PVIEW(view), A_PVIEW(view2), result ? " TRUE" : "FALSE", expected_result);
+}