Patch title: Release 87 bulk changes
Abstract:
File: /pliant/fullpliant/embedded/configure.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"


  s open "target:/etc/X11/XF86Config" out+mkdir+safe
  
  if not (c:env:"hardware":"screen":"horizontal_resolution" 
    rx := 1024
  if not (c:env:"hardware":"screen":"vertical_resolution" pa
    ry := 768
  if not (c:env:"hardware":"video":"vram_mb" parse (var Int 
    vram := undefined
  if not (c:env:"hardware":"video":"bpp" parse (var Int bpp)
    bpp := 32
  
  if vram=defined
    if bpp=32 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt c:env:"hardware":"video":"can_do_24_bpp"=
    while bpp>8 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt bpp>16 16 8
  
  c "hardware" "screen" "horizontal_resolution" := string rx
  c "hardware" "screen" "vertical_resolution" := string ry
  c "hardware" "video" "bpp" := string bpp
  
  # small recommended extensions
  s writeline "Section [dq]Module[dq]"
module "/pliant/language/stream.pli"
module "/pliant/admin/file.pli"
module "/pliant/fullpliant/this_computer.pli"


  s open "target:/etc/X11/XF86Config" out+mkdir+safe
  
  if not (c:env:"hardware":"screen":"horizontal_resolution" 
    rx := 1024
  if not (c:env:"hardware":"screen":"vertical_resolution" pa
    ry := 768
  if not (c:env:"hardware":"video":"vram_mb" parse (var Int 
    vram := undefined
  if not (c:env:"hardware":"video":"bpp" parse (var Int bpp)
    bpp := 32
  
  if vram=defined
    if bpp=32 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt c:env:"hardware":"video":"can_do_24_bpp"=
    while bpp>8 and rx*ry*(bpp\8)>vram*2^20
      bpp := shunt bpp>16 16 8
  
  c "hardware" "screen" "horizontal_resolution" := string rx
  c "hardware" "screen" "vertical_resolution" := string ry
  c "hardware" "video" "bpp" := string bpp
  
  # small recommended extensions
  s writeline "Section [dq]Module[dq]"
  s writeline "  Load [dq]int10[dq]"
  s writeline "  Load [dq]dbe[dq]"
  s writeline "  Load [dq]record[dq]"
  s writeline "  Load [dq]glx[dq]"
  s writeline "  Load [dq]extmod[dq]"
  # s writeline "  SubSection [dq]extmod[dq]"
  # s writeline "    Option [dq]omit xfree86-dga[dq]"
  # s writeline "  EndSubSection"
  s writeline "  Load [dq]type1[dq]"
  s writeline "  Load [dq]freetype[dq]"
  # larger ones
  s writeline "  Load [dq]Glcore[dq]"
  # s writeline "  Load [dq]pex5[dq]"
  # s writeline "  Load [dq]xie[dq]"
  s writeline "EndSection"


export embedded_configure
  s writeline "  Load [dq]dbe[dq]"
  s writeline "  Load [dq]record[dq]"
  s writeline "  Load [dq]glx[dq]"
  s writeline "  Load [dq]extmod[dq]"
  # s writeline "  SubSection [dq]extmod[dq]"
  # s writeline "    Option [dq]omit xfree86-dga[dq]"
  # s writeline "  EndSubSection"
  s writeline "  Load [dq]type1[dq]"
  s writeline "  Load [dq]freetype[dq]"
  # larger ones
  s writeline "  Load [dq]Glcore[dq]"
  # s writeline "  Load [dq]pex5[dq]"
  # s writeline "  Load [dq]xie[dq]"
  s writeline "EndSection"


export embedded_configure