ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calc/calc-forms.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-time #[nil "\300\301!\207" [calc-do #[nil "\301 \302\303\304\305\306\307\310\311O!\307\312\313O!\307\314\315O!F\306\316\303\211FE#)\207" [time current-time-string calc-enter-result 0 "time" mod hms string-to-number 11 13 14 16 17 19 24] 11]] 2 nil nil])
(defalias 'calc-to-hms #[(arg) "\300\301!\207" [calc-do #[nil "\302 \203 \303=\203 \304\305\306 #\207\304\307\310 #\207\304\311\312 #\207" [calc-angle-mode arg calc-is-inverse rad calc-unary-op ">rad" calcFunc-rad ">deg" calcFunc-deg ">hms" calcFunc-hms] 4]] 2 nil "P"])
(defalias 'calc-from-hms #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-to-hms] 2 nil "P"])
(defalias 'calc-hms-notation #[(fmt) "\300\301!\207" [calc-do #[nil "\302\303\"\203* \304\301\305\306\307\"\306\310\"\305\306\311\"\306\312\"\305\306\313\"\260\314#\210\315\301 \"\207\316\317!\207" [fmt calc-hms-format string-match "\\`\\([^,; ]+\\)\\([,; ]*\\)\\([^,; ]\\)\\([,; ]*\\)\\([^,; ]\\)\\'" calc-change-mode "%s" math-match-substring 1 2 3 4 5 t set-default error "Bad hours-minutes-seconds format"] 12]] 2 nil "sHours-minutes-seconds format (hms, @ \\=' \", etc.): "])
(defalias 'calc-date-notation #[(fmt arg) "\300\301!\207" [calc-do #[nil "\306\307\310\311#)\266\203\203 \312\311\313\"\203 \314!\n8\311\315\"\204* \316\317!\210 \203L \320 !\211\321Y\203L \322X\203L \323\n!\211\203L \n\233\240\210\307 \311\324\"\204\200 \311\325\"\203\200 \311\326\327\330\331\"!\326Q\"\203\200 \321\211\224O\332\321\224\321\225O\333\321\225\307O\260)\307\211\211\211\211\211\211 - . / 0 1 2\307 \311\334\"\211\203\245
\335I\210)\311\336\"\211/\203\205/\321V\203\301 \321/O2B2/T./H\337U\203\355 0\203\330 \316\340!\2102\203\347 21\2441\3072\3100\202|/H\341U\2030\204\377 \316\342!\2102\2032\2371B1\3072\3070\202|\311\343\"\203!.T..GW\203A.H\226.SH\226U\203A.T\211.\202#\344/.O!\211-\345>\204h-\346=\203b2\204b1\203h\316\347-\"\210-\350>\203u\3512B2-2B2.\307O\202\246 \352\232\204\2212B22\203\2550\203\2462\2371B1\202\25521\2441\353\3541\237\310#.\207" [fmt inhibit-changing-match-data calc-standard-date-formats arg case-fold-search temp "\\`\\s-*\\'" nil t string-match "1" "\\` *\\([0-9]\\|10\\|11\\) *\\'" string-to-number "[a-zA-Z]" error "Bad date format specifier" prefix-numeric-value 0 11 copy-sequence "<.*>" "\\`[^hHspPT]*\\([^ac-gi-lnoqrt-zAC-GI-OQRU-Z]*\\(bs\\|bm\\|bh\\|BS\\|BH\\|[hHmpPsST]\\)+[^ac-gi-lnoqrt-zAC-GI-OQRU-Z]*\\)[^hHspPT]*\\'" "[^ac-gi-lnoqrt-zAC-GI-OQRT-Z]*" regexp-quote math-match-substring 1 "<" ">" ":[BS]S" 67 "[<>a-zA-Z]" 60 "Nested <'s not allowed" 62 "Misplaced > in format" "\\`[^a-zA-Z]*[bBZI][a-zA-Z]" intern (Y YY BY YYY YYYY ZYYY IYYY Iww w aa AA aaa AAA aaaa AAAA bb BB bbb BBB bbbb BBBB M MM BM mmm Mmm Mmmm MMM MMMM D DD BD d ddd bdd W www Www Wwww WWW WWWW h hh bh H HH BH p P pp PP pppp PPPP m mm bm s ss bs SS BS C N n J j U b T) X "Bad format code: %s" (bb BB bbb BBB bbbb BBBB) b "" calc-change-mode calc-date-format sym pos2 pos time fullfmt lfmt] 8]] 2 nil "sDate format (e.g., M/D/YY h:mm:ss): \nP"])
(defalias 'calc-hms-mode #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode hms message "Angles measured in degrees-minutes-seconds"] 3]] 2 nil nil])
(defalias 'calc-now #[(arg) "\301\302\303#\207" [arg calc-date-zero-args "now" calcFunc-now] 4 nil "P"])
(defalias 'calc-date-part #[(arg) "\301W\204\f \302V\203 \303\304!\210\305\306!\207" [arg 1 9 error "Part code out of range" calc-do #[nil "\301\302\3038\3048\305\302!D#\207" [arg calc-enter-result 1 (nil "year" "mnth" "day" "hour" "minu" "sec" "wday" "yday" "hmst") (nil calcFunc-year calcFunc-month calcFunc-day calcFunc-hour calcFunc-minute calcFunc-second calcFunc-weekday calcFunc-yearday calcFunc-time) calc-top-n] 6]] 2 nil "NPart code (1-9 = Y,M,D,H,M,S,Wd,Yd,Hms): "])
(defalias 'calc-date #[(arg) "\301W\204\f \302V\203 \303\304!\210\305\306!\207" [arg 1 6 error "Between one and six arguments are allowed" calc-do #[nil "\301\302\303\304!B#\207" [arg calc-enter-result "date" calcFunc-date calc-top-list-n] 6]] 2 nil "p"])
(defalias 'calc-julian #[(arg) "\301\302\303#\207" [arg calc-date-one-arg "juln" calcFunc-julian] 4 nil "P"])
(defalias 'calc-unix-time #[(arg) "\301\302\303#\207" [arg calc-date-one-arg "unix" calcFunc-unixtime] 4 nil "P"])
(defalias 'calc-time-zone #[(arg) "\301\302\303#\207" [arg calc-date-zero-args "zone" calcFunc-tzone] 4 nil "P"])
(defalias 'calc-convert-time-zones #[(old &optional new) "\300\301!\207" [calc-do #[nil "\302\232\203 \303\304\305\306\307\304!B#\207\310\232\203 \311 \204# \312\313\314Q!;\203, \315!\242\316=\203: \316\317A@\"\210 \310\232\203B \311 ;\203K \315 ! \242\316=\203Y \316\317 A@\"\210\303\320\305\306\321\320! F#\207" [old new "$" calc-enter-result 3 "tzcv" calcFunc-tzconv calc-top-list-n "" "local" read-string "From time zone: " ", to zone: " math-read-expr error "Error in expression: %S" 1 calc-top-n] 7]] 2 nil "sFrom time zone: "])
(defalias 'calc-new-week #[(arg) "\301\302\303#\207" [arg calc-date-one-arg "nwwk" calcFunc-newweek] 4 nil "P"])
(defalias 'calc-new-month #[(arg) "\301\302\303#\207" [arg calc-date-one-arg "nwmn" calcFunc-newmonth] 4 nil "P"])
(defalias 'calc-new-year #[(arg) "\301\302\303#\207" [arg calc-date-one-arg "nwyr" calcFunc-newyear] 4 nil "P"])
(defalias 'calc-inc-month #[(arg) "\301\302\303#\207" [arg calc-date-one-arg "incm" calcFunc-incmonth] 4 nil "p"])
(defalias 'calc-business-days-plus #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "bus+" calcFunc-badd] 4]] 2 nil "P"])
(defalias 'calc-business-days-minus #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "bus-" calcFunc-bsub] 4]] 2 nil "P"])
(defalias 'calc-date-zero-args #[(prefix func arg) "\300\301!\207" [calc-do #[nil ":\203 \303\304 \n\305\304!D#\207\303\306 \203 \n\307!D\202 \nC#\207" [arg prefix func calc-enter-result 1 calc-top-n 0 prefix-numeric-value] 6]] 2])
(defalias 'calc-date-one-arg #[(prefix func arg) "\300\301!\207" [calc-do #[nil ":\203 \303\304 \n\305\304!B#\207\303\306 \203! \n\307\306!\310!E\202& \n\307\306!D#\207" [arg prefix func calc-enter-result 2 calc-top-list-n 1 calc-top-n prefix-numeric-value] 7]] 2])
(defalias 'math-normalize-hms #[(a) "\306A@!\306\3078! \310Z\311]\306\3118!) \312\f!\204= \f\313U\203+ \312 !\204= \f\313U\203\220 \313U\203\220 \312\n!\203\220 \314\n!\203M \315\n\316\"\315 \317\"\314 !\203] \315 \316\"\315\f\317\"\316\n \320
\"\321U*\204u \315\n\322\"\315 \321\"\316 \320
\"\321U*\204\340 \315 \322\"\315\f\321\"\202\340 \312\n!\203\240 \315\n\322\"\315 \321\"\312 !\203\260 \315 \322\"\315\f\321\"\n\322 \320
\"\321U*\204\310 \315\n\316\"\315 \317\" \322 \320
\"\321U*\204\340 \315 \316\"\315\f\317\"\n\242\323=\203\371 \324\nA@!\307\n8\\\307 ZX\203\371 \313\325\f \nF+\207" [a calc-internal-prec s m h b math-normalize 2 4 3 math-negp 0 math-posp math-add -60 1 math-compare -1 60 float math-numdigs hms] 5])
(defalias 'math-to-hms #[(a &optional ang) "\242\306=\203 \207\242\307=\203 \310\311A@!\311\3128!\"\207\211:?\206) @\313>)\2041 \314D\207\315!\203@ \316\311\316! \"!\207 \206E \n\317=\203S \311\320\321 \"\322\"\207\242\323>\203\\ \207\324\325\326\"\327\320 \330\"! \331\f\330\" \306
@
A\332 \325\f\330\"\"F+!\207" [a ang calc-angle-mode b hm hmd hms sdev math-make-sdev math-to-hms 2 (bigpos bigneg frac float cplx polar) calcFunc-hms math-negp math-neg rad math-div math-pi-over-180 deg (cplx polar) math-normalize math-mul 3600 math-trunc 60 math-idivmod math-sub] 10])
(defalias 'calcFunc-hms #[(h &optional m s) "\211:?\206\f @\305>)\204 \306\307\"\210\n\204 \310\n\211:?\206' @\305>)\2040 \306\n\307\"\210 \2046 \310 \211:?\206B @\305>)\204K \306 \307\"\210\n\310 \311 \f\"\312U*\204\216 \n\313 \311 \f\"\312U*\203\216 \310 \311 \f\"\312U*\204\216 \313 \311 \f\"\312U*\203\216 \314\315!\316\310\n F\"\207\315\314\314\317\n\206\230 \310\313\"\317 \206\240 \310\320\"\"\"\321\"\207" [h a m s b (bigpos bigneg frac float) math-reject-arg realp 0 math-compare -1 60 math-add math-to-hms hms math-div 3600 deg] 9])
(defalias 'math-from-hms #[(a &optional ang) "\242\303=\204A \211:?\206 @\304>)\203 \207\242\305=\203/ \306\307A@ \"\307\3108 \"\"\207 \2064 \n\311=\203= \312D\207\313D\207\314!\203P \315\307\315! \"!\207 \206U \n\311=\203c \316\307\317\"\320 \"\207\321\322\321\322\3238\324\"\3108\"\325\"A@\"\207" [a ang calc-angle-mode hms (bigpos bigneg frac float cplx polar) sdev math-make-sdev math-from-hms 2 rad calcFunc-rad calcFunc-deg math-negp math-neg math-mul deg math-pi-over-180 math-add math-div 3 (float 6 1) 60] 7])
#@136 Return the day (YEAR MONTH DAY) in the Gregorian calendar.
DATE is the number of days since December 31, -1 in the Gregorian calendar.
(defalias 'math-date-to-gregorian-dt #[(date) "\306\307\310\311\n\211\312 \313\f \"\314U*\203 \315\202 \316\"\317\n!\203% \320\202& \315\" \307 \n\321
\306\211#\211 \313\f \"\314U*\203H \311
\314\"\202+
\322=\203P \314\323\n\"T\324
!\203a \325\202b \326\nHY\203s T\202d \nSHZT
E,\207" [month day date b a year 1 nil math-quotient math-add 711859 math-compare -1 365 -108 math-negp 366 math-absolute-from-gregorian-dt 0 math-sub math-leap-year-p [1 32 61 92 122 153 183 214 245 275 306 336 999] [1 32 60 91 121 152 182 213 244 274 305 335 999] temp] 6 (#$ . 9287)])
#@133 Return the day (YEAR MONTH DAY) in the Julian calendar.
DATE is the number of days since December 31, -1 in the Gregorian calendar.
(defalias 'math-date-to-julian-dt #[(date) "\306\307\310\311\n\211\312 \313\f \"\314U*\203 \315\202 \316\"\317\n!\203% \320\202& \321\" \307 \n\322
\306\211#\211 \313\f \"\314U*\203H \311
\314\"\202+
\323=\203P \314\324\n\"T\325
\326\"\203b \327\202c \330\nHY\203t T\202e \nSHZT
E,\207" [month day date b a year 1 nil math-quotient math-add 711859 math-compare -1 367 -106 math-negp 366 365 math-absolute-from-julian-dt 0 math-sub math-leap-year-p t [1 32 61 92 122 153 183 214 245 275 306 336 999] [1 32 60 91 121 152 182 213 244 274 305 335 999] temp] 6 (#$ . 10022)])
#@170 Return the day and time of VALUE.
The integer part of VALUE is the number of days since Dec 31, -1
in the Gregorian calendar and the remaining part determines the time.
(defalias 'math-date-to-dt #[(value) "\242\302=\203 A@\306!\204 \307\310\"\210\311!\211@ A@\f\203D \312\f8\2060 \313\314\f\" \315
\"\316U*\203D \317\n!\202G \320\n! \321!\203T \202i \322 \323\245 \324\245\324\246\325 \324\246\326 8\"E\",\207" [value parts date time calc-gregorian-switch b math-realp math-reject-arg datep math-date-parts 3 apply math-absolute-from-gregorian-dt math-compare -1 math-date-to-julian-dt math-date-to-gregorian-dt math-integerp append 3600 60 math-add 2 a dt] 9 (#$ . 10760)])
#@50 Return the ISO8601 date (year week day) of DATE.
(defalias 'math-date-to-iso-dt #[(date) "\211:?\206\f @\306>)\204 \307!\310\311\312\"!@\313\n\211\314 \315\316\313\f\317\"\211\317\211#\"\314Y\203: T\202\" *\"\211 \313\320\311\316
\317\211#\"\321\"@\317\"\322\321\"\211 \314U\203^ \321\202` )E*\207" [date a approx sum y year (bigpos bigneg) math-floor math-date-to-gregorian-dt math-sub 3 math-add 0 math-compare math-absolute-from-iso-dt 1 math-idivmod 7 calcFunc-mod day] 10 (#$ . 11464)])
(defalias 'math-dt-to-date #[(dt) "A@\250\204 \302A@\303\"\210A@\304W\204 A@\305V\203% \302A@\306\"\210\3078\250\2043 \302\3078\303\"\210\3078\304W\204C \3078\310V\203J \302\3078\311\"\210\312@A@\3078#\3138\203v \314\315 !\316\314\3138\317_\3208\321_\\\3228\"\323\"\"\202w )\207" [dt date math-reject-arg fixnump 1 12 "Month value is out of range" 2 31 "Day value is out of range" math-absolute-from-dt 3 math-add math-float math-div 3600 4 60 5 (float 864 2)] 7])
(defalias 'math-iso-dt-to-date #[(dt) "\302@A@\3038#\3048\203, \305\306 !\307\305\3048\310_\3118\312_\\\3138\"\314\"\"\202- )\207" [dt date math-absolute-from-iso-dt 2 3 math-add math-float math-div 3600 4 60 5 (float 864 2)] 7])
(defalias 'math-date-parts #[(value &optional offset) "\306!\307\310\311\n\206
\"\312\" \313V\205 \313Z\" \306\f!
\311\f
\"E+\207" [value date offset calc-internal-prec time ftime math-floor math-round math-mul math-sub 86400 12] 5])
(defalias 'math-this-year #[nil "\300\301 8\207" [5 decode-time] 2])
#@172 Non-nil if YEAR is a leap year.
If JULIAN is non-nil, then use the criterion for leap years
in the Julian calendar, otherwise use the criterion in the
Gregorian calendar.
(defalias 'math-leap-year-p #[(year &optional julian) "\203 \302 !\203 \303\304 !\305\"\306U\207\303 \305\"\307U\207\302 !\203% \310\311 \"\303 \312\"\211\305\246\307U\203; \313\246\307U?\206> \307U\207" [julian year math-negp math-imod math-neg 4 1 0 math-sub -1 400 100] 4 (#$ . 13019)])
(defalias 'math-days-in-month #[(year month) "\302U\203 \303 !\203 \304\207\305SH\207" [month year 2 math-leap-year-p 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 2])
#@181 Return the number of days of the year up to YEAR MONTH DAY.
The count includes the given date.
If JULIAN is non-nil, use the Julian calendar, otherwise
use the Gregorian calendar.
(defalias 'math-day-in-year #[(year month day &optional julian) " S\305_\\ \306V\203! \n\307 \310_\\\311\245Z\312 \f\"\203! \nT\n)\207" [day month day-of-year year julian 31 2 23 4 10 math-leap-year-p] 4 (#$ . 13662)])
#@96 Return the number of days of the year up to YEAR MONTH DAY.
The count includes the given date.
(defalias 'math-day-number #[(year month day) "\2034 @=\203 \306 \n #\306 \307\211#ZT\207 @ \310
\f\"\311U*\203. \312 \n \313$\207\312 \n #\207\312 \n #\207" [calc-gregorian-switch year month day b a math-absolute-from-dt 1 math-compare -1 math-day-in-year t] 5 (#$ . 14071)])
#@80 Non-nil if DT1 occurs before DT2.
A DT is a list of the form (YEAR MONTH DAY).
(defalias 'math-dt-before-p #[(dt1 dt2) "@ @\304 \n\"\305U*\2063 @ @\232\2053 A@ A@W\2063 A@ A@U\2053 \3068\306 8W\207" [dt1 dt2 b a math-compare -1 2] 3 (#$ . 14455)])
#@159 Return the DATE of the day given by the Gregorian day YEAR MONTH DAY.
Recall that DATE is the number of days since December 31, -1
in the Gregorian calendar.
(defalias 'math-absolute-from-gregorian-dt #[(year month day) "\306=\203 \307\310\311\"\310\312\313\n #\312\314\315 \"\316!\203& \317 \320\"\2020 \310\315\317\310\321\"\320\"\"\"\"\314\317 \322\"\321\" \323\f\320\" \312
A\306U\203K \306\202L \311
@\"*\")\207" [year yearm1 month day correction res 0 -1 math-sub 1 math-add math-day-in-year math-mul 365 math-posp math-quotient 4 3 100 math-idivmod] 11 (#$ . 14717)])
#@156 Return the DATE of the day given by the Julian day YEAR MONTH DAY.
Recall that DATE is the number of days since December 31, -1
in the Gregorian calendar.
(defalias 'math-absolute-from-julian-dt #[(year month day) "\304=\203 \305\306\307\"\306\310\311\n #\310\312\313 \"\314!\203& \315 \316\"\2020 \306\313\315\306\317\"\316\"\"\"\"\320\")\207" [year yearm1 month day 0 -1 math-sub 1 math-add math-day-in-year math-mul 365 math-posp math-quotient 4 3 2] 11 (#$ . 15307)])
#@68 Return the DATE of the day given by the iso8601 day YEAR WEEK DAY.
(defalias 'math-absolute-from-iso-dt #[(year week day) "\305\306\307#\310 \311\310 \306\"\312\"A\"\313\211\n S\312_\"\f\314U\203$ \315\202& \fS\"*\207" [year janfour prevmon week day math-absolute-from-gregorian-dt 1 4 math-sub math-idivmod 7 math-add 0 6] 6 (#$ . 15793)])
#@149 Return the DATE of the day given by the day YEAR MONTH DAY.
Recall that DATE is the number of days since December 31, -1
in the Gregorian calendar.
(defalias 'math-absolute-from-dt #[(year month day) "\203 \304 \n E\"\203 \305 \n #\207\306 \n #\207" [calc-gregorian-switch year month day math-dt-before-p math-absolute-from-julian-dt math-absolute-from-gregorian-dt] 4 (#$ . 16144)])
(defvar math-long-weekday-names '("Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"))
(defvar math-short-weekday-names '("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"))
(defvar math-long-month-names '("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"))
(defvar math-short-month-names '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
(defvar math-format-date-cache nil)
(defalias 'math-format-date #[(math-fd-date) "\242\306=\203 A@ \nE\307 \f\"A\206j \310\211 \310\211 \311 \310\211 \310\211 \310\211 \310\211 \310\211 \310\211 \312\313\314\315\n\"\" B\fB\311\f\233\211\203f
\310\241\210 .)\207" [math-fd-date calc-internal-prec calc-date-format entry math-format-date-cache math-fd-dt date assoc nil 10 apply concat mapcar math-format-date-part math-fd-iso-dt calc-group-digits calc-leading-zeros calc-number-radix calc-twos-complement-mode math-fd-year math-fd-month math-fd-day math-fd-weekday math-fd-hour math-fd-minute math-fd-second math-fd-isoyear math-fd-isoweek math-fd-isoweekday math-fd-bc-flag fmt] 6])
#@116 The beginning of the Julian date calendar,
as measured in the number of days before December 31, 1 BC (Gregorian).
(defconst math-julian-date-beginning '(float 17214225 -1) (#$ . 17698))
#@124 The beginning of the Julian date calendar,
as measured in the integer number of days before December 31, 1 BC (Gregorian).
(defconst math-julian-date-beginning-int 1721423 (#$ . 17892))
(defalias 'math-format-date-part #[(x) ";\203 \207<\203 \306 !\203 \307\207\310\311\312\313\"\"\207\314=\203$ \307\207\315=\203. \316 !\207\317=\203: \316\320 !!\207\321=\203G \316\322 \n\"!\207\323=\203V \316\322\320 ! \"!\207\324=\203e \316\325 \326\"A@!\207\327>\203!\f\204\200 \330 !\211@\fA@@\331\f8A\332=\203
\211 B:\203\311 B@\333=\206\315 B@\334=?\205\315 B@\335>\203\302 BA@\211 B:\203\272 B@\333=\202\276 B\336W)\202\315 \337B!\202\315 B\336W) C\340
! D\341D!\203\366 D\342W\203\366 C\203\354 \343\202\355 \307\344\345D\"P\202C\203\377 \343\202 \346\316D!P*\207\347=\203\350\344\351@\"P\207\352=\205\344\353A\"\207E\204l\354 !\211E@FEA@G\331E8H\355\320 !\356\"I\357E8J\360E8K\361E8L\362M>\203l\337F!\203l\363F!F\364N\365>\203\273F\250\203\242F\366V\203\242F\367W\203\242\344\370=\203\221\351\202\234\371=\203\233\372\202\234\353F\373\246\"\207\341F!\203\266F\373W\203\266\344\374F\"\207\316F!\207\375=\203\306\316F!\207\376=\203\345\341F!\203\340F\373W\203\340\344\374F\"\207\316F!\207\377=\203\307F\211 B:\203/B@\333=\2063B@\334=?\2053B@\335>\203(BA@\211 B:\203 B@\333=\202$B\336W)\2023\337B!\2023B\336W)\203A\322F\201V \"\202CF\211 O\211 B:\203\210B@\333=\206\214B@\334=?\205\214B@\335>\203\201BA@\211 B:\203yB@\333=\202}B\336W)\202\214\337B!\202\214B\336W) C\340O! D\341D!\203\266D\342W\203\266C\203\254\343\202\255\307\344\345D\"P\202\305C\203\277\343\202\300\346\316D!P+\207\362=\203\317\307\207\201W =\203\341N?\205\201X \207\201Y =\203\363N?\205\201Z \207\201[ =\203N?\205\201\\ \207\201] =\203N?\205\201^ \207\201_ =\203)N?\205\201` \207\201a =\203;N?\205\201b \207\201c =\203LN\205\201d \207\201e =\203]N\205\201f \207\201g =\203nN\205\201h \207\201i =\203N\205\201j \207\201k =\203\220N\205\201l \207\201m =\203\241N\205\201n \207\201o =\203\255\201p \207\201q =\203\273\344\353G\"\207\201r =\203\311\344\351G\"\207\201s =\203\327\344\372G\"\207\201t =\203\347GSP8\227\207\201u =\203\366GSP8\207\201v =\203GSP8\226\207\201w =\203GSQ8\207\201x =\203%GSQ8\226\207\201y =\2033\344\353H\"\207\201z =\203A\344\351H\"\207\201{ =\203O\344\372H\"\207\201| =\203]\344\353I\"\207\201} =\203lIR8\227\207\201~ =\203zIR8\207\201 =\203\211IR8\226\207\201\200 =\203\227IS8\207\201\201 =\203\246IS8\226\207\201\202 =\203\274\344\353\201\203 FGH#\"\207\201\204 =\203\324\344\201\205 \201\203 FGH#\"\207\201\206 =\203\354\344\201\207 \201\203 FGH#\"\207\201\210 =\203\377J\205\344\353J\"\207\201\211 =\203J\205\344\351J\"\207\201\212 =\203%J\205\344\372J\"\207\201\213 =\203AJ\205\344\353J\201\214 \\\201\215 \246T\"\207\201\216 =\203]J\205\344\351J\201\214 \\\201\215 \246T\"\207\201\217 =\203yJ\205\344\372J\201\214 \\\201\215 \246T\"\207\201\220 =\203\227J\205J\201\215 W\203\223\201\221 \207\201\222 \207\201\223 =\203\265J\205J\201\215 W\203\261\201\224 \207\201\225 \207\201\226 =\203\323J\205J\201\215 W\203\317\201\227 \207\201\230 \207\201\231 =\203\361J\205J\201\215 W\203\355\201\232 \207\201\233 \207\201\234 =\203J\205J\201\215 W\203 \201\235 \207\201\236 \207\201\237 =\203-J\205J\201\215 W\203)\201\240 \207\201\241 \207\201\242 =\203@K\205\344\353K\"\207\201\243 =\203SK\205\344\351K\"\207\201\244 =\203fK\205\344\372K\"\207\201\245 =\203\201L\205\201\246 L!?\205\201\247 \207\201\250 >\205L\205\201\251 >\205\234\201\246 L!?\205L\250\203\304\344\201\252 >\203\263\351\202\300\201\253 >\203\277\372\202\300\353L\"\207L\201\254 2 B\201\255 B2\"\201\256 U*\203\375\201\257 >\203\353\201\260 \202\376\201\261 >\203\371\201\262 \202\376\307\202\376\307\201\263 \201\215 TZ\336^D U\316L!)P\207" [x math-fd-date math-julian-date-beginning math-julian-date-beginning-int math-fd-iso-dt math-fd-isoyear math-integerp "" apply concat mapcar math-format-date-part X N math-format-number n math-floor J math-add j U math-date-parts 719164 (IYYY Iww w) math-date-to-iso-dt 2 IYYY bigneg bigpos (frac float) 0 math-negp calcFunc-abs natnump 10000 "-" format "%04d" "+" Iww "W" "%02d" w "%d" math-date-to-dt math-mod 7 3 4 5 b math-neg t (Y YY BY) 1940 2040 YY BYY "%2d" 100 "+%d" YYY YYYY ZYYY math-fd-isoweek math-fd-isoweekday a neg pyear math-fd-dt math-fd-year math-fd-month math-fd-day math-fd-weekday math-fd-hour math-fd-minute math-fd-second calc-date-format math-fd-bc-flag year math-short-month-names math-long-month-names math-short-weekday-names math-long-weekday-names calc-internal-prec calc-float-format 1 aa "ad" AA "AD" aaa "ad " AAA "AD " aaaa "a.d." AAAA "A.D." bb "bc" BB "BC" bbb " bc" BBB " BC" bbbb "b.c." BBBB "B.C." T "T" M MM BM mmm Mmm MMM Mmmm MMMM D DD BD W www Www WWW Wwww WWWW d math-day-number ddd "%03d" bdd "%3d" h hh bh H 11 12 HH BH p "a" "p" P "A" "P" pp "am" "pm" PP "AM" "PM" pppp "a.m." "p.m." PPPP "A.M." "P.M." m mm bm C math-zerop ":" (s ss bs SS BS) (SS BS) (ss SS) (bs BS) 10 math-compare -1 (ss SS) "0" (bs BS) " " fix] 7])
(defalias 'math-parse-date #[(math-pd-str) "\3062\352\307\310\"\206\351\307\311\"\206\351\312\313\"\203 \314!\206\351\312\315\"\2031 \316\317\320\321\"!D\206\351\310\311\211\211\211\211\211\211\211\211\211\211\211\211 > ? @ A B C D E F\312\322\"\204d \312\323\"\203:\320\324\" G\325\320\321\"!A\320\326\"@\320\327\"?\330\211\224O\330\225\311OP@\331\232\203\227 \330@\202\235 \325@!@?\331\232\203\252 \330?\202\260 \317?!?G\331\232\203\333 A\332V\204\323 A\332U\2039@\330U\2049?\330=\2049\333\306\334\"\210\2029G\330H\226\211G\335>\203A\336U\203\n@\330U\203\n?\330=\203\nG\337=\2039\330A\2029\333\306\340\"\210\2029A\330U\204 A\336V\203%\333\306\334\"\210G\341UA\336U=\2039A\336\\\332\246A)\312\342\"\203N\343!\211\321\224\344I\210\202:\312\345\"\203\267\346H!D\346I!BD\204l\346J!DB\204v\346K!\210A\204\226\346\347!\211\203\226 \321U\203\215\336\202\216\330A\330\211@?\346\350!\204\245\346\351!\203\245\310>\312\352\"\203\267\333\306\353\354\320\330\"\"\"\210\312\355\"\203\332\330\211\224O\330\225\311OP\211\203\332\312\356 \"\203\332 \202\267\312\357\"\204\350\312\360\"\203\320\321\"E\330\321\224O\321\225\311OP\317E!E\310\330\312\361 #\2032 \203\333\306\362\"\210\325\320\330\"!\f\204$ \311
\204,\f\311\330\225\202\363E\203<\321\202=\330D\203F\321\202G\330C\203P\321\202Q\330
\203Y\321\202Z\330\f\203b\321\202c\330 \203k\321\202l\330&\211\364V\203}\333\306\362\"\210\202\240 \326W\204\216E\203\226 \326U\203\226\333\306\365\"\210\202\240 \326U\203\240\366 EE\204\360
\203\301
\367V\204\265
\321W\203\301
E\f \311\202\360\f\203\333\f\367V\204\321\f\321W\203\333\fE \311\202\360 \203\360 \367V\204\353 \321W\203\360 E\311E\203.
\203
\336V\203
C\f \311\202.\f\203 \f\336V\203 \fC \311\202. \203. \336V\203. C\311E\203CC\203CD\204\312
D\202\312E\203SD\203S
C\202\312L\211\203\246 @9\203\237 @\370>\203vE\204\237
E\f \202\237 @\371>\203\214D\204\237
D\f \202\237 @\372>\203\237C\204\237
C\f A\211\204ZD\204\262
D\f C\204\276
C\f E\204\312
E\f >\203\327\373\374E!!E\375E\nDCA@?&.0\207" [math-pd-str temp bigyear c b a syntax math-parse-standard-date t nil string-match "W[0-9][0-9]" math-parse-iso-date "\\`[^-+/0-9a-zA-Z]*\\([-+]?[0-9]+\\.?[0-9]*\\([eE][-+]?[0-9]+\\)?\\)[^-+/0-9a-zA-Z]*\\'" date math-read-number math-match-substring 1 "\\([0-9][0-9]?\\):\\([0-9][0-9]?\\)\\(:\\([0-9][0-9]?\\(\\.[0-9]+\\)?\\)\\)? *\\([ap]\\>\\|[ap]m\\|[ap]\\. *m\\.\\|noon\\|n\\>\\|midnight\\|mid\\>\\|m\\>\\)?" "\\([0-9][0-9]?\\)\\(\\)\\(\\(\\(\\)\\)\\) *\\([ap]\\>\\|[ap]m\\|[ap]\\. *m\\.\\|noon\\|n\\>\\|midnight\\|mid\\>\\|m\\>\\)" 6 string-to-number 2 4 0 "" 24 throw "Hour value is out of range" (78 77) 12 77 "Time must be 12:00:00 in this context" 65 "[0-9a-zA-Z]\\(-\\)[0-9a-zA-Z]" copy-sequence 47 "[a-zA-Z]" math-parse-date-word ("noon" "midnight" "mid") ("ad" "a.d.") ("bc" "b.c.") "[a-zA-Z]+" format "Bad word in date: \"%s\"" "[-+]?0*[1-9][0-9][0-9][0-9][0-9]+" "[4-9][0-9]\\|[0-9][0-9][0-9]\\|[-+][0-9]+[^-]*\\'" "\\([-+][0-9]+\\)[^-]*\\'" "\\(0*[1-9][0-9][0-9]+\\)" "[0-9]+" "Too many numbers in date" + 3 "Not enough numbers in date" math-this-year 31 (Y YY BY YYY YYYY) (M MM BM mmm Mmm Mmmm MMM MMMM) (D DD BD) math-neg math-abs math-parse-date-validate bc-flag second minute hour weekday day month year case-fold-search ampm math-long-month-names math-long-weekday-names math-short-month-names math-short-weekday-names calc-date-format] 15])
(defalias 'math-parse-date-validate #[(year bigyear month day hour minute second) "\204 \306 !\203 \307W\203 \211\310W\203 \311\202 \312\\ \313=\203) \314\315\316\"\210\n\317W\2045 \n\320V\203: \314\315\321\"\210 \317W\204I \322 \n\"V\203N \314\315\323\"\210\f\203\246 \f\313W\204q \f\324V\204q \f\324U\203v
\313U\204v \313=\204v \314\315\325\"\210
\313W\204\202
\326V\203\207 \314\315\327\"\210\330 !\204\241 \331 ! \"\332\"!\"\333U*\204\246 \314\315\334\"\210\335\336\337 \n E\f\205\266 \f
E\"!D\207" [bigyear year month day hour minute natnump 100 40 2000 1900 0 throw syntax "Year value is out of range" 1 12 "Month value is out of range" math-days-in-month "Day value is out of range" 24 "Hour value is out of range" 59 "Minute value is out of range" math-negp 60 math-compare -1 "Seconds value is out of range" date math-dt-to-date append second b a] 7])
(defalias 'math-parse-iso-date-validate #[(isoyear isoweek isoweekday hour minute second) "\306W\204\f \307V\203 \310\311\312\"\210 \306W\204 \313V\203\" \310\311\314\"\210\n\203u \n\315W\204D \n\316V\204D \n\316U\203I \315U\204I \f\315=\204I \310\311\317\"\210 \315W\204U \320V\203Z \310\311\321\"\210\322\f!\204p \f\323 \324
\"\325U*\204u \310\311\326\"\210\327\330\331 E\n\205\205 \n \fE\"!D\207" [isoweek isoweekday hour minute second b 1 53 throw syntax "Week value is out of range" 7 "Weekday value is out of range" 0 24 "Hour value is out of range" 59 "Minute value is out of range" math-negp 60 math-compare -1 "Seconds value is out of range" date math-iso-dt-to-date append a isoyear] 7])
(defalias 'math-parse-date-word #[(names &optional front) "\304 \203$ \305 @\306\232\203 \307\202 \310 @!\n\"\204$ AT\202 \205I \2033 \311\224\311U\205I \n\311\211\224O \203@ \312\202A \313\n\311\225\314OQ)\207" [n names math-pd-str front 1 string-match "Sep" "Sept?" regexp-quote 0 "" " " nil] 5])
(defalias 'math-parse-standard-date #[(math-pd-str with-time) "\306\211\307\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211 @ A B C D E F G H I J K L MJ\203\243L\203\243J@IJA\206N G\307G\211J\211J@\211H:\203a H@HI<\203} N\2034 I\2034 JGI\211J\202\232I;\203\247 IGOGX\203\235IO\310IGO\232\203\235OIG\307O\211O\202\232I\311=\2044 I\312>\203*\313\314O\"\203\235\315O\310\"KO\310\225\307OO\316\317K!!K\320KI\321>\203\342 \310\202\367 I\322=\204\360 \323K!\203\365 P\202\367 Q\"K\324K8\206\f\325K8\206 \326K8\206\nK@CKA@B\327K8\211A\202\232I\330=\203z\313\331O\"\203\235\315O\310\"KO\310\225\307OO\316\332\333\334\317K!\335\"\"!K\324K8\325K8\326K8K@CKA@B\327K8\211A\202\232I\336>\203\214\337R\306\"\211B\202\232I\340>\203\236\337S\306\"\211B\202\232I\341>\203\255\337T\306\"\202\232I\342>\203\274\337U\306\"\202\232I\343>\203\313\344O\"\203\342\f\345U\203\325\310\202\326\fO\346\307O\211O\202\232\313\347O\"\203\235\f\345U\203\364\345\202\371\f\345\\\350\246O\346\307O\211O\202\232I\351>\203P\313\352O\"\203,\f\345U\203 \310\202 \fO\310\225\307O\211O\202\232\313\353O\"\203\235\f\345U\203>\345\202C\f\345\\\350\246O\310\225\307O\211O\202\232I\354>\203\301H\355>\203uI\356>\203m\313\357O\"\202z\313\360O\"\202z\313\331O\"\203\235\315O\310\"CI\361=\206\221O\310H\362>@O\310\225\307OO\317C!\211C\203\235I\363=\2034 C\310=\2034 \320C\346\"C\306\211@\202\232I\364=\203\345\313\331O\"\203\235\365\315O\310\"!FO\310\225\307O\211O\202\232I\366=\203\313\367O\"\203\235\365\315O\346\"!EO\324\307O\211O\202\232I\370=\2044 I\371=\203*O\310H\372=\2034 O\346\307O\211O\202\232I\373>\203E\313\374O\"\203\235O\310\225\307O\211O\202\232I\375>\203`\313\376O\"\203\235O\310\225\307O\211O\202\232I\377>\203\313\201V O\"\203\235O\310\225\307OO\306\211\202\232I\201W >\203\273H\201X >\203\233\313\201Y O\"\202\242\313\201Z O\"\203\235\315O\310\"O\310\225\307OO\317\n!\211\202\232I\201[ =\203\331\313\201\\ O\"\2034 O\346\307O\211O\202\232I\201] >\203H\201^ >\203I\201_ =\203\376\313\201` O\"\202
\313\357O\"\202
\313\201a O\"\203\235\365\315O\310\"!KO\310\225\307OOI\201b =\203:K\310Y\203\235K\201c W\202\232I\201d =\203KK\211D\202\232I\201e >\203[K\211\202\232I\201f >\203lK\211B\202\232I\201g >\203}K\211A\202\232I\201h >\203\215K\211\202\232I\201i >\203\235K\211\2044 \307L\2024
\203\274B\203\266A\203\266\307\202\274\346\211BAL\205?O\201j \232\205?F\203\340\201k FED\f \n&\202?B\205?A\205?\f\204\366 \204\366\n\203\376\f\205? \205?C\204 \201l C\n\204\310 \203 \201m \201n C!!C\201o C@BA\f \n&A
\203=\332A
S\"AA.\207" [calc-date-format bc-flag second minute hour yearday t nil 0 X (n N j J) string-match "\\`[-+]?[0-9.]+\\([eE][-+]?[0-9]+\\)?" math-match-substring math-date-to-dt math-read-number math-sub (n N) j math-integerp 3 4 5 2 U "\\`[-+]?[0-9]+" math-add 719164 math-div (float 864 2) (mmm Mmm MMM) math-parse-date-word (Mmmm MMMM) (www Www WWW) (Wwww WWWW) (p P) "\\`a" 12 1 "\\`p" 24 (pp PP pppp PPPP) "\\`am\\|a\\.m\\." "\\`pm\\|p\\.m\\." (Y YY BY YYY YYYY ZYYY) (MM DD ddd hh HH mm ss SS) (Y YY BYY) "\\` *[0-9][0-9]" "\\`[0-9][0-9][0-9][0-9]" YYY (43 45) ZYYY IYYY string-to-number Iww "W\\([0-9][0-9]\\)" b T 84 (aa AA aaaa AAAA) "\\` *\\(ad\\|a\\.d\\.\\)" (aaa AAA) "\\` *ad *" (bb BB bbb BBB bbbb BBBB) bigyear day month year isoweekday isoweek isoyear gnext next this fmt num okay case-fold-search with-time math-pd-str math-julian-date-beginning-int math-julian-date-beginning math-short-month-names math-long-month-names math-short-weekday-names math-long-weekday-names "\\` *\\(bc\\|b\\.c\\.\\)" (s ss bs SS BS) (YY YYYY MM DD hh HH mm) "\\` *[0-9][0-9]\\(\\.[0-9]+\\)?" "\\` *[0-9][0-9]?\\(\\.[0-9]+\\)?" C "\\`:[0-9][0-9]" (ddd MM DD hh HH mm) (YY YYYY MM DD ddd hh HH mm ss SS) ddd "\\` *[0-9][0-9][0-9]" "\\` *[0-9]+" W 7 w (d ddd bdd) (M MM BM) (D DD BD) (h hh bh H HH BH) (m mm bm) "" math-parse-iso-date-validate math-this-year math-neg math-abs math-parse-date-validate] 20])
#@55 Parse MATH-PD-STR as an ISO week date, or return nil.
(defalias 'math-parse-iso-date #[(math-pd-str) "\306\307\211\211\211\211\211 \310\311\"\203Q \312\313\314\"!\313\315\"\313\316\"\317\211\224O \320\232\203> \317\202B \312 !\320\232\203M \317\202Q \321!\310\322\"\205z \312\313\314\"!\312\313\315\"!\312\313\316\"!\323
\f \n &.\207" [second minute hour isoweekday isoweek isoyear t nil string-match "T[^0-9]*\\([0-9][0-9]\\)[^0-9]*\\([0-9][0-9]\\)?[^0-9]*\\([0-9][0-9]\\(\\.[0-9]+\\)?\\)?" string-to-number math-match-substring 1 2 3 0 "" math-read-number "\\(-?[0-9]*\\)[^0-9]*W\\([0-9][0-9]\\)[^0-9]*\\([0-9]\\)[^0-9]*\\'" math-parse-iso-date-validate case-fold-search math-pd-str] 7 (#$ . 33081)])
(defalias 'calcFunc-now #[(&optional zone) "\303\304\305 !)\211:\203( \n\203$ \306 \307\310\311\303 \"\311\n \"\"\312\"\"\2026 \2026 \313\314!\210\315\316C\n\2055 \nC\")\207" [calc-date-format date zone nil math-parse-date current-time-string math-add math-div math-sub calcFunc-tzone (float 864 2) calc-record-why "*Unable to interpret current date from system" append calcFunc-now] 9])
(defalias 'calcFunc-year #[(date) "\301!@\207" [date math-date-to-dt] 2])
(defalias 'calcFunc-month #[(date) "\301!A@\207" [date math-date-to-dt] 2])
(defalias 'calcFunc-day #[(date) "\301\302!8\207" [date 2 math-date-to-dt] 3])
(defalias 'calcFunc-weekday #[(date) "\242\300=\203 A@\301!\204 \302\303\"\210\304\305!\306\"\207" [date math-realp math-reject-arg datep math-mod math-floor 7] 3])
(defalias 'calcFunc-yearday #[(date) "\302!\303 @ A@\304 8#)\207" [date dt math-date-to-dt math-day-number 2] 5])
(defalias 'calcFunc-hour #[(date) "\242\301=\203 A@\207\302\303!8\206 \304\207" [date hms 3 math-date-to-dt 0] 3])
(defalias 'calcFunc-minute #[(date) "\242\301=\203 \3028\207\303\304!8\206 \305\207" [date hms 2 4 math-date-to-dt 0] 3])
(defalias 'calcFunc-second #[(date) "\242\301=\203 \3028\207\303\304!8\206 \305\207" [date hms 3 5 math-date-to-dt 0] 3])
(defalias 'calcFunc-time #[(date) "\302!\303 8\203 \304\303 \233B\202 \304\305\211\211F)\207" [date dt math-date-to-dt 3 hms 0] 4])
(defalias 'calcFunc-date #[(date &optional month day hour minute second) "\306!\203\n \307!\203 \250\204 \310\311\"\210\306 !\203\" \307 ! \2030 \250\2040 \310 \311\"\210\n\242\312=\203G \204G \313\n8\314\n8\nA@\306\n!\203Q \307\n!\n\203_ \n\250\204_ \310\n\311\"\210\306 !\203i \307 ! \203w \250\204w \310 \311\"\210\306\f!\203\201 \307\f!\f\203\220 \315\f!\204\220 \310\f\316\"\210\203\335 \306
!\203\236 \307
!
\203\255 \317
!\204\255 \310
\320\"\210 \203\323 \n\203\312 \305\321
\n \206\300 \322\f\206\305 \322\257!D\207\305\321
E!D\207\305\321\323
E!D\207\315
!\203\347 \305
D\207
@\305=\203\362
A@\207\310
\324\"\207" [month day hour minute second date math-messy-integerp math-trunc math-reject-arg fixnump hms 3 2 math-realp realp math-integerp integerp math-dt-to-date 0 math-this-year datep] 8])
(defalias 'calcFunc-julian #[(date &optional zone) "\304!\203% \300\305!\203 \306 \"\202# \306\n\"\306\307\310 \"\311\"\"D\207@\300=\203H \312A@\305A@!\203< \202F \312\n\307\310 \"\313\"\"\"\207\314\315\"\207" [date math-julian-date-beginning-int math-julian-date-beginning zone math-realp math-integerp math-sub math-div calcFunc-tzone (float 864 2) math-add (float 864 2) math-reject-arg datep] 8])
(defalias 'calcFunc-unixtime #[(date &optional zone) "\302!\203 \303\304\305\306\"\"\300\307\305\310 \"\311\"\"D\207@\300=\2031 \303\312A@\304\"A@\310 \"\"\207\313\314\"\207" [date zone math-realp math-add 719163 math-div (float 864 2) math-sub calcFunc-tzone (float 864 2) math-date-parts math-reject-arg datep] 7])
#@40 No doc yet. See calc manual for now.
(defvar math-tzone-names '(("UTC" 0 0) ("MEGT" -1 "MET" "METDST") ("METDST" -1 -1) ("MET" -1 0) ("MEGZ" -1 "MEZ" "MESZ") ("MEZ" -1 0) ("MESZ" -1 -1) ("WEGT" 0 "WET" "WETDST") ("WETDST" 0 -1) ("WET" 0 0) ("BGT" 0 "GMT" "BST") ("GMT" 0 0) ("BST" 0 -1) ("NGT" (float 35 -1) "NST" "NDT") ("NST" (float 35 -1) 0) ("NDT" (float 35 -1) -1) ("AGT" 4 "AST" "ADT") ("AST" 4 0) ("ADT" 4 -1) ("EGT" 5 "EST" "EDT") ("EST" 5 0) ("EDT" 5 -1) ("CGT" 6 "CST" "CDT") ("CST" 6 0) ("CDT" 6 -1) ("MGT" 7 "MST" "MDT") ("MST" 7 0) ("MDT" 7 -1) ("PGT" 8 "PST" "PDT") ("PST" 8 0) ("PDT" 8 -1) ("YGT" 9 "YST" "YDT") ("YST" 9 0) ("YDT" 9 -1)) (#$ . 36830))
(defvar var-TimeZone nil)
#@62 Information about the timezone, retrieved from the calendar.
(defvar math-calendar-tzinfo nil (#$ . 37531))
#@233 Get information about the timezone from the calendar.
The result should be a list of two items about the current time zone:
first, the number of seconds difference from GMT
second, the number of seconds offset for daylight savings.
(defalias 'math-get-calendar-tzinfo #[nil "\203 \207\303\304!\210\305 \210 \306\n@!\307_\nA@\307_D\211)\207" [math-calendar-tzinfo calendar-current-time-zone-cache tzinfo require cal-dst calendar-current-time-zone abs 60] 3 (#$ . 37646)])
(defalias 'calcFunc-tzone #[(&optional zone date) "\203\240 \306!\203 \307\310\311\"!\207@\312=\203\" \307\310\313\314\"\311\"!\207@\315=\2038 \316\317A@ \"\317\3208 \"\"\207@\321=\203N \322\317A@ \"\317\3208 \"\"\207@\323=\203\233 \324A@!\226\325\326 \f\"\211\203\210 \317\316\nA@\320\n8\250\203y \320\n8\202\202 \327 \n@\"\206\202 \330\" \"\202\231 \331\232\203\225 \317\325 \"\202\231 \332\333\"*\207\332\334\"\207\335\336!\203\255 \317\335\336! \"\207\337 \211 @\340 !
A@_\\)\207" [zone date found name math-tzone-names tzinfo math-realp math-round math-mul 3600 hms math-from-hms deg + math-add calcFunc-tzone 2 - math-sub var symbol-name nil assoc math-daylight-savings-adjust 0 "LOCAL" math-reject-arg "*Unrecognized time zone name" "*Expected a time zone" calc-var-value var-TimeZone math-get-calendar-tzinfo math-cal-daylight-savings-adjust] 7])
(defvar math-daylight-savings-hook 'math-std-daylight-savings)
(defalias 'math-daylight-savings-adjust #[(date zone &optional dt) "\204 \306 A@\307\242\300=\203 \310A@\202C \203> \311!\203> \312\n \"\211 \203: \313\314\315\fA@\316\"\")\202C \317\320\"\210\321!
\204O \322!\205[
\n $)\207" [date bump zone math-tzone-names zadj dt calcFunc-now nil 0 math-realp assoc -1 math-sub math-div (float 24 0) math-reject-arg datep math-float math-date-to-dt math-daylight-savings-hook] 6])
#@58 Return -1 if DATE is using daylight saving, 0 otherwise.
(defalias 'math-cal-daylight-savings-adjust #[(date) "\304\305!\210\204 \306 \307!\310 8\203 \310 8\202. \311 8\203- \310 8\311 8\312\245\\\202. \313\314 A@\315 8 @E!\316\317\n\320_!\321\322#\\\323 !\203O \324\202P \313+\207" [date dt time rounded-abs-date require cal-dst calcFunc-now math-date-to-dt 3 4 60.0 0 calendar-absolute-from-gregorian 2 / round 60 60.0 24.0 dst-in-effect -1] 5 (#$ . 39509)])
(defalias 'calcFunc-dsadj #[(date &optional zone) "\203 \242\304=\204 \305\306\"\210\202 \307\310!\203J \242\304=\205( \311A@!\226\312 \"\211\2047 \305\313\"\210\314\n8\250\203D \314\n8\202H \315 \")\207\316 !\207" [zone math-tzone-names zadj date var math-reject-arg "*Time zone variable expected" calc-var-value var-TimeZone symbol-name assoc "*Unrecognized time zone name" 2 math-daylight-savings-adjust math-cal-daylight-savings-adjust] 4])
(defalias 'calcFunc-tzconv #[(date z1 z2) "\303!\203 \304\300D \n#A@\207\305\211 \"\n\"\207" [date z1 z2 math-realp calcFunc-tzconv calcFunc-unixtime] 4])
#@402 Standard North American daylight saving algorithm.
Before 2007, this uses `math-std-daylight-savings-old', where
daylight saving began on the first Sunday of April at 2 a.m.,
and ended on the last Sunday of October at 2 a.m.
As of 2007, this uses `math-std-daylight-savings-new', where
daylight saving begins on the second Sunday of March at 2 a.m.,
and ends on the first Sunday of November at 2 a.m.
(defalias 'math-std-daylight-savings #[(date dt zone bump) "@\304W\203 \305 \n $\207\306 \n $\207" [dt date zone bump 2007 math-std-daylight-savings-old math-std-daylight-savings-new] 5 (#$ . 40604)])
#@229 Standard North American daylight saving algorithm as of 2007.
This implements the rules for the U.S. and Canada.
Daylight saving begins on the second Sunday of March at 2 a.m.,
and ends on the first Sunday of November at 2 a.m.
(defalias 'math-std-daylight-savings-new #[(date dt zone bump) "A@\304W\203\n \305\207A@\304U\203B \306 \307\305$\3108\nW\203% \305\202@ \3108\nU\203? \3048\304 \\Y\203; \311\202@ \305\202@ \311)\207A@\312W\203L \311\207A@\312U\203\204 \306 \313\305$\3108\nW\203g \311\202\202 \3108\nU\203\201 \3048\310 \\Y\203} \305\202\202 \311\202\202 \305)\207\305\207" [dt date sunday bump 3 0 math-prev-weekday-in-month 14 2 -1 11 7] 5 (#$ . 41217)])
#@227 Standard North American daylight saving algorithm before 2007.
This implements the rules for the U.S. and Canada.
Daylight saving begins on the first Sunday of April at 2 a.m.,
and ends on the last Sunday of October at 2 a.m.
(defalias 'math-std-daylight-savings-old #[(date dt zone bump) "A@\304W\203\n \305\207A@\304U\203B \306 \307\305$\3108\nW\203% \305\202@ \3108\nU\203? \3118\311 \\Y\203; \312\202@ \305\202@ \312)\207A@\313W\203L \312\207A@\313U\203\204 \306 \314\305$\3108\nW\203g \312\202\202 \3108\nU\203\201 \3118\310 \\Y\203} \305\202\202 \312\202\202 \305)\207\305\207" [dt date sunday bump 4 0 math-prev-weekday-in-month 7 2 3 -1 10 31] 5 (#$ . 41907)])
(defalias 'math-prev-weekday-in-month #[(date dt day wday) "\204 \304 8\305 @ A@\"V\203 \305 @ A@\"\306\307\n!\304 8\"\306\310\311 \"!A@ \")\207" [day dt date zeroth 2 math-days-in-month math-sub math-floor calcFunc-newweek math-add] 5])
(defalias 'calcFunc-pwday #[(date &optional day weekday) "\242\300=\203 A@\303!\204 \304\305\"\210\306 !\203 \307 ! \250\204* \304 \310\"\210 \311U\2032 \312 \313W\204> \312V\203C \304 \314\"\210\315\316! \n\206N \311$\207" [date day weekday math-realp math-reject-arg datep math-messy-integerp math-trunc fixnump 0 31 7 range math-prev-weekday-in-month math-date-to-dt] 5])
(defalias 'calcFunc-newweek #[(date &optional weekday) "\242\300=\203 A@\302!\204 \303\304\"\210 \204 \305\306 !\203& \307 ! \250\2040 \303 \310\"\210 \305W\204< \311V\203A \303 \312\"\210\313!\300\314\315\314 \"!\"D\207" [date weekday math-realp math-reject-arg datep 0 math-messy-integerp math-trunc fixnump 6 range math-floor math-sub calcFunc-weekday] 7])
(defalias 'calcFunc-newmonth #[(date &optional day) "\204 \306\307!\203 \310!\250\204 \311\312\"\210\313W\204& \314V\203+ \311\315\"\210\316 !\317\n@\nA@\"\f\205J \316\320\321\f8\206G \322\323\f\"\306\"! \313U\204W V\203] S\202` S\f\2031\324\n@\nA@\306E\f\"\203\236 \324
\n@\nA@\306E\"\203\236 \301\325\f@\fA@\326\f8\\ V\203\223 \202\230 \326\f8\\E!D\202?\n@\f@=\203\361 \nA@\fA@U\203\361 \326
8\\\326\f8W\203\313 \301\325\n@\nA@TE!D\202?\326\f8\326
8Z\\ \301\325\n@\nA@ V\203\350 \202\352 E!)D\202?\n@
@=\203 \nA@
A@U\203 \301\325\n@\nA@\326
8Y\203\326
8\202TE!D\202?\301\327\325\n@\nA@\306E!\"D\202?\301\327\325\n@\nA@\306E!\"D+\207" [day date dt dim calc-gregorian-switch julian 1 math-messy-integerp math-trunc math-reject-arg fixnump 0 31 range math-date-to-dt math-days-in-month math-sub 3 apply math-absolute-from-gregorian-dt math-dt-before-p math-dt-to-date 2 math-add tm] 7])
(defalias 'calcFunc-newyear #[(date &optional day) "\242\300=\203 A@ \204 \306\307 !\203 \310 ! \250\204% \311 \312\"\210\313! \2057 \314 8\2067 \315\316 \" \205@ \317\f\306\" \205H \313
! \320Y\203
\321X\203
\322\n@!\203a \321\202b \323 \320U\204q V\203t \203\374 \324\n@\306\211E \"\203\242 \324 \n@\306\211E\"\203\242 \300\325\326\f S\"\327 @\330\331E!\"D\202 \n@ @=\203\354 @ @ !\332! \"\333U*\203\323 \300\325\326\327\n@\306\211E! S\"
\"D\202 \300\325\326\327\n@\306\211E! S\"\327\n@\330\331E!\"D\202 \300\326\327\n@\306\211E! S\"D\202 \300\326\327\n@\306\211E! S\"D)\202M \334Y\203I \333X\203I \203<\324\n@ [\306E \"\203<\324 \n@ [\306E\"\203<\300\fD\202M\300\327\n@ [\306E!D\202M\311 \335\",\207" [date day dt calc-gregorian-switch gregbeg julianend 1 math-messy-integerp math-trunc math-reject-arg fixnump math-date-to-dt 3 apply math-absolute-from-gregorian-dt math-sub 0 366 math-leap-year-p 365 math-dt-before-p math-min math-add math-dt-to-date 12 31 math-compare -1 -12 range julian max b a] 7])
(defalias 'calcFunc-incmonth #[(date &optional step) "\204 \306\307!\203 \310!\311!\204 \312\313\"\210\314 !\211@\315\nA@S\" \316\f\317\" \320\n8 \321\f\322
\317\"\"T\315
\"\323 \f\"^\324\n@!\203] \324 !\204] \321 \306\"\325\n@!\203o \325 !\204o \315 \306\"\301\326 \f\nAAABBB!-D\207" [step date dt year month extra 1 math-messy-integerp math-trunc math-integerp math-reject-arg integerp math-date-to-dt math-add calcFunc-idiv 12 2 math-sub math-mul math-days-in-month math-posp math-negp math-dt-to-date day] 7])
(defalias 'calcFunc-incyear #[(date &optional step) "\302\303 \206 \304\305\"\"\207" [date step calcFunc-incmonth math-mul 1 12] 5])
(defalias 'calcFunc-bsub #[(a b) "\242\304=\204\f \305\306\"\210 \242\304=\203J \307A@ A@\"\203% \310\311 \"!\207\312 !\210\313!\313 !\314\315\n@ @\" A\203F \nA\204F \316\202G \317\"*\207\320\310 !\"\207" [a b da db date math-reject-arg datep math-lessp math-neg calcFunc-bsub math-setup-holidays math-to-business-day math-add math-sub 1 0 calcFunc-badd] 4])
(defvar math-holidays-cache nil)
(defvar math-holidays-cache-tag t)
(defalias 'calcFunc-badd #[(a b) "\242\306=\203 \242\306=\203 \307\310\311\"\207\312 \"\207 \242\306=\203\347 \211:?\206+ @\313>)\203\277 \211:\203S @\314>?\205V @\315=\203M A@\316=\202V \317 !\202V \316=)\203\\ \207\320 !\321\n@\nA\203\260 \211:\203\242 @\322=\206\245 @\323=?\205\245 @\324>\203\234 A@\211:\203\225 @\322=\202\230 \316V)\202\245 \325 !\202\245 \316V)\203\260 \326\327\"\202\261 \"\330 !\206\275 \312 \"*\207\242\331=\203\342 \332\f8 \333\334\335\"\336\"
\203\334 \333
A\"\312 \")\207\307\310\311\"\207\307 \337\"\207" [b a d bb math-holidays-cache hours date math-reject-arg nil "*Invalid combination in date arithmetic" calcFunc-badd (bigpos bigneg frac float) (bigpos bigneg) float 0 math-zerop math-to-business-day math-add bigpos bigneg (frac float) math-posp math-sub 1 math-from-business-day hms 7 math-div math-from-hms deg 24 datep] 6])
(defalias 'calcFunc-holiday #[(a) "\301!A\203 \302\207\303\207" [a math-to-business-day 1 0] 2])
(defalias 'math-to-business-day #[(date &optional need-year) "\242\300=\203 A@\211:?\206 @\306>)\204 \307\310\"\210\311!\312\n\"\313\n! \314 \315 \203F \f@ =\204F \307\300\nD\316\"\210\317!\210 @ A\211 \203f @\nW\203f
T\202O \203v \n @U\203v \320 )\321 8 \n\322\\\323\245S !\324\n\325!\323_# \"
! G_\\ \203\261 @\"W\203\261 A
T\202\230 \203\302 \" @=\203\302 \320 +\323 8\211 #\203\326\312 #@\"#A\"\211\314 $\327 $\"\330U*\203\353 \314 \325 $\327 $\"\330U*\204\312\325\326\325\331\332#A\"\"\")\333\312\n
\" \" -B\207" [date a day time dt delta (bigpos bigneg frac float) math-reject-arg datep math-floor math-sub math-date-to-dt 0 nil "*Generated holiday has wrong year" math-setup-holidays t 3 6 7 - 1 math-div math-compare -1 math-mul 86400 math-add holiday need-year math-holidays-cache days weekdays weeks wkday hours b] 8])
(defalias 'math-from-business-day #[(num) "\306!\307 \" \250\204 \310\311\312\"\210\313 \210 A@\314
A\211\2030
@ W\2030 \fT\202 \f\\*\315 8 \316GZ S\\\245S \317 \320_# \314 G_\\>\203r T\211\202z S\211\314V\203\206 T\211\202e \316 8\211 \203\233 \321\322\nA\"@\")\313 !?\205\251 \323\321 \n\"D.\207" [num day time math-holidays-cache delta days math-floor math-sub math-reject-arg nil "*Date is outside valid range" math-setup-holidays 0 3 7 - 1 math-add math-mul date weekdays bweek weeks wkday w hours] 6])
(defalias 'math-setup-holidays #[(&optional date) "\306\307!=\204\360\306\307!\310\311\211\211\211\211 @ A\312A!\204' \313A\314\"\210AA\211A\203\307A@\242\315=\203B A@A@\250\204_ A@\242\316=\203V \317A@8\242\315=\204_ A@\242\320=\203h A@
B\202' A@\242\321=\203\213 A@A@@\236\203\213 A@A@@\236A\fB\202' A@\242\316=\2034\317A@8\242\322=\2034\323A@8\242\322=\2034 \203\265 \313A@\324\"\210\325A@\326\"\317 8\327 B C\330CB\"\331U*\204\344 \332\323 8 B C\330CB\"\331U*\203\353 \313A@\333\"\210\317 8\334\323 8\317 8\"B\211A\211 C:\203\"C@\335>?\205&C@\336=\203CA@\327=\202&\337C!\202&C\327=)\203' \313A@\340\"\210\202' A@\242\316=\203i\317A@8\211 C:?\206OC@\341>)\203i\323A@8\211 C:?\206eC@\341>)\204\200A@\250\203\242A@\342V\203\242A@\343W\203\242\n\203\213\313A@\344\"\210\345A@\346\"\211\347\232\203' \313A@\350\"\210\202' \351A@\352\"\204\264\351A@\353\"\203\275A@ B\202' \313A@\354\"\210\202' \fG\355U\203\323\313\311\356\"\210\331C\331C\311\357\f\360\"\n\206\341\361\311
B \257D\306\307!.
\205\346\362
!\363D8\311 E F G\364G\365D8\"\332=\204%
\242\315=\204 \315
D
\313
\366\"\210\367\216\370D8\211 \203J\311 H\370D\233\311\240\210\371\320
AB!\210DAA
@\240\210)\317D8\204X\372E\311\202\345F\204s\363D\233G\211B\240\210\373G!\210\372\211E\202\345GF@W\203\252\374\375GF@S#\210\376\377!\210GF@W\203\243F\211@S\240\210\373F@!\210\202\212\372\211E\202\345GFAV\203\341\374\375FATG#\210\376\377!\210GFAV\203\332F\211AT\241\210\373FA!\210\202\301\372\211E\202\345\372E\311-\207" [math-holidays-cache-tag hours limit exprs weekdays days calc-var-value var-Holidays ((sun . 0) (mon . 1) (tue . 2) (wed . 3) (thu . 4) (fri . 5) (sat . 6)) nil math-vectorp math-reject-arg "*Holidays variable must be a vector" date intv 2 vec var hms 3 "*Only one hours interval allowed in Holidays" math-div (hms 24 0 0) 0 math-compare -1 1 "*Hours interval out of range" math-sub (bigpos bigneg) float math-zerop "*Degenerate hours interval" (bigpos bigneg) 1900 2100 "*Only one limit allowed in Holidays" calcFunc-vint (intv 3 1 2737) (vec) "*Limit is out of range" math-expr-contains (var y var-y) (var m var-m) "*Holidays must contain a vector of holidays" 7 "*Too many weekend days" sort < (intv 3 1 2737) calcFunc-year 5 calcFunc-in 4 "*Date is outside valid range" #[nil "\206 \302\211\207" [done math-holidays-cache-tag t] 2] 6 math-setup-add-holidays t math-setup-year-holidays message "Computing holidays, %d .. %d" calc-set-command-flag clear-message wdnames h b a math-holidays-cache done limits year math-sh-year] 9])
(defalias 'math-setup-year-holidays #[(math-sh-year) "\3068\211\205= \n\307 \310 @! \311
\312\"\2030 \313 \fT\211\314X\203, \315\310
!!\210\202 )\2024 \315
!\210+ A\211\204 \307)\207" [math-holidays-cache exprs math-sh-year var-y var-m expr 2 nil math-evaluate-expr math-expr-contains (var m var-m) 0 12 math-setup-add-holidays] 4])
(defalias 'math-setup-add-holidays #[(days) "\242\306=\203 A\211\205\315 \307@!\210\202 \242\310=\203H \311\3128!\313 \"\314=\2041 \315 \314\"\313 \"\314=\205F \307 !\210\315 \314\"\2021 )\207\242\316=\203U \307A@!\207\317=\206\315 \250\203\260 \320\n\"\211A\206\256 \f@\fA@ A\203\214 A@W\203\214 A
A\202r AB\241\210
@
AB\241\210
A\211\205\255
\211@S\240\210\202\235 *)\207\211 :?\206\276 @\321>)\203\311 \322\316D\323\"\207\322\324\"\207" [days day math-sh-year b math-holidays-cache iprev vec math-setup-add-holidays intv math-ceiling 2 calcFunc-in 1 math-add date 0 math-to-business-day (bigpos bigneg frac float) math-reject-arg "*Invalid holiday value" "*Holiday formula failed to evaluate" prev a] 4])
(defalias 'math-make-sdev #[(x sigma) "\242\303>\203\f \304\305\"\210 \242\306>\203 \304 \305\"\210 \211:\203R \n@\307=\206U \n@\310=?\205U \n@\311>\203L \nA@\211:\203E \n@\307=\202H \n\312W)\202U \313\n!\202U \n\312W)\204` \242\314>\203d \315 ! \211:\203\210 \n@\316>?\205\213 \n@\317=\203\202 \nA@\312=\202\213 \320\n!\202\213 \n\312=)\203\241 \211:?\206\233 \n@\321>)\203\241 \207\322 E\207" [x sigma a (date mod sdev intv vec) math-reject-arg realp (date mod sdev intv vec) bigneg bigpos (frac float) 0 math-negp (cplx polar) math-abs (bigpos bigneg) float math-zerop (bigpos bigneg frac float cplx polar hms) sdev] 4])
(defalias 'calcFunc-sdev #[(x sigma) "\302 \"\207" [x sigma math-make-sdev] 3])
(defalias 'math-normalize-mod #[(a) "\303A@!\303\3048!\305\n!\203% \305 !\203% \306 !\203% \307\n \"\202+ \303\310\n E!*\207" [a m n math-normalize 2 math-anglep math-posp math-make-mod calcFunc-makemod] 4])
(defalias 'math-make-mod #[(n m) "\n\205\334 \211:?\206 @\305>)\204 \306\307\"\207\310!\204& \306\311\"\207\n\211:?\2062 @\305>)\203\222 \n\211:\203p @\312=\206s @\313=?\205s @\314>\203j A@\211:\203c @\312=\202f \315W)\202s \316 !\202s \315W)\204\205 \n \317 \f\"\320U*\204\215 \321\322\n\"E\207\321\nE\207\n@\323>\203\244 \324\n@\325\326\nA\"B!\207\n@\327=\203\311 \nA@\211:?\206\271 @\305>)\203\311 \330\331\nA@\"\332\n8\"\207\n@\333>\203\330 \330\331\334\"\n\"\207\306\n\307\"\207" [m calc-previous-modulo n a b (bigpos bigneg frac float hms) math-reject-arg anglep math-posp posp bigneg bigpos (frac float) 0 math-negp math-compare -1 mod math-mod (+ - / vec neg) math-normalize mapcar #[(x) "\302 \"\207" [x m math-make-mod] 3] * math-mul math-make-mod 2 (* ^ var calcFunc-subscr) 1] 6])
(defalias 'calcFunc-makemod #[(n m) "\302 \"\207" [n m math-make-mod] 3])
(defalias 'math-make-intv #[(mask lo hi) "\242\305>\203\f \306\307\"\210 \242\310>\203 \306 \307\"\210\242\311= \242\311==\2044 \306\242\311=\2030 \2021 \312\"\210\211:?\206@ \n@\313>)\204K @\311=\203\242 \211:?\206W \n@\313>)\204b @\311=\203\242 \314 \"\211\315U\203 \f\316U\203w \202\240 \317\f F\202\240 \315V\203\233 \f\316U\203\223 \317\320\211F\202\240 \317\f\211F\202\240 \317\f F)\207\317\f F\207" [lo hi a cmp mask (cplx polar mod sdev intv vec) math-reject-arg realp (cplx polar mod sdev intv vec) date datep (bigpos bigneg frac float) math-compare 0 3 intv 2] 5])
(defalias 'calcFunc-intv #[(mask lo hi) "\303!\203\n \304!\305!\204 \306\307\"\210\310X\204 \306\311\"\210\312 \n#\207" [mask lo hi math-messy-integerp math-trunc natnump math-reject-arg fixnatnump 3 range math-make-intv] 4])
(defalias 'math-sort-intv #[(mask lo hi) " \305 \n\"\306U*\203 \307\310\fH #\207\307\f #\207" [hi lo b a mask math-compare -1 math-make-intv [0 2 1 3]] 4])
(defalias 'math-combine-intervals #[(a am b bm c cm d dm) "\306\307 \n\"\211\310U\203 \n \202 \311U\203 \f\206 \307
\"\211\312U\2036
\202E \311U\203E \206C \313\f\203N \314\202O \311\203X \310\202Y \311\\
#)\207" [res a c cm am b nil math-compare 1 0 -1 math-make-intv 2 d dm bm] 4])
(defalias 'math-div-mod #[(a b m) "\211:?\206\f @\306>)\205y \211:?\206 @\306>)\205y \n\211:?\206, @\306>)\205y \307 \310\n
\310=\204a \311
\" \312
\313\f@\"\" \f
A*\2029 \311
\"\211 A\310=\205x \314\313@
\"\n\"-\207" [a b m v3 v1 u3 (bigpos bigneg) 1 0 math-idivmod math-sub math-mul math-mod u1 q t1] 6])
(defalias 'math-mod-intv #[(a b) "\306\307\3108 \"!\306\307\3118 \"!\312\3108\313\n \"\" \312\3118\313 \"\" \n \232\2036 \314A@\f
#\202] \315\312 \n\"\316\"\203X \317
!\203X A@\320>\203X \321A@\f #\202] \321\310\322 #,\207" [a b q1 q2 m1 m2 math-floor math-div 2 3 math-sub math-mul math-sort-intv math-equal-int 1 math-zerop (0 2) math-make-intv 0] 5])
(defalias 'math-read-angle-brackets #[nil "\306\307!\206 G\n O\310\311 \"\203U \312\211\225SO \312\225\313O\312 \314\315\316Q!\211\242\317=\203: \202Q \314
!\211\242\317=\203I
\202Q \320\321A
C#+\202\200 \310\322 \"\203} \312 \314 !\211\205y \242\317=\203q \202y \320\323\324\f! C#)\202\200 \325 !\211 ;\203\215 \326\327\"\210\242\317=\203\235 \326\327\3308\"\210 T\331 \210+\207" [math-exp-str last math-exp-pos str calc-hashes-used str2 math-check-for-commas t string-match "\\` *\\([a-zA-Z#][a-zA-Z0-9#]* *,? *\\)*:" 0 nil math-read-expr "[" "]" error append (calcFunc-lambda) "#" (calcFunc-lambda) calc-invent-args math-parse-date throw syntax 2 math-read-token str1 res] 5])
(provide 'calc-forms)
Kontol Shell Bypass