updated libslime.h

2019-10-22 21:48:23 +02:00
parent 0a7f05a20d
commit 6260359a83
4 changed files with 213 additions and 6 deletions
@@ -0,0 +1,82 @@
+/**
+   Usage of the create_error_macros:
+*/
+#define __create_error(keyword, ...)                            \
+    create_error(                                               \
+        __FUNCTION__, __FILE__, __LINE__,                       \
+        Memory::get_or_create_lisp_object_keyword(keyword),     \
+        __VA_ARGS__)
+
+#define create_out_of_memory_error(...)                 \
+    __create_error("out-of-memory", __VA_ARGS__)
+
+#define create_generic_error(...)               \
+    __create_error("generic", __VA_ARGS__)
+
+#define create_not_yet_implemented_error()                                              \
+    __create_error("not-yet-implemented", "This feature has not yet been implemented.")
+
+#define create_parsing_error(...)                       \
+    __create_error("parsing-error", __VA_ARGS__)
+
+#define create_symbol_undefined_error(...)              \
+    __create_error("symbol-undefined", __VA_ARGS__)
+
+#define create_type_missmatch_error(expected, actual)           \
+    __create_error("type-missmatch",                            \
+                   "Type missmatch: expected %s, got %s",       \
+                   expected, actual)
+
+#define create_wrong_number_of_arguments_error(expected, actual)        \
+    __create_error("wrong-number-of-arguments",                         \
+                   "Wrong number of arguments: expected %d, got %d",    \
+                   expected, actual)
+
+#define create_too_many_arguments_error(expected, actual)                               \
+    __create_error("wrong-number-of-arguments",                                         \
+                   "Wrong number of arguments: expected less or equal to %d, got %d",   \
+                   expected, actual)
+
+#define create_too_few_arguments_error(expected, actual)                                        \
+    __create_error("wrong-number-of-arguments",                                                 \
+                   "Wrong number of arguments: expected greater or equal to %d, got %d",        \
+                   expected, actual)
+
+
+#define assert_arguments_length(expected, actual)                       \
+    do {                                                                \
+        if (expected != actual) {                                       \
+            create_wrong_number_of_arguments_error(expected, actual);   \
+        }                                                               \
+    } while(0)
+
+#define assert_arguments_length_less_equal(expected, actual)    \
+    do {                                                        \
+        if (expected < actual) {                                \
+            create_too_many_arguments_error(expected, actual);  \
+        }                                                       \
+    } while(0)
+
+#define assert_arguments_length_greater_equal(expected, actual) \
+    do {                                                        \
+        if (expected > actual) {                                \
+            create_too_few_arguments_error(expected, actual);   \
+        }                                                       \
+    } while(0)
+
+
+#define assert_type(_node, _type)                                       \
+    do {                                                                \
+        if (Memory::get_type(_node) != _type) {                         \
+            create_type_missmatch_error(                                \
+                Lisp_Object_Type_to_string(_type),                      \
+                Lisp_Object_Type_to_string(Memory::get_type(_node)));   \
+        }                                                               \
+    } while(0)
+
+#define assert(condition)                               \
+    do {                                                \
+        if (!(condition)) {                             \
+            create_generic_error("Assertion-error.");   \
+        }                                               \
+    } while(0)