3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
;; Keywords: convenience, extensions |
;; Keywords: convenience, extensions |
8 |
;; Version: 2.02g |
;; Version: 2.02g |
9 |
|
|
236 |
(defvar calc-gnuplot-print-command "lp %s" |
(defvar calc-gnuplot-print-command "lp %s" |
237 |
"*Name of command for printing GNUPLOT output; %s = file name to print.") |
"*Name of command for printing GNUPLOT output; %s = file name to print.") |
238 |
|
|
239 |
(defvar calc-bug-address "deego@gnufans.org" |
(defvar calc-bug-address "belanger@truman.edu" |
240 |
"Address of the author of Calc, for use by `report-calc-bug'.") |
"Address of the author of Calc, for use by `report-calc-bug'.") |
241 |
|
|
242 |
(defvar calc-scan-for-dels t |
(defvar calc-scan-for-dels t |
256 |
"Index into `calc-stack' of \"top\" of stack. |
"Index into `calc-stack' of \"top\" of stack. |
257 |
This is 1 unless `calc-truncate-stack' has been used.") |
This is 1 unless `calc-truncate-stack' has been used.") |
258 |
|
|
259 |
(defvar calc-always-load-extensions nil |
(defvar calc-display-sci-high 0 |
260 |
"If non-nil, load the calc-ext module automatically when calc is loaded.") |
"Floating-point numbers with this positive exponent or higher above the |
261 |
|
current precision are displayed in scientific notation in calc-mode.") |
262 |
|
|
263 |
(defvar calc-line-numbering t |
(defvar calc-display-sci-low -3 |
264 |
"If non-nil, display line numbers in Calculator stack.") |
"Floating-point numbers with this negative exponent or lower are displayed |
265 |
|
scientific notation in calc-mode.") |
266 |
|
|
267 |
(defvar calc-line-breaking t |
(defvar calc-other-modes nil |
268 |
"If non-nil, break long values across multiple lines in Calculator stack.") |
"List of used-defined strings to append to Calculator mode line.") |
269 |
|
|
270 |
(defvar calc-display-just nil |
(defvar calc-Y-help-msgs nil |
271 |
"If nil, stack display is left-justified. |
"List of strings for Y prefix help.") |
272 |
|
|
273 |
|
(defvar calc-loaded-settings-file nil |
274 |
|
"t if `calc-settings-file' has been loaded yet.") |
275 |
|
|
276 |
|
(defvar calc-always-load-extensions) |
277 |
|
(defvar calc-line-numbering) |
278 |
|
(defvar calc-line-breaking) |
279 |
|
(defvar calc-display-just) |
280 |
|
(defvar calc-display-origin) |
281 |
|
(defvar calc-number-radix) |
282 |
|
(defvar calc-leading-zeros) |
283 |
|
(defvar calc-group-digits) |
284 |
|
(defvar calc-group-char) |
285 |
|
(defvar calc-point-char) |
286 |
|
(defvar calc-frac-format) |
287 |
|
(defvar calc-prefer-frac) |
288 |
|
(defvar calc-hms-format) |
289 |
|
(defvar calc-date-format) |
290 |
|
(defvar calc-float-format) |
291 |
|
(defvar calc-full-float-format) |
292 |
|
(defvar calc-complex-format) |
293 |
|
(defvar calc-complex-mode) |
294 |
|
(defvar calc-infinite-mode) |
295 |
|
(defvar calc-display-strings) |
296 |
|
(defvar calc-matrix-just) |
297 |
|
(defvar calc-break-vectors) |
298 |
|
(defvar calc-full-vectors) |
299 |
|
(defvar calc-full-trail-vectors) |
300 |
|
(defvar calc-vector-commas) |
301 |
|
(defvar calc-vector-brackets) |
302 |
|
(defvar calc-matrix-brackets) |
303 |
|
(defvar calc-language) |
304 |
|
(defvar calc-language-option) |
305 |
|
(defvar calc-left-label) |
306 |
|
(defvar calc-right-label) |
307 |
|
(defvar calc-word-size) |
308 |
|
(defvar calc-previous-modulo) |
309 |
|
(defvar calc-simplify-mode) |
310 |
|
(defvar calc-auto-recompute) |
311 |
|
(defvar calc-display-raw) |
312 |
|
(defvar calc-internal-prec) |
313 |
|
(defvar calc-angle-mode) |
314 |
|
(defvar calc-algebraic-mode) |
315 |
|
(defvar calc-incomplete-algebraic-mode) |
316 |
|
(defvar calc-symbolic-mode) |
317 |
|
(defvar calc-matrix-mode) |
318 |
|
(defvar calc-shift-prefix) |
319 |
|
(defvar calc-window-height) |
320 |
|
(defvar calc-display-trail) |
321 |
|
(defvar calc-show-selections) |
322 |
|
(defvar calc-use-selections) |
323 |
|
(defvar calc-assoc-selections) |
324 |
|
(defvar calc-display-working-message) |
325 |
|
(defvar calc-auto-why) |
326 |
|
(defvar calc-timing) |
327 |
|
(defvar calc-mode-save-mode) |
328 |
|
(defvar calc-standard-date-formats) |
329 |
|
(defvar calc-autorange-units) |
330 |
|
(defvar calc-was-keypad-mode) |
331 |
|
(defvar calc-full-mode) |
332 |
|
(defvar calc-user-parse-tables) |
333 |
|
(defvar calc-gnuplot-default-device) |
334 |
|
(defvar calc-gnuplot-default-output) |
335 |
|
(defvar calc-gnuplot-print-device) |
336 |
|
(defvar calc-gnuplot-print-output) |
337 |
|
(defvar calc-gnuplot-geometry) |
338 |
|
(defvar calc-graph-default-resolution) |
339 |
|
(defvar calc-graph-default-resolution-3d) |
340 |
|
(defvar calc-invocation-macro) |
341 |
|
(defvar calc-show-banner) |
342 |
|
|
343 |
|
(defconst calc-mode-var-list '( |
344 |
|
(calc-always-load-extensions nil |
345 |
|
"If non-nil, load the calc-ext module automatically when calc is loaded.") |
346 |
|
|
347 |
|
(calc-line-numbering t |
348 |
|
"If non-nil, display line numbers in Calculator stack.") |
349 |
|
|
350 |
|
(calc-line-breaking t |
351 |
|
"If non-nil, break long values across multiple lines in Calculator stack.") |
352 |
|
|
353 |
|
(calc-display-just nil |
354 |
|
"If nil, stack display is left-justified. |
355 |
If `right', stack display is right-justified. |
If `right', stack display is right-justified. |
356 |
If `center', stack display is centered.") |
If `center', stack display is centered.") |
357 |
|
|
358 |
(defvar calc-display-origin nil |
(calc-display-origin nil |
359 |
"Horizontal origin of displayed stack entries. |
"Horizontal origin of displayed stack entries. |
360 |
In left-justified mode, this is effectively indentation. (Default 0). |
In left-justified mode, this is effectively indentation. (Default 0). |
361 |
In right-justified mode, this is effectively window width. |
In right-justified mode, this is effectively window width. |
362 |
In centered mode, center of stack entry is placed here.") |
In centered mode, center of stack entry is placed here.") |
363 |
|
|
364 |
(defvar calc-number-radix 10 |
(calc-number-radix 10 |
365 |
"Radix for entry and display of numbers in calc-mode, 2-36.") |
"Radix for entry and display of numbers in calc-mode, 2-36.") |
366 |
|
|
367 |
(defvar calc-leading-zeros nil |
(calc-leading-zeros nil |
368 |
"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.") |
369 |
|
|
370 |
(defvar calc-group-digits nil |
(calc-group-digits nil |
371 |
"If non-nil, group digits in large displayed integers by inserting spaces. |
"If non-nil, group digits in large displayed integers by inserting spaces. |
372 |
If an integer, group that many digits at a time. |
If an integer, group that many digits at a time. |
373 |
If t, use 4 for binary and hex, 3 otherwise.") |
If t, use 4 for binary and hex, 3 otherwise.") |
374 |
|
|
375 |
(defvar calc-group-char "," |
(calc-group-char "," |
376 |
"The character (in the form of a string) to be used for grouping digits. |
"The character (in the form of a string) to be used for grouping digits. |
377 |
This is used only when calc-group-digits mode is on.") |
This is used only when calc-group-digits mode is on.") |
378 |
|
|
379 |
(defvar calc-point-char "." |
(calc-point-char "." |
380 |
"The character (in the form of a string) to be used as a decimal point.") |
"The character (in the form of a string) to be used as a decimal point.") |
381 |
|
|
382 |
|
(calc-frac-format (":" nil) |
383 |
|
"Format of displayed fractions; a string of one or two of \":\" or \"/\".") |
384 |
|
|
385 |
(defvar calc-frac-format '(":" nil) |
(calc-prefer-frac nil |
386 |
"Format of displayed fractions; a string of one or two of \":\" or \"/\".") |
"If non-nil, prefer fractional over floating-point results.") |
387 |
|
|
388 |
(defvar calc-prefer-frac nil |
(calc-hms-format "%s@ %s' %s\"" |
389 |
"If non-nil, prefer fractional over floating-point results.") |
"Format of displayed hours-minutes-seconds angles, a format string. |
|
|
|
|
(defvar calc-hms-format "%s@ %s' %s\"" |
|
|
"Format of displayed hours-minutes-seconds angles, a format string. |
|
390 |
String must contain three %s marks for hours, minutes, seconds respectively.") |
String must contain three %s marks for hours, minutes, seconds respectively.") |
391 |
|
|
392 |
(defvar calc-date-format '((H ":" mm C SS pp " ") |
(calc-date-format ((H ":" mm C SS pp " ") |
393 |
Www " " Mmm " " D ", " YYYY) |
Www " " Mmm " " D ", " YYYY) |
394 |
"Format of displayed date forms.") |
"Format of displayed date forms.") |
395 |
|
|
396 |
(defvar calc-float-format '(float 0) |
(calc-float-format (float 0) |
397 |
"Format to use for display of floating-point numbers in calc-mode. |
"Format to use for display of floating-point numbers in calc-mode. |
398 |
Must be a list of one of the following forms: |
Must be a list of one of the following forms: |
399 |
(float 0) Floating point format, display full precision. |
(float 0) Floating point format, display full precision. |
400 |
(float N) N > 0: Floating point format, at most N significant figures. |
(float N) N > 0: Floating point format, at most N significant figures. |
407 |
(eng N) N > 0: Engineering notation, N significant figures. |
(eng N) N > 0: Engineering notation, N significant figures. |
408 |
(eng -N) -N < 0: Engineering notation, calc-internal-prec - N figs.") |
(eng -N) -N < 0: Engineering notation, calc-internal-prec - N figs.") |
409 |
|
|
410 |
(defvar calc-full-float-format '(float 0) |
(calc-full-float-format (float 0) |
411 |
"Format to use when full precision must be displayed.") |
"Format to use when full precision must be displayed.") |
412 |
|
|
413 |
(defvar calc-complex-format nil |
(calc-complex-format nil |
414 |
"Format to use for display of complex numbers in calc-mode. Must be one of: |
"Format to use for display of complex numbers in calc-mode. Must be one of: |
415 |
nil Use (x, y) form. |
nil Use (x, y) form. |
416 |
i Use x + yi form. |
i Use x + yi form. |
417 |
j Use x + yj form.") |
j Use x + yj form.") |
418 |
|
|
419 |
(defvar calc-complex-mode 'cplx |
(calc-complex-mode cplx |
420 |
"Preferred form, either `cplx' or `polar', for complex numbers.") |
"Preferred form, either `cplx' or `polar', for complex numbers.") |
421 |
|
|
422 |
(defvar calc-infinite-mode nil |
(calc-infinite-mode nil |
423 |
"If nil, 1 / 0 is left unsimplified. |
"If nil, 1 / 0 is left unsimplified. |
424 |
If 0, 1 / 0 is changed to inf (zeros are considered positive). |
If 0, 1 / 0 is changed to inf (zeros are considered positive). |
425 |
Otherwise, 1 / 0 is changed to uinf (undirected infinity).") |
Otherwise, 1 / 0 is changed to uinf (undirected infinity).") |
426 |
|
|
427 |
(defvar calc-display-strings nil |
(calc-display-strings nil |
428 |
"If non-nil, display vectors of byte-sized integers as strings.") |
"If non-nil, display vectors of byte-sized integers as strings.") |
429 |
|
|
430 |
(defvar calc-matrix-just 'center |
(calc-matrix-just 'center |
431 |
"If nil, vector elements are left-justified. |
"If nil, vector elements are left-justified. |
432 |
If `right', vector elements are right-justified. |
If `right', vector elements are right-justified. |
433 |
If `center', vector elements are centered.") |
If `center', vector elements are centered.") |
434 |
|
|
435 |
(defvar calc-break-vectors nil |
(calc-break-vectors nil |
436 |
"If non-nil, display vectors one element per line.") |
"If non-nil, display vectors one element per line.") |
437 |
|
|
438 |
(defvar calc-full-vectors t |
(calc-full-vectors t |
439 |
"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.") |
440 |
|
|
441 |
(defvar calc-full-trail-vectors t |
(calc-full-trail-vectors t |
442 |
"If non-nil, display long vectors in full in the trail.") |
"If non-nil, display long vectors in full in the trail.") |
443 |
|
|
444 |
(defvar calc-vector-commas "," |
(calc-vector-commas "," |
445 |
"If non-nil, separate elements of displayed vectors with this string.") |
"If non-nil, separate elements of displayed vectors with this string.") |
446 |
|
|
447 |
(defvar calc-vector-brackets "[]" |
(calc-vector-brackets "[]" |
448 |
"If non-nil, surround displayed vectors with these characters.") |
"If non-nil, surround displayed vectors with these characters.") |
449 |
|
|
450 |
(defvar calc-matrix-brackets '(R O) |
(calc-matrix-brackets '(R O) |
451 |
"A list of code-letter symbols that control \"big\" matrix display. |
"A list of code-letter symbols that control \"big\" matrix display. |
452 |
If `R' is present, display inner brackets for matrices. |
If `R' is present, display inner brackets for matrices. |
453 |
If `O' is present, display outer brackets for matrices (above/below). |
If `O' is present, display outer brackets for matrices (above/below). |
454 |
If `C' is present, display outer brackets for matrices (centered).") |
If `C' is present, display outer brackets for matrices (centered).") |
455 |
|
|
456 |
(defvar calc-language nil |
(calc-language nil |
457 |
"Language or format for entry and display of stack values. Must be one of: |
"Language or format for entry and display of stack values. Must be one of: |
458 |
nil Use standard Calc notation. |
nil Use standard Calc notation. |
459 |
flat Use standard Calc notation, one-line format. |
flat Use standard Calc notation, one-line format. |
460 |
big Display formulas in 2-d notation (enter w/std notation). |
big Display formulas in 2-d notation (enter w/std notation). |
467 |
math Use Mathematica(tm) notation. |
math Use Mathematica(tm) notation. |
468 |
maple Use Maple notation.") |
maple Use Maple notation.") |
469 |
|
|
470 |
(defvar calc-language-option nil |
(calc-language-option nil |
471 |
"Numeric prefix argument for the command that set `calc-language'.") |
"Numeric prefix argument for the command that set `calc-language'.") |
472 |
|
|
473 |
(defvar calc-function-open "(" |
(calc-left-label "" |
474 |
"Open-parenthesis string for function call notation.") |
"Label to display at left of formula.") |
|
|
|
|
(defvar calc-function-close ")" |
|
|
"Close-parenthesis string for function call notation.") |
|
|
|
|
|
(defvar calc-language-output-filter nil |
|
|
"Function through which to pass strings after formatting.") |
|
|
|
|
|
(defvar calc-language-input-filter nil |
|
|
"Function through which to pass strings before parsing.") |
|
|
|
|
|
(defvar calc-radix-formatter nil |
|
|
"Formatting function used for non-decimal numbers.") |
|
|
|
|
|
(defvar calc-left-label "" |
|
|
"Label to display at left of formula.") |
|
475 |
|
|
476 |
(defvar calc-right-label "" |
(calc-right-label "" |
477 |
"Label to display at right of formula.") |
"Label to display at right of formula.") |
478 |
|
|
479 |
(defvar calc-word-size 32 |
(calc-word-size 32 |
480 |
"Minimum number of bits per word, if any, for binary operations in calc-mode.") |
"Minimum number of bits per word, if any, for binary operations in calc-mode.") |
481 |
|
|
482 |
(defvar calc-previous-modulo nil |
(calc-previous-modulo nil |
483 |
"Most recently used value of M in a modulo form.") |
"Most recently used value of M in a modulo form.") |
484 |
|
|
485 |
(defvar calc-simplify-mode nil |
(calc-simplify-mode nil |
486 |
"Type of simplification applied to results. |
"Type of simplification applied to results. |
487 |
If `none', results are not simplified when pushed on the stack. |
If `none', results are not simplified when pushed on the stack. |
488 |
If `num', functions are simplified only when args are constant. |
If `num', functions are simplified only when args are constant. |
489 |
If nil, only fast simplifications are applied. |
If nil, only fast simplifications are applied. |
492 |
If `ext', `math-simplify-extended' is applied. |
If `ext', `math-simplify-extended' is applied. |
493 |
If `units', `math-simplify-units' is applied.") |
If `units', `math-simplify-units' is applied.") |
494 |
|
|
495 |
(defvar calc-auto-recompute t |
(calc-auto-recompute t |
496 |
"If non-nil, recompute evalto's automatically when necessary.") |
"If non-nil, recompute evalto's automatically when necessary.") |
|
|
|
|
(defvar calc-display-raw nil |
|
|
"If non-nil, display shows unformatted Lisp exprs. (For debugging)") |
|
|
|
|
|
(defvar calc-internal-prec 12 |
|
|
"Number of digits of internal precision for calc-mode calculations.") |
|
|
|
|
|
(defvar calc-inverse-flag nil |
|
|
"If non-nil, next operation is Inverse.") |
|
497 |
|
|
498 |
(defvar calc-hyperbolic-flag nil |
(calc-display-raw nil |
499 |
"If non-nil, next operation is Hyperbolic.") |
"If non-nil, display shows unformatted Lisp exprs. (For debugging)") |
500 |
|
|
501 |
(defvar calc-keep-args-flag nil |
(calc-internal-prec 12 |
502 |
"If non-nil, next operation should not remove its arguments from stack.") |
"Number of digits of internal precision for calc-mode calculations.") |
503 |
|
|
504 |
(defvar calc-angle-mode 'deg |
(calc-angle-mode deg |
505 |
"If deg, angles are in degrees; if rad, angles are in radians. |
"If deg, angles are in degrees; if rad, angles are in radians. |
506 |
If hms, angles are in degrees-minutes-seconds.") |
If hms, angles are in degrees-minutes-seconds.") |
507 |
|
|
508 |
(defvar calc-algebraic-mode nil |
(calc-algebraic-mode nil |
509 |
"If non-nil, numeric entry accepts whole algebraic expressions. |
"If non-nil, numeric entry accepts whole algebraic expressions. |
510 |
If nil, algebraic expressions must be preceded by \"'\".") |
If nil, algebraic expressions must be preceded by \"'\".") |
511 |
|
|
512 |
(defvar calc-incomplete-algebraic-mode nil |
(calc-incomplete-algebraic-mode nil |
513 |
"Like calc-algebraic-mode except only affects ( and [ keys.") |
"Like calc-algebraic-mode except only affects ( and [ keys.") |
514 |
|
|
515 |
(defvar calc-symbolic-mode nil |
(calc-symbolic-mode nil |
516 |
"If non-nil, inexact numeric computations like sqrt(2) are postponed. |
"If non-nil, inexact numeric computations like sqrt(2) are postponed. |
517 |
If nil, computations on numbers always yield numbers where possible.") |
If nil, computations on numbers always yield numbers where possible.") |
518 |
|
|
519 |
(defvar calc-matrix-mode nil |
(calc-matrix-mode nil |
520 |
"If `matrix', variables are assumed to be matrix-valued. |
"If `matrix', variables are assumed to be matrix-valued. |
521 |
If a number, variables are assumed to be NxN matrices. |
If a number, variables are assumed to be NxN matrices. |
522 |
If `scalar', variables are assumed to be scalar-valued. |
If `scalar', variables are assumed to be scalar-valued. |
523 |
If nil, symbolic math routines make no assumptions about variables.") |
If nil, symbolic math routines make no assumptions about variables.") |
524 |
|
|
525 |
(defvar calc-shift-prefix nil |
(calc-shift-prefix nil |
526 |
"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.") |
527 |
|
|
528 |
(defvar calc-window-height 7 |
(calc-window-height 7 |
529 |
"Initial height of Calculator window.") |
"Initial height of Calculator window.") |
530 |
|
|
531 |
(defvar calc-display-trail t |
(calc-display-trail t |
532 |
"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.") |
533 |
|
|
534 |
(defvar calc-show-selections t |
(calc-show-selections t |
535 |
"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. |
536 |
If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.") |
If nil, selected sub-formulas are highlighted by obscuring the sub-formulas.") |
537 |
|
|
538 |
(defvar calc-use-selections t |
(calc-use-selections t |
539 |
"If non-nil, commands operate only on selected portions of formulas. |
"If non-nil, commands operate only on selected portions of formulas. |
540 |
If nil, selections displayed but ignored.") |
If nil, selections displayed but ignored.") |
541 |
|
|
542 |
(defvar calc-assoc-selections t |
(calc-assoc-selections t |
543 |
"If non-nil, selection hides deep structure of associative formulas.") |
"If non-nil, selection hides deep structure of associative formulas.") |
544 |
|
|
545 |
(defvar calc-display-working-message 'lots |
(calc-display-working-message 'lots |
546 |
"If non-nil, display \"Working...\" for potentially slow Calculator commands.") |
"If non-nil, display \"Working...\" for potentially slow Calculator commands.") |
547 |
|
|
548 |
(defvar calc-auto-why 'maybe |
(calc-auto-why 'maybe |
549 |
"If non-nil, automatically execute a \"why\" command to explain odd results.") |
"If non-nil, automatically execute a \"why\" command to explain odd results.") |
550 |
|
|
551 |
(defvar calc-timing nil |
(calc-timing nil |
552 |
"If non-nil, display timing information on each slow command.") |
"If non-nil, display timing information on each slow command.") |
553 |
|
|
554 |
(defvar calc-display-sci-high 0 |
(calc-mode-save-mode local) |
|
"Floating-point numbers with this positive exponent or higher above the |
|
|
current precision are displayed in scientific notation in calc-mode.") |
|
555 |
|
|
556 |
(defvar calc-display-sci-low -3 |
(calc-standard-date-formats |
557 |
"Floating-point numbers with this negative exponent or lower are displayed |
'("N" |
558 |
scientific notation in calc-mode.") |
"<H:mm:SSpp >Www Mmm D, YYYY" |
559 |
|
"D Mmm YYYY<, h:mm:SS>" |
560 |
|
"Www Mmm BD< hh:mm:ss> YYYY" |
561 |
|
"M/D/Y< H:mm:SSpp>" |
562 |
|
"D.M.Y< h:mm:SS>" |
563 |
|
"M-D-Y< H:mm:SSpp>" |
564 |
|
"D-M-Y< h:mm:SS>" |
565 |
|
"j<, h:mm:SS>" |
566 |
|
"YYddd< hh:mm:ss>")) |
567 |
|
|
568 |
|
(calc-autorange-units nil) |
569 |
|
|
570 |
|
(calc-was-keypad-mode nil) |
571 |
|
|
572 |
|
(calc-full-mode nil) |
573 |
|
|
574 |
(defvar calc-other-modes nil |
(calc-user-parse-tables nil) |
|
"List of used-defined strings to append to Calculator mode line.") |
|
575 |
|
|
576 |
(defvar calc-Y-help-msgs nil |
(calc-gnuplot-default-device "default") |
|
"List of strings for Y prefix help.") |
|
577 |
|
|
578 |
(defvar calc-loaded-settings-file nil |
(calc-gnuplot-default-output "STDOUT") |
579 |
"t if `calc-settings-file' has been loaded yet.") |
|
580 |
|
(calc-gnuplot-print-device "postscript") |
581 |
|
|
582 |
|
(calc-gnuplot-print-output "auto") |
583 |
|
|
584 |
|
(calc-gnuplot-geometry nil) |
585 |
|
|
586 |
|
(calc-graph-default-resolution 15) |
587 |
|
|
588 |
|
(calc-graph-default-resolution-3d 5) |
589 |
|
|
590 |
|
(calc-invocation-macro nil) |
591 |
|
|
592 |
(defvar calc-mode-save-mode 'local) |
(calc-show-banner t)) |
593 |
(defvar calc-standard-date-formats |
"List of variables (and default values) used in customizing GNU Calc.") |
594 |
'("N" |
|
595 |
"<H:mm:SSpp >Www Mmm D, YYYY" |
(mapcar (function (lambda (v) |
596 |
"D Mmm YYYY<, h:mm:SS>" |
(or (boundp (car v)) |
597 |
"Www Mmm BD< hh:mm:ss> YYYY" |
(set (car v) (nth 1 v))) |
598 |
"M/D/Y< H:mm:SSpp>" |
(if (nth 2 v) |
599 |
"D.M.Y< h:mm:SS>" |
(put (car v) 'variable-documentation (nth 2 v))))) |
600 |
"M-D-Y< H:mm:SSpp>" |
calc-mode-var-list) |
|
"D-M-Y< h:mm:SS>" |
|
|
"j<, h:mm:SS>" |
|
|
"YYddd< hh:mm:ss>")) |
|
|
(defvar calc-autorange-units nil) |
|
|
(defvar calc-was-keypad-mode nil) |
|
|
(defvar calc-full-mode nil) |
|
|
(defvar calc-user-parse-tables nil) |
|
|
(defvar calc-gnuplot-default-device "default") |
|
|
(defvar calc-gnuplot-default-output "STDOUT") |
|
|
(defvar calc-gnuplot-print-device "postscript") |
|
|
(defvar calc-gnuplot-print-output "auto") |
|
|
(defvar calc-gnuplot-geometry nil) |
|
|
(defvar calc-graph-default-resolution 15) |
|
|
(defvar calc-graph-default-resolution-3d 5) |
|
|
(defvar calc-invocation-macro nil) |
|
|
(defvar calc-show-banner t) |
|
601 |
|
|
602 |
(defconst calc-local-var-list '(calc-stack |
(defconst calc-local-var-list '(calc-stack |
603 |
calc-stack-top |
calc-stack-top |
728 |
(defvar calc-trail-buffer nil) ; Pointer to Calc Trail buffer. |
(defvar calc-trail-buffer nil) ; Pointer to Calc Trail buffer. |
729 |
(defvar calc-why nil) ; Explanations of most recent errors. |
(defvar calc-why nil) ; Explanations of most recent errors. |
730 |
(defvar calc-next-why nil) |
(defvar calc-next-why nil) |
731 |
(defvar calc-inverse-flag nil) |
(defvar calc-inverse-flag nil |
732 |
(defvar calc-hyperbolic-flag nil) |
"If non-nil, next operation is Inverse.") |
733 |
(defvar calc-keep-args-flag nil) |
(defvar calc-hyperbolic-flag nil |
734 |
|
"If non-nil, next operation is Hyperbolic.") |
735 |
|
(defvar calc-keep-args-flag nil |
736 |
|
"If non-nil, next operation should not remove its arguments from stack.") |
737 |
|
(defvar calc-function-open "(" |
738 |
|
"Open-parenthesis string for function call notation.") |
739 |
|
(defvar calc-function-close ")" |
740 |
|
"Close-parenthesis string for function call notation.") |
741 |
|
(defvar calc-language-output-filter nil |
742 |
|
"Function through which to pass strings after formatting.") |
743 |
|
(defvar calc-language-input-filter nil |
744 |
|
"Function through which to pass strings before parsing.") |
745 |
|
(defvar calc-radix-formatter nil |
746 |
|
"Formatting function used for non-decimal numbers.") |
747 |
|
|
748 |
(defvar calc-last-kill nil) ; Last number killed in calc-mode. |
(defvar calc-last-kill nil) ; Last number killed in calc-mode. |
749 |
(defvar calc-previous-alg-entry nil) ; Previous algebraic entry. |
(defvar calc-previous-alg-entry nil) ; Previous algebraic entry. |
750 |
(defvar calc-dollar-values nil) ; Values to be used for '$'. |
(defvar calc-dollar-values nil) ; Values to be used for '$'. |
1058 |
(setq calc-stack-top (- (length calc-stack) calc-stack-top -1)) |
(setq calc-stack-top (- (length calc-stack) calc-stack-top -1)) |
1059 |
(or calc-loaded-settings-file |
(or calc-loaded-settings-file |
1060 |
(null calc-settings-file) |
(null calc-settings-file) |
1061 |
(string-match "\\.emacs" calc-settings-file) |
(equal calc-settings-file user-init-file) |
1062 |
(progn |
(progn |
1063 |
(setq calc-loaded-settings-file t) |
(setq calc-loaded-settings-file t) |
1064 |
(load calc-settings-file t))) ; t = missing-ok |
(load calc-settings-file t))) ; t = missing-ok |