2 * UCW Library -- Basic Extended Types
4 * (c) 2014 Martin Mares <mj@ucw.cz>
5 * (c) 2014 Robert Kessl <robert.kessl@economia.cz>
7 * This software may be freely distributed and used according to the terms
8 * of the GNU Lesser General Public License.
12 #include <ucw/mempool.h>
13 #include <ucw/strtonum.h>
14 #include <ucw/xtypes.h>
19 #define XTYPE_NUM_FORMAT(_type, _fmt, _typename) static const char *xt_##_typename##_format(void *src, u32 fmt UNUSED, struct mempool *pool) \
21 return mp_printf(pool, _fmt, *(_type *)src);\
24 #define XTYPE_NUM_PARSE(_typename) static const char *xt_##_typename##_parse(const char *str, void *dest, struct mempool *pool UNUSED)\
26 return str_to_##_typename(dest, str, NULL, 10 | STN_WHOLE | STN_MINUS | STN_PLUS | STN_HEX | STN_BIN | STN_OCT);\
29 #define XTYPE_NUM_STRUCT(_type, _typename) const struct xtype xt_##_typename = {\
30 .size = sizeof(_type),\
32 .parse = xt_##_typename##_parse,\
33 .format = xt_##_typename##_format,\
36 #define XTYPE_NUM_DEF(_type, _fmt, _typename) XTYPE_NUM_FORMAT(_type, _fmt, _typename) \
37 XTYPE_NUM_PARSE(_typename)\
38 XTYPE_NUM_STRUCT(_type, _typename)
40 XTYPE_NUM_DEF(int, "%d", int)
41 XTYPE_NUM_DEF(s64, "%" PRId64, s64)
42 XTYPE_NUM_DEF(intmax_t, "%jd", intmax)
43 XTYPE_NUM_DEF(uint, "%u", uint)
44 XTYPE_NUM_DEF(u64, "%" PRIu64, u64)
45 XTYPE_NUM_DEF(uintmax_t, "%ju", uintmax)
49 static const char *xt_double_format(void *src, u32 fmt, struct mempool *pool)
51 if(fmt & XTYPE_FMT_DBL_PREC) {
52 uint prec = fmt & ~XTYPE_FMT_DBL_PREC;
53 return mp_printf(pool, "%.*lf", prec, *(double *)src);
58 return mp_printf(pool, "%.15lg", *(double *)src);
59 case XTYPE_FMT_PRETTY:
60 return mp_printf(pool, "%.2lf", *(double *)src);
61 case XTYPE_FMT_DEFAULT:
63 return mp_printf(pool, "%.6lg", *(double *)src);
67 static const char *xt_double_parse(const char *str, void *dest, struct mempool *pool UNUSED)
71 double result = strtod(str, &endptr);
72 if(*endptr != 0 || endptr == str) return "Could not parse double.";
73 if(errno == ERANGE) return "Could not parse double.";
75 *((double *) dest) = result;
80 XTYPE_NUM_STRUCT(double, double)
84 static const char *xt_bool_format(void *src, u32 fmt UNUSED, struct mempool *pool)
87 case XTYPE_FMT_PRETTY:
88 return mp_printf(pool, "%s", *((bool *)src) ? "true" : "false");
89 case XTYPE_FMT_DEFAULT:
91 return mp_printf(pool, "%s", *((bool *)src) ? "1" : "0");
93 die("Unsupported output type.");
97 static const char *xt_bool_parse(const char *str, void *dest, struct mempool *pool UNUSED)
99 if(!str) return "Cannot parse bool: string is NULL.";
103 *((bool *)dest) = false;
107 *((bool *)dest) = true;
112 if(strcasecmp(str, "false") == 0) {
113 *((bool *)dest) = false;
117 if(strcasecmp(str, "true") == 0) {
118 *((bool *)dest) = true;
122 return "Could not parse bool.";
125 XTYPE_NUM_STRUCT(bool, bool)
129 static const char *xt_str_format(void *src, u32 fmt UNUSED, struct mempool *pool)
131 return mp_strdup(pool, *((const char **) src));
134 static const char *xt_str_parse(const char *str, void *dest, struct mempool *pool UNUSED)
136 *((const char **) dest) = str;
140 XTYPE_NUM_STRUCT(char *, str)