The beginnings of a cron for raptor

extra/raptor/config.factor

@@ -3,6 +3,8 @@ USING: namespaces unix.linux.if unix.linux.ifreq unix.linux.route ;
 
 IN: raptor
 
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Networking
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : configure-lo ( -- )
@@ -41,7 +43,9 @@ IN: raptor
   "checkfs.sh" 			    start-service
   "mountall.sh"			    start-service
 
-				    start-networking
+ 				    start-networking
+!   "loopback" start-service
+!   "networking" start-service
 
   "hwclock.sh"			    start-service
   "displayconfig-hwprobe.py"	    start-service
@@ -49,7 +53,6 @@ IN: raptor
   "x11-common"			    start-service
   "bootmisc.sh"			    start-service
   "urandom"			    start-service
-  "console-screen.sh"		    start-service
 
   ! rc2.d
 
@@ -67,24 +70,20 @@ IN: raptor
   "postfix"			    start-service
   "powernowd"			    start-service
   "ntp-server"			    start-service
-  "anacron"			    start-service
-  "atd"				    start-service
-  "cron"			    start-service
   "binfmt-support"		    start-service
   "acpi-support"		    start-service
   "rc.local"			    start-service
   "rmnologin"			    start-service
 
+  				    schedule-cron-jobs
   				    start-listeners
 				    start-gettys
+				    
 ] boot-hook set-global
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 [
-  "anacron"                         stop-service
-  "atd" 			    stop-service
-  "cron" 			    stop-service
   "acpi-support" 		    stop-service
   "apmd" 			    stop-service
   "dbus" 			    stop-service
@@ -112,9 +111,6 @@ IN: raptor
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 [
-  "anacron"                         stop-service
-  "atd" 			    stop-service
-  "cron" 			    stop-service
   "acpi-support" 		    stop-service
   "apmd" 			    stop-service
   "dbus" 			    stop-service

extra/raptor/cron/cron.factor

@@ -0,0 +1,48 @@
+
+USING: kernel threads sequences calendar combinators.cleave combinators.lib ;
+
+IN: raptor.cron
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+TUPLE: when minute hour day-of-month month day-of-week ;
+
+C: <when> when
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: slot-match? ( now-slot when-slot -- ? ) dup f = [ 2drop t ] [ member? ] if ;
+
+: minute-match? ( now when -- ? )
+  [ timestamp-minute ] [ when-minute ] bi* slot-match? ;
+
+: hour-match? ( now when -- ? )
+  [ timestamp-hour ] [ when-hour ] bi* slot-match? ;
+
+: day-of-month-match? ( now when -- ? )
+  [ timestamp-day ] [ when-day-of-month ] bi* slot-match? ;
+
+: month-match? ( now when -- ? )
+  [ timestamp-month ] [ when-month ] bi* slot-match? ;
+
+: day-of-week-match? ( now when -- ? )
+  [ day-of-week ] [ when-day-of-week ] bi* slot-match? ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: when=now? ( when -- ? )
+  now swap
+  { [ minute-match? ]
+    [ hour-match? ]
+    [ day-of-month-match? ]
+    [ month-match? ]
+    [ day-of-week-match? ] }
+  <--&& ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: recurring-job ( when quot -- )
+  [ swap when=now? [ call ] [ drop ] if 60000 sleep ] [ recurring-job ] 2bi ;
+
+: schedule ( when quot -- ) [ recurring-job ] curry curry in-thread ;
+

extra/raptor/cronjobs.factor

@@ -0,0 +1,47 @@
+
+USING: kernel threads arrays sequences combinators.cleave raptor raptor.cron ;
+
+IN: raptor
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: fork-exec-args-wait ( args -- ) [ first ] [ ] bi fork-exec-wait ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: cron-hourly ( -- ) ;
+
+: cron-daily ( -- )
+  { "/etc/cron.daily/apt"
+    "/etc/cron.daily/aptitude"
+    "/etc/cron.daily/bsdmainutils"
+    "/etc/cron.daily/find.notslocate"
+    "/etc/cron.daily/logrotate"
+    "/etc/cron.daily/man-db"
+    "/etc/cron.daily/ntp-server"
+    "/etc/cron.daily/slocate"
+    "/etc/cron.daily/standard"
+    "/etc/cron.daily/sysklogd"
+    "/etc/cron.daily/tetex-bin" }
+  [ 1array [ fork-exec-args-wait ] in-thread drop ] each ;
+    
+: cron-weekly ( -- )
+  { "/etc/cron.weekly/cvs"
+    "/etc/cron.weekly/man-db"
+    "/etc/cron.weekly/ntp-server"
+    "/etc/cron.weekly/popularity-contest"
+    "/etc/cron.weekly/sysklogd" }
+  [ 1array [ fork-exec-args-wait ] in-thread drop ] each ;
+
+: cron-monthly ( -- )
+  { "/etc/cron.monthly/scrollkeeper"
+    "/etc/cron.monthly/standard" }
+  [ 1array [ fork-exec-args-wait ] in-thread drop ] each ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: schedule-cron-jobs ( -- )
+  { 17 } f f f f         <when> [ cron-hourly  ] schedule
+  { 25 } { 6 } f f f     <when> [ cron-daily   ] schedule
+  { 47 } { 6 } f f { 7 } <when> [ cron-weekly  ] schedule
+  { 52 } { 6 } { 1 } f f <when> [ cron-monthly ] schedule ;

extra/raptor/raptor.factor

@@ -10,7 +10,9 @@ SYMBOL: reboot-hook
 SYMBOL: shutdown-hook
 SYMBOL: networking-hook
 
-: reload-raptor-config ( -- ) "/etc/raptor/config.factor" run-file ;
+: reload-raptor-config ( -- )
+  "/etc/raptor/config.factor" run-file
+  "/etc/raptor/cronjobs.factor" run-file ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!