Patch title: Release 91 bulk changes
Abstract:
File: /fullpliant/embedded/boot.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/stream.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/admin/file.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/unsafe.pli"
module "/pliant/language/context.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/admin/file.pli"
module "/pliant/admin/execute.pli"
module "/pliant/linux/kernel/module.pli"
module "/pliant/linux/storage/filesystem.pli"
module "/pliant/linux/schedule/process.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"
module "/pliant/linux/kernel/device.pli"
module "command.pli"


  # mouse modules
  kernel_make_device c:env:"hardware":"mouse":"linux_device"
  if c:env:"hardware":"mouse":"linux_device"="device:/input/
module "/pliant/linux/storage/filesystem.pli"
module "/pliant/linux/schedule/process.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"
module "/pliant/linux/kernel/device.pli"
module "command.pli"


  # mouse modules
  kernel_make_device c:env:"hardware":"mouse":"linux_device"
  if c:env:"hardware":"mouse":"linux_device"="device:/input/
    execute "insmod usbcore"
    execute "insmod usb-uhci"
    execute "insmod input"
    execute "insmod hid"
    execute "insmod mousedev"
    execute "insmod keybdev"
    kernel_load_module "usbcore"
    kernel_load_module "usb-uhci" # 2.4
    kernel_load_module "uhci_hcd" # 2.6
    kernel_load_module "input" # 2.4
    kernel_load_module "hid"
    kernel_load_module "mousedev" # 2.4
    kernel_load_module "keybdev" # 2.4
    kernel_load_module "usbkbd" # 2.6
    kernel_load_module "usbmouse" # 2.6
    sleep 3

  # standard Unix print queues: now replaced by Pliant lpr s
  if false # c:env:"printer":size>0
    each printer c:env:"printer"
      if (printer:"device" parse "device:/usb/lp" (var Int n
    sleep 3

  # standard Unix print queues: now replaced by Pliant lpr s
  if false # c:env:"printer":size>0
    each printer c:env:"printer"
      if (printer:"device" parse "device:/usb/lp" (var Int n
        execute "insmod usbcore" quiet
        execute "insmod usb-uhci" quiet
        execute "insmod printer" quiet
        kernel_load_module "usbcore"
        kernel_load_module "usb-uhci" # 2.4
        kernel_load_module "ehci-hcd" # 2.4
        kernel_load_module "uhci_hcd" # 2.6
        kernel_load_module "ehci_hcd" # 2.6
        kernel_load_module "printer" # 2.4
        kernel_load_module "usblp" # 2.6
        filesystem_mount "file:usb" "embedded:/proc/bus/usb/
        file_tree_create "embedded:/dev/usb/"
        kernel_make_device (replace printer:"device" "device
      eif printer:"device"<>""
        kernel_make_device (replace printer:"device" "device
        filesystem_mount "file:usb" "embedded:/proc/bus/usb/
        file_tree_create "embedded:/dev/usb/"
        kernel_make_device (replace printer:"device" "device
      eif printer:"device"<>""
        kernel_make_device (replace printer:"device" "device
    execute "insmod parport"
    execute "insmod parport_pc"
    execute "insmod lp"
    kernel_load_module "parport"
    kernel_load_module "parport_pc"
    kernel_load_module "lp"
    embedded_command "lpd" "" # SECURITY

  # start X11 server
  var Str x11 := c:env:"hardware":"video":"x11"
  var Str xserver := c:env:"hardware":"video":"xfree86_serve
  var Str xfree3_exe := "XF86_"+upper:(xserver 0 1)+(xserver
  var Str xdriver := c:env:"hardware":"video":"xfree86_drive
  kernel_make_device "embedded:/dev/fb0"
  if xdriver="i810"
    kernel_make_device "embedded:/dev/agpgart"
    embedded_command "lpd" "" # SECURITY

  # start X11 server
  var Str x11 := c:env:"hardware":"video":"x11"
  var Str xserver := c:env:"hardware":"video":"xfree86_serve
  var Str xfree3_exe := "XF86_"+upper:(xserver 0 1)+(xserver
  var Str xdriver := c:env:"hardware":"video":"xfree86_drive
  kernel_make_device "embedded:/dev/fb0"
  if xdriver="i810"
    kernel_make_device "embedded:/dev/agpgart"
    execute "insmod agpgart"
    kernel_load_module "agpgart"
  if x11="none"
    void
  eif x11="vnc"
    if false
      file_tree_create "embedded:/home/me/.vnc/"
      module "/pliant/protocol/vnc/password.pli"
      vnc_set_password "ji56au" "embedded:/home/me/.vnc/pass
      file_tree_rights "embedded:/home/me/.vnc/" 4096 100 0 
      file_rights "embedded:/home/me/.vnc/passwd" undefined 
    if not (c:env:"hardware":"screen":"horizontal_resolution
      rx := 1024
    if not (c:env:"hardware":"screen":"vertical_resolution" 
      ry := 768
    embedded_command "Xrealvnc :0 -localhost -rfbport 5900 -
  eif xserver<>"" and (file_query "embedded:/usr/X11R6/bin/"
    # XFree 3
    kernel_make_device (replace c:env:"hardware":"mouse":"li
    for (var Int i) 0 15
      kernel_make_device "embedded:/dev/tty"+string:i
    embedded_command xfree3_exe "detached" # SECURITY
  eif xdriver<>"" and (file_query "embedded:/usr/X11R6/bin/X
    # XFree 4
    kernel_make_device (replace c:env:"hardware":"mouse":"li
    for (var Int i) 0 15
      kernel_make_device "embedded:/dev/vcs"+string:i
      kernel_make_device "embedded:/dev/tty"+string:i
    kernel_make_device "embedded:/dev/mem"
    if (file_query "embedded:/usr/X11R6/bin/855patch" standa
      embedded_command "855patch 8192" ""
    embedded_command "XFree86" "detached" # SECURITY
  else
    return
  if x11<>"none"
    wait_for_tcp_port "127.0.0.1" 6000 15
    embedded_command "xhost +local:" "" # SECURITY
  # start windows manager
  if x11<>"none"
    embedded_command c:env:"debian":"x11":"windows_manager" 
  if x11<>"vnc" and x11<>"none" and (xserver<>"" or xdriver<
    embedded_command "xmodmap -e 'keycode 24 = a A acircumfl
    embedded_command "xmodmap -e 'keycode 26 = e E ecircumfl
    embedded_command "xmodmap -e 'keycode 31 = i I icircumfl
    embedded_command "xmodmap -e 'keycode 32 = o O ocircumfl
    embedded_command "xmodmap -e 'keycode 30 = u U ucircumfl
    embedded_command "xmodmap -e 'keycode 34 = Mode_switch'"
  if x11<>"none" and (file_query "embedded:/usr/lib/openoffi
    embedded_command "gnome-settings-daemon" "user [dq]me[dq
    sleep 5
  if x11="none"
    void
  eif x11="vnc"
    if false
      file_tree_create "embedded:/home/me/.vnc/"
      module "/pliant/protocol/vnc/password.pli"
      vnc_set_password "ji56au" "embedded:/home/me/.vnc/pass
      file_tree_rights "embedded:/home/me/.vnc/" 4096 100 0 
      file_rights "embedded:/home/me/.vnc/passwd" undefined 
    if not (c:env:"hardware":"screen":"horizontal_resolution
      rx := 1024
    if not (c:env:"hardware":"screen":"vertical_resolution" 
      ry := 768
    embedded_command "Xrealvnc :0 -localhost -rfbport 5900 -
  eif xserver<>"" and (file_query "embedded:/usr/X11R6/bin/"
    # XFree 3
    kernel_make_device (replace c:env:"hardware":"mouse":"li
    for (var Int i) 0 15
      kernel_make_device "embedded:/dev/tty"+string:i
    embedded_command xfree3_exe "detached" # SECURITY
  eif xdriver<>"" and (file_query "embedded:/usr/X11R6/bin/X
    # XFree 4
    kernel_make_device (replace c:env:"hardware":"mouse":"li
    for (var Int i) 0 15
      kernel_make_device "embedded:/dev/vcs"+string:i
      kernel_make_device "embedded:/dev/tty"+string:i
    kernel_make_device "embedded:/dev/mem"
    if (file_query "embedded:/usr/X11R6/bin/855patch" standa
      embedded_command "855patch 8192" ""
    embedded_command "XFree86" "detached" # SECURITY
  else
    return
  if x11<>"none"
    wait_for_tcp_port "127.0.0.1" 6000 15
    embedded_command "xhost +local:" "" # SECURITY
  # start windows manager
  if x11<>"none"
    embedded_command c:env:"debian":"x11":"windows_manager" 
  if x11<>"vnc" and x11<>"none" and (xserver<>"" or xdriver<
    embedded_command "xmodmap -e 'keycode 24 = a A acircumfl
    embedded_command "xmodmap -e 'keycode 26 = e E ecircumfl
    embedded_command "xmodmap -e 'keycode 31 = i I icircumfl
    embedded_command "xmodmap -e 'keycode 32 = o O ocircumfl
    embedded_command "xmodmap -e 'keycode 30 = u U ucircumfl
    embedded_command "xmodmap -e 'keycode 34 = Mode_switch'"
  if x11<>"none" and (file_query "embedded:/usr/lib/openoffi
    embedded_command "gnome-settings-daemon" "user [dq]me[dq
    sleep 5
  if x11<>"none" and (c:env:"hardware":"mouse":"resolution" parse (var Int rd) "/" (var Int rq))
    embedded_command "xset m "+c:env:"hardware":"mouse":"resolution"+" 1" "" # SECURITY
  if x11<>"none"
    embedded_command "xsetroot -solid #407060" "" # SECURITY


  if x11<>"none"
    embedded_command "xsetroot -solid #407060" "" # SECURITY