Activate swap and mount root fs in raptor
parent
6d64c460c3
commit
1143f52f25
|
@ -26,6 +26,14 @@ IN: raptor
|
|||
configure-route
|
||||
] networking-hook set-global
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
! Filesystems
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
"/dev/hda1" root-device set-global
|
||||
|
||||
{ "/dev/hda5" } swap-devices set-global
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
! boot-hook
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
@ -43,7 +51,12 @@ IN: raptor
|
|||
"mountdevsubfs" start-service
|
||||
"module-init-tools" start-service
|
||||
"procps.sh" start-service
|
||||
"checkroot.sh" start-service
|
||||
|
||||
! "checkroot.sh" start-service
|
||||
|
||||
activate-swap
|
||||
mount-root
|
||||
|
||||
"mtab" start-service
|
||||
"checkfs.sh" start-service
|
||||
"mountall.sh" start-service
|
||||
|
|
|
@ -33,7 +33,7 @@ SYMBOL: networking-hook
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: getty ( tty -- ) `{ "/sbin/getty" "38400" , } fork-exec-wait ;
|
||||
: getty ( tty -- ) `{ "/sbin/getty" "38400" , } fork-exec-args-wait ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
|
@ -46,6 +46,17 @@ USING: io io.files io.streams.lines io.streams.plain io.streams.duplex
|
|||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
USING: unix.linux.swap unix.linux.fs ;
|
||||
|
||||
SYMBOL: root-device
|
||||
SYMBOL: swap-devices
|
||||
|
||||
: activate-swap ( -- ) swap-devices get [ 0 swapon drop ] each ;
|
||||
|
||||
: mount-root ( -- ) root-device get "/" "ext3" MS_REMOUNT f mount drop ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
: start-networking ( -- ) networking-hook get call ;
|
||||
|
||||
: boot ( -- ) boot-hook get call ;
|
||||
|
|
Loading…
Reference in New Issue