|
|
|
abstract
[This is the boot script for the FullPLiant operating syst
function boot
plugin first
console "This computer is "+computer_fullname eol
if medium<>"nfs" and medium<>"cdrom"
var Str root := this_computer:env:"partition":"root":"de
if root<>""
console "Remounting / read write." eol
if (filesystem_mount root "file:/" "remount")=failure
console "Failed to remount / read write." eol
else
console "There is no root partition defined." eol
(var Stream log) open "file:/log/pliant.log" append+safe
log writeline "boot "+string:datetime
log close
console "Mounting /proc filesystem." eol
if (filesystem_mount "file:proc" "file:/proc" "filesystem
console "Failed to mount /proc filesystem." eol
else
(var Stream s) open "file:/proc/sys/kernel/hostname" out
s writeline computer_name
s open "file:/proc/sys/kernel/domain" out+safe
s writeline computer_domain
s close
console "Configuring kernel modules dependencies" eol
execute "depmod -a "
if medium="cdrom"
console "Mounting /tmp in a RAM filesystem" eol
partition_format "device:/ram1" "ext2" "standard"
if (filesystem_mount "device:/ram1" "file:/tmp" "")=fail
console "Failed to mount /tmp in a RAM read write file
plugin early
each m this_computer:env:"module"
console "Loading " m:"module" " kernel module" eol
execute "insmod "+m:"module"+(shunt m:"options"<>"" " "
|
|
abstract
[This is the boot script for the FullPLiant operating syst
function boot
plugin first
console "This computer is "+computer_fullname eol
if medium<>"nfs" and medium<>"cdrom"
var Str root := this_computer:env:"partition":"root":"de
if root<>""
console "Remounting / read write." eol
if (filesystem_mount root "file:/" "remount")=failure
console "Failed to remount / read write." eol
else
console "There is no root partition defined." eol
(var Stream log) open "file:/log/pliant.log" append+safe
log writeline "boot "+string:datetime
log close
console "Mounting /proc filesystem." eol
if (filesystem_mount "file:proc" "file:/proc" "filesystem
console "Failed to mount /proc filesystem." eol
else
(var Stream s) open "file:/proc/sys/kernel/hostname" out
s writeline computer_name
s open "file:/proc/sys/kernel/domain" out+safe
s writeline computer_domain
s close
console "Configuring kernel modules dependencies" eol
execute "depmod -a "
if medium="cdrom"
console "Mounting /tmp in a RAM filesystem" eol
partition_format "device:/ram1" "ext2" "standard"
if (filesystem_mount "device:/ram1" "file:/tmp" "")=fail
console "Failed to mount /tmp in a RAM read write file
plugin early
each m this_computer:env:"module"
console "Loading " m:"module" " kernel module" eol
execute "insmod "+m:"module"+(shunt m:"options"<>"" " "
|
|
|
|
|
|
if (file_query "file:/bin/cardmgr" standard)=defined
console "PCMCIA setup" eol
execute "cardmgr -o -c /bin/pcmcia -p /tmp/cardmgr.pid -s /tmp/cardmgr.stab"
|
|
each p this_computer:env:"partition"
if p:"filesystem"="swap"
execute "mkswap "+(file_os_name p:"device")
eif p:"mountpoint"<>"" and p:"mountpoint"<>"file:/"
console "Mounting "+keyof:p+" partition" eol
if (filesystem_mount p:"device" p:"mountpoint" "")=fai
console "Failed to mount "+keyof:p+" at "+p:"mountpo
if embedded<>""
module "embedded/boot.pli"
embedded_boot1 this_computer
net_boot
(var Stream flag) open "file:/boot/boot.flag" out+safe ; f
boot
if embedded<>""
console "Booting embedded system" eol
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"
pliant_multi_file_system mount "target:/" "embedded:/" pli
module "embedded/configure.pli"
embedded_configure this_computer false
pliant_multi_file_system dismount "target:/"
module "embedded/boot.pli"
embedded_boot2 this_computer
|
|
each p this_computer:env:"partition"
if p:"filesystem"="swap"
execute "mkswap "+(file_os_name p:"device")
eif p:"mountpoint"<>"" and p:"mountpoint"<>"file:/"
console "Mounting "+keyof:p+" partition" eol
if (filesystem_mount p:"device" p:"mountpoint" "")=fai
console "Failed to mount "+keyof:p+" at "+p:"mountpo
if embedded<>""
module "embedded/boot.pli"
embedded_boot1 this_computer
net_boot
(var Stream flag) open "file:/boot/boot.flag" out+safe ; f
boot
if embedded<>""
console "Booting embedded system" eol
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"
pliant_multi_file_system mount "target:/" "embedded:/" pli
module "embedded/configure.pli"
embedded_configure this_computer false
pliant_multi_file_system dismount "target:/"
module "embedded/boot.pli"
embedded_boot2 this_computer
|