Patch title: Release 94 bulk changes
Abstract:
File: /pliant/fullpliant/reconfigure.page
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/fullpliant/embedded/configure.pli"
module "/pliant/fullpliant/embedded/boot.pli"
module "/pliant/fullpliant/embedded/command.pli"
module "/pliant/fullpliant/this_computer.pli"
module "/pliant/fullpliant/embedded/configure.pli"
module "/pliant/fullpliant/embedded/boot.pli"
module "/pliant/fullpliant/embedded/command.pli"
module "/pliant/fullpliant/install.pli"
module "/pliant/linux/schedule/process.pli"
module "/pliant/linux/schedule/process.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"
module "/pliant/language/stream/filesystembase.pli"
module "/pliant/language/stream/multi.pli"
module "/pliant/linux/kernel/shutdown.pli"






para
  var Str screen_x := this_computer:env:"hardware":"screen":
  select "Screen: " screen_x
    option "" ""
    option "1024x768" "1024"
    option "1280x1024" "1280" 
    option "1600x1200" "1600" 


for (var Int lap) 0 1
  page button "reconfigure "+(shunt lap=0 "on reboot" "at on
    if lap=1
      process_kill "XFree86" ""
      sleep 2
    var (Data Set:Str) screen :> this_computer:env:"hardware
    if screen_x="1024"
      screen "constructor" := "unknown"
      screen "model" := "generic_1024x768"
      screen "horizontal_resolution" := "1024"
      screen "vertical_resolution" := "768"
      screen "horizontal_frequency" := "31.5-65"
      screen "vertical_frequency" := "50-100"
    eif screen_x="1280"
      screen "constructor" := "unknown"
      screen "model" := "generic_1280x1024"
      screen "horizontal_resolution" := "1280"
      screen "vertical_resolution" := "1024"
      screen "horizontal_frequency" := "31.5-85"
      screen "vertical_frequency" := "50-100"
    eif screen_x="1600"
      screen "constructor" := "unknown"
      screen "model" := "generic_1600x1200"
      screen "horizontal_resolution" := "1600"
      screen "vertical_resolution" := "1200"
      screen "horizontal_frequency" := "30-107"
      screen "vertical_frequency" := "48-120"
    if lap=0
      [Done.]
    else
      pliant_multi_file_system mount "target:/" "embedded:/"
      embedded_configure this_computer false
      pliant_multi_file_system dismount "target:/"
      embedded_boot2 this_computer
      sleep 5
      embedded_command "xsetroot -solid #407060" ""
      embedded_command "/usr/lib/mozilla/mozilla-bin" "user 
header "Current setup"

  var (Data Set:Str) video :> this_computer:env:"hardware" "video"
  var (Data Set:Str) screen :> this_computer:env:"hardware" "screen"
  table columns 3
    cell header [Category]
    cell header [Parameter]
    cell header [Value]
    cell [Video]
    cell [Driver]
    cell
      if video:"bios_mode"<>""
        text " VESA2 bios mode "+video:"bios_mode"
      if video:"module"<>""
        text "Linux framebuffer "+video:"module"
      if video:"xfree86_driver"<>"fbdev"
        text " XFree86 "+video:"xfree86_driver"
    cell [Screen]
    cell [Resolution]
    cell
      text screen:"horizontal_resolution"+" x "+screen:"vertical_resolution"
      text " x "+video:"bpp"+" bpp"
    cell void
    cell [Frequency]
    cell
      text "horizontal "+screen:"horizontal_frequency"
      text " vertical "+screen:"vertical_frequency"
    cell void
    cell [Modline]
    cell
      text screen:"xfree86_modline"

header "New setup"

  table columns 3
    cell header [Category]
    cell header [Parameter]
    cell header [New value (1)]
    cell [Video]
    cell [Driver]
    cell
      select "" (var Str driver) noeol
        option "" ""
        option "VESA2" "fbdev"
        option "Intel" "i810"
        option "ATI Mach64" "ati"
        option "ATI Rage" "r128"
        option "ATI Radeon" "radeon"
        option "NVidia" "nv"
        option "Linux framebuffer VESA2" "fbdev"
        option "Linux framebuffer Intel i810" "framebuffer i810fb"
        option "Linux framebuffer Intel i845 and more" "framebuffer intelfb"
        option "Linux framebuffer ATI Mach64" "framebuffer atyfb"
        option "Linux framebuffer ATI Rage" "framebuffer aty128fb"
        option "Linux framebuffer ATI Radeon" "framebuffer radeonfb"
        option "Linux framebuffer NVidia old" "framebuffer rivafb"
        option "Linux framebuffer NVidia" "framebuffer nvidiafb"
      input " video mode (2) " (var Str mode) length 3 noeol ; " (2)"
    cell [Screen]
    cell [Resolution]
    cell
      select "" (var Str screen_x) noeol
        option "" ""
        option "1024 x 768" "1024"
        option "1280 x 1024" "1280"
        option "1400 x 1050" "1400"
        option "1600 x 1200" "1600"
        option "1920 x 1200" "1920"
      select "" (var Str bpp) noeol
        option "" ""
        option "24 bpp" "24"
        option "32 bpp" "32" 
      var Bool freq := false
      select "" freq
        option "" "false"
        option "auto adjust frequencies" "true"
    cell void
    cell [Frequency]
    cell
      input "horizontal " (var Str hfreq) length 10 noeol
      input "vertical " (var Str vfreq) length 10 noeol
    cell void
    cell [Modline (3)]
    cell
      input "" (var Str modline) length 40
  
  for (var Int lap) 0 1
    page button "reconfigure "+(shunt lap=0 "on reboot" "at once") noeol
      if lap=1
        process_kill "XFree86" ""
        sleep 2
      this_computer:env create "hardware"
      this_computer:env:"hardware" create "video"
      var (Data Set:Str) video :> this_computer:env:"hardware" "video"
      this_computer:env:"hardware" create "screen"
      var (Data Set:Str) screen :> this_computer:env:"hardware" "screen"
      if driver<>""
        video create "xfree86_driver"
        if (driver parse "framebuffer" any:(var Str fb))
          video create "module"
          video "module" := fb
          video "xfree86_driver" := "fbdev"
        else
          video delete "module"
          video "xfree86_driver" := driver
      if screen_x<>""
        screen create "constructor"
        screen create "model"
        screen create "horizontal_resolution"
        screen create "vertical_resolution"
        screen "horizontal_frequency" := "31.5-65"
        screen create "vertical_frequency"
        if screen_x="1024"
          screen "constructor" := "unknown"
          screen "model" := "generic_1024x768"
          screen "horizontal_resolution" := "1024"
          screen "vertical_resolution" := "768"
          if freq
            screen "horizontal_frequency" := "31.5-65"
            screen "vertical_frequency" := "50-100"
        eif screen_x="1400"
          screen "constructor" := "unknown"
          screen "model" := "generic_1400x1050"
          screen "horizontal_resolution" := "1400"
          screen "vertical_resolution" := "1050"
          if freq
            screen "horizontal_frequency" := "31.5-85"
            screen "vertical_frequency" := "50-100"
        eif screen_x="1280"
          screen "constructor" := "unknown"
          screen "model" := "generic_1280x1024"
          screen "horizontal_resolution" := "1280"
          screen "vertical_resolution" := "1024"
          if freq
            screen "horizontal_frequency" := "31.5-85"
            screen "vertical_frequency" := "50-100"
        eif screen_x="1600"
          screen "constructor" := "unknown"
          screen "model" := "generic_1600x1200"
          screen "horizontal_resolution" := "1600"
          screen "vertical_resolution" := "1200"
          if freq
            screen "horizontal_frequency" := "30-107"
            screen "vertical_frequency" := "48-120"
        eif screen_x="1920"
          screen "constructor" := "unknown"
          screen "model" := "generic_1920x1200"
          screen "horizontal_resolution" := "1920"
          screen "vertical_resolution" := "1200"
          if freq
            screen "horizontal_frequency" := "30-107"
            screen "vertical_frequency" := "48-120"
      if bpp<>""
        video create "bpp"
        video "bpp" := bpp
      if hfreq<>""
        screen create "horizontal_frequency"
        screen "horizontal_frequency" := hfreq
      if vfreq<>""
        screen create "vertical_frequency"
        screen "vertical_frequency" := vfreq
      if modline<>""
        if modline="auto"
          screen delete "xfree86_modline"
        else
          screen create "xfree86_modline"
          screen "xfree86_modline" := modline
      if mode<>""
        if mode="none"
          video delete "bios_mode"
        else
          video create "bios_mode"
          video "bios_mode" := mode
      if lap=0
        [Done.]
      else
        if mode<>""
          pliant_load_module "/pliant/appli/file_browser/lilo.pli" the_module:"/pliant/language/basic/safe.pli" 0 (null map Module)
          kernel_shutdown true
        pliant_multi_file_system mount "target:/" "embedded:/" pliant_default_file_system
        embedded_configure this_computer false
        pliant_multi_file_system dismount "target:/"
        embedded_boot2 this_computer
        sleep 5
        embedded_command "xsetroot -solid #407060" ""
        embedded_command "/usr/lib/mozilla/mozilla-bin" "user [dq]me[dq] detached"
        reload_page
  para
    [(1) Fill only the settings you want to change.] ; eol
    [(2) Video mode is meaningfull only if you plan to use VESA2 frame buffer video driver, and rebooting is necessary to activate any change. Fill with 'none' to remove it.] ; eol
    [(3) Required only if you have a strange screen. Fill with 'auto' to remove it.]


header "XFree86 log report"

  fixed
    (var Stream s) open "embedded:/var/log/XFree86.0.log" in+safe
    while not s:atend
      text s:readline ; eol