steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

raptor updates

release
Eduardo Cavazos 2007-11-25 13:37:27 -06:00
parent 286e261fb6
commit e167a6b9d5
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/raptor/config.factor
View File

@ -44,7 +44,10 @@ IN: raptor
! rcS.d ! rcS.d
"mountvirtfs" start-service "mountvirtfs" start-service
"hostname.sh" start-service
! "hostname.sh" start-service
"narodnik" set-hostname
"keymap.sh" start-service "keymap.sh" start-service
"linux-restricted-modules-common" start-service "linux-restricted-modules-common" start-service
"udev" start-service "udev" start-service

2
extra/raptor/cronjobs.factor
View File

@ -6,8 +6,6 @@ IN: raptor
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: fork-exec-args-wait ( args -- ) [ first ] [ ] bi fork-exec-wait ;
: run-script ( path -- ) 1array [ fork-exec-args-wait ] curry in-thread ; : run-script ( path -- ) 1array [ fork-exec-args-wait ] curry in-thread ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

6
extra/raptor/raptor.factor
View File

@ -22,6 +22,8 @@ SYMBOL: networking-hook
: fork-exec-wait ( pathname args -- ) : fork-exec-wait ( pathname args -- )
fork dup 0 = [ drop exec drop ] [ 2nip wait-for-pid drop ] if ; fork dup 0 = [ drop exec drop ] [ 2nip wait-for-pid drop ] if ;
: fork-exec-args-wait ( args -- ) [ first ] [ ] bi fork-exec-wait ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: forever ( quot -- ) [ call ] [ forever ] bi ; : forever ( quot -- ) [ call ] [ forever ] bi ;
@ -59,6 +61,10 @@ SYMBOL: swap-devices
: start-networking ( -- ) networking-hook get call ; : start-networking ( -- ) networking-hook get call ;
: set-hostname ( name -- ) `{ "/bin/hostname" , } fork-exec-args-wait ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: boot ( -- ) boot-hook get call ; : boot ( -- ) boot-hook get call ;
: reboot ( -- ) reboot-hook get call ; : reboot ( -- ) reboot-hook get call ;
: shutdown ( -- ) shutdown-hook get call ; : shutdown ( -- ) shutdown-hook get call ;