external/clem/src/typed-matrix-utils.lisp

   1
   2 (in-package :clem)
   3
   4 (defun copy-to-matrix-type (m mtype &key (constrain nil))
   5   (let ((b (make-instance mtype :rows (rows m) :cols (cols m))))
   6     (matrix-move m b :constrain constrain)
   7     b))
   8
   9 (defgeneric copy-to-ub8-matrix (m &key constrain))
  10 (defmethod copy-to-ub8-matrix ((m matrix) &key (constrain nil))
  11   (copy-to-matrix-type m 'ub8-matrix :constrain constrain))
  12
  13 (defgeneric copy-to-ub16-matrix (m &key constrain))
  14 (defmethod copy-to-ub16-matrix ((m matrix) &key (constrain nil))
  15   (copy-to-matrix-type m 'ub16-matrix :constrain constrain))
  16
  17 (defgeneric copy-to-ub32-matrix (m &key constrain))
  18 (defmethod copy-to-ub32-matrix ((m matrix) &key (constrain nil))
  19   (copy-to-matrix-type m 'ub32-matrix :constrain constrain))
  20
  21 (defgeneric copy-to-sb8-matrix (m &key constrain))
  22 (defmethod copy-to-sb8-matrix ((m matrix) &key (constrain nil))
  23   (copy-to-matrix-type m 'sb8-matrix :constrain constrain))
  24
  25 (defgeneric copy-to-sb16-matrix (m &key constrain))
  26 (defmethod copy-to-sb16-matrix ((m matrix) &key (constrain nil))
  27   (copy-to-matrix-type m 'sb16-matrix :constrain constrain))
  28
  29 (defgeneric copy-to-sb32-matrix (m &key constrain))
  30 (defmethod copy-to-sb32-matrix ((m matrix) &key (constrain nil))
  31   (copy-to-matrix-type m 'sb32-matrix :constrain constrain))
  32
  33 (defgeneric copy-to-double-float-matrix (m &key constrain))
  34 (defmethod copy-to-double-float-matrix ((m matrix) &key (constrain nil))
  35   (copy-to-matrix-type m 'double-float-matrix :constrain constrain))
  36
  37 (defgeneric copy-to-single-float-matrix (m &key constrain))
  38 (defmethod copy-to-single-float-matrix ((m matrix) &key (constrain nil))
  39   (copy-to-matrix-type m 'single-float-matrix :constrain constrain))
  40
  41 (defgeneric copy-to-fixnum-matrix (m &key constrain))
  42 (defmethod copy-to-fixnum-matrix ((m matrix) &key (constrain nil))
  43   (copy-to-matrix-type m 'fixnum-matrix :constrain constrain))
  44
  45 (defgeneric copy-to-bit-matrix (m &key constrain))
  46 (defmethod copy-to-bit-matrix ((m matrix) &key (constrain t))
  47   (copy-to-matrix-type m 'bit-matrix :constrain constrain))
  48
  49 (defgeneric copy-to-complex-matrix (m &key constrain))
  50 (defmethod copy-to-complex-matrix ((m matrix) &key (constrain t))
  51   (copy-to-matrix-type m 'complex-matrix :constrain constrain))