cl-ipp

Internet Printing Protocol (IPP) for Common Lisp
git clone https://logand.com/git/cl-ipp.git/
Log | Files | Refs

commit 028e82efab7ca13a3f67278016b6338e12736805
parent 2371059101830718d88370665d20319a82a28b60
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon, 12 Aug 2013 23:45:26 +0200

package :ipp.wget.test introduced

Diffstat:
Mipp.lisp | 21++++++++++++++-------
1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/ipp.lisp b/ipp.lisp @@ -844,29 +844,35 @@ :response-file response-file :content-type content-type)) +(defpackage :ipp.wget.test + (:use :cl)) + +(in-package :ipp.wget.test) + #+nil -(ipp::cups-get-default 'ipp-client +(ipp::cups-get-default 'ipp.wget:ipp-client "http://localhost:631/printers/Virtual_PDF_Printer" "request2.dat" "response2.dat" 314) #+nil -(ipp::cups-get-printers 'ipp-client +(ipp::cups-get-printers 'ipp.wget:ipp-client "http://localhost:631/printers/Virtual_PDF_Printer" "request2.dat" "response2.dat" 314) -;;(ipp:list-printers 'ipp-client "http://localhost:631/printers/" "printers.html") +;;(ipp:list-printers 'ipp.wget:ipp-client "http://localhost:631/printers/" "printers.html") +#+nil (let ((p (ipp:make-printer - 'ipp-client + 'ipp.wget:ipp-client "http://localhost:631/printers/Virtual_PDF_Printer" "request2.dat" "response2.dat" 314))) - (ipp:get-printer-attributes p) + ;;(ipp:get-printer-attributes p) ;;(ipp:get-printer-attributes p :limit 2) ;;(ipp:get-printer-attributes p requested-attributes '(:all)) ;;TODO (ipp:get-printer-attributes p requested-attributes '(:printer-description)) @@ -884,12 +890,13 @@ ;;(ipp:get-jobs p :requested-attributes '(:job-description)) ;;(ipp:get-jobs p :requested-attributes '(:job-id :job-description)) ;;(ipp:get-jobs p :requested-attributes '(:all)) - ;;(ipp:print-job p "test.txt" :ipp-attribute-fidelity nil :copies 2 :sides "two-sided-long-edge") + (ipp:print-job p "test.txt" :ipp-attribute-fidelity nil :copies 2 :sides "two-sided-long-edge") ;; TODO create job object? ;;(ipp:validate-job p :ipp-attribute-fidelity nil :copies 2 :sides "two-sided-long-edge") ) +#+nil (let ((x (ipp:make-job - 'ipp-client + 'ipp.wget:ipp-client "http://localhost:631/printers/Virtual_PDF_Printer" "request2.dat" "response2.dat"