Patch title: Release 89 bulk changes
Abstract:
File: /fullpliant/boot.pli
Key:
    Removed line
    Added line
   
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
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 check")=fa
      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"<>"" " " 
  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
        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"<>"" " " 
  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 ; flag close
boot

function boot_custom
  safe
    plugin boot
  failure err
boot

function boot_custom
  safe
    plugin boot
  failure err
    (var Stream log) open "file:/tmp/boot.log" out+safe
    (var Stream log) open "file:/boot/boot.log" out+safe
    log writeline err
boot_custom

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
    log writeline err
boot_custom

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