More hl fixes from deeply integrated testing.

src/libmtime_hl.f90

@@ -337,6 +337,7 @@ MODULE mtime_hl
 
     PROCEDURE :: getName                   => t_event_getName
     PROCEDURE :: nextEvent                 => t_event_next_event
+    PROCEDURE :: isActive                  => t_event_is_active
 
   END TYPE t_event
 

src/mtime_t_event.inc

@@ -108,6 +108,19 @@
     res = this%triggeredPreviousEventDateTime
   END FUNCTION t_event_getPrevOccurrenceDatetime
 
+
+  FUNCTION t_event_is_active(this, my_datetime, plus_slack, minus_slack) result(ret)
+    CLASS(t_event)              :: this
+    TYPE(t_datetime)            :: my_datetime
+    TYPE(t_timedelta), OPTIONAL :: plus_slack
+    TYPE(t_timedelta), OPTIONAL :: minus_slack
+    logical(c_bool) :: ret
+
+    !FIXME
+    ret = isCurrentEventActive(this, my_datetime%dt, plus_slack%td, minus_slack%td)
+
+  END FUNCTION t_event_is_active
+
   ! ================================================================================
   ! event group section:
   ! ================================================================================

src/mtime_t_juliandelta.inc

@@ -13,7 +13,7 @@
     TYPE(juliandelta), pointer :: jd_tmp
 
     c_pointer = my_newjuliandelta(sign, day, ms)
-    print *,sign, c_pointer
+    !print *,sign, c_pointer
     if (.not. c_associated(c_pointer)) then
        call handle_errno(1 * 100 + 1, __FILE__, __LINE__)
        t_juliandelta_assign_raw%jd%sign = 'L'