;;; calculator.el --- a [not so] simple calculator for Emacs
-;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;; 2008, 2009 Free Software Foundation, Inc.
;; Author: Eli Barzilay <eli@barzilay.org>
;; Keywords: tools, convenience
-;; Time-stamp: <2007-08-31 03:00:11 ttn>
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by the
-;; Free Software Foundation; either version 3, or (at your option) any
-;; later version.
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
-;; GNU Emacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
-;; MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;;=====================================================================
;;; Commentary:
;; I hate history.
(eval-when-compile (require 'cl))
-(eval-and-compile
- (if (fboundp 'defgroup) nil
- (defmacro defgroup (&rest forms) nil)
- (defmacro defcustom (s v d &rest r) (list 'defvar s v d))))
;;;=====================================================================
;;; Customization:
:group 'convenience)
(defcustom calculator-electric-mode nil
- "*Run `calculator' electrically, in the echo area.
+ "Run `calculator' electrically, in the echo area.
Electric mode saves some place but changes the way you interact with the
calculator."
:type 'boolean
:group 'calculator)
(defcustom calculator-use-menu t
- "*Make `calculator' create a menu.
+ "Make `calculator' create a menu.
Note that this requires easymenu. Must be set before loading."
:type 'boolean
:group 'calculator)
(defcustom calculator-bind-escape nil
- "*If non-nil, set escape to exit the calculator."
+ "If non-nil, set escape to exit the calculator."
:type 'boolean
:group 'calculator)
(defcustom calculator-unary-style 'postfix
- "*Value is either 'prefix or 'postfix.
+ "Value is either 'prefix or 'postfix.
This determines the default behavior of unary operators."
:type '(choice (const prefix) (const postfix))
:group 'calculator)
(defcustom calculator-prompt "Calc=%s> "
- "*The prompt used by the Emacs calculator.
+ "The prompt used by the Emacs calculator.
It should contain a \"%s\" somewhere that will indicate the i/o radixes;
this will be a two-character string as described in the documentation
for `calculator-mode'."
:group 'calculator)
(defcustom calculator-number-digits 3
- "*The calculator's number of digits used for standard display.
+ "The calculator's number of digits used for standard display.
Used by the `calculator-standard-display' function - it will use the
format string \"%.NC\" where this number is N and C is a character given
at runtime."
:group 'calculator)
(defcustom calculator-radix-grouping-mode t
- "*Use digit grouping in radix output mode.
+ "Use digit grouping in radix output mode.
If this is set, chunks of `calculator-radix-grouping-digits' characters
will be separated by `calculator-radix-grouping-separator' when in radix
output mode is active (determined by `calculator-output-radix')."
:group 'calculator)
(defcustom calculator-radix-grouping-digits 4
- "*The number of digits used for grouping display in radix modes.
+ "The number of digits used for grouping display in radix modes.
See `calculator-radix-grouping-mode'."
:type 'integer
:group 'calculator)
(defcustom calculator-radix-grouping-separator "'"
- "*The separator used in radix grouping display.
+ "The separator used in radix grouping display.
See `calculator-radix-grouping-mode'."
:type 'string
:group 'calculator)
(defcustom calculator-remove-zeros t
- "*Non-nil value means delete all redundant zero decimal digits.
+ "Non-nil value means delete all redundant zero decimal digits.
If this value is not t, and not nil, redundant zeros are removed except
for one and if it is nil, nothing is removed.
Used by the `calculator-remove-zeros' function."
:group 'calculator)
(defcustom calculator-displayer '(std ?n)
- "*A displayer specification for numerical values.
+ "A displayer specification for numerical values.
This is the displayer used to show all numbers in an expression. Result
values will be displayed according to the first element of
`calculator-displayers'.
((std ?f) "Standard display, decimal point")
((std ?e) "Standard display, scientific")
("%S" "Emacs printer"))
- "*A list of displayers.
+ "A list of displayers.
Each element is a list of a displayer and a description string. The
first element is the one which is currently used, this is for the display
of result values not values in expressions. A displayer specification
:group 'calculator)
(defcustom calculator-paste-decimals t
- "*If non-nil, convert pasted integers so they have a decimal point.
+ "If non-nil, convert pasted integers so they have a decimal point.
This makes it possible to paste big integers since they will be read as
floats, otherwise the Emacs reader will fail on them."
:type 'boolean
:group 'calculator)
(defcustom calculator-copy-displayer nil
- "*If non-nil, this is any value that can be used for
+ "If non-nil, this is any value that can be used for
`calculator-displayer', to format a string before copying it with
`calculator-copy'. If nil, then `calculator-displayer's normal value is
used."
:group 'calculator)
(defcustom calculator-2s-complement nil
- "*If non-nil, show negative numbers in 2s complement in radix modes.
+ "If non-nil, show negative numbers in 2s complement in radix modes.
Otherwise show as a negative number."
:type 'boolean
:group 'calculator)
(defcustom calculator-mode-hook nil
- "*List of hook functions for `calculator-mode' to run.
+ "List of hook functions for `calculator-mode' to run.
Note: if `calculator-electric-mode' is on, then this hook will get
activated in the minibuffer - in that case it should not do much more
than local key settings and other effects that will change things
:group 'calculator)
(defcustom calculator-user-registers nil
- "*An association list of user-defined register bindings.
+ "An association list of user-defined register bindings.
Each element in this list is a list of a character and a number that
will be stored in that character's register.
:group 'calculator)
(defcustom calculator-user-operators nil
- "*A list of additional operators.
+ "A list of additional operators.
This is a list in the same format as specified in the documentation for
`calculator-operators', that you can use to bind additional calculator
operators. It is probably not a good idea to modify this value with
(calculator-standard-displayer 'right (cadr disp))))))))
(defun calculator-remove-zeros (numstr)
- "Get a number string NUMSTR and remove unnecessary zeroes.
-the behavior of this function is controlled by
+ "Get a number string NUMSTR and remove unnecessary zeros.
+The behavior of this function is controlled by
`calculator-remove-zeros'."
(cond ((and (eq calculator-remove-zeros t)
(string-match "\\.0+\\([eE][+-]?[0-9]*\\)?$" numstr))
(defun calculator-op-or-exp ()
"Either enter an operator or a digit.
Used with +/- for entering them as digits in numbers like 1e-3 (there is
-no need for negative numbers since these are handled by unary
-operators)."
+no need for negative numbers since these are handled by unary operators)."
(interactive)
(if (and (not calculator-display-fragile)
calculator-curnum
(calculator-quit))
(defun calculator-repR (x)
- "Repeats the last binary operation with its second argument and X.
+ "Repeat the last binary operation with its second argument and X.
To use this, apply a binary operator (evaluate it), then call this."
(if calculator-last-opXY
;; avoid rebinding calculator-last-opXY
x))
(defun calculator-repL (x)
- "Repeats the last binary operation with its first argument and X.
+ "Repeat the last binary operation with its first argument and X.
To use this, apply a binary operator (evaluate it), then call this."
(if calculator-last-opXY
;; avoid rebinding calculator-last-opXY
;; For small x, the range error comes from large y.
0.0)
((and (> x 0.0) (< y 0.0))
- ;; For large positive x and negative y, the range error
+ ;; For large positive x and negative y, the range error
;; comes from large negative y.
0.0)
((and (> x 0.0) (> y 0.0))
- ;; For large positive x and positive y, the range error
+ ;; For large positive x and positive y, the range error
;; comes from large y.
1.0e+INF)
;; For the rest, x must be large and negative.
;; The range errors come from large integer y.
((< y 0.0)
0.0)
- ((oddp (truncate y))
+ ((eq (logand (truncate y) 1) 1) ; expansion of cl `oddp'
;; If y is odd
-1.0e+INF)
(t
- ;;
+ ;;
1.0e+INF)))
(error 0.0e+NaN)))
(provide 'calculator)
-;;; arch-tag: a1b9766c-af8a-4a74-b466-65ad8eeb0c73
+;; arch-tag: a1b9766c-af8a-4a74-b466-65ad8eeb0c73
;;; calculator.el ends here
HCoop / bpt / emacs.git / blobdiff