commit c47983e198a6e33409550b45b6ece9414a2aad97 parent a3a415d5c8ebe385989d1bd463efe445f42554fc Author: Tomas Hlavaty <tom@logand.com> Date: Sun, 11 Aug 2013 21:22:09 +0200 todo note Diffstat:
| M | ipp.lisp | | | 47 | ++++++++++++++++++++++++----------------------- |
1 file changed, 24 insertions(+), 23 deletions(-)
diff --git a/ipp.lisp b/ipp.lisp @@ -75,43 +75,44 @@ ;;(tag #x45) ;;(tag :uri) +;; TODO how to handle attributes, as keyword|string? error|ok (let ((attributes '((:attributes-charset . :charset) (:attributes-natural-language . :naturalLanguage) (:printer-uri . :uri) (:requesting-user-name . :nameWithoutLanguage) (:job-name . :nameWithoutLanguage) (:ipp-attribute-fidelity . :boolean) - (:document-name . nil) ;; TODO - (:document-format . nil) ;; TODO + (:document-name . nil) + (:document-format . nil) (:document-natural-language . :naturalLanguage) - (:compression . nil) ;; TODO - (:job-k-octets . nil) ;; TODO - (:job-impressions . nil) ;; TODO - (:job-media-sheets . nil) ;; TODO + (:compression . nil) + (:job-k-octets . nil) + (:job-impressions . nil) + (:job-media-sheets . nil) (:copies . :integer) (:sides . :keyword) (:job-uri . :uri) - (:job-id . nil) ;; TODO - (:job-state . nil) ;; TODO - (:job-state-reasons . nil) ;; TODO + (:job-id . nil) + (:job-state . nil) + (:job-state-reasons . nil) (:limit . :integer) (:requested-attributes . :keyword) - (:status-message . :nameWithoutLanguage) ;; TODO really? - (:marker-change-time . nil) ;; TODO - (:printer-current-time . nil) ;; TODO - (:printer-dns-sd-name . nil) ;; TODO - (:printer-is-accepting-jobs . nil) ;; TODO - (:printer-error-policy . nil) ;; TODO - (:printer-error-policy-supported . nil) ;; TODO + (:status-message . :nameWithoutLanguage) really? + (:marker-change-time . nil) + (:printer-current-time . nil) + (:printer-dns-sd-name . nil) + (:printer-is-accepting-jobs . nil) + (:printer-error-policy . nil) + (:printer-error-policy-supported . nil) (:job-sheets-default . nil) (:all . nil) - (:which-jobs . nil) ;; TODO - (:completed . nil) ;; TODO - (:not-completed . nil) ;; TODO - (:my-jobs . nil) ;; TODO - (:printer-icons . nil) ;; TODO - (:printer-is-shared . nil) ;; TODO - (:printer-more-info . nil) ;; TODO + (:which-jobs . nil) + (:completed . nil) + (:not-completed . nil) + (:my-jobs . nil) + (:printer-icons . nil) + (:printer-is-shared . nil) + (:printer-more-info . nil) (:printer-op-policy . nil) (:printer-state . nil) (:printer-state-change-time . nil)