Megatest

Diff
Login

Differences From Artifact [2fee430ba1]:

To Artifact [9f89c1cf57]:


1927
1928
1929
1930
1931
1932
1933


1934
1935
1936
1937
1938
1939
1940







1941
1942
1943
1944
1945
1946
1947
1927
1928
1929
1930
1931
1932
1933
1934
1935







1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949







+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+







		     ))
	       (set! before moment))
	     (sort (hash-table-keys all-times) <))
	    is-in)))))

(define (common:extended-cron  cron-str now-seconds-in last-done)
  (let ((expanded-cron (common:cron-expand cron-str)))
    (if (string? expanded-cron)
	expanded-cron
    (let loop ((hed (car expanded-cron))
	       (tal (cdr expanded-cron)))
      (if (cron-event hed now-seconds-in last-done)
	  #t
	  (if (null? tal)
	      #f
	      (loop (car tal)(cdr tal)))))))
	(let loop ((hed (car expanded-cron))
		   (tal (cdr expanded-cron)))
	  (if (cron-event hed now-seconds-in last-done)
	      #t
	      (if (null? tal)
		  #f
		  (loop (car tal)(cdr tal))))))))

;;======================================================================
;; C O L O R S
;;======================================================================
      
(define (common:name->iup-color name)
  (case (string->symbol (string-downcase name))