gencpp/project/Bloat.hpp

/*
	BLOAT.
*/

#pragma once	

#if defined(__GNUC__) || defined(__clang__) || 1
  // Supports 0-10 arguments
  #define VA_NARGS_IMPL( _0,                          \
	 _1,  _2,  _3,  _4,  _5,  _6,  _7,  _8,  _9, _10, \
	_11, _12, _13, _14, _15, _16, _17, _18, _19, _20, \
	_21, _22, _23, _24, _25, _26, _27, _28, _29, _30, \
	  N, ...) N 
  // ## deletes preceding comma if _VA_ARGS__ is empty (GCC, Clang)
  #define VA_NARGS(...) VA_NARGS_IMPL(_, ## __VA_ARGS__, \
  	30, 29, 28, 27, 26, 25, 24, 23, 22, 21,              \
	20, 19, 18, 17, 16, 15, 14, 13, 12, 11,              \
	10, 9, 8, 7, 6, 5, 4, 3, 2, 1,                       \
	0)    
	                
#else
  // Supports 1-10 arguments
  #define VA_NARGS_IMPL(_1, _2, _3, _4, _5, _6, _7, _8, _9, _10, N, ...) N
  #define VA_NARGS(...) VA_NARGS_IMPL(__VA_ARGS__, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
#endif

#define VA_NARGS2(...) ((int)(sizeof((int[]){ __VA_ARGS__ })/sizeof(int)))

#ifdef BLOAT_IMPL
#	define ZPL_IMPLEMENTATION
#endif

#pragma region 									ZPL INCLUDE
#if __clang__
#	pragma clang diagnostic push 
#	pragma clang diagnostic ignored "-Wmissing-braces"
#	pragma clang diagnostic ignored "-Wbraced-scalar-init"
#endif

// #   define ZPL_HEAP_ANALYSIS
#	define ZPL_NO_MATH_H
#	define ZPL_CUSTOM_MODULES
#		define ZPL_MODULE_ESSENTIALS
#		define ZPL_MODULE_CORE
#		define ZPL_MODULE_TIMER
#		define ZPL_MODULE_HASHING
// #	define ZPL_MODULE_REGEX
// #	define ZPL_MODULE_EVENT
// #	define ZPL_MODULE_DLL
#		define ZPL_MODULE_OPTS
// #	define ZPL_MODULE_PROCESS
// #	define ZPL_MODULE_MAT
// #	define ZPL_MODULE_THREADING
// #	define ZPL_MODULE_JOBS
// #	define ZPL_MODULE_PARSER
#include "zpl.h"

#if __clang__
#	pragma clang diagnostic pop
#endif
#pragma endregion 								ZPL INCLUDE



#if __clang__
#	pragma clang diagnostic ignored "-Wunused-const-variable"
#	pragma clang diagnostic ignored "-Wswitch"
#	pragma clang diagnostic ignored "-Wunused-variable"
#   pragma clang diagnostic ignored "-Wunknown-pragmas"
#endif



#define bit( Value_ )                      ( 1 << Value_ )
#define bitfield_is_equal( Field_, Mask_ ) ( ( Mask_ & Field_ ) == Mask_ )
#define ct                                 constexpr
#define forceinline                        ZPL_ALWAYS_INLINE
#define print_nl( _)                       zpl_printf("\n")
#define scast( Type_, Value_ )			   static_cast< Type_ >( Value_ )
#define rcast( Type_, Value_ )			   reinterpret_cast< Type_ >( Value_ )
#define pcast( Type_, Value_ )             ( * (Type_*)( & Value_ ) )
#define txt( Value_ )                      ZPL_STRINGIFY_EX( Value_ )

#define do_once()      \
do                     \
{                      \
	static             \
	bool Done = false; \
	if ( Done )        \
		return;        \
	Done = true;       \
}                      \
while(0)               \

#define do_once_start  \
do                     \
{                      \
	static             \
	bool Done = false; \
	if ( Done )        \
		break;         \
	Done = true;

#define do_once_end    \
}                      \
while(0);


using Line       = char*;
using Array_Line = array( Line );


ct char const* Msg_Invalid_Value = "INVALID VALUE PROVIDED";


namespace Global
{
	extern bool ShouldShowDebug;
}

namespace Memory
{
	ct uw Initial_Reserve = megabytes(10);

	extern arena Global_Arena;
	// #define g_allocator arena_allocator( & Memory::Global_Arena)
	#define g_allocator heap()

	void setup();
	void resize( uw new_size );
	void cleanup();
}

// Had to be made to support multiple sub-arguments per "opt" argument.
b32 opts_custom_compile(opts *options, int argc, char **argv);


inline
sw log_fmt(char const *fmt, ...) 
{
	if ( Global::ShouldShowDebug == false )
		return 0;

	sw res;
	va_list va;
	
	va_start(va, fmt);
	res = zpl_printf_va(fmt, va);
	va_end(va);
	
	return res;
}

inline
void fatal(char const *fmt, ...) 
{
	local_persist thread_local 
	char buf[ZPL_PRINTF_MAXLEN] = { 0 };

	va_list va;

#if Build_Debug
	va_start(va, fmt);
	zpl_snprintf_va(buf, ZPL_PRINTF_MAXLEN, fmt, va);
	va_end(va);

	assert_crash(buf);
#else
	va_start(va, fmt);
	zpl_printf_err_va( fmt, va);
	va_end(va);

	zpl_exit(1);
#endif
}