lisp/calc/calc-prog.el

40        (calc-enter-result arg "eq" (cons 'calcFunc-eq (calc-top-list-n arg)))
41      (calc-binary-op "eq" 'calcFunc-eq arg))))
46    (calc-unary-op "rmeq" 'calcFunc-rmeq arg)))
52        (calc-enter-result arg "neq" (cons 'calcFunc-neq (calc-top-list-n arg)))
53      (calc-binary-op "neq" 'calcFunc-neq arg))))
58    (calc-binary-op "lt" 'calcFunc-lt arg)))
63    (calc-binary-op "gt" 'calcFunc-gt arg)))
68    (calc-binary-op "leq" 'calcFunc-leq arg)))
73    (calc-binary-op "geq" 'calcFunc-geq arg)))
78    (calc-binary-op "in" 'calcFunc-in arg)))
83    (calc-binary-op "land" 'calcFunc-land arg 1)))
88    (calc-binary-op "lor" 'calcFunc-lor arg 0)))
93    (calc-unary-op "lnot" 'calcFunc-lnot arg)))
98    (calc-enter-result 3 "if" (cons 'calcFunc-if (calc-top-list-n 3)))))
172 	  (is-lambda (and (eq (car-safe form) 'calcFunc-lambda)
234                  (concat "calcFunc-"
239                                   (all-completions "calcFunc-"
243                              (intern (concat "calcFunc-" x))))
246                  (if (string-equal func "calcFunc-")
247                      (intern (concat "calcFunc-" cmd-base-default))
261 	 (setq func (intern (concat "calcFunc-User"
283 			 "Leave it symbolic for non-constant arguments? ")))
359 	      ((and (eq (car f) 'calcFunc-eval)
363 	      ((and (eq (car f) 'calcFunc-evalsimp)
366 	      ((and (eq (car f) 'calcFunc-evalextsimp)
383                  (concat "calcFunc-"
386                                                   (all-completions "calcFunc-"
390                                              (intern (concat "calcFunc-" x))))))))
906          (string-equal type "calc-copy-special-constant")
992 			   (setq defn (append '(calcFunc-lambda)
1012                                (concat "calcFunc-"
1017                                                 (all-completions "calcFunc-"
1021                                            (intern (concat "calcFunc-" x))))
1345 		     (setq counter (calcFunc-add counter step)))
1469 (defun calcFunc-eq (a b &rest more)
1485 	      (cons 'calcFunc-eq args)
1490 	    (list 'calcFunc-eq (math-neg a) (math-neg b))
1491 	  (list 'calcFunc-eq a b)))))
1493 (defun calcFunc-neq (a b &rest more)
1510 	    (cons 'calcFunc-neq args))))
1514 	    (list 'calcFunc-neq (math-neg a) (math-neg b))
1515 	  (list 'calcFunc-neq a b)))))
1543 (defun calcFunc-lt (a b)
1550 	      (list 'calcFunc-gt (math-neg a) (math-neg b))
1551 	    (list 'calcFunc-lt a b))
1554 (defun calcFunc-gt (a b)
1561 	      (list 'calcFunc-lt (math-neg a) (math-neg b))
1562 	    (list 'calcFunc-gt a b))
1565 (defun calcFunc-leq (a b)
1572 	      (list 'calcFunc-geq (math-neg a) (math-neg b))
1573 	    (list 'calcFunc-leq a b))
1576 (defun calcFunc-geq (a b)
1583 	      (list 'calcFunc-leq (math-neg a) (math-neg b))
1584 	    (list 'calcFunc-geq a b))
1587 (defun calcFunc-rmeq (a)
1589       (math-map-vec 'calcFunc-rmeq a)
1595       (if (eq (car-safe a) 'calcFunc-assign)
1597 	(if (eq (car-safe a) 'calcFunc-evalto)
1599 	  (list 'calcFunc-rmeq a))))))
1601 (defun calcFunc-land (a b)
1610 	(t (list 'calcFunc-land a b))))
1612 (defun calcFunc-lor (a b)
1621 	(t (list 'calcFunc-lor a b))))
1623 (defun calcFunc-lnot (a)
1632 	  (list 'calcFunc-lnot a))))))
1634 (defun calcFunc-if (c e1 e2)
1653 	  (list 'calcFunc-if c e1 e2)))))
1663   (or (and (eq (car a) 'calcFunc-if)
1672 		     (calcFunc-if (nth 1 a)
1676 		     (list 'calcFunc-if a1
1681 (defun calcFunc-in (a b)
1686 				  (eq (calcFunc-in a (car bb)) 1)
1712       (list 'calcFunc-in a b)))
1714 (defun calcFunc-typeof (a)
1728 	(t (math-calcFunc-to-var (car a)))))
1730 (defun calcFunc-integer (a)
1735       (list 'calcFunc-integer a))))
1737 (defun calcFunc-real (a)
1742       (list 'calcFunc-real a))))
1744 (defun calcFunc-constant (a)
1749       (list 'calcFunc-constant a))))
1751 (defun calcFunc-refers (a b)
1755 	(list 'calcFunc-refers a b)
1758 (defun calcFunc-negative (a)
1764       (list 'calcFunc-negative a))))
1766 (defun calcFunc-variable (a)
1771       (list 'calcFunc-variable a))))
1773 (defun calcFunc-nonvar (a)
1775       (list 'calcFunc-nonvar a)
1778 (defun calcFunc-istrue (a)
1791   (let* ((fname (intern (concat "calcFunc-" (symbol-name func))))
1954      (lsh . calcFunc-lsh)
1955      (ash . calcFunc-ash)
1956      (logand . calcFunc-and)
1957      (logandc2 . calcFunc-diff)
1958      (logior . calcFunc-or)
1959      (logxor . calcFunc-xor)
1960      (lognot . calcFunc-not)
2132 				   (cfunc (intern (concat "calcFunc-" name)))
2139 					 (string-match "\\`calcFunc-.*" name))
2342   (if (memq (nth 1 op) '(calcFunc-eq calcFunc-neq))
2346     (list 'calcFunc-in
2348 	  (if (memq (nth 1 op) '(calcFunc-lt calcFunc-leq))
2349 	      (if (memq (car x) '(calcFunc-lt calcFunc-leq))
2351 		   (+ (if (eq (car x) 'calcFunc-leq) 2 0)
2352 		      (if (eq (nth 1 op) 'calcFunc-leq) 1 0))
2355 	    (if (memq (car x) '(calcFunc-gt calcFunc-geq))
2357 		 (+ (if (eq (nth 1 op) 'calcFunc-geq) 2 0)
2358 		    (if (eq (car x) 'calcFunc-geq) 1 0))