....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 3.149.250.24
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/calc/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/calc/calc-store.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar calc-store-keep nil)
(defalias 'calc-store #[(&optional var) "\302\303	!)\207" [calc-store-keep var t calc-store-into] 2 nil nil])
(defvar calc-given-value-flag nil)
(defalias 'calc-store-into #[(&optional var) "\300\301!\207" [calc-do #[nil "\305\306\n\204
\307\310\311\"\n\2038\n\312\236\211\203A \2024\313\n	\206(\314\306!\315$\316\317\320\n!\f#))\202p\321\314\306!!\211\205p\n\205p\313\n@@\n@A\nA?\205T\315\nA?\205[\306$\316\317\320\n@@!\f#\210)\nA\211\204F\305*\207" [calc-given-value-flag calc-given-value var found msg nil 1 calc-read-var-name "Store: " t ((+ . calc-store-plus) (- . calc-store-minus) (* . calc-store-times) (/ . calc-store-div) (^ . calc-store-power) (| . calc-store-concat)) calc-store-value calc-top "" message "Stored to variable \"%s\"%s" calc-var-name calc-is-assignments] 6]] 2 nil nil])
(defalias 'calc-store-plus #[(&optional var) "\301\302\303#\207" [var calc-store-binary "+" +] 4 nil nil])
(defalias 'calc-store-minus #[(&optional var) "\301\302\303#\207" [var calc-store-binary "-" -] 4 nil nil])
(defalias 'calc-store-times #[(&optional var) "\301\302\303#\207" [var calc-store-binary "*" *] 4 nil nil])
(defalias 'calc-store-div #[(&optional var) "\301\302\303#\207" [var calc-store-binary "/" /] 4 nil nil])
(defalias 'calc-store-power #[(&optional var) "\301\302\303#\207" [var calc-store-binary "^" ^] 4 nil nil])
(defalias 'calc-store-concat #[(&optional var) "\301\302\303#\207" [var calc-store-binary "|" |] 4 nil nil])
(defalias 'calc-store-neg #[(n &optional var) "\302\303\304	[$\207" [var n calc-store-binary "n" /] 5 nil "p"])
(defalias 'calc-store-inv #[(n &optional var) "\302\303\304	[$\207" [var n calc-store-binary "&" ^] 5 nil "p"])
(defalias 'calc-store-incr #[(n &optional var) "\302\303\304	[$\207" [var n calc-store-binary "n" -] 5 nil "p"])
(defalias 'calc-store-decr #[(n &optional var) "\302\303\304	$\207" [var n calc-store-binary "n" -] 5 nil "p"])
(defalias 'calc-store-value #[(var value tag &optional pop) "\306	\203e\307	!	L\210\f\203
\204\310\f!\210\311\312\313	!\nE!\210\2038\314\315\316\317\320	!#\"\210)	\321>\203O\n\242\322=\203O\316\323\320	!\"\202`	\324>\203`\n\204`\316\325\320	!\"\326	!\210))\207" [msg var old value pop calc-store-keep "" calc-var-value calc-pop-stack calc-record-undo store symbol-name nil calc-record format ">%s%s" calc-var-name (var-e var-i var-pi var-phi var-gamma) special-const " (Note: Built-in definition of %s has been lost)" (var-inf var-uinf var-nan) " (Note: %s has built-in meanings which may interfere)" calc-refresh-evaltos tag calc-full-trail-vectors] 7])
(defalias 'calc-var-name #[(var) "9\203	\301!\302\303\"\203\304\305\"\207\207" [var symbol-name string-match "\\`var-." substring 4] 3])
(defalias 'calc-store-binary #[(var tag func &optional val) "\300\301!\207" [calc-do #[nil "\306=\203\n\307\202	\206\310\311!\204\312\313\314\f\"!\205\215\315!\211\242\316=\2035\317\320\321!\"\210
\204P\322>\203I\317\323\321!\"\210\202P\317\324\321!\"\210
;\203Y\325
!
\242\317=\203g\317\326\327
8\"\210\330\331\332 \203w\n
E\202|
\nE!\f	?\205\204\311$\210\333\334\321!\")*\207" [calc-simplify-mode val value var tag old none num calc-top 1 calc-read-var-name format "Store %s: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" math-read-expr "Bad format in variable contents: %s" 2 calc-store-value calc-normalize calc-is-inverse message "Variable \"%s\" changed" func] 7]] 2])
#@41 Keymap for reading Calc variable names.
(defvar calc-var-name-map nil (#$ . 4093))
(byte-code "\204\302	!\303\304\305#\210\306\307\310\"\210\306\311\312\"\210\302\207" [calc-var-name-map minibuffer-local-completion-map copy-keymap define-key " " self-insert-command mapc #[(x) "\302\303	!\304#\207" [calc-var-name-map x define-key char-to-string calcVar-digit] 4] "0123456789" #[(x) "\302\303	!\304#\207" [calc-var-name-map x define-key char-to-string calcVar-oper] 4] "+-*/^|"] 4)
#@37 History for reading variable names.
(defvar calc-read-var-name-history nil (#$ . 4588))
(defalias 'calc-read-var-name #[(prompt &optional calc-store-opers) "\306\211\307\310\311\312\307\n\"\"\313\314\315\306\306\316%+P\317\307\232?\205n\320\321\"\203j\204;\322\323!\202n\324\325\326\327\225#! \326\330\325\326\225\"!\211\242\322=\203`\322\331\3328\"\210\333! )\202n\324!)\207" [calc-given-value calc-aborted-prefix obarray minibuffer-completion-confirm minibuffer-completion-predicate minibuffer-completion-table nil "var-" mapcar #[(x) "\301\302\"\207" [x substring 4] 3] all-completions #[(x) "\301\302\303P!!\207" [x boundp intern "var-"] 4] t read-from-minibuffer calc-read-var-name-history "" string-match "\\`\\([-a-zA-Zα-ωΑ-Ω0-9]+\\) *:?=" error "Assignment is not allowed in this command" intern substring 0 1 math-read-expr "Bad format: %s" 2 math-evaluate-expr prompt calc-var-name-map var calc-given-value-flag svar] 8])
(defalias 'calcVar-digit #[nil "\301\302!\203\303=\203\304 \207\305c\210\306 \207\307\310!\207" [calc-store-opers calc-minibuffer-contains "\\'" 0 beep "q" self-insert-and-exit self-insert-command 1] 2 nil nil])
(defalias 'calcVar-oper #[nil "\301=\203\302\303!\203\304 \210\305 \207\306\307!\207" [calc-store-opers t calc-minibuffer-contains "\\'" erase-buffer self-insert-and-exit self-insert-command 1] 2 nil nil])
(defalias 'calc-store-map #[(&optional oper var) "\300\301!\207" [calc-do #[nil "\306\307	\233\"\310\f\206\311\312!\211@&\204#\313\314\315\316\f8\"!&&\205\321\317&!\211'\242\320=\203=\321\322\323&!\"\210'\204\\&\324>\203T\321\325\323&!\"\210\202\\\321\326\323&!\"\210(\327=\203g\330\202i(
\331V\205u\332
ST\")(\333\334!\210\335\336!\210';\203\215\337'!''\242\321=\203\235\321\340\316'8\"\210\341 \203\254\342)'C\"\202\263\342'C)\")\343&\344\fA@)B!\316\f8
S\\$\210\333\345\323&!\"+,\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper nargs mapcar calc-get-stack-element 0 calc-get-operator "Store Mapping" calc-read-var-name format "Store Mapping %s: " 2 calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" none num 1 calc-top-list message "Working..." calc-set-command-flag clear-message math-read-expr "Bad format in variable contents: %s" calc-is-inverse append calc-store-value calc-normalize "Variable \"%s\" changed" var old calc-simplify-mode values] 7]] 2 nil nil])
(defalias 'calc-store-exchange #[(&optional var) "\300\301!\207" [calc-do #[nil "\305\306\305\204\307\310!\205W\311!\211\242\312=\203$\313\314\315!\"\210\f\204?\316>\2038\313\317\315!\"\210\202?\313\320\315!\"\210\n\206F\321\306!\322\305#\210\323	\324\315!P\f#)+\207" [top calc-given-value-flag calc-given-value var value nil 1 calc-read-var-name "Exchange with: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" calc-top calc-store-value calc-pop-push-record "<>"] 6]] 2 nil nil])
(defalias 'calc-unstore #[(&optional var) "\300\301!\207" [calc-do #[nil "\204\301\302!\205C\303>\203 \304!\242\305=\203 \306\307\"\210\310!\2035J\2035\306\311\312!\"\210\202<\306\313\312!\"\210\314!\210\315!\207" [var calc-read-var-name "Unstore: " (var-e var-i var-pi var-phi var-gamma) calc-var-value special-const message "(Note: Built-in definition of %s has been lost)" boundp "Unstored variable \"%s\"" calc-var-name "Variable \"%s\" remains unstored" makunbound calc-refresh-evaltos] 4]] 2 nil nil])
(defalias 'calc-let #[(&optional var) "\300\301!\207" [calc-do #[nil "\306\307\306\211\f\204\310\311!\203\312\307!\202%\312\307!\312\313!\f\2030\fBC\2023\314!\211\205q\315	T\316\317\f@@!P\320\321\f\"\322\216\f\211\203l@@\323@A!L\210\324@@!\210A\211\204P\325\n!+#,\207" [calc-given-value calc-given-value-flag thing value var saved-val nil 1 calc-read-var-name "Let variable: " calc-top 2 calc-is-assignments calc-pop-push-record "=" calc-var-name mapcar #[(v) "\301@!\205\n@J\207" [v boundp] 2] #[nil "\203\"@\203	@@@L\210\202\302	@@!\210A	A\202\303 \207" [saved-val var makunbound calc-handle-whys] 2] calc-normalize calc-refresh-evaltos math-evaluate-expr vv] 7]] 2 nil nil])
(defalias 'calc-is-assignments #[(value) "\242\302>\203A@\242\303=\205U\304A@8\3048BC\207\242\305=\205U\306A\211\203N@\242\307>\203N@A@\242\303=\203N\304@A@8\304@8B	B\202$?\205T	)\207" [value vv (calcFunc-eq calcFunc-assign) var 2 vec nil (calcFunc-eq calcFunc-assign)] 3])
(defalias 'calc-recall #[(&optional var) "\300\301!\207" [calc-do #[nil "\204\303\304!\205F\305!\211\204\306\307\310!\"\210	;\203$\311	!	\242\306=\2032\306\312\313	8\"\210\314	!\315\316	\317\310!P\"\210)\320	!)\207" [var value calc-full-trail-vectors calc-read-var-name "Recall: " calc-var-value error "No such variable: \"%s\"" calc-var-name math-read-expr "Bad format in variable contents: %s" 2 calc-normalize nil calc-record "<" calc-push] 6]] 2 nil nil])
(defalias 'calc-store-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-store intern format "var-q%c"] 5 nil nil])
(defalias 'calc-store-into-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-store-into intern format "var-q%c"] 5 nil nil])
(defalias 'calc-recall-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-recall intern format "var-q%c"] 5 nil nil])
(defalias 'calc-copy-special-constant #[(&optional sconst var) "\301\302\303!)\207" [sc ((#1="") ("e" special-const (math-e)) ("pi" special-const (math-pi)) ("i" special-const (math-imaginary 1)) ("phi" special-const (math-phi)) ("gamma" special-const (math-gamma-const))) calc-do #[nil "\204\305\306	\307\310$\311\230?\2057\312	\"A\204#\313\314\315\"!\2056\316\n\311#\317\320\321!\f$))\207" [sconst sc value var msg completing-read "Special constant: " nil t #1# assoc calc-read-var-name format "Copy special constant %s, to: " calc-store-value message "Special constant \"%s\" copied to \"%s\"%s" calc-var-name] 5]] 2 nil nil])
(defalias 'calc-copy-variable #[(&optional var1 var2) "\300\301!\207" [calc-do #[nil "\204\304\305!\205>\306!\211\204\307\310\311!\"\210\n\204(\304\312\313\311!\"!\n\205=\314\n	\315#\316\317\311!\311\n!$))\207" [var1 value var2 msg calc-read-var-name "Copy variable: " calc-var-value error "No such variable: \"%s\"" calc-var-name format "Copy variable: %s, to: " calc-store-value "" message "Variable \"%s\" copied to \"%s\"%s"] 6]] 2 nil nil])
(defvar calc-last-edited-variable nil)
(defalias 'calc-edit-variable #[(&optional var) "\300\301!\210\302 \207" [calc-do #[nil "\204\303	\203\304\305\306	!\"\202\307!\204	\205M\310!\211\242\311=\203/\312\313\"\210\314\315\316DD\317\320\321\306!\"#\210\n\205L\322\n\323 \"\324\261)\207" [var calc-last-edited-variable value calc-read-var-name format "Edit (default %s): " calc-var-name "Edit: " calc-var-value special-const error "%s is a special constant" calc-edit-mode calc-finish-stack-edit quote t format-message "Editing variable `%s'" math-format-nice-expr frame-width "\n"] 8] calc-show-edit-buffer] 2 nil nil])
(defalias 'calc-edit-Decls #[nil "\300\301!\207" [calc-edit-variable var-Decls] 2 nil nil])
(defalias 'calc-edit-EvalRules #[nil "\300\301!\207" [calc-edit-variable var-EvalRules] 2 nil nil])
(defalias 'calc-edit-FitRules #[nil "\300\301!\207" [calc-edit-variable var-FitRules] 2 nil nil])
(defalias 'calc-edit-GenCount #[nil "\300\301!\207" [calc-edit-variable var-GenCount] 2 nil nil])
(defalias 'calc-edit-Holidays #[nil "\300\301!\207" [calc-edit-variable var-Holidays] 2 nil nil])
(defalias 'calc-edit-IntegLimit #[nil "\300\301!\207" [calc-edit-variable var-IntegLimit] 2 nil nil])
(defalias 'calc-edit-LineStyles #[nil "\300\301!\207" [calc-edit-variable var-LineStyles] 2 nil nil])
(defalias 'calc-edit-PointStyles #[nil "\300\301!\207" [calc-edit-variable var-PointStyles] 2 nil nil])
(defalias 'calc-edit-PlotRejects #[nil "\300\301!\207" [calc-edit-variable var-PlotRejects] 2 nil nil])
(defalias 'calc-edit-AlgSimpRules #[nil "\300\301!\207" [calc-edit-variable var-AlgSimpRules] 2 nil nil])
(defalias 'calc-edit-TimeZone #[nil "\300\301!\207" [calc-edit-variable var-TimeZone] 2 nil nil])
(defalias 'calc-edit-Units #[nil "\300\301!\207" [calc-edit-variable var-Units] 2 nil nil])
(defalias 'calc-edit-ExtSimpRules #[nil "\300\301!\207" [calc-edit-variable var-ExtSimpRules] 2 nil nil])
(defalias 'calc-declare-variable #[(&optional var) "\300\301!\207" [calc-do #[nil "\204	\306\307\310\"\204\311\312\211\312\211\312\313\314!\203'\f\242\315=\204+\315C\f\f	A\211\203\206	@\242\315=\203.	@G\316U\203.	@A@\211\f\242\315=\203q
A\211\203k
@\242\300=\203S\317
@8=\203S
@\202\202\f\242\300=\203\200\317\f8=\204\202\312
\203.\320\321!\210\322\323\324\325!\"
\205\234\326\317	@8\310\"\"\327\330\n\"\205\250\331\n!\211\242\332=\203\267\332\333\317\n8\"\210\nA\203\303\315\nB\202\306\n@\n\242\315=\203\330\nG\317U\203\330\nA@\334\335\336\337!C\n\205\345\nC#\340\"\210\341\f!\f\f\242\315=\203\f\342
\fA\"\241\210\fA\204\342	@\f\"\f\202\342	@\f\"\f\n\203z\311=?\205#\f	A\211\203D	@\242\315=\203$	@G\316U\203$\317	@8\n\232\203$	\203m	@A\335	@A@\242\315=\203]	@A@\202c\315	@A@D\337!C\"\240\210\202z\335\f\315\337!\nEC\"\f\343\314!-\207" [var dp decl def row rp calc-read-var-name "Declare: " 0 var-All nil calc-var-value var-Decls vec 3 2 calc-unread-command 1 read-string format "Declare: %s  to be: " calc-var-name math-format-flat-expr string-match "[^ 	]" math-read-exprs error "Bad format in declaration: %s" calc-record append (vec) math-build-var-name "decl" copy-sequence delq calc-refresh-evaltos] 6]] 2 nil nil])
(defvar calc-dont-insert-variables '(var-FitRules var-FactorRules var-CommuteRules var-JumpRules var-DistribRules var-MergeRules var-NegateRules var-InvertRules var-IntegAfterRules var-TimeZone var-PlotRejects var-PlotData1 var-PlotData2 var-PlotData3 var-PlotData4 var-PlotData5 var-PlotData6 var-DUMMY))
(defalias 'calc-permanent-variable #[(&optional var) "\300\301!\207" [calc-do #[nil "\204\303\304!\305\203\306!\203J\204\307\310!\210\311\312\n!!q\210\203/\313!\210\2023\314\315!\210\316 )\207" [var calc-pv-pos calc-settings-file calc-read-var-name "Save variable (default all): " nil boundp error "No such variable" find-file-noselect substitute-in-file-name calc-insert-permanent-variable mapatoms #[(x) "\302\303\304!\"\205\"	>?\205\"\305!\205\"J\242\306=?\205\"\307!\207" [x calc-dont-insert-variables string-match "\\`var-" symbol-name calc-var-value special-const calc-insert-permanent-variable] 4] save-buffer] 3]] 2 nil nil])
(defalias 'calc-insert-permanent-variable #[(var) "eb\210\303\304\305\306	!\307Q\303\310#)\203C\311 \312y\210\313\314!\203+\315\225\303\210`|\210\316 c\210\317\n\320\306	!G#b\210\321\322!\210\312u\210\n`|\210\202Xdb\210\323\306	!\324\316 \325\306	!\326\261\210\327u\210\330\331	!!c\210\322y\207" [case-fold-search var calc-pv-pos nil search-forward "(setq " symbol-name " '" t point-marker -1 looking-at ";;; Variable .* stored by Calc on " 0 current-time-string - 8 forward-sexp 1 "\n;;; Variable \"" "\" stored by Calc on " "\n(setq " " ')\n" -2 prin1-to-string calc-var-value] 7])
(defalias 'calc-insert-variables #[(buf) "rq\210\301\302!)\207" [buf mapatoms #[(x) "\305\306\307!\"\205U	>?\205U\310!\205UJ\242\311=?\205U\302=\203,\n\312\232?\205U\303=\2039\313\232?\205U\314\307!\315\316\f\317>\203I\320\202J\f\321J\322\")!\323\261\207" [x calc-dont-insert-variables var-Decls var-Holidays calc-language string-match "\\`var-" symbol-name calc-var-value special-const (vec) (vec (var sat var-sat) (var sun var-sun)) "(setq " " " prin1-to-string (nil big) flat math-format-value 100000 ")\n"] 7]] 2 nil "bBuffer in which to save variable values: "])
(defalias 'calc-assign #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op ":=" calcFunc-assign] 4]] 3 nil "P"])
(defalias 'calc-evalto #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "=>" calcFunc-evalto] 4]] 3 nil "P"])
(defalias 'calc-subscript #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "sub" calcFunc-subscr] 4]] 3 nil "P"])
(provide 'calc-store)

Youez - 2016 - github.com/yon3zu
LinuXploit