Add hsc2hs alignof macro

roelvandijk · roelvandijk · commit 884857725b02 · 2017-06-16T15:28:28.000+02:00
diff --git a/opencv/include/hsc_macros.hpp b/opencv/include/hsc_macros.hpp
@@ -9,6 +9,7 @@ This files defines some hsc2hs macros. For documentation on how to construct cus
 #include <bindings.dsl.h>
 
 #define bc_sizeof_varid(name) {printf("c'sizeof_");bc_word(name);}; \
+#define bc_alignof_varid(name) {printf("c'alignof_");bc_word(name);}; \
 
 /*
 The #sizeof macro outputs a Haskell constant with the size of the C/C++ type in bytes.
@@ -27,4 +28,23 @@ Results in the following Haskell code:
     bc_sizeof_varid(# name);printf(" = %lu\n", sizeof(name)); \
   }; \
 
+/*
+The #alignof macro outputs a Haskell constant with the alignment off the C/C++ type in bytes.
+
+For example the following:
+
+  #alignof Point2i
+
+Results in the following Haskell code:
+
+  c'alignof_Point2i :: Int
+  c'alignof_Point2i = 4
+
+The specific alignment that is calculated is platform dependent.
+*/
+#define hsc_alignof(name) \
+  { bc_alignof_varid(# name);printf(" :: Int\n"); \
+    bc_alignof_varid(# name);printf(" = %lu\n", alignof(name)); \
+  }; \
+
 #endif /* __HSC_MACROS_H__ */
