macros for ato* with cast

Signed-off-by: Mattias Andrée <maandree@operamail.com>

1 files changed, 159 insertions, 0 deletions

diff --git a/src/libmdsserver/macro-bits.h b/src/libmdsserver/macro-bits.h
new file mode 100644
index 0000000..f1feddd
--- /dev/null
+++ b/src/libmdsserver/macro-bits.h
@@ -0,0 +1,159 @@
+/**
+ * mds — A micro-display server
+ * Copyright © 2014  Mattias Andrée (maandree@member.fsf.org)
+ * 
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ * 
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ * 
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+#ifndef MDS_LIBMDSSERVER_MACRO_BITS_H
+#define MDS_LIBMDSSERVER_MACRO_BITS_H
+
+
+#include <stdint.h>
+#include <stddef.h>
+
+
+#ifndef __WORDSIZE
+# if defined(__x86_64__) && !defined(__ILP32__)
+#  define __WORDSIZE  64
+# else
+#  define __WORDSIZE  32
+# endif
+#endif
+
+
+/**
+ * Convert the beginning of a `const char*` to a `size_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atoz(str)    ((size_t)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `ssize_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atosz(str)   ((ssize_t)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to a `short int`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atoh(str)    ((short)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `unsigned short int`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atouh(str)   ((unsigned short)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `unsigned int`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atou(str)    ((unsigned int)atoi(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `unsigned long int`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atoul(str)   ((unsigned long)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `unsigned long long int`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+#define atoull(str)  ((unsigned long long)atoll(str))
+
+#if __WORDSIZE == 64
+/**
+ * Convert the beginning of a `const char*` to an `int32_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define ato32(str)   ((int32_t)atoi(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `uint32_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define atou32(str)  ((uint32_t)atou(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `int64_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define ato64(str)   ((int64_t)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `uint64_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define atou64(str)  ((uint64_t)atoul(str))
+#else
+/**
+ * Convert the beginning of a `const char*` to an `int32_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define ato32(str)   ((int32_t)atol(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `uint32_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define atou32(str)  ((uint32_t)atoul(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `int64_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define ato64(str)   ((int64_t)atoll(str))
+
+/**
+ * Convert the beginning of a `const char*` to an `uint64_t`
+ * 
+ * @param   str:const char*  The string that begins with an integer
+ * @return                   The integer at the beginning of the string
+ */
+# define atou64(str)  ((uint64_t)atoull(str))
+#endif
+
+
+#endif
+