Patch title: Release 84 bulk changes
Abstract:
File: /pliant/protocol/lpr/database.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
submodule "/pliant/language/schedule/namedsem.pli"
submodule "/pliant/appli/database.pli"
module "/pliant/fullpliant/this_computer.pli"


type LprQueue
  field Str label
  field Str driver
  field Str model
  field Str options
  field Str paper
  field Float size_x <- 210 ; field Float size_y <- 297
  field Float margin_left <- 10
  field Float margin_top <- 10
  field Float margin_right <- 10
  field Float margin_bottom <- 20
  field Float resolution_x resolution_y <- 300
module "/pliant/language/unsafe.pli"
submodule "/pliant/language/schedule/namedsem.pli"
submodule "/pliant/appli/database.pli"
module "/pliant/fullpliant/this_computer.pli"


type LprQueue
  field Str label
  field Str driver
  field Str model
  field Str options
  field Str paper
  field Float size_x <- 210 ; field Float size_y <- 297
  field Float margin_left <- 10
  field Float margin_top <- 10
  field Float margin_right <- 10
  field Float margin_bottom <- 20
  field Float resolution_x resolution_y <- 300
  field Int antialiasing <- 1
  field Int antialiasing_x antialiasing_y <- 1
  field Float sharpening <- undefined
  field Str gamut
  field Int grid_steps <- 17
  field Str printer # two devices are the same if they have 
  field Str device
  field Float timeout <- 3600
  field Bool once <- false # print while ripping
  field Str export
  field Bool default <- false
  field Char status <- " " # Running Stopped


method job printer -> printer
  arg Data:LprJob job ; arg Data:LprQueue printer
  printer :> this_computer:env:"printer":(job queue) pmap ""
  field Float sharpening <- undefined
  field Str gamut
  field Int grid_steps <- 17
  field Str printer # two devices are the same if they have 
  field Str device
  field Float timeout <- 3600
  field Bool once <- false # print while ripping
  field Str export
  field Bool default <- false
  field Char status <- " " # Running Stopped


method job printer -> printer
  arg Data:LprJob job ; arg Data:LprQueue printer
  printer :> this_computer:env:"printer":(job queue) pmap ""