|
|
|
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
|