Patch title: Release 91 bulk changes
Abstract:
File: /linux/kernel/statistics.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/compiler.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/schedule/daemon.pli"


function pick_disk_marks read_mark write_mark interrupts
  arg_w (Dictionary Str uInt) read_mark write_mark ; arg_w u
  read_mark := var (Dictionary Str uInt) empty_dictionary ; 
  (var Stream proc) open "file:/proc/stat" in+safe
  while not proc:atend
    var Str l := proc readline
    if (l parse word:"disk_io" ":" any:(var Str disks))
      while (disks parse "(" any:(var Str disk) ")" ":" "(" 
        read_mark insert disk sec_read ; write_mark insert d
        disks := remain
    eif (l parse word:"intr" interrupts any)
      void
module "/pliant/language/compiler.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/schedule/daemon.pli"


function pick_disk_marks read_mark write_mark interrupts
  arg_w (Dictionary Str uInt) read_mark write_mark ; arg_w u
  read_mark := var (Dictionary Str uInt) empty_dictionary ; 
  (var Stream proc) open "file:/proc/stat" in+safe
  while not proc:atend
    var Str l := proc readline
    if (l parse word:"disk_io" ":" any:(var Str disks))
      while (disks parse "(" any:(var Str disk) ")" ":" "(" 
        read_mark insert disk sec_read ; write_mark insert d
        disks := remain
    eif (l parse word:"intr" interrupts any)
      void
  (var Stream proc) open "file:/proc/diskstats" in+safe
  while not proc:atend
    var Str l := proc readline
    if (l parse (var Int major) (var Int minor) _ any:(var Str disk) _ (var uInt nb_read) (var uInt sec_read) (var uInt nb_write)  (var uInt sec_write))
      read_mark insert disk sec_read ; write_mark insert disk sec_write