Lines Matching +defs:entry +defs:format
30 ;; Calc is split into many files. This file is the main entry point.
121 ;; on the righthand side. An entry with no unfinished integrals on the
123 ;; integrated value. More than one cache entry for the same integral
496 In centered mode, center of stack entry is placed here.")
499 "Radix for entry and display of numbers in calc-mode, 2-36.")
516 (defcalcmodevar calc-frac-format '(":" nil)
522 (defcalcmodevar calc-hms-format "%s@ %s' %s\""
523 "Format of displayed hours-minutes-seconds angles, a format string.
526 (defcalcmodevar calc-date-format '((H ":" mm C SS pp " ")
530 (defcalcmodevar calc-float-format '(float 0)
533 (float 0) Floating point format, display full precision.
534 (float N) N > 0: Floating point format, at most N significant figures.
535 (float -N) -N < 0: Floating point format, calc-internal-prec - N figs.
536 (fix N) N >= 0: Fixed point format, N places after decimal point.
544 (defcalcmodevar calc-full-float-format '(float 0)
547 (defcalcmodevar calc-complex-format nil
591 "Language or format for entry and display of stack values. Must be one of:
593 flat Use standard Calc notation, one-line format.
644 "If non-nil, numeric entry accepts whole algebraic expressions.
758 calc-frac-format
760 calc-hms-format
761 calc-date-format
763 calc-float-format
764 calc-full-float-format
765 calc-complex-format
863 (defvar calc-trail-pointer nil) ; "Current" entry in trail buffer.
901 (defvar calc-selection-cache-default-entry nil)
907 (defvar math-radix-explicit-format t)
943 (define-key map "'" 'calc-algebraic-entry)
944 (define-key map "$" 'calc-auto-algebraic-entry)
945 (define-key map "\"" 'calc-auto-algebraic-entry)
1017 (define-key map (format "\e%c" (car x)) (cdr x)))
1064 ("calc-aent" calc-alg-digit-entry calc-alg-entry
1065 calc-check-user-syntax calc-do-alg-entry calc-do-calc-eval
1086 ("calc-aent" calc-algebraic-entry calc-auto-algebraic-entry
1123 (format "%s (Type ? for a list of Calc options)"
1135 (let ((prompt2 (format "%s " (key-description (this-command-keys))))
1466 (calc-date-format nil)
1535 (let* ((fmt (car calc-float-format))
1536 (figs (nth 1 calc-float-format))
1538 (format "Calc%s%s: %d %s %-14s"
1558 (format "Matrix%d " calc-matrix-mode))
1570 (format "BinSimp%d " calc-word-size))
1581 (t (format "Radix%d " calc-number-radix)))
1590 (if (zerop figs) "" (format "Norm%d " figs)))
1591 ((eq fmt 'fix) (format "Fix%d " figs))
1593 (if (zerop figs) "Sci " (format "Sci%d " figs)))
1595 (if (zerop figs) "Eng " (format "Eng%d " figs))))
1598 (format "Left%d " calc-display-origin) ""))
1601 (format "Right%d " calc-display-origin)
1605 (format "Center%d " calc-display-origin)
1608 (format "Wid%d " calc-line-breaking))
1668 (entry (list val 1 (car sels)))
1673 (cons entry (nthcdr (1- mm) calc-stack)))
1674 (setq calc-stack (cons entry calc-stack)))
1676 (insert (math-format-stack-value entry) "\n"))
1757 (cond ((eq sel-mode 'entry)
1812 (insert (format "%03d%s" (% lnum 1000)
1844 (insert (math-format-stack-value (car thing)) "\n")
1899 (math-format-flat-expr val 0)))
1910 (t (insert (format "%4s " prefix))))
2097 (calc-alg-digit-entry)
2111 "digit entry in kbd macro"))
2120 (calc-alg-entry calc-digit-value)
2144 (calc-temp-minibuffer-message " [Bad format]"))
2224 (insert (math-format-flat-expr calc-previous-modulo 0))
2245 (string-match " " calc-hms-format))
2254 (calc-temp-minibuffer-message " [Bad format]"))))))
2287 ;;; integer An integer. For normalized numbers, this format
3101 (defvar calc-selection-cache-entry)
3103 (defun math-format-stack-value (entry)
3104 (setq calc-selection-cache-entry calc-selection-cache-default-entry)
3105 (let* ((a (car entry))
3106 (math-comp-selected (nth 2 entry))
3108 ((eq calc-display-raw t) (format "%s" a))
3116 (math-format-number a))
3157 (setcar (cdr entry) (calc-count-lines s))
3186 (defun math-format-value (a &optional w)
3189 (math-format-number a)
3210 (defun math-format-flat-expr (a prec)
3219 (calc-frac-format (if (> (length (car calc-frac-format)) 1)
3221 (calc-complex-format nil)
3222 (calc-hms-format "%s@ %s' %s\"")
3224 (math-format-number a)))
3227 (math-format-flat-expr-fancy a prec))))
3232 (defun math-format-number (a &optional prec) ; [X N] [Public]
3234 ((eq calc-display-raw t) (format "%s" a))
3235 ((and (nth 1 calc-frac-format) (Math-integerp a))
3237 (math-format-number (math-adjust-fraction a)))
3243 (concat "-" (math-format-number (- a)))
3245 (if math-radix-explicit-format
3250 (math-format-binary a)
3251 (math-format-radix a)))
3252 (format "%d#%s" calc-number-radix
3254 (math-format-binary a)
3255 (math-format-radix a))))
3256 (math-format-radix a))))
3257 (math-format-number (math-bignum a))))
3260 ((eq (car a) 'bigpos) (math-format-bignum (cdr a)))
3261 ((eq (car a) 'bigneg) (concat "-" (math-format-bignum (cdr a))))
3264 (concat "-" (math-format-number (math-neg a)))
3267 (fmt (car calc-float-format))
3268 (figs (nth 1 calc-float-format))
3278 (math-format-bignum-decimal (cdr mant))))
3298 (math-format-bignum-decimal (cdr mant))))
3332 (setq str (format (if (memq calc-language '(math maple))
3340 (math-format-number-fancy a prec))))
3342 (defun math-format-bignum (a) ; [X L]
3346 (math-format-bignum-decimal a)
3348 (math-format-bignum-fancy a)))
3350 (defun math-format-bignum-decimal (a) ; [X L]
3354 (setq s (concat (format "%06d" (+ (* (nth 1 a) 1000) (car a))) s)