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

public

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_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 same value here
  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

type LprJob
  field Str queue
  field Str label
  field Str file
  field Str format # file format can by 'raw' 'ps' or 'html'
  field Str ip
  field DateTime s_startup
  field Char s_status <- "W" # spooling status: Running Terminated
  field Str s_comment
  field DateTime r_startup
  field Char r_status <- "W" # ripping status: Waiting Running Terminated
  field Str r_comment
  field DateTime p_startup
  field Char p_status <- "W" # printing status: Waiting Running Terminated
  field Str p_comment
  field Str error
  field DateTime e_timestamp

type LprDatabase
  field Set:LprJob job

gvar NamedSem lpr_printer_sem

(gvar Database:LprDatabase lpr_database) load "security:/lpr.pdb" mount "/pliant/lpr"


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