'' intrinsic macros (RGB, BIT, ASSERT, ...)
''
'' chng: oct/2004 written [v1ctor]


#include once "fb.bi"
#include once "fbint.bi"
#include once "ast.bi"
#include once "rtl.bi"

type FB_RTL_MACROTOKEN
	type		as FB_DEFTOK_TYPE
	data		as const any ptr
end type

type FB_RTL_MACRODEF
	name		as const zstring ptr
	options		as FB_RTL_OPT
	params		as integer
	paramTb(0 to 3) as const zstring ptr
	tokenTb(0 to 11) as FB_RTL_MACROTOKEN
end type

	dim shared as FB_RTL_MACRODEF macrodata(0 to ...) = _
	{ _
		/' #define RGB(r,g,b) ((cuint(r) shl 16) or (cuint(g) shl 8) or cuint(b) or &hFF000000) '/ _
		( _
			@"RGB", FB_RTL_OPT_NONE, _
	 		3, _
	 		{ _
	 			@"R", @"G", @"B" _
	 		}, _
	 		{ _
				( FB_DEFTOK_TYPE_TEX, @"((cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") shl 16) or (cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") shl 8) or cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 2 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") or &hFF000000)" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define RGBA(r,g,b,a) ((cuint(r) shl 16) or (cuint(g) shl 8) or cuint(b) or (cuint(a) shl 24)) '/ _
		( _
			@"RGBA", FB_RTL_OPT_NONE, _
	 		4, _
	 		{ _
	 			@"R", @"G", @"B", @"A" _
	 		}, _
	 		{ _
				( FB_DEFTOK_TYPE_TEX, @"((cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") shl 16) or (cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") shl 8) or cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 2 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") or (cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 3 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") shl 24))" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define va_arg(a,t) peek( t, a ) '/ _
		( _
			@"VA_ARG", FB_RTL_OPT_NOGCC, _
	 		2, _
	 		{ _
	 			@"A", @"T" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"peek(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @"," ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define va_next(a,t) (cptr(t ptr, cptr(byte ptr, a) + (sizeof(t)+sizeof(any ptr)-1 and -sizeof(any ptr)) ) ) '/ _
		( _
			@"VA_NEXT", FB_RTL_OPT_NOGCC, _
	 		2, _
	 		{ _
	 			@"A", @"T" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"(cptr(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @" ptr, cptr(byte ptr, " ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") + (sizeof(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") + sizeof(any ptr)-1 and -sizeof(any ptr)) ) )" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define ASSERT(e) if (e) = FALSE then fb_Assert(__FILE__, __LINE__, __FUNCTION__, #e) '/ _
		( _
			@"ASSERT", FB_RTL_OPT_DBGONLY, _
	 		1, _
	 		{ _
	 			@"E" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"if (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") = 0 then fb_Assert(__FILE__, __LINE__, __FUNCTION__, " ), _
	 			( FB_DEFTOK_TYPE_PARAMSTR, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") end if" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define ASSERTWARN(e) if (e) = FALSE then fb_AssertWarn(__FILE__, __LINE__, __FUNCTION__, #e) '/ _
		( _
			@"ASSERTWARN", FB_RTL_OPT_DBGONLY, _
	 		1, _
	 		{ _
	 			@"E" _
	 		}, _
			{ _
	 			( FB_DEFTOK_TYPE_TEX, @"if (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") = 0 then fb_AssertWarn(__FILE__, __LINE__, __FUNCTION__, " ), _
	 			( FB_DEFTOK_TYPE_PARAMSTR, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") end if" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define OFFSETOF(type_,field_) cint( @cast( type_ ptr, 0 )->field_ ) '/ _
		( _
			@"OFFSETOF", FB_RTL_OPT_NONE, _
	 		2, _
	 		{ _
	 			@"T", @"F" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"cint( @cast( " ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @" ptr, 0 )->" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @" )" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define __FB_MIN_VERSION__(major, minor, patch_level) ((__FB_VER_MAJOR__ > (major)) or ((__FB_VER_MAJOR__ = (major)) and ((__FB_VER_MINOR__ > (minor)) or (__FB_VER_MINOR__ = (minor) and __FB_VER_PATCH__ >= (patch_level))))) '/ _
		( _
			@"__FB_MIN_VERSION__", FB_RTL_OPT_NONE, _
			3, _
			{ _
				@"MAJOR", @"MINOR", @"PATCH_LEVEL" _
			}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"((__FB_VER_MAJOR__ > (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")) or ((__FB_VER_MAJOR__ = (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")) and ((__FB_VER_MINOR__ > (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")) or (__FB_VER_MINOR__ = (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") and __FB_VER_PATCH__ >= (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 2 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")))))" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define LOWORD(x) (cuint(x) and &h0000FFFF) '/ _
		( _
			@"LOWORD", FB_RTL_OPT_NONE, _
	 		1, _
	 		{ _
	 			@"X" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"(cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") and &h0000FFFF)" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define HIWORD(x) (cuint(x) shr 16) '/ _
		( _
			@"HIWORD", FB_RTL_OPT_32BIT, _
	 		1, _
	 		{ _
	 			@"X" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"(cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") shr 16)" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define HIWORD(x) ((cuint(x) and &hFFFF0000u) shr 16) '/ _
		( _
			@"HIWORD", FB_RTL_OPT_64BIT, _
			1, _
			{ _
				@"X" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and &hFFFF0000u) shr 16)" ), _
				( -1 ) _
			} _
		), _
		/' #define LOBYTE(x) (cuint(x) and &h000000FF) '/ _
		( _
			@"LOBYTE", FB_RTL_OPT_NONE, _
	 		1, _
	 		{ _
	 			@"X" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"(cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") and &h000000FF)" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define HIBYTE(x) ((cuint(x) and &h0000FF00) shr 8) '/ _
		( _
			@"HIBYTE", FB_RTL_OPT_NONE, _
	 		1, _
	 		{ _
	 			@"X" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"((cuint(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") and &h0000FF00) shr 8)" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define BIT(x,y) (((x) and (cast(typeof(x), 1) shl (y))) <> 0) '/ _
		( _
			@"BIT", FB_RTL_OPT_NONE, _
	 		2, _
	 		{ _
	 			@"X", @"Y" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"(((" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") and (cast(typeof(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @"), 1) shl (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @"))) <> 0)" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define BITSET(x,y) ((x) or (cast(typeof(x), 1) shl (y))) '/ _
		( _
			@"BITSET", FB_RTL_OPT_NONE, _
	 		2, _
	 		{ _
	 			@"X", @"Y" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"((" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") or (cast(typeof(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @"), 1) shl (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")))" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' #define BITRESET(x,y) ((x) and not (cast(typeof(x), 1) shl (y))) '/ _
		( _
			@"BITRESET", FB_RTL_OPT_NONE, _
	 		2, _
	 		{ _
	 			@"X", @"Y" _
	 		}, _
	 		{ _
	 			( FB_DEFTOK_TYPE_TEX, @"((" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @") and not (cast(typeof(" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @"), 1) shl (" ), _
	 			( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
	 			( FB_DEFTOK_TYPE_TEX, @")))" ), _
	 			( -1 ) _
	 		} _
	 	), _
		/' EOL '/ _
		( _
			NULL _
		) _
	}

	'' These are the -lang qb versions of the built-in macros, using the
	'' '__' prefixes where necessary.
	dim shared as FB_RTL_MACRODEF macrodataQB(0 to ...) = _
	{ _
		/' #define RGB(r,g,b) ((cuint(r) shl 16) or (cuint(g) shl 8) or cuint(b) or &hFF000000) '/ _
		( _
			@"__RGB", FB_RTL_OPT_NONE, _
			3, _
			{ _
				@"R", @"G", @"B" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") __shl 16) or (__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") __shl 8) or __cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 2 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") or &hFF000000)" ), _
				( -1 ) _
			} _
		), _
		/' #define RGBA(r,g,b,a) ((cuint(r) shl 16) or (cuint(g) shl 8) or cuint(b) or (cuint(a) shl 24)) '/ _
		( _
			@"__RGBA", FB_RTL_OPT_NONE, _
			4, _
			{ _
				@"R", @"G", @"B", @"A" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") __shl 16) or (__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") __shl 8) or __cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 2 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") or (__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 3 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") __shl 24))" ), _
				( -1 ) _
			} _
		), _
		/' #define va_arg(a,t) peek( t, a ) '/ _
		( _
			@"__VA_ARG", FB_RTL_OPT_NOGCC, _
			2, _
			{ _
				@"A", @"T" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"peek(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @"," ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")" ), _
				( -1 ) _
			} _
		), _
		/' #define va_next(a,t) (cptr(t ptr, cptr(byte ptr, a) + (sizeof(t)+sizeof(any ptr)-1 and -sizeof(any ptr)) ) ) '/ _
		( _
			@"__VA_NEXT", FB_RTL_OPT_NOGCC, _
			2, _
			{ _
				@"A", @"T" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"(__cptr(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @" __ptr, __cptr(__byte __ptr, " ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") + (__sizeof(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") + __sizeof(any __ptr)-1 and -__sizeof(any __ptr)) ) )" ), _
				( -1 ) _
			} _
		), _
		/' #define ASSERT(e) if (e) = FALSE then fb_Assert(__FILE__, __LINE__, __FUNCTION__, #e) '/ _
		( _
			@"__ASSERT", FB_RTL_OPT_DBGONLY, _
			1, _
			{ _
				@"E" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"if (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") = 0 then fb_Assert(__FILE__, __LINE__, __FUNCTION__, " ), _
				( FB_DEFTOK_TYPE_PARAMSTR, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") end if" ), _
				( -1 ) _
			} _
		), _
		/' #define ASSERTWARN(e) if (e) = FALSE then fb_AssertWarn(__FILE__, __LINE__, __FUNCTION__, #e) '/ _
		( _
			@"__ASSERTWARN", FB_RTL_OPT_DBGONLY, _
			1, _
			{ _
				@"E" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"if (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") = 0 then fb_AssertWarn(__FILE__, __LINE__, __FUNCTION__, " ), _
				( FB_DEFTOK_TYPE_PARAMSTR, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") end if" ), _
				( -1 ) _
			} _
		), _
		/' #define OFFSETOF(type_,field_) clng( @cast( type_ ptr, 0 )->field_ )
		   32bit -lang qb: not using cint() because that's 16 bit (offsets bigger
		   than that would be truncated, and it's incompatible to 32 bit pointers) '/ _
		( _
			@"__OFFSETOF", FB_RTL_OPT_32BIT, _
			2, _
			{ _
				@"T", @"F" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"clng( @__cast( " ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @" __ptr, 0 )->" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @" )" ), _
				( -1 ) _
			} _
		), _
		/' #define OFFSETOF(type_,field_) __clngint( @cast( type_ ptr, 0 )->field_ )
		   64bit -lang qb: not using cint() because that's 16 bit (offsets bigger
		   than that would be truncated, and it's incompatible to 64 bit pointers) '/ _
		( _
			@"__OFFSETOF", FB_RTL_OPT_64BIT, _
			2, _
			{ _
				@"T", @"F" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"__clngint( @__cast( " ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @" __ptr, 0 )->" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @" )" ), _
				( -1 ) _
			} _
		), _
		/' #define __FB_MIN_VERSION__(major, minor, patch_level) ((__FB_VER_MAJOR__ > (major)) or ((__FB_VER_MAJOR__ = (major)) and ((__FB_VER_MINOR__ > (minor)) or (__FB_VER_MINOR__ = (minor) and __FB_VER_PATCH__ >= (patch_level))))) '/ _
		( _
			@"__FB_MIN_VERSION__", FB_RTL_OPT_NONE, _
			3, _
			{ _
				@"MAJOR", @"MINOR", @"PATCH_LEVEL" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((__FB_VER_MAJOR__ > (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")) or ((__FB_VER_MAJOR__ = (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")) and ((__FB_VER_MINOR__ > (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")) or (__FB_VER_MINOR__ = (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and __FB_VER_PATCH__ >= (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 2 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")))))" ), _
				( -1 ) _
			} _
		), _
		/' #define LOWORD(x) (cuint(x) and &h0000FFFF) '/ _
		( _
			@"__LOWORD", FB_RTL_OPT_NONE, _
			1, _
			{ _
				@"X" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"(__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and &h0000FFFF)" ), _
				( -1 ) _
			} _
		), _
		/' #define HIWORD(x) (cuint(x) shr 16) '/ _
		( _
			@"__HIWORD", FB_RTL_OPT_NONE, _
			1, _
			{ _
				@"X" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"(__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") __shr 16)" ), _
				( -1 ) _
			} _
		), _
		/' #define LOBYTE(x) (cuint(x) and &h000000FF) '/ _
		( _
			@"__LOBYTE", FB_RTL_OPT_NONE, _
			1, _
			{ _
				@"X" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"(__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and &h000000FF)" ), _
				( -1 ) _
			} _
		), _
		/' #define HIBYTE(x) ((cuint(x) and &h0000FF00) shr 8) '/ _
		( _
			@"__HIBYTE", FB_RTL_OPT_NONE, _
			1, _
			{ _
				@"X" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((__cuint(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and &h0000FF00) __shr 8)" ), _
				( -1 ) _
			} _
		), _
		/' #define BIT(x,y) (((x) and (cast(typeof(x), 1) shl (y))) <> 0) '/ _
		( _
			@"__BIT", FB_RTL_OPT_NONE, _
			2, _
			{ _
				@"X", @"Y" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"(((" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and (__cast(__typeof(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @"), 1) __shl (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @"))) <> 0)" ), _
				( -1 ) _
			} _
		), _
		/' #define BITSET(x,y) ((x) or (cast(typeof(x), 1) shl (y))) '/ _
		( _
			@"__BITSET", FB_RTL_OPT_NONE, _
			2, _
			{ _
				@"X", @"Y" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") or (__cast(__typeof(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @"), 1) __shl (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")))" ), _
				( -1 ) _
			} _
		), _
		/' #define BITRESET(x,y) ((x) and not (cast(typeof(x), 1) shl (y))) '/ _
		( _
			@"__BITRESET", FB_RTL_OPT_NONE, _
			2, _
			{ _
				@"X", @"Y" _
			}, _
			{ _
				( FB_DEFTOK_TYPE_TEX, @"((" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @") and not (__cast(__typeof(" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 0 ) ), _
				( FB_DEFTOK_TYPE_TEX, @"), 1) __shl (" ), _
				( FB_DEFTOK_TYPE_PARAM, cast( any ptr, 1 ) ), _
				( FB_DEFTOK_TYPE_TEX, @")))" ), _
				( -1 ) _
			} _
		), _
		/' EOL '/ _
		( _
			NULL _
		) _
	}

private sub hAddMacro( byval macdef as FB_RTL_MACRODEF ptr )
	dim as integer addbody = TRUE
	var flags = FB_DEFINE_FLAGS_NONE

	'' for each parameter..
	dim as FB_DEFPARAM ptr paramhead, lastparam
	for i as integer = 0 to macdef->params-1
		lastparam = symbAddDefineParam( lastparam, macdef->paramTb(i) )
		if( paramhead = NULL ) then
			paramhead = lastparam
		end if
	next

	'' only if debugging?
	if( (macdef->options and FB_RTL_OPT_DBGONLY) <> 0 ) then
		if( env.clopt.debug = FALSE ) then
			addbody = FALSE
		end if
	end if

	'' not supported by the C backend?
	if( (macdef->options and FB_RTL_OPT_NOGCC) <> 0 ) then
		if( env.clopt.backend = FB_BACKEND_GCC ) then
			addbody = FALSE
			flags or= FB_DEFINE_FLAGS_NOGCC
		end if
	end if

	dim as FB_DEFTOK ptr tokhead

	if( addbody ) then
		dim as FB_DEFTOK ptr tok

		var ptk = @macdef->tokenTb(0)
		while( ptk->type <> -1 )
			tok = symbAddDefineTok( tok, ptk->type )
			if( tokhead = NULL ) then
				tokhead = tok
			end if

			select case ptk->type
			case FB_DEFTOK_TYPE_PARAM, FB_DEFTOK_TYPE_PARAMSTR
				symbGetDefTokParamNum( tok ) = cint( ptk->data )

			case FB_DEFTOK_TYPE_TEX
				ZstrAssign( @symbGetDefTokText( tok ), cast( zstring ptr, ptk->data ) )
			end select

			'' next
			ptk += 1
		wend
	end if

	symbAddDefineMacro( macdef->name, tokhead, macdef->params, paramhead, flags )
end sub

private sub hAddMacros( byval macdef as FB_RTL_MACRODEF ptr )
	while( macdef->name )
		var add_macro = TRUE

		if( macdef->options and FB_RTL_OPT_32BIT ) then
			add_macro and= not fbIs64bit( )
		elseif( macdef->options and FB_RTL_OPT_64BIT ) then
			add_macro and= fbIs64bit( )
		end if

		if( add_macro ) then
			hAddMacro( macdef )
		end if

		macdef += 1
	wend
end sub

sub rtlMacroModInit( )
	if( fbLangIsSet( FB_LANG_QB ) ) then
		hAddMacros( @macrodataQB(0) )
	else
		hAddMacros( @macrodata(0) )
	end if
end sub

sub rtlMacroModEnd( )
	'' macros will be deleted when symbEnd is called
end sub
