239 |
;; Address of the author of Calc, for use by report-calc-bug. |
;; Address of the author of Calc, for use by report-calc-bug. |
240 |
(defvar calc-bug-address "walters@debian.org") |
(defvar calc-bug-address "walters@debian.org") |
241 |
|
|
242 |
;; If T, scan keymaps to find all DEL-like keys. |
;; If t, scan keymaps to find all DEL-like keys. |
243 |
;; If NIL, only DEL itself is mapped to calc-pop. |
;; if nil, only DEL itself is mapped to calc-pop. |
244 |
(defvar calc-scan-for-dels t) |
(defvar calc-scan-for-dels t) |
245 |
|
|
246 |
(defvar calc-extensions-loaded nil) |
(defvar calc-extensions-loaded nil) |
253 |
;; This is 1 unless calc-truncate-stack has been used. |
;; This is 1 unless calc-truncate-stack has been used. |
254 |
;;(defvar calc-stack-top 1) |
;;(defvar calc-stack-top 1) |
255 |
|
|
256 |
;; If non-NIL, load the calc-ext module automatically when calc is loaded. |
;; If non-nil, load the calc-ext module automatically when calc is loaded. |
257 |
;;(defvar calc-always-load-extensions nil) |
;;(defvar calc-always-load-extensions nil) |
258 |
|
|
259 |
;; If non-NIL, display line numbers in Calculator stack. |
;; If non-nil, display line numbers in Calculator stack. |
260 |
;;(defvar calc-line-numbering t) |
;;(defvar calc-line-numbering t) |
261 |
|
|
262 |
;; If non-NIL, break long values across multiple lines in Calculator stack. |
;; If non-nil, break long values across multiple lines in Calculator stack. |
263 |
;;(defvar calc-line-breaking t) |
;;(defvar calc-line-breaking t) |
264 |
|
|
265 |
;; If NIL, stack display is left-justified. |
;; If nil, stack display is left-justified. |
266 |
;; If 'right, stack display is right-justified. |
;; If 'right, stack display is right-justified. |
267 |
;; If 'center, stack display is centered." |
;; If 'center, stack display is centered." |
268 |
;;(defvar calc-display-just nil) |
;;(defvar calc-display-just nil) |
276 |
;; Radix for entry and display of numbers in calc-mode, 2-36. |
;; Radix for entry and display of numbers in calc-mode, 2-36. |
277 |
;;(defvar calc-number-radix 10) |
;;(defvar calc-number-radix 10) |
278 |
|
|
279 |
;; If non-NIL, leading zeros are provided to pad integers to calc-word-size. |
;; If non-nil, leading zeros are provided to pad integers to calc-word-size. |
280 |
;;(defvar calc-leading-zeros nil) |
;;(defvar calc-leading-zeros nil) |
281 |
|
|
282 |
;; If non-NIL, group digits in large displayed integers by inserting spaces. |
;; If non-nil, group digits in large displayed integers by inserting spaces. |
283 |
;; If an integer, group that many digits at a time. |
;; If an integer, group that many digits at a time. |
284 |
;; If 't', use 4 for binary and hex, 3 otherwise. |
;; If 't', use 4 for binary and hex, 3 otherwise. |
285 |
;;(defvar calc-group-digits nil) |
;;(defvar calc-group-digits nil) |
294 |
;; Format of displayed fractions; a string of one or two of ":" or "/". |
;; Format of displayed fractions; a string of one or two of ":" or "/". |
295 |
;;(defvar calc-frac-format '(":" nil)) |
;;(defvar calc-frac-format '(":" nil)) |
296 |
|
|
297 |
;; If non-NIL, prefer fractional over floating-point results. |
;; If non-nil, prefer fractional over floating-point results. |
298 |
;;(defvar calc-prefer-frac nil) |
;;(defvar calc-prefer-frac nil) |
299 |
|
|
300 |
;; Format of displayed hours-minutes-seconds angles, a format string. |
;; Format of displayed hours-minutes-seconds angles, a format string. |
330 |
;; Preferred form, either 'cplx or 'polar, for complex numbers. |
;; Preferred form, either 'cplx or 'polar, for complex numbers. |
331 |
;;(defvar calc-complex-mode 'cplx) |
;;(defvar calc-complex-mode 'cplx) |
332 |
|
|
333 |
;; If NIL, 1 / 0 is left unsimplified. |
;; If nil, 1 / 0 is left unsimplified. |
334 |
;; If 0, 1 / 0 is changed to inf (zeros are considered positive). |
;; If 0, 1 / 0 is changed to inf (zeros are considered positive). |
335 |
;; Otherwise, 1 / 0 is changed to uinf (undirected infinity). |
;; Otherwise, 1 / 0 is changed to uinf (undirected infinity). |
336 |
;;(defvar calc-infinite-mode nil) |
;;(defvar calc-infinite-mode nil) |
337 |
|
|
338 |
;; If non-NIL, display vectors of byte-sized integers as strings. |
;; If non-nil, display vectors of byte-sized integers as strings. |
339 |
;;(defvar calc-display-strings nil) |
;;(defvar calc-display-strings nil) |
340 |
|
|
341 |
;; If NIL, vector elements are left-justified. |
;; If nil, vector elements are left-justified. |
342 |
;; If 'right, vector elements are right-justified. |
;; If 'right, vector elements are right-justified. |
343 |
;; If 'center, vector elements are centered." |
;; If 'center, vector elements are centered." |
344 |
;;(defvar calc-matrix-just 'center) |
;;(defvar calc-matrix-just 'center) |
345 |
|
|
346 |
;; If non-NIL, display vectors one element per line. |
;; If non-nil, display vectors one element per line. |
347 |
;;(defvar calc-break-vectors nil) |
;;(defvar calc-break-vectors nil) |
348 |
|
|
349 |
;; If non-NIL, display long vectors in full. If NIL, use abbreviated form. |
;; If non-nil, display long vectors in full. If nil, use abbreviated form. |
350 |
;;(defvar calc-full-vectors t) |
;;(defvar calc-full-vectors t) |
351 |
|
|
352 |
;; If non-NIL, display long vectors in full in the trail. |
;; If non-nil, display long vectors in full in the trail. |
353 |
;;(defvar calc-full-trail-vectors t) |
;;(defvar calc-full-trail-vectors t) |
354 |
|
|
355 |
;; If non-NIL, separate elements of displayed vectors with this string. |
;; If non-nil, separate elements of displayed vectors with this string. |
356 |
;;(defvar calc-vector-commas ",") |
;;(defvar calc-vector-commas ",") |
357 |
|
|
358 |
;; If non-NIL, surround displayed vectors with these characters. |
;; If non-nil, surround displayed vectors with these characters. |
359 |
;;(defvar calc-vector-brackets "[]") |
;;(defvar calc-vector-brackets "[]") |
360 |
|
|
361 |
;; A list of code-letter symbols that control "big" matrix display. |
;; A list of code-letter symbols that control "big" matrix display. |
411 |
;; Type of simplification applied to results. |
;; Type of simplification applied to results. |
412 |
;; If 'none, results are not simplified when pushed on the stack. |
;; If 'none, results are not simplified when pushed on the stack. |
413 |
;; If 'num, functions are simplified only when args are constant. |
;; If 'num, functions are simplified only when args are constant. |
414 |
;; If NIL, only fast simplifications are applied. |
;; If nil, only fast simplifications are applied. |
415 |
;; If 'binary, math-clip is applied if appropriate. |
;; If 'binary, math-clip is applied if appropriate. |
416 |
;; If 'alg, math-simplify is applied. |
;; If 'alg, math-simplify is applied. |
417 |
;; If 'ext, math-simplify-extended is applied. |
;; If 'ext, math-simplify-extended is applied. |
418 |
;; If 'units, math-simplify-units is applied. |
;; If 'units, math-simplify-units is applied. |
419 |
;;(defvar calc-simplify-mode nil) |
;;(defvar calc-simplify-mode nil) |
420 |
|
|
421 |
;; If non-NIL, recompute evalto's automatically when necessary. |
;; If non-nil, recompute evalto's automatically when necessary. |
422 |
;;(defvar calc-auto-recompute t) |
;;(defvar calc-auto-recompute t) |
423 |
|
|
424 |
;; If non-NIL, display shows unformatted Lisp exprs. (For debugging) |
;; If non-nil, display shows unformatted Lisp exprs. (For debugging) |
425 |
;;(defvar calc-display-raw nil) |
;;(defvar calc-display-raw nil) |
426 |
|
|
427 |
;; Number of digits of internal precision for calc-mode calculations. |
;; Number of digits of internal precision for calc-mode calculations. |
428 |
;;(defvar calc-internal-prec 12) |
;;(defvar calc-internal-prec 12) |
429 |
|
|
430 |
;; If non-NIL, next operation is Inverse. |
;; If non-nil, next operation is Inverse. |
431 |
;;(defvar calc-inverse-flag nil) |
;;(defvar calc-inverse-flag nil) |
432 |
|
|
433 |
;; If non-NIL, next operation is Hyperbolic. |
;; If non-nil, next operation is Hyperbolic. |
434 |
;;(defvar calc-hyperbolic-flag nil) |
;;(defvar calc-hyperbolic-flag nil) |
435 |
|
|
436 |
;; If non-NIL, next operation should not remove its arguments from stack. |
;; If non-nil, next operation should not remove its arguments from stack. |
437 |
;;(defvar calc-keep-args-flag nil) |
;;(defvar calc-keep-args-flag nil) |
438 |
|
|
439 |
;; If deg, angles are in degrees; if rad, angles are in radians. |
;; If deg, angles are in degrees; if rad, angles are in radians. |
440 |
;; If hms, angles are in degrees-minutes-seconds. |
;; If hms, angles are in degrees-minutes-seconds. |
441 |
;;(defvar calc-angle-mode 'deg) |
;;(defvar calc-angle-mode 'deg) |
442 |
|
|
443 |
;; If non-NIL, numeric entry accepts whole algebraic expressions. |
;; If non-nil, numeric entry accepts whole algebraic expressions. |
444 |
;; If NIL, algebraic expressions must be preceded by "'". |
;; If nil, algebraic expressions must be preceded by "'". |
445 |
;;(defvar calc-algebraic-mode nil) |
;;(defvar calc-algebraic-mode nil) |
446 |
|
|
447 |
;; Like calc-algebraic-mode except only affects ( and [ keys. |
;; Like calc-algebraic-mode except only affects ( and [ keys. |
448 |
;;(defvar calc-incomplete-algebraic-mode nil) |
;;(defvar calc-incomplete-algebraic-mode nil) |
449 |
|
|
450 |
;; If non-NIL, inexact numeric computations like sqrt(2) are postponed. |
;; If non-nil, inexact numeric computations like sqrt(2) are postponed. |
451 |
;; If NIL, computations on numbers always yield numbers where possible. |
;; If nil, computations on numbers always yield numbers where possible. |
452 |
;;(defvar calc-symbolic-mode nil) |
;;(defvar calc-symbolic-mode nil) |
453 |
|
|
454 |
;; If 'matrix, variables are assumed to be matrix-valued. |
;; If 'matrix, variables are assumed to be matrix-valued. |
455 |
;; If a number, variables are assumed to be NxN matrices. |
;; If a number, variables are assumed to be NxN matrices. |
456 |
;; If 'scalar, variables are assumed to be scalar-valued. |
;; If 'scalar, variables are assumed to be scalar-valued. |
457 |
;; If NIL, symbolic math routines make no assumptions about variables. |
;; If nil, symbolic math routines make no assumptions about variables. |
458 |
;;(defvar calc-matrix-mode nil) |
;;(defvar calc-matrix-mode nil) |
459 |
|
|
460 |
;; If non-NIL, shifted letter keys are prefix keys rather than normal meanings. |
;; If non-nil, shifted letter keys are prefix keys rather than normal meanings. |
461 |
;;(defvar calc-shift-prefix nil) |
;;(defvar calc-shift-prefix nil) |
462 |
|
|
463 |
;; Initial height of Calculator window. |
;; Initial height of Calculator window. |
464 |
;;(defvar calc-window-height 7) |
;;(defvar calc-window-height 7) |
465 |
|
|
466 |
;; If non-NIL, M-x calc creates a window to display Calculator trail. |
;; If non-nil, M-x calc creates a window to display Calculator trail. |
467 |
;;(defvar calc-display-trail t) |
;;(defvar calc-display-trail t) |
468 |
|
|
469 |
;; If non-NIL, selected sub-formulas are shown by obscuring rest of formula. |
;; If non-nil, selected sub-formulas are shown by obscuring rest of formula. |
470 |
;; If NIL, selected sub-formulas are highlighted by obscuring the sub-formulas. |
;; If nil, selected sub-formulas are highlighted by obscuring the sub-formulas. |
471 |
;;(defvar calc-show-selections t) |
;;(defvar calc-show-selections t) |
472 |
|
|
473 |
;; If non-NIL, commands operate only on selected portions of formulas. |
;; If non-nil, commands operate only on selected portions of formulas. |
474 |
;; If NIL, selections displayed but ignored. |
;; If nil, selections displayed but ignored. |
475 |
;;(defvar calc-use-selections t) |
;;(defvar calc-use-selections t) |
476 |
|
|
477 |
;; If non-NIL, selection hides deep structure of associative formulas. |
;; If non-nil, selection hides deep structure of associative formulas. |
478 |
;;(defvar calc-assoc-selections t) |
;;(defvar calc-assoc-selections t) |
479 |
|
|
480 |
;; If non-NIL, display "Working..." for potentially slow Calculator commands. |
;; If non-nil, display "Working..." for potentially slow Calculator commands. |
481 |
;;(defvar calc-display-working-message 'lots) |
;;(defvar calc-display-working-message 'lots) |
482 |
|
|
483 |
;; If non-NIL, automatically execute a "why" command to explain odd results. |
;; If non-nil, automatically execute a "why" command to explain odd results. |
484 |
;;(defvar calc-auto-why nil) |
;;(defvar calc-auto-why nil) |
485 |
|
|
486 |
;; If non-NIL, display timing information on each slow command. |
;; If non-nil, display timing information on each slow command. |
487 |
;;(defvar calc-timing nil) |
;;(defvar calc-timing nil) |
488 |
|
|
489 |
;; Floating-point numbers with this positive exponent or higher above the |
;; Floating-point numbers with this positive exponent or higher above the |
501 |
;; List of strings for Y prefix help. |
;; List of strings for Y prefix help. |
502 |
(defvar calc-Y-help-msgs nil) |
(defvar calc-Y-help-msgs nil) |
503 |
|
|
504 |
;; T if calc-settings-file has been loaded yet. |
;; t if calc-settings-file has been loaded yet. |
505 |
(defvar calc-loaded-settings-file nil) |
(defvar calc-loaded-settings-file nil) |
506 |
|
|
507 |
|
|