Patch title: Release 94 bulk changes
Abstract:
File: /pliant/protocol/lpr/spool2.pli
Key:
    Removed line
    Added line
module "/pliant/language/unsafe.pli"
module "/pliant/language/stream.pli"
module "/pliant/graphic/draw/prototype.pli"
module "/pliant/graphic/image/rip.pli"
module "spool.pli"


function lpr_print draw options job prn -> status
  oarg_rw DrawPrototype draw ; arg Str options ; arg_rw Data:LprJob job ; arg_rw Stream prn ; arg ExtendedStatus status
  var Data:LprQueue printer :> job printer
  var Link:ImageRIP rip :> new ImageRIP
  rip bind draw "resolution "+(string printer:resolution_x*printer:antialiasing_x)+" "+(string printer:resolution_y*printer:antialiasing_y)+" antialiasing "+(string printer:antialiasing_x)+" "+(string printer:antialiasing_y)
  status := lpr_print rip "" job prn


function lpr_print draw options -> status
  oarg_rw DrawPrototype draw ; arg Str options ; arg ExtendedStatus status
  var Data:LprJob job :> lpr_open (options option "printer" Str) "raw" (var Stream prn)
  job label := options option "title" Str
  status := lpr_print draw "" job prn
  if status=failure
    lpr_error job "Driver failure: "+status:message
  lpr_close job prn


export lpr_print