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