Function: calcFunc-sign

calcFunc-sign is a byte-compiled function defined in calc-ext.el.gz.

Signature

(calcFunc-sign A &optional X)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
;;; Return 0 for zero, -1 for negative, 1 for positive.  [S n] [Public]
(defun calcFunc-sign (a &optional x)
  (let ((signs (math-possible-signs a)))
    (cond ((eq signs 4) (or x 1))
	  ((eq signs 2) 0)
	  ((eq signs 1) (if x (math-neg x) -1))
	  ((math-looks-negp a) (math-neg (calcFunc-sign (math-neg a))))
	  (t (calc-record-why 'realp a)
	     (if x
		 (list 'calcFunc-sign a x)
	       (list 'calcFunc-sign a))))))