Patch title: Release 92 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"


gvar Sem sem
gvar DateTime last_timestamp
gvar (Dictionary Str uInt) net_in_mark net_out_mark
gvar (Dictionary Str Intn) net_in_total net_out_total
gvar (Dictionary Str uInt) disk_read_mark disk_write_mark
gvar (Dictionary Str Intn) disk_read_total disk_write_total
module "/pliant/language/compiler.pli"
module "/pliant/language/context.pli"
module "/pliant/language/stream.pli"
module "/pliant/language/schedule/daemon.pli"


gvar Sem sem
gvar DateTime last_timestamp
gvar (Dictionary Str uInt) net_in_mark net_out_mark
gvar (Dictionary Str Intn) net_in_total net_out_total
gvar (Dictionary Str uInt) disk_read_mark disk_write_mark
gvar (Dictionary Str Intn) disk_read_total disk_write_total
gvar uInt interrupts_mark
gvar uInt interrupts_mark := 0
gvar Intn interrupts_total := 0
gvar Intn cpu_total := 0
gvar List:KernelStatRecord stat



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 ; 
gvar Intn interrupts_total := 0
gvar Intn cpu_total := 0
gvar List:KernelStatRecord stat



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 ; 
  interrupts := 0
  (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 S
      read_mark insert disk sec_read ; write_mark insert dis


  (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 S
      read_mark insert disk sec_read ; write_mark insert dis