Patch title: Release 90 bulk changes
Abstract:
File: /linux/kernel/device.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/os.pli"
module "/pliant/admin/file.pli"


  if (name parse "hd" any:(var Str drive) (var Int part)) an
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "hd" any:(var Str drive) (var Int part)) a
    status := kernel_make_device device kernel_bloc_device 2
  eif (name parse "hde" (var Int part)) and part>=1 and part
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "hd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "hd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 2
  eif name="hde"
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "sd" any:(var Str drive) (var Int part)) a
    status := kernel_make_device device kernel_bloc_device 8
  eif (name parse "sd" any:(var Str drive) (var Int part)) a
    status := kernel_make_device device kernel_bloc_device 6
  eif (name parse "sd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 8
  eif (name parse "sd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 6
  eif (name parse "scd" (var Int part)) and part>=0 and part
    status := kernel_make_device device kernel_bloc_device 1
  eif (name parse "sg" (var Int part)) and part>=0 and part<
    status := kernel_make_device device kernel_character_dev
module "/pliant/language/os.pli"
module "/pliant/admin/file.pli"


  if (name parse "hd" any:(var Str drive) (var Int part)) an
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "hd" any:(var Str drive) (var Int part)) a
    status := kernel_make_device device kernel_bloc_device 2
  eif (name parse "hde" (var Int part)) and part>=1 and part
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "hd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "hd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 2
  eif name="hde"
    status := kernel_make_device device kernel_bloc_device 3
  eif (name parse "sd" any:(var Str drive) (var Int part)) a
    status := kernel_make_device device kernel_bloc_device 8
  eif (name parse "sd" any:(var Str drive) (var Int part)) a
    status := kernel_make_device device kernel_bloc_device 6
  eif (name parse "sd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 8
  eif (name parse "sd" any:(var Str drive)) and drive:len=1 
    status := kernel_make_device device kernel_bloc_device 6
  eif (name parse "scd" (var Int part)) and part>=0 and part
    status := kernel_make_device device kernel_bloc_device 1
  eif (name parse "sg" (var Int part)) and part>=0 and part<
    status := kernel_make_device device kernel_character_dev
  eif (name parse "pg" (var Int part)) and part>=0 and part<4
    status := kernel_make_device device kernel_character_device 97 part
  eif (name parse "fd" (var Int part)) and part>=0 and part<
    status := kernel_make_device device kernel_bloc_device 2
  eif (name parse "md" (var Int part)) and part>=0 and part<
    status := kernel_make_device device kernel_bloc_device 9


  eif name="mem"
    status := kernel_make_device device kernel_character_dev
  eif (name parse "fd" (var Int part)) and part>=0 and part<
    status := kernel_make_device device kernel_bloc_device 2
  eif (name parse "md" (var Int part)) and part>=0 and part<
    status := kernel_make_device device kernel_bloc_device 9


  eif name="mem"
    status := kernel_make_device device kernel_character_dev
    file_rights device 0 15 0 3*8+7
  eif name="null"
    status := kernel_make_device device kernel_character_dev
  eif name="zero"
    status := kernel_make_device device kernel_character_dev
  eif name="random"
    status := kernel_make_device device kernel_character_dev
  eif name="rtc"
    status := kernel_make_device device kernel_character_dev
  eif (name parse "ram" (var Int i))  and i>=0 and i<=16
    status := kernel_make_device device kernel_bloc_device 1
  eif name="agpgart"
    status := kernel_make_device device kernel_character_dev
  eif name="raw1394"
    status := kernel_make_device device kernel_character_dev


  else
    plugin device
      status := failure
  eif name="null"
    status := kernel_make_device device kernel_character_dev
  eif name="zero"
    status := kernel_make_device device kernel_character_dev
  eif name="random"
    status := kernel_make_device device kernel_character_dev
  eif name="rtc"
    status := kernel_make_device device kernel_character_dev
  eif (name parse "ram" (var Int i))  and i>=0 and i<=16
    status := kernel_make_device device kernel_bloc_device 1
  eif name="agpgart"
    status := kernel_make_device device kernel_character_dev
  eif name="raw1394"
    status := kernel_make_device device kernel_character_dev


  else
    plugin device
      status := failure