X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Ftypes%2Fimpl_val.h;h=0e5231834de4c7efff886e88961a87bf20b16768;hp=69c31b65fcf54bd18635bb0933b88d52b98bc99a;hb=b1c7c64ca1d1d9dc79a59c0f612bd07e7a997a60;hpb=6ec1a060415f860bc3eb4c74fbce1c43f5aa7e55

diff --git a/src/types/impl_val.h b/src/types/impl_val.h
index 69c31b6..0e52318 100644
--- a/src/types/impl_val.h
+++ b/src/types/impl_val.h
@@ -64,4 +64,74 @@ typedef union impl_val {
 #endif
 } impl_val;
 
+#ifndef linux
+#	define isinfl isinf
+#	define isnanl isnan
+#endif
+#if HAVE_LONG_DOUBLE
+#	define CASE_IMPLVAL_LD_PRINTF(fun, to, ival, with_suffix) \
+	case PSI_T_LONG_DOUBLE: \
+		if (isinfl(ival.ldval)) { \
+			fun(to, "\\INF"); \
+		} else if (isnanl(ival.ldval)) { \
+			fun(to, "\\NAN"); \
+		} else { \
+			fun(to, "%" PRIldval "%s", ival.ldval, (with_suffix) ? "L" : ""); \
+		} \
+		break;
+#else
+#	define CASE_IMPLVAL_LD_PRINTF(fun, to, ival, with_suffix)
+#endif
+
+#define CASE_IMPLVAL_FLOAT_PRINTF(fun, to, ival, with_suffix) \
+	CASE_IMPLVAL_LD_PRINTF(fun, to, ival, with_suffix); \
+	case PSI_T_FLOAT: \
+		if (isinf(ival.dval)) { \
+			fun(to, "\\INF"); \
+		} else if (isnan(ival.dval)) { \
+			fun(to, "\\NAN"); \
+		} else { \
+			fun(to, "%" PRIfval "%s", ival.dval, (with_suffix) ? "F" : ""); \
+		} \
+		break; \
+	case PSI_T_DOUBLE: \
+		if (isinf(ival.dval)) { \
+			fun(to, "\\INF"); \
+		} else if (isnan(ival.dval)) { \
+			fun(to, "\\NAN"); \
+		} else { \
+			fun(to, "%" PRIdval, ival.dval); \
+		} \
+		break
+
+#define CASE_IMPLVAL_INT_PRINTF(fun, to, ival, with_suffix) \
+	case PSI_T_INT8: \
+		fun(to, "%" PRId8, ival.i8); \
+		break; \
+	case PSI_T_UINT8: \
+		fun(to, "%" PRIu8, ival.u8); \
+		break; \
+	case PSI_T_INT16: \
+		fun(to, "%" PRId16, ival.i16); \
+		break; \
+	case PSI_T_UINT16: \
+		fun(to, "%" PRIu16, ival.u16); \
+		break; \
+	case PSI_T_INT32: \
+		fun(to, "%" PRId32, ival.i32); \
+		break; \
+	case PSI_T_UINT32: \
+		fun(to, "%" PRIu32 "%s", ival.u32, (with_suffix) ? "U" : ""); \
+		break; \
+	case PSI_T_INT64: \
+		fun(to, "%" PRId64 "%s", ival.i64, (with_suffix) ? "L" : ""); \
+		break; \
+	case PSI_T_UINT64: \
+		fun(to, "%" PRIu64 "%s", ival.u64, (with_suffix) ? "UL" : ""); \
+		break
+
+#define CASE_IMPLVAL_NUM_PRINTF(fun, to, ival, with_suffix) \
+	CASE_IMPLVAL_INT_PRINTF(fun, to, ival, with_suffix); \
+	CASE_IMPLVAL_FLOAT_PRINTF(fun, to, ival, with_suffix)
+
 #endif