initialize logger on first call, add guard against uninitialized src ptr in set_var

Author: FlorisBuwaldaDeltares

src/engines_gpl/dsle/packages/src/dimr_bmi.c

@@ -122,6 +122,11 @@ int set_var(const char *key, void *src_ptr) {
   char *vartype = NULL;
   char *lock_id = NULL;
 
+  if (src_ptr == NULL) {
+    log_debug("set_var('%s') called with NULL src_ptr, ignoring.\n", key);
+    return DIMR_BMI_OK;
+  }
+
   log_info("%s( \"%s\", *src_ptr = %g) called.\n", __func__, key, *(double *)src_ptr);
 
   copy_key(key, keystr);

src/engines_gpl/dsle/packages/src/log/log.c

@@ -16,6 +16,9 @@ void log_init(char *name, FILE *fp) {
 void log_set_level(log_level_t lvl) { logger.level = lvl; }
 
 static void vlog(log_level_t lvl, char *fmt, va_list ap) {
+  if (logger.name == NULL) {
+    log_init("dsle", stderr);
+  }
   if (lvl >= logger.level && lvl <= logERROR) {
     FILE *stream = logger.fp ? logger.fp : stderr;
     fprintf(stream, "[%s] %s: ", level_strings[lvl], logger.name);