Patch title: Release 85 bulk changes
Abstract:
File: /pliant/protocol/lpr/client.pli
Key:
    Removed line
    Added line
   
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


method lpr flush level -> status
  arg_rw LprStreamDriver lpr ; arg Int level ; arg Status st
# Copyright  Hubert Tonneau  hubert.tonneau@pliant.cx
#
# This program is free software; you can redistribute it and
# modify it under the terms of the GNU General Public Licens
# as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be us
# but WITHOUT ANY WARRANTY; without even the implied warrant
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See 
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public 
# version 2 along with this program; if not, write to the Fr
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 


method lpr flush level -> status
  arg_rw LprStreamDriver lpr ; arg Int level ; arg Status st
  lpr:tcp flush level
  if lpr:direct
    lpr:tcp flush level
  eif (exists lpr:temp)
    lpr:temp flush level
  status := success

method lpr query command stream answer -> status
  oarg_rw LprStreamDriver lpr ; arg Str command ; arg_rw Str
  if command="seek" and not lpr:direct
  status := success

method lpr query command stream answer -> status
  oarg_rw LprStreamDriver lpr ; arg Str command ; arg_rw Str
  if command="seek" and not lpr:direct
    stream flush anytime
    status := lpr:temp:stream_driver query command lpr:temp 
  else
    status := failure

method lpr configure command stream -> status
  arg_rw LprStreamDriver lpr ; arg Str command ; arg_rw Stre
  if (command parse word:"seek" (var Intn pos)) and not lpr:
    status := lpr:temp:stream_driver query command lpr:temp 
  else
    status := failure

method lpr configure command stream -> status
  arg_rw LprStreamDriver lpr ; arg Str command ; arg_rw Stre
  if (command parse word:"seek" (var Intn pos)) and not lpr:
    stream flush anytime
    status := lpr:temp:stream_driver configure command lpr:t
  else
    status := failure


    status := lpr:temp:stream_driver configure command lpr:t
  else
    status := failure