Function: calc-match

calc-match is an autoloaded, interactive and byte-compiled function defined in calc-rewr.el.gz.

Signature

(calc-match PAT &optional INTERACTIVE)

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-rewr.el.gz
(defun calc-match (pat &optional _interactive)
  (interactive "sPattern: \np")
  (calc-slow-wrapper
   (let (n expr)
     (if (or (null pat) (equal pat "") (equal pat "$"))
	 (setq expr (calc-top-n 2)
	       pat (calc-top-n 1)
	       n 2)
       (setq pat (if (stringp pat) (math-read-expr pat) pat))
       (if (eq (car-safe pat) 'error)
	   (error "Bad format in expression: %s" (nth 1 pat)))
       (if (not (eq (car-safe pat) 'var))
	   (calc-record pat "pat"))
       (setq expr (calc-top-n 1)
	     n 1))
     (or (math-vectorp expr) (error "Argument must be a vector"))
     (calc-enter-result n "mtcn"
                        (math-match-patterns pat expr
                                             (not (not (calc-is-inverse))))))))