(require (quote calc-ext)) (defun calc-Need-calc-sel nil (byte-code "" [nil] 1)) (defun calc-select-here (num &optional once keep) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code "   8b Ɖ!_1!VWSYD @=?R @\"4\\ @\"a @!*" [found entry calc-selection-cache-entry keep once calc-keep-selection nil num calc-prepare-selection calc-find-selected-part 2 message "(Selection will apply to next command only)" calc-change-current-selection prefix-numeric-value 0 calc-find-assoc-parent-formula calc-grow-assoc-formula] 9))] 2)) (defun calc-select-once (num) (interactive "P") (byte-code "ˆ\"" [num t nil calc-select-here] 3)) (defun calc-select-here-maybe (num) (interactive "P") (byte-code "#" [num nil t calc-select-here] 4)) (defun calc-select-once-maybe (num) (interactive "P") (byte-code "ˆ#" [num t nil calc-select-here] 4)) (defun calc-select-additional nil (interactive) (byte-code "!" [nil calc-do (lambda nil (byte-code " )  @ 8 7 @=# \"?2 @ \" < @ \")B @!*" [calc-keep-selection found entry calc-selection-cache-entry sel nil calc-prepare-selection calc-find-selected-part calc-change-current-selection 2 calc-find-sub-formula calc-find-assoc-parent-formula calc-grow-assoc-formula] 8))] 2)) (defun calc-select-more (num) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code " 858 @=? !SY-@ \" !)8 !)" [entry calc-selection-cache-entry sel num calc-prepare-selection 2 prefix-numeric-value 0 calc-find-assoc-parent-formula calc-change-current-selection calc-select-here] 6))] 2)) (defun calc-select-less (num) (interactive "p") (byte-code "!" [nil calc-do (lambda nil (byte-code " l 8 + =?+SYi  \" > 8ee ! \"e @ 8>eT ,!*" [found entry calc-selection-cache-entry sel old index op num calc-assoc-selections calc-assoc-ops calc-prepare-selection calc-find-selected-part calc-change-current-selection 2 nil 0 calc-find-sub-formula assq car-safe] 10))] 2)) (defun calc-select-part (num) (interactive "P") (byte-code "ˆ Z!" [num last-command-char nil 48 calc-do (lambda nil (byte-code " 8 @ \"! \")" [sel calc-selection-cache-entry num calc-prepare-selection calc-find-nth-part 2 calc-change-current-selection error "%d is not a valid sub-formula index"] 6))] 2)) (defun calc-find-nth-part (expr num) (byte-code " ! \" !)O !=1 Y. X. T 8O :?; @>?O YO GWO 8" [calc-assoc-selections expr calc-assoc-ops op num assq car-safe nil calc-find-nth-part-rec intv 1 2 (bigpos bigneg frac float cplx polar hms date mod var)] 6)) (defun calc-find-nth-part-rec (expr) (byte-code " 8! \" @8> 8!* SU* 8W 8! \"@ @8>K 8!W SUW 8" [op expr calc-assoc-ops num assq car-safe 1 calc-find-nth-part-rec 0 2] 8)) (defun calc-select-next (num) (interactive "p") (byte-code "W[!!" [num nil 0 calc-select-previous calc-do (lambda nil (byte-code " 8 SY@ \"  =*ȉ A7 @ =??Ȉ+ As h 8! \"h @8>h 88n 8 ! \"@ \": 8 = @8> 8!+ !@:?@@>@! !*" [entry calc-selection-cache-entry sel num parent p op t nil calc-assoc-selections calc-assoc-ops calc-prepare-selection 2 0 calc-find-parent-formula assq car-safe 1 error "No \"next\" sub-formula" calc-change-current-selection (bigpos bigneg frac float cplx polar hms date mod var) calc-select-part] 12))] 3)) (defun calc-select-previous (num) (interactive "p") (byte-code "W[!!" [num nil 0 calc-select-next calc-do (lambda nil (byte-code " 8 SY@ \" ! !=2 A @ =?C @ AKLj3| r! \"r @8>r8w ! \"@ \": 8 = @8> 8!, !@:?@@>@! @@ \"@! Z*@G  Z!)*" [entry calc-selection-cache-entry sel num parent p prev nil op calc-assoc-selections calc-assoc-ops len calc-prepare-selection 2 0 calc-find-parent-formula cdr-safe car-safe intv assq 1 error "No \"previous\" sub-formula" calc-change-current-selection (bigpos bigneg frac float cplx polar hms date mod var) calc-find-nth-part-rec calc-select-part] 17))] 3)) (defun calc-find-parent-formula (expr part) (byte-code " = ‚G:?@>ÂG A. @ \"?6È F =EF *" [expr part t nil p res (bigpos bigneg frac float cplx polar hms date mod var) calc-find-parent-formula] 3)) (defun calc-find-assoc-parent-formula (expr part) (byte-code " \"\"" [expr part calc-grow-assoc-formula calc-find-parent-formula] 5)) (defun calc-grow-assoc-formula (expr part) (byte-code "5 ! \" / \":$ @ \" 8>. ) )6 " [calc-assoc-selections op part calc-assoc-ops new expr assq car-safe nil calc-find-parent-formula calc-find-sub-formula] 7)) (defun calc-find-sub-formula (expr part) (byte-code " = ‚<:?@>Â<A*@ \"?5 T; )" [expr part t nil num (bigpos bigneg frac float cplx polar hms date mod var) 1 calc-find-sub-formula] 4)) (defun calc-unselect (num) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code "!!" [num nil calc-prepare-selection calc-change-current-selection] 3))] 2)) (defun calc-clear-selections nil (interactive) (byte-code "!" [nil calc-do (lambda nil (byte-code "  X\" \" !! T*!" [limit n nil calc-stack-size 1 calc-top sel calc-prepare-selection calc-change-current-selection calc-clear-command-flag position-point] 7))] 2)) (defun calc-show-selections (arg) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code "  !V?  ' @8?' @ \"2 A <  )U U 8 \"\"!))`҂a!" [calc-show-selections arg p calc-stack calc-selection-cache-entry calc-selection-cache-default-entry sel nil calc-preserve-point prefix-numeric-value 0 2 equal calc-do-refresh setcar nthcdr calc-change-current-selection message "Displaying only selected part of formulas" "Displaying all but selected part of formulas"] 9))] 2)) (defun calc-preserve-point nil (byte-code "!e`\"nł\\i!" [calc-final-point-line calc-final-point-column looking-at "\\. +\\'" count-lines 1 0 calc-set-command-flag position-point] 4)) (defun calc-enable-selections (arg) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code "  !V?!!Ȃ\"!" [calc-use-selections arg calc-preserve-point prefix-numeric-value 0 calc-set-command-flag renum-stack message "Commands operate only on selected sub-formulas" "Selections of sub-formulas have no effect"] 5))] 2)) (defun calc-break-selections (arg) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code "  !X?Ƃ!" [calc-assoc-selections arg calc-preserve-point prefix-numeric-value 0 message "Selection treats a+b+c as a sum of three terms" "Selection treats a+b+c as (a+b)+c"] 4))] 2)) (defun calc-prepare-selection (&optional num) (byte-code " `!ÉVЉ\" \"\\ @!\"  @\")  !@ G WقX# + " [num calc-selection-true-num calc-keep-selection t entry ww w calc-selection-cache-entry calc-selection-cache-num calc-selection-cache-comp math-comp-tagged calc-selection-cache-offset calc-left-label calc-line-numbering calc-locate-cursor-element 0 1 calc-top nil equal setcar calc-encase-atoms math-compose-expr + math-stack-value-offset 4 calc-preserve-point] 11)) (setq calc-selection-cache-entry nil) (defun calc-encase-atoms (x) (byte-code ":? \"E!" [x equal (float 0 0) cplx 0 calc-encase-atoms-rec] 4)) (defun calc-encase-atoms-rec (x) (byte-code ":? @>B@=AAB@:?,@\":@E\">@!" [x (bigpos bigneg frac float cplx polar hms date mod var) intv equal (float 0 0) setcar cplx 0 calc-encase-atoms-rec] 7)) (defun calc-find-selected-part nil (byte-code "i Z `!``W2! \\ T !#))` %  Y\\ V\\\" 8." [math-comp-sel-hpos calc-selection-cache-offset toppt lcount spaces math-comp-sel-vpos line calc-selection-cache-num calc-selection-cache-comp math-comp-sel-cpos math-comp-sel-tag nil calc-selection-true-num 0 beginning-of-line calc-cursor-stack-index forward-line 1 current-indentation - math-comp-ascent -1 math-composition-to-string 1000000] 12)) (defun calc-change-current-selection (sub-expr) (byte-code " 8=< ! \"\"!`S!`\"  !\")+" [sub-expr calc-selection-cache-entry calc-prepared-composition calc-selection-cache-comp buffer-read-only nil top calc-selection-cache-num calc-selection-cache-default-entry 2 calc-set-command-flag renum-stack setcar nthcdr calc-cursor-stack-index delete-region insert math-format-stack-value " "] 10)) (defun calc-top-selected (&optional n m) (byte-code "Z Z ʉ ʉ #! #\" SYV @8MFɂJ @8 A-*" [calc-any-selections calc-use-selections n m top calc-stack-top calc-stack sel nil t 1 calc-check-stack + -1 nthcdr 0 2] 7)) (defun calc-replace-sub-formula (expr old new) (byte-code "! !" [new expr calc-encase-atoms calc-replace-sub-formula-rec] 3)) (defun calc-replace-sub-formula-rec (expr) (byte-code " = #:?@>#@A\"B" [expr old new t (bigpos bigneg frac float cplx polar hms date mod var) mapcar calc-replace-sub-formula-rec] 4)) (defun calc-sel-error nil (byte-code "!" [error "Illegal operation on sub-formulas"] 2)) (defun calc-replace-selections (n vals m) (byte-code " \" G  U} # c @8K @! @@ @8# BBW @ BB A A! # !  x!#, U # @8? A   A  @8?ƈ  # @! @@ @8#C  C#) !* ) # \"" [n m num vals old new nil sel val t calc-keep-selection more calc-top-selected calc-preserve-point calc-top-list entry 2 calc-encase-atoms calc-replace-sub-formula calc-pop-stack calc-push-list nreverse 1 calc-sel-error] 21)) (setq calc-keep-selection t) (defun calc-delete-selection (n) (byte-code " \"88@=! # \"@8\" # @>I @=I 88=Rʉr @>r @\"f GUoԉrՉ =@ 8 8= 8 8#!C \" @8 #!C \"@ 8 !\"#!C \"* #)" [entry n t parent repl nil calc-tweak-eqn-table calc-top 2 calc-pop-stack 1 calc-push-list (0) calc-find-parent-formula calc-preserve-point (* / %) ^ (vec calcFunc-min calcFunc-max) assq 3 del 0 calc-normalize calc-replace-sub-formula delq copy-sequence] 22)) (defun calc-roll-down-with-selections (n m) (byte-code " \" Z T\"\" # Z T#\"  $*" [vals m n sels append calc-top-list 1 sel calc-pop-push-list] 11)) (defun calc-roll-up-with-selections (n m) (byte-code " Z\" #\"\" Z# ##\"  $*" [vals n m sels append calc-top-list 1 - -1 sel calc-pop-push-list] 14)) (defun calc-auto-selection (entry) (byte-code "8!‰ @ \"" [entry reselect nil 2 boundp calc-prepare-selection calc-grow-assoc-formula calc-find-selected-part] 6)) (defun calc-copy-selection nil (interactive) (byte-code "!" [nil calc-do (lambda nil (byte-code " `!]\" ! @!*" [num entry calc-preserve-point 1 calc-locate-cursor-element calc-top calc-push calc-auto-selection] 6))] 2)) (defun calc-del-selection nil (interactive) (byte-code "!" [nil calc-do (lambda nil (byte-code " `!]\" ! \" @=? \"!+" [num entry sel calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection setcar nthcdr 2 calc-delete-selection] 9))] 2)) (defun calc-enter-selection nil (interactive) (byte-code "!" [nil calc-do (lambda nil (byte-code " `!] \" @ !  C\"N@! #C LC%* ." [num reselect calc-keep-selection entry expr sel alg calc-dollar-values calc-dollar-used calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection nil 0 calc-do-alg-entry "" "Replace selection with: " calc-encase-atoms calc-pop-push-record-list "repl" calc-replace-sub-formula calc-handle-whys] 13))] 2)) (defun calc-edit-selection nil (interactive) (byte-code "! " [nil calc-do (lambda nil (byte-code " `!] \" @ !   \") D F!\")." [num reselect calc-keep-selection entry expr sel alg str calc-float-format calc-full-float-format calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection nil math-format-nice-expr screen-width calc-edit-mode calc-finish-selection-edit quote insert " "] 11)) calc-show-edit-buffer] 3)) (defun calc-finish-selection-edit (num sel reselect) (byte-code "p`d\"` ! ! !=)! 8\\b 8!!)+" [buf str start calc-original-buffer val buffer-substring switch-to-buffer math-read-expr car-safe error 1 2 calc-do (lambda nil (byte-code "  \" !! \" \"5 #C 0 C%< !!)" [disp-trail t val expr num sel reselect calc-preserve-point calc-trail-display 1 calc-encase-atoms calc-normalize calc-top full calc-find-sub-formula calc-pop-push-record-list "edit" calc-replace-sub-formula calc-push error "Original selection has been lost"] 13))] 8)) (defun calc-sel-evaluate (arg) (interactive "p") (byte-code "\"" [nil calc-do (lambda nil (byte-code " `!] \" ! @ >?! ! !! @  #C C C%))) ," [num reselect calc-keep-selection entry sel calc-simplify-mode math-simplify-only nil arg val calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection (none num) calc-modify-simplify-mode calc-encase-atoms calc-normalize calc-pop-push-record-list "jsmp" calc-replace-sub-formula calc-handle-whys] 14)) 13555] 3)) (defun calc-sel-expand-formula (arg) (interactive "p") (byte-code "\"" [nil calc-do (lambda nil (byte-code " `!] \" ! @ >?! !V !  XP ! P !  ! @  #C k C%+)) ," [num reselect calc-keep-selection entry sel calc-simplify-mode math-simplify-only nil arg math-expand-formulas val top calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection (none num) calc-modify-simplify-mode 0 calc-normalize math-expand-formula calc-encase-atoms calc-pop-push-record-list "jexf" calc-replace-sub-formula calc-handle-whys] 16)) 14078] 3)) (defun calc-sel-mult-both-sides (no-simp &optional divide) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code " `!] \" @ !  !  >?3   @؂A\"@)|=Z \"a GU%>! \"8!!!!!! ڂ 8E ڂ 8E  ! ! = 8\"U  8\"U  8!> !> !  E!!_ ./ E  C !  T EZ E!! kl #C zC% . " [num reselect calc-keep-selection entry expr sel func alg lhs rhs calc-simplify-mode divide calc-tweak-eqn-table no-simp calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection car-safe nil (none num) calc-do-alg-entry "" "Divide both sides by: " "Multiply both sides by: " / assq 3 (/ calcFunc-eq calcFunc-neq) math-known-nonposp math-known-negp message "Assuming this factor is nonzero" math-known-posp math-known-nonnegp "Assuming this factor is positive" * 2 math-simplify math-compare 0 -1 (+ -) (+ -) math-expand-term calc-encase-atoms calc-normalize calc-pop-push-record-list "div" "mult" calc-replace-sub-formula calc-handle-whys] 34))] 2)) (defun calc-sel-div-both-sides (no-simp) (interactive "P") (byte-code "ˆ\"" [no-simp t nil calc-sel-mult-both-sides] 3)) (defun calc-sel-add-both-sides (no-simp &optional subtract) (interactive "P") (byte-code "!" [nil calc-do (lambda nil (byte-code " `!] \" @ !  !  >?3   @؂A\"@) \"Z GU f܂g 8E x܂y 8E  ! !  E!! ݂ E   !  ܂ E!! #C C% . " [num reselect calc-keep-selection entry expr sel func alg lhs rhs calc-simplify-mode subtract calc-tweak-eqn-table no-simp calc-preserve-point 1 calc-locate-cursor-element calc-top calc-auto-selection car-safe nil (none num) calc-do-alg-entry "" "Subtract from both sides: " "Add to both sides: " assq 3 - + 2 math-simplify calc-encase-atoms calc-normalize calc-pop-push-record-list "sub" "add" calc-replace-sub-formula calc-handle-whys] 21))] 2)) (defun calc-sel-sub-both-sides (no-simp) (interactive "P") (byte-code "ˆ\"" [no-simp t nil calc-sel-add-both-sides] 3))