Patch title: Release 92 bulk changes
Abstract:
File: /linux/storage/bench.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/util/crypto/intn.pli"
module "filesystem.pli"

constant page_size 4096
constant bench_seconds 30
constant seek_unit 4096
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/util/crypto/intn.pli"
module "filesystem.pli"

constant page_size 4096
constant bench_seconds 30
constant seek_unit 4096
constant transfert_unit 2^16
constant transfert_unit 4*2^20



  (var Stream dev) open device in+safe+nocache
  var Intn offset := random:size\2
  offset := offset\transfert_unit*transfert_unit
  dev configure "seek "+string:offset
  var DateTime start := datetime ; var Int count := 0
  part transfert_loop
    dev raw_read b transfert_unit
    count += 1
    if datetime:seconds-start:seconds<bench_seconds/2
      restart transfert_loop



  (var Stream dev) open device in+safe+nocache
  var Intn offset := random:size\2
  offset := offset\transfert_unit*transfert_unit
  dev configure "seek "+string:offset
  var DateTime start := datetime ; var Int count := 0
  part transfert_loop
    dev raw_read b transfert_unit
    count += 1
    if datetime:seconds-start:seconds<bench_seconds/2
      restart transfert_loop
  var Float transfert := count*transfert_unit/(datetime:seco
  var Float transfert := (cast count Float)*transfert_unit/(datetime:seconds-start:seconds)
  if dev=success
    console "average transfert is " (cast 10*transfert/2^20 
  else
    console "failed to read on " device eol
  memory_free buffer



  if dev=success
    console "average transfert is " (cast 10*transfert/2^20 
  else
    console "failed to read on " device eol
  memory_free buffer