rts-loader 0.0.0.1 → 0.0.0.2

raw patch · 3 files changed

+40/−1 lines, 3 files

Files

• ChangeLog +2/−0
• log.h +36/−0
• rts-loader.cabal +2/−1

@@ -1,5 +1,7 @@ 2016-06-24  Daniel Gröber  <dxld@darkboxed.org> +        * Release version 0.0.0.2+         * Release version 0.0.0.1          * Release version 0.0.0.0

@@ -0,0 +1,36 @@+#include <stdio.h>+#include <errno.h>+#include <string.h>++#define LOG_INFO "<I>"+#define LOG_ERR "<E>"++#define log(fmt,...) fprintf(stderr, "[%s] " fmt "\n", __func__, ##__VA_ARGS__)++#define log_nop(...)++#ifdef NDEBUG+#define log_debug log+#else+#define log_debug log_nop+#endif++#define log_errno(go, fmt, ...) ({                                  \+            char err[255];                                          \+            strerror_r(errno, err, sizeof(err)-1);                  \+                                                                    \+            log_error(go, fmt ": %s" , ##__VA_ARGS__, err);         \+        })++#define log_error(go, fmt, ...) ({                  \+            log(LOG_ERR " " fmt, ##__VA_ARGS__);    \+            go;                                     \+        })                                          \+++#define log_gai(go, rv, fmt, ...) ({                             \+            if(rv == EAI_SYSTEM)                                 \+                log_errno(go, "[gai] " fmt, ##__VA_ARGS__);      \+              else                                               \+                log(LOG_ERR fmt "%s\n", gai_strerror(rv), ##__VA_ARGS__); \+        })

@@ -1,5 +1,5 @@ name:                rts-loader-version:             0.0.0.1+version:             0.0.0.2 synopsis:            Dynamically load Haskell libraries description:  Load and execute functions from Haskell dynamic libraries without being@@ -19,6 +19,7 @@ build-type:          Custom extra-source-files:  ChangeLog, README.md tested-with:         GHC == 7.10.3, GHC == 8.0.1+extra-source-files:  log.h  library   exposed-modules:   System.Loader.RTS