18 lines
453 B
Scheme
18 lines
453 B
Scheme
(module qp-sig mzscheme
|
|
(require (lib "unitsig.ss"))
|
|
|
|
(provide net:qp^)
|
|
(define-signature net:qp^
|
|
(
|
|
;; -- exceptions raised --
|
|
(struct qp-error () -setters (- make-qp-error))
|
|
(struct qp-wrong-input () -setters (- make-qp-wrong-input))
|
|
(struct qp-wrong-line-size (size) -setters (- make-qp-wrong-line-size))
|
|
|
|
;; -- qp methods --
|
|
qp-encode
|
|
qp-decode
|
|
qp-encode-stream
|
|
qp-decode-stream
|
|
)))
|