(require (quote calc-ext)) (defun calc-Need-calc-help nil (byte-code "" [nil] 1)) (defun calc-help-prefix (arg) "\ This key is the prefix for Calc help functions. See calc-help-for-help." (interactive "P") (byte-code "Ĉ !ǂ !\" \" \"! 2 !4 )" [calc-dispatch-help echo-keystrokes key calc-help-map nil sit-for calc-read-key-sequence "Calc Help options: Help, Info, Tutorial, Summary; Key, Function; ?=more" format "%s (Type ? for a list of Calc Help options)" key-description this-command-keys lookup-key message "" call-interactively beep] 10)) (defun calc-help-for-help (arg) "\ You have typed `h', the Calc help character. Type a Help option: B calc-describe-bindings. Display a table of all key bindings. H calc-full-help. Display all `?' key messages at once. I calc-info. Read the Calc manual using the Info system. T calc-tutorial. Read the Calc tutorial using the Info system. S calc-info-summary. Read the Calc summary using the Info system. C calc-describe-key-briefly. Look up the command name for a given key. K calc-describe-key. Look up a key's documentation in the manual. F calc-describe-function. Look up a function's documentation in the manual. V calc-describe-variable. Look up a variable's documentation in the manual. N calc-view-news. Display Calc history of changes. C-c Describe conditions for copying Calc. C-d Describe how you can get a new copy of Calc or report a bug. C-w Describe how there is no warranty for Calc." (interactive "P") (byte-code "ÈƋ !) !)" [calc-dispatch-help key unread-command-char nil t arg ((byte-code "!!!!r>ˏ " [key describe-function calc-help-for-help select-window get-buffer-window "*Help*" message "Calc Help options: Help, Info, ... press SPC, DEL to scroll, C-g to cancel" (32 8 127 22 246) err (byte-code "> " [key (32 22) scroll-up scroll-down] 3) ((error (byte-code " " [beep] 2)))] 8)) calc-help-prefix] 3)) (defun calc-describe-copying nil (interactive) (byte-code " !" [nil calc-info Info-goto-node "Copying"] 3)) (defun calc-describe-distribution nil (interactive) (byte-code " !" [nil calc-info Info-goto-node "Reporting Bugs"] 3)) (defun calc-describe-no-warranty nil (interactive) (byte-code " !!) !" [case-fold-search nil calc-info Info-goto-node "Copying" search-forward " NO WARRANTY" beginning-of-line recenter 0] 6)) (defun calc-describe-bindings nil (interactive) (byte-code " qeb#!d\"eb#3 !`\"eb#L !`\"7eb#c!!Peb#!Sf!f!!\"!b!! ^ ]#c*geb)" [nil t dig1 dig2 describe-bindings "*Help*" search-forward "Global bindings:" delete-region match-beginning 0 re-search-forward " [a-z] ESC" end-of-line " ESC m" " " backward-delete-char 1 backward-char 2 " [a-z] [0-9]\\( .* \\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1" 3 match-end delete-backward-char delete-char format "%c .. %c"] 30)) (defun calc-describe-key-briefly (key) (interactive "kDescribe key briefly: ") (byte-code "ˆ\"" [key t nil calc-describe-key] 3)) (defun calc-describe-key (key &optional briefly) (interactive "kDescribe key: ") (byte-code "ƈ !=\" !\" \" P \")E !=B !\" \" P \")E ! \"V \" \"g ?m?z{ 傄悎$! !K !   \" OP  \" !OP !q U!Ɖ !!!Z eb \"  \"? OP   \\@\"A \"<B_ QKCND_\\E_FG !H GZ]I\"%#J K !`L M`\"))   O NO NOO PO Q\"!OR\"!OQ\" !OR\" !OS\"?!TO!OR\"T!OQ\"i!OفTU\"V\"VW\"\"䂡X\"䂲X\"Y&  Z [\\  \"ف]\"&r ^=\"_!`\"1!IIabفc\"!@d\"efفg \"!qh!فi@\"!J `j!k#dbJ fM`\"!)Abl  ).?m!n \"o 9p!#) [ P \\ P q rs \"$*+" [defn key key2 calc-dispatch-map calc-help-map inv nil hyp briefly desc target msg case-fold-search calc-summary-indentation t pt args keys prompts notes cmd unread-command-char key-binding calc-dispatch calc-read-key-sequence format "Describe key briefly: %s-" key-description lookup-key calc-help-prefix equal "I" "H" read-key-sequence "Describe key%s:%s%s " " briefly" "" " I" " H" string-match "^ESC " "M-" 4 "^M-# \\(ESC \\|C-\\)" "M-# " match-end 0 get-buffer-create "*Calc Summary*" buffer-size message "Reading Calc summary from manual..." ((byte-code " !eb!`d# )" [calc-info Info-goto-node "Summary" forward-line 1 copy-to-buffer "*Calc Summary*" Info-last] 7)) re-search-forward "^\\(.*\\)\\[\\.\\. a b" 1 match-beginning "[0-9]\\'" "[d#]" -1 "0-9" " %s%s%s%s[ a-zA-Z]" make-string 9 46 "M-#" " " "I H " " I " " H " " " regexp-quote 6 32 beginning-of-line forward-char end-of-line buffer-substring 19 38 40 "\\` +" " +\\'" " [0-9,]+\\'" "%s: %s%s`%s'%s%s %s%s" "\\`\\(calc-[-a-zA-Z0-9]+\\) *\\(.*\\)\\'" math-match-substring 2 " " " => " "%s%s%s runs %s%s" "I " "H " " (?=notes %s)" 63 "No notes for this command" "," sort read-from-string "(%s)" < "*Help*" princ "%s " "^ *NOTES" "^ *%d\\. " forward-line "^ ? ?[0-9]+\\. " print-help-return-message integerp "%s is undefined" "%s runs the command %s" prin1-to-string calc-describe-thing "Key Index" "[A-Z][A-Z][A-Z]"] 94)) (defun calc-describe-function (&optional func) (interactive) (byte-code "ˆ %!!\"&\"8\"5O6\"" [func obarray nil t intern completing-read "Describe function: " "calcFunc-" symbol-name string-match "\\`calc-." calc-describe-thing "Command Index" "\\`calcFunc-." 9 "Function Index"] 10)) (defun calc-describe-variable (&optional var) (interactive) (byte-code "ˆ %!!\")O*#" [var obarray nil t intern completing-read "Describe variable: " "var-" symbol-name calc-describe-thing "Variable Index" string-match "\\`var-." 4] 10)) (defun calc-describe-thing (thing where &optional target not-quoted) (byte-code " #  !!\"#)M\">O\"#>O\"M ! #!!\"!)hnt$##)\"##)$#\"##)  #)" [thing where savewin case-fold-search nil t Info-history target not-quoted message "Looking for `%s' in %s..." current-window-configuration calc-info Info-goto-node re-search-forward format " \\* +%s: \\(.*\\)\\." regexp-quote string-match "\\`\\([a-z ]*\\)[0-9]\\'" " \\* +%s[01]-9: \\(.*\\)\\." 0 -1 "%s9" Info-last set-window-configuration error "Can't find `%s' in %s" buffer-substring match-beginning 1 match-end search-forward "\\[`%s'\\]\\|(`%s')\\|\\)" "Let; Copy; Declare; Insert, Perm; Edit" "Negate, +, -, *, /, ^, &, |, [, ]; Map" "SHIFT + Decls, GenCount, TimeZone, Holidays; IntegLimit" "SHIFT + LineStyles, PointStyles, plotRejects; Units" "SHIFT + Eval-, AlgSimp-, ExtSimp-, FitRules") "store" 115] 4)) (defun calc-r-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("digits 0-9: recall, same as `s r 0-9'") "recall" 114] 4)) (defun calc-j-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Select, Additional, Once; eVal, Formula; Rewrite" "More, Less, 1-9, Next, Previous" "Unselect, Clear; Display; Enable; Breakable" "' (replace), ` (edit), +, -, *, /, RET (grab), DEL" "SHIFT + swap: Left, Right; maybe: Select, Once" "SHIFT + Commute, Merge, Distrib, jump-Eqn, Isolate" "SHIFT + Negate, & (invert); Unpack") "select" 106] 4)) (defun calc-a-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Simplify, Extended-simplify, eVal; \" (exp-formula)" "eXpand, Collect, Factor, Apart, Norm-rat" "GCD, /, \\, % (polys); Polint" "Derivative, Integral, Taylor; _ (subscr)" "suBstitute; Rewrite, Match" "SHIFT + Solve; Root, miN, maX; Poly-roots; Fit" "SHIFT + Map; Tabulate, + (sum), * (prod); num-Integ" "relations: =, # (not =), <, >, [ (< or =), ] (> or =)" "logical: & (and), | (or), ! (not); : (if)" "misc: { (in-set); . (rmeq)") "algebra" 97] 4)) (defun calc-b-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("And, Or, Xor, Diff, Not; Wordsize, Clip" "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift" "SHIFT + business: Pv, Npv, Fv, pMt, #pmts, raTe, Irr" "SHIFT + business: Sln, sYd, Ddb; %ch") "binary/bus" 98] 4)) (defun calc-c-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Deg, Rad, HMS; Float; Polar/rect; Clean, 0-9; %" "SHIFT + Fraction") "convert" 99] 4)) (defun calc-d-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Group, \",\"; Normal, Fix, Sci, Eng, \".\"; Over" "Radix, Zeros, 2, 8, 0, 6; Hms; Date; Complex, I, J" "Why; Line-nums, line-Breaks; <, =, > (justify); Plain" "\" (strings); Truncate, [, ]; SPC (refresh), RET" "SHIFT + language: Normal, One-line, Big, Unformatted" "SHIFT + language: C, Pascal, Fortran; TeX, Eqn" "SHIFT + language: Mathematica, W=Maple") "display" 100] 4)) (defun calc-g-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Fast; Add, Delete, Juggle; Plot, Clear; Quit" "Header, Name, Grid, Border, Key; View-commands, X-display" "x-axis: Range, Title, Log, Zero; lineStyle" "SHIFT + y-axis: Range, Title, Log, Zero; pointStyle" "SHIFT + Print; Device, Output-file; X-geometry" "SHIFT + Num-pts; Command, Kill, View-trail" "SHIFT + 3d: Fast, Add; CTRL + z-axis: Range, Title, Log") "graph" 103] 4)) (defun calc-k-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("GCD, LCM; Choose (binomial), Double-factorial" "Random, random-Again, sHuffle" "Factors, Prime-test, Next-prime, Totient, Moebius" "Bernoulli, Euler, Stirling" "SHIFT + Extended-gcd" "SHIFT + dists: Binomial, Chi-square, F, Normal" "SHIFT + dists: Poisson, student's-T") "combinatorics" 107] 4)) (defun calc-m-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Deg, Rad, HMS; Frac; Polar; Inf; Alg, Total; Symb; Vec/mat" "Working; Xtensions; Mode-save" "SHIFT + Shifted-prefixes, mode-Filename; Record; reCompute" "SHIFT + simplify: Off, Num, Default, Bin, Alg, Ext, Units") "mode" 109] 4)) (defun calc-t-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Display; Fwd, Back; Next, Prev, Here, [, ]; Yank" "Search, Rev; In, Out; <, >; Kill; Marker; . (abbrev)" "SHIFT + time: Now; Part; Date, Julian, Unix, Czone" "SHIFT + time: newWeek, newMonth, newYear; Incmonth" "SHIFT + time: +, - (business days)" "digits 0-9: store-to, same as `s t 0-9'") "trail/time" 116] 4)) (defun calc-u-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Simplify, Convert, Temperature-convert, Base-units" "Autorange; Remove, eXtract; Explain; View-table; 0-9" "Define, Undefine, Get-defn, Permanent" "SHIFT + View-table-other-window" "SHIFT + stat: Mean, G-mean, Std-dev, Covar, maX, miN" "SHIFT + stat: + (sum), - (asum), * (prod), # (count)") "units/stat" 117] 4)) (defun calc-v-prefix-help nil (interactive) (byte-code "#" [nil calc-do-prefix-help ("Pack, Unpack, Identity, Diagonal, indeX, Build" "Row, Column, Subvector; Length; Find; Mask, Expand" "Tranpose, Arrange, reVerse; Head, Kons; rNorm" "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross" "SHIFT + Sort, Grade, Histogram; cNorm" "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod" "SHIFT + sets: V (union), ^ (intersection), - (diff)" "SHIFT + sets: Xor, ~ (complement), Floor, Enum" "SHIFT + sets: : (span), # (card), + (rdup)" "<, =, > (justification); , (commas); [, {, ( (brackets)" "} (matrix brackets); . (abbreviate); / (multi-lines)") "vec/mat" 118] 4))