| Current Path : /usr/share/emacs/24.3/lisp/calendar/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calendar/cal-china.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-china.el
;;; in Emacs version 24.3.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 "\302\303!\210\302\304!\210\305\306\307\310\311\312\313\303&\210\314\315\316\307#\210\317\307\211\203? @\315N\2038 \316N\2048 \320\316\315N#\210 A\211\204! *\321\315\316\322#\210\323\316\324\325\326\327\313\306&\210\320\316\330\331#\210\320\315\330\331#\210\314\332\333\307#\210\317\307\211\203\211 @\332N\203\202 \333N\204\202 \320\333\332N#\210 A\211\204k *\321\332\333\322#\210\323\333\334\335\326\336\313\306&\210\314\337\340\307#\210\317\307\211\203\307 @\337N\203\300 \340N\204\300 \320\340\337N#\210 A\211\204\251 *\321\337\340\322#\210\323\340\341\342\326\343\313\306&\210\314\344\345\307#\210\317\307\211\203 @\344N\203\376 \345N\204\376 \320\345\344N#\210 A\211\204\347 *\321\344\345\322#\210\323\345\346\347\326\327\313\306&\210\314\350\351\307#\210\317\307\211\203C @\350N\203<\351N\204<\320\351\350N#\210 A\211\204%*\321\350\351\322#\210\323\351\352\353\326\336\313\306&\210\314\354\355\307#\210\317\307\211\203\201 @\354N\203z\355N\204z\320\355\354N#\210 A\211\204c*\321\354\355\322#\210\323\355\307\356\326\327\313\306&\210\314\357\360\307#\210\317\307\211\203\277 @\357N\203\270\360N\204\270\320\360\357N#\210 A\211\204\241*\321\357\360\322#\210\323\360\307\361\326\327\313\306&\210\314\362\363\307#\210\317\307\211\203\375 @\362N\203\366\363N\204\366\320\363\362N#\210 A\211\204\337*\321\362\363\322#\210\323\363\341\364\326\343\313\306&\210\314\365\366\307#\210\317\307\211\203; @\365N\2034\366N\2044\320\366\365N#\210 A\211\204 *\321\365\366\322#\210\323\366\341\367\326\343\313\306&\210\314\370\371\307#\210\317\307\211\203y @\370N\203r\371N\204r\320\371\370N#\210 A\211\204[*\321\370\371\322#\210\323\371\372\373\313\306\326\374&\210\314\375\376\307#\210\317\307\211\203\267 @\375N\203\260\376N\204\260\320\376\375N#\210 A\211\204\231*\321\375\376\322#\210\323\376\377\201@ \313\306\326\201A &\207" [prop --dolist-tail-- require calendar lunar custom-declare-group calendar-chinese nil "Chinese calendar support." :prefix "calendar-chinese-" :group defvaralias chinese-calendar-time-zone calendar-chinese-time-zone (saved-value saved-variable-comment) put make-obsolete-variable "23.1" custom-declare-variable '(if (< year 1928) (+ 465 (/ 40.0 60.0)) 480) "Minutes difference between local standard time for Chinese calendar and UTC.\nDefault is for Beijing. This is an expression in `year' since it changed at\n1928-01-01 00:00:00 from UT+7:45:40 to UT+8." :type sexp risky-local-variable t chinese-calendar-location-name calendar-chinese-location-name "Beijing" "Name of location used for calculation of Chinese calendar." string chinese-calendar-daylight-time-offset calendar-chinese-daylight-time-offset 0 "Minutes difference between daylight saving and standard time.\nDefault is for no daylight saving time." integer chinese-calendar-standard-time-zone-name calendar-chinese-standard-time-zone-name '(if (< year 1928) "PMT" "CST") "Abbreviated name of standard time zone used for Chinese calendar.\nThis is an expression depending on `year' because it changed\nat 1928-01-01 00:00:00 from `PMT' to `CST'." chinese-calendar-daylight-time-zone-name calendar-chinese-daylight-time-zone-name "CDT" "Abbreviated name of daylight saving time zone used for Chinese calendar." chinese-calendar-daylight-savings-starts calendar-chinese-daylight-saving-start "Sexp giving the date on which daylight saving time starts.\nDefault is for no daylight saving time. See documentation of\n`calendar-daylight-savings-starts'." chinese-calendar-daylight-savings-ends calendar-chinese-daylight-saving-end "Sexp giving the date on which daylight saving time ends.\nDefault is for no daylight saving time. See documentation of\n`calendar-daylight-savings-ends'." chinese-calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-start-time "Number of minutes after midnight that daylight saving time starts.\nDefault is for no daylight saving time." chinese-calendar-daylight-savings-ends-time calendar-chinese-daylight-saving-end-time "Number of minutes after midnight that daylight saving time ends.\nDefault is for no daylight saving time." chinese-calendar-celestial-stem calendar-chinese-celestial-stem ["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"] "Prefixes used by `calendar-chinese-sexagesimal-name'." (vector (string :tag "Jia") (string :tag "Yi") (string :tag "Bing") (string :tag "Ding") (string :tag "Wu") (string :tag "Ji") (string :tag "Geng") (string :tag "Xin") (string :tag "Ren") (string :tag "Gui")) chinese-calendar-terrestrial-branch calendar-chinese-terrestrial-branch ["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"] "Suffixes used by `calendar-chinese-sexagesimal-name'." (vector (string :tag "Zi") (string :tag "Chou") (string :tag "Yin") (string :tag "Mao") (string :tag "Chen") (string :tag "Si") (string :tag "Wu") (string :tag "Wei") (string :tag "Shen") (string :tag "You") (string :tag "Xu") (string :tag "Hai"))] 9)
#@176 The N-th name of the Chinese sexagesimal cycle.
N congruent to 1 gives the first name, N congruent to 2 gives the second name,
..., N congruent to 60 gives the sixtieth name.
(defalias 'calendar-chinese-sexagesimal-name #[(n) "\303\304 S\305\246H\n S\306\246H#\207" [calendar-chinese-celestial-stem n calendar-chinese-terrestrial-branch format "%s-%s" 10 12] 6 (#$ . 5615)])
#@146 Absolute date of first new Zodiac sign on or after absolute date D.
The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees.
(defalias 'calendar-chinese-zodiac-sign-on-or-after #[(d) "\306!\307 8)\310 !
\311\312\313\314!\315\"!!. \207" [d date year calendar-chinese-time-zone calendar-time-zone calendar-chinese-daylight-time-offset calendar-gregorian-from-absolute 2 eval floor calendar-astro-to-absolute solar-date-next-longitude calendar-astro-from-absolute 30 calendar-daylight-time-offset calendar-chinese-standard-time-zone-name calendar-standard-time-zone-name calendar-chinese-daylight-time-zone-name calendar-daylight-time-zone-name calendar-chinese-daylight-saving-start calendar-daylight-savings-starts calendar-chinese-daylight-saving-end calendar-daylight-savings-ends calendar-chinese-daylight-saving-start-time calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-end-time calendar-daylight-savings-ends-time] 5 (#$ . 5998)])
#@62 Absolute date of first new moon on or after absolute date D.
(defalias 'calendar-chinese-new-moon-on-or-after #[(d) "\306!\307 8)\310 !
\311\312\313\314!!!!. \207" [d date year calendar-chinese-time-zone calendar-time-zone calendar-chinese-daylight-time-offset calendar-gregorian-from-absolute 2 eval floor calendar-astro-to-absolute lunar-new-moon-on-or-after calendar-astro-from-absolute calendar-daylight-time-offset calendar-chinese-standard-time-zone-name calendar-standard-time-zone-name calendar-chinese-daylight-time-zone-name calendar-daylight-time-zone-name calendar-chinese-daylight-saving-start calendar-daylight-savings-starts calendar-chinese-daylight-saving-end calendar-daylight-savings-ends calendar-chinese-daylight-saving-start-time calendar-daylight-savings-starts-time calendar-chinese-daylight-saving-end-time calendar-daylight-savings-ends-time] 5 (#$ . 7014)])
#@61 List of starting dates of Chinese months from START to END.
(defalias 'calendar-chinese-month-list #[(start end) " X\205 \303!\211 X\205 \n\304\nT \"B)\207" [start end new-moon calendar-chinese-new-moon-on-or-after calendar-chinese-month-list] 5 (#$ . 7936)])
#@226 Assign month numbers to the lunar months in LIST, starting with START.
Numbers are assigned sequentially, START, START+1, ..., 11, with
half numbers used for leap months. First and last months of list
are never leap months.
(defalias 'calendar-chinese-number-months #[(list start) "\205S @D\303\304\305 G#!\203 \306A T\"\202R \211AA)\203L \3078\310\211A@)!X\203L \311\\\211A@)D\306\211AA) T\"B\202R \306A T\"B\207" [list start x zerop - 12 calendar-chinese-number-months 2 calendar-chinese-zodiac-sign-on-or-after 0.5] 7 (#$ . 8208)])
#@291 Compute the structure of the Chinese year for Gregorian year Y.
The result is a list of pairs (i d), where month i begins on absolute date d,
of the Chinese months from the Chinese month following the solstice in
Gregorian year Y-1 to the Chinese month of the solstice of Gregorian year Y.
(defalias 'calendar-chinese-compute-year #[(y) "\306\307\310E\211\311 8)\312\313 !\203 \314\315!\202t \316V\203\231 S\317 \211\211@) \211\211 A@* \311 8) \fS\320_\\ !\f\311V\203\205 !\321\f\322_\\\323\245Z! \211\316W\203f \324 !S\313 \322\246!\205| \313 \325\246!?\206| \313 \326\246!)\203\205 !T!!-\n\327_\n\322\245\n\325\245[\n\326\245%\202t\324 T!\330 \211\211@) \211\211 A@* \311 8) \fS\320_\\ !\f\311V\203\377 !\321\f\322_\\\323\245Z! \211\316W\203\340 \324 !S\313 \322\246!\205\366 \313 \325\246!?\206\366 \313 \326\246!)\203\377 !T!!-\n\327_\n\322\245\n\325\245[\n\326\245\331\211\331@) \211\211 A@* \311 8) \fS\320_\\ !\f\311V\203o!\321\f\322_\\\323\245Z! \211\316W\203P\324 !S\313 \322\246!\205f\313 \325\246!?\206f\313 \326\246!)\203o!T!!-&+! \"\332\306\307\310SE\211\311 8)\312\313 !\203\225\314\315!\202\356 \316V\203 S\317 \211\211@) \211\211 A@* \311 8) \fS\320_\\ !\f\311V\203\377!\321\f\322_\\\323\245Z! \211\316W\203\340\324 !S\313 \322\246!\205\366\313 \325\246!?\206\366\313 \326\246!)\203\377!T!!-\n\327_\n\322\245\n\325\245[\n\326\245%\202\356\324 T!\330 \211\211@) \211\211 A@* \311 8) \fS\320_\\ !\f\311V\203y!\321\f\322_\\\323\245Z! \211\316W\203Z\324 !S\313 \322\246!\205p\313 \325\246!?\206p\313 \326\246!)\203y!T!!-\n\327_\n\322\245\n\325\245[\n\326\245\331\211\331@) \211\211 A@* \311 8) \fS\320_\\ !\f\311V\203\351!\321\f\322_\\\323\245Z! \211\316W\203\312\324 !S\313 \322\246!\205\340\313 \325\246!?\206\340\313 \326\246!)\203\351!T!!-&+!T\"\" #\306#@! $#G\307U\203\307#@D\333#A\334\"B\202~#@$V\204*$#\211 A@)Y\203H\335\336#@D\307#\211 A@)DD\333#\211 AA)\334\"\"\202~\335\307#@DC\306#\211 A@)!\311#8Y\203w\337#\211 A@)D\333#\211 AA)\334\"B\202}\333#A\334\"\"+\207" [y date offset-years year month x calendar-chinese-zodiac-sign-on-or-after 12 15 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-chinese-month-list calendar-chinese-number-months 1 append 11.5 12.5 day day-of-year next-solstice list next-sign] 13 (#$ . 8768)])
#@139 Alist of Chinese year structures as determined by `chinese-year'.
The default can be nil, but some values are precomputed for efficiency.
(defvar calendar-chinese-year-cache '((2000 (12 730126) (1 730155) (2 730185) (3 730215) (4 730244) (5 730273) (6 730303) (7 730332) (8 730361) (9 730391) (10 730420) (11 730450)) (2001 (12 730480) (1 730509) (2 730539) (3 730569) (4 730598) (4.5 730628) (5 730657) (6 730687) (7 730716) (8 730745) (9 730775) (10 730804) (11 730834)) (2002 (12 730863) (1 730893) (2 730923) (3 730953) (4 730982) (5 731012) (6 731041) (7 731071) (8 731100) (9 731129) (10 731159) (11 731188)) (2003 (12 731218) (1 731247) (2 731277) (3 731307) (4 731336) (5 731366) (6 731396) (7 731425) (8 731455) (9 731484) (10 731513) (11 731543)) (2004 (12 731572) (1 731602) (2 731631) (2.5 731661) (3 731690) (4 731720) (5 731750) (6 731779) (7 731809) (8 731838) (9 731868) (10 731897) (11 731927)) (2005 (12 731956) (1 731986) (2 732015) (3 732045) (4 732074) (5 732104) (6 732133) (7 732163) (8 732193) (9 732222) (10 732252) (11 732281)) (2006 (12 732311) (1 732340) (2 732370) (3 732399) (4 732429) (5 732458) (6 732488) (7 732517) (7.5 732547) (8 732576) (9 732606) (10 732636) (11 732665)) (2007 (12 732695) (1 732725) (2 732754) (3 732783) (4 732813) (5 732842) (6 732871) (7 732901) (8 732930) (9 732960) (10 732990) (11 733020)) (2008 (12 733049) (1 733079) (2 733109) (3 733138) (4 733167) (5 733197) (6 733226) (7 733255) (8 733285) (9 733314) (10 733344) (11 733374)) (2009 (12 733403) (1 733433) (2 733463) (3 733493) (4 733522) (5 733551) (5.5 733581) (6 733610) (7 733639) (8 733669) (9 733698) (10 733728) (11 733757)) (2010 (12 733787) (1 733817) (2 733847) (3 733876) (4 733906) (5 733935) (6 733965) (7 733994) (8 734023) (9 734053) (10 734082) (11 734112)) (2011 (12 734141) (1 734171) (2 734201) (3 734230) (4 734260) (5 734290) (6 734319) (7 734349) (8 734378) (9 734407) (10 734437) (11 734466)) (2012 (12 734496) (1 734525) (2 734555) (3 734584) (4 734614) (4.5 734644) (5 734673) (6 734703) (7 734732) (8 734762) (9 734791) (10 734821) (11 734850)) (2013 (12 734880) (1 734909) (2 734939) (3 734968) (4 734998) (5 735027) (6 735057) (7 735087) (8 735116) (9 735146) (10 735175) (11 735205)) (2014 (12 735234) (1 735264) (2 735293) (3 735323) (4 735352) (5 735382) (6 735411) (7 735441) (8 735470) (9 735500) (9.5 735530) (10 735559) (11 735589)) (2015 (12 735618) (1 735648) (2 735677) (3 735707) (4 735736) (5 735765) (6 735795) (7 735824) (8 735854) (9 735884) (10 735914) (11 735943)) (2016 (12 735973) (1 736002) (2 736032) (3 736061) (4 736091) (5 736120) (6 736149) (7 736179) (8 736208) (9 736238) (10 736268) (11 736297)) (2017 (12 736327) (1 736357) (2 736386) (3 736416) (4 736445) (5 736475) (6 736504) (6.5 736533) (7 736563) (8 736592) (9 736622) (10 736651) (11 736681)) (2018 (12 736711) (1 736741) (2 736770) (3 736800) (4 736829) (5 736859) (6 736888) (7 736917) (8 736947) (9 736976) (10 737006) (11 737035)) (2019 (12 737065) (1 737095) (2 737125) (3 737154) (4 737184) (5 737213) (6 737243) (7 737272) (8 737301) (9 737331) (10 737360) (11 737389)) (2020 (12 737419) (1 737449) (2 737478) (3 737508) (4 737538) (4.5 737568) (5 737597) (6 737627) (7 737656) (8 737685) (9 737715) (10 737744) (11 737774))) (#$ . 11236))
#@352 The structure of the Chinese year for Gregorian year Y.
The result is a list of pairs (i d), where month i begins on absolute date d,
of the Chinese months from the Chinese month following the solstice in
Gregorian year Y-1 to the Chinese month of the solstice of Gregorian year Y.
The list is cached in `calendar-chinese-year-cache' for further use.
(defalias 'calendar-chinese-year #[(y) "\303 \"A\211\204 \304!\305 \nBC\"\n)\207" [y calendar-chinese-year-cache list assoc calendar-chinese-compute-year append] 5 (#$ . 14520)])
#@129 Insert an initialization value for `calendar-chinese-year-cache' after point.
Computes values for 10 years either side of YEAR.
(defalias 'calendar-chinese-year-cache-init #[(year) "\305Z\306\211\212\307c\210\310\311 \fW\2036 \312\313!Bp\"\210 \314U\203) \315\202* \316c\210T T\211\202 *`)\212` W\203S \317\320 \321#\203S \322\323!\210\316c\210\202; )\324` \"*\207" [year end calendar-chinese-year-cache n --dotimes-limit-- 10 nil "'(" 21 0 princ calendar-chinese-compute-year 20 ")" "\n" re-search-forward "^.\\{65,75\\})" t delete-char 1 indent-region] 5 (#$ . 15064)])
#@183 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
DATE is a Chinese date (cycle year month day). The Gregorian date
Sunday, December 31, 1 BC is imaginary.
(defalias 'calendar-chinese-to-absolute #[(date) "@\211A@)\3068 \3078 \310 S\311_ S\312#
S\313\f\314\313\315\316!\"\316!>\316T!\"\"\211A@)\\-\207" [date cycle x year month day 2 3 + 60 -2636 assoc append 1 calendar-chinese-year g-year] 9 (#$ . 15656)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-chinese calendar-chinese-to-absolute nil make-obsolete "23.1"] 4)
#@189 Compute Chinese date (cycle year month day) corresponding to absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-chinese-from-absolute #[(date) "\305!\3068)\211\307\\\310\311 S!\311 !\311 T!#\211\211 A@)\211 A@)X\203A A\211 @@)\312U\203: \nT A\211\202 \nS\313\245\314\nS\313\"T \211 @@) @\211 A@)ZTF+\207" [date g-year c-year list x calendar-gregorian-from-absolute 2 2695 append calendar-chinese-year 1 60 mod] 6 (#$ . 16269)])
#@115 Date of Chinese New Year, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-new-year #[nil " \306 \307\306 \310W\203 T\311 _\f\312\313$\314
\"T
\245
\310W\2039 \f\313V\2039 S \313W\203B S*\f\315W\205i \316\317\320\313\321 !\"\211 A@)!\211!\205i \n\322\323\324 \325\\!\"DC+\207" [displayed-month displayed-year chinese-new-year y m macro-y nil 12 0 + -1 1 mod 5 calendar-date-is-visible-p calendar-gregorian-from-absolute assoc calendar-chinese-year format "Chinese New Year (%s)" calendar-chinese-sexagesimal-name 57 nmonths x] 7 (#$ . 16812)])
#@124 Date of Chinese Qingming Festival, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-qingming #[nil "\306>\205\206\307\310\311\312\310 E\211\313\n8)\314 \315\f!\203# \316\317!\202\f\320V\203\242 \fS\321\n\211\211@) \n\211\211 A@* \n\313\n8)
S\322_\\
\313V\203\216 \323
\324_\\\325\245Z \f\211 \320W\203o \326\f!S\315\f\324\246!\205\205 \315\f\327\246!?\206\205 \315\f\330\246!)\203\216 T - \331_ \324\245 \327\245[ \330\245%\202\326\fT!\332\n\211\211@) \n\211\211 A@* \n\313\n8)
S\322_\\
\313V\203 \323
\324_\\\325\245Z \f\211 \320W\203\352 \326\f!S\315\f\324\246!\205 \315\f\327\246!?\206 \315\f\330\246!)\203 T - \331_ \324\245 \327\245[ \330\245\333\211\333@) \n\211\211 A@* \n\313\n8)
S\322_\\
\313V\203z \323
\324_\\\325\245Z \f\211 \320W\203[\326\f!S\315\f\324\246!\205q\315\f\327\246!?\206q\315\f\330\246!)\203z T -&+!\\!\334DC\207" [displayed-month displayed-year date offset-years year month (3 4 5) calendar-gregorian-from-absolute 15 calendar-chinese-zodiac-sign-on-or-after 3 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Qingming Festival" x day day-of-year] 14 (#$ . 17453)])
#@122 Date of Chinese winter solstice, if visible in calendar.
Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian.
(defalias 'holiday-chinese-winter-solstice #[nil "\306>\205\217\307\310\311\312\313=\203 S\202 E\211\314\n8)\315 \316\f!\203- \317\320!\202\211\f\321V\203\254 \fS\322\n\211\211@) \n\211\211 A@* \n\314\n8)
S\323_\\
\314V\203\230 \324
\325_\\\326\245Z \f\211 \321W\203y \327\f!S\316\f\325\246!\205\217 \316\f\330\246!?\206\217 \316\f\331\246!)\203\230 T - \332_ \325\245 \330\245[ \331\245%\202\211\327\fT!\333\n\211\211@) \n\211\211 A@* \n\314\n8)
S\323_\\
\314V\203 \324
\325_\\\326\245Z \f\211 \321W\203\364 \327\f!S\316\f\325\246!\205\n\316\f\330\246!?\206\n\316\f\331\246!)\203 T - \332_ \325\245 \330\245[ \331\245\334\211\334@) \n\211\211 A@* \n\314\n8)
S\323_\\
\314V\203\204 \324
\325_\\\326\245Z \f\211 \321W\203e\327\f!S\316\f\325\246!\205{\316\f\330\246!?\206{\316\f\331\246!)\203\204 T -&+!!\335DC\207" [displayed-month displayed-year date offset-years year month (11 12 1) calendar-gregorian-from-absolute calendar-chinese-zodiac-sign-on-or-after 12 15 1 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) "Winter Solstice Festival" x day day-of-year] 13 (#$ . 18736)])
#@229 Holiday on Chinese MONTH, DAY called STRING.
If MONTH, DAY (Chinese) is visible, returns the corresponding
Gregorian date as the list (((month day year) STRING)).
Returns nil if it is not visible in the current calendar window.
(defalias 'holiday-chinese #[(month day string) "\306\307>\203\236\n \n \310\311 $ % \312W\203 T\313 %_ \314\211$$\315$%\"T$%\245$\312W\203G \316V\203G S \316W\203P S* \316 E\211 & &\317&8)\311 ' (\320(!\203q \321\322!\202(\312V\203 (S'\313&\211 &\211 &@) )&\211 &\211 *A@* +& &\317&8) (+)S\323_\\ ,)\317V\203\363 ,\324)\325_\\\326\245Z,(\211 (\312W\203\321 \327(!S(\320(\325\246!\205\352 \320(\330\246!?\206\352 \320(\331\246!)\203\363 ,T,,-'\332_'\325\245'\330\245['\331\245%\202\327(T!'\333&\211 &\211 &@) )&\211 &\211 *A@* +& &\317&8) (+)S\323_\\ ,)\317V\203\210,\324)\325_\\\326\245Z,(\211 (\312W\203f\327(!S(\320(\325\246!\205\320(\330\246!?\206\320(\331\246!)\203\210,T,,-'\332_'\325\245'\330\245['\331\245\334\211 & &\334@) )&\211 &\211 *A@* +& &\317&8) (+)S\323_\\ ,)\317V\203,\324)\325_\\\326\245Z,(\211 (\312W\203\356\327(!S(\320(\325\246!\205\320(\330\246!?\206\320(\331\246!)\203,T,,-&+ -\310\311 $ %
\312W\203'
T\313
%_\f\314\316$$\315$%\"T$%\245$\312W\203P\f\316V\203P
S
\316W\203Y
S*\f\211
(\211 )\317U\203\231(\211 (\312W\203x\327(!S(\320(\325\246!\205\221\320(\330\246!?\206\221\320(\331\246!)\203\231\335\202\236\336)SH*
E\211 & &\317&8)\311 ' (\320(!\203\275\321\322!\202a(\312V\203W(S'\313&\211 &\211 &@) )&\211 &\211 *A@* +& &\317&8) (+)S\323_\\ ,)\317V\203?,\324)\325_\\\326\245Z,(\211 (\312W\203 \327(!S(\320(\325\246!\2056\320(\330\246!?\2066\320(\331\246!)\203?,T,,-'\332_'\325\245'\330\245['\331\245%\202a\327(T!'\333&\211 &\211 &@) )&\211 &\211 *A@* +& &\317&8) (+)S\323_\\ ,)\317V\203\324,\324)\325_\\\326\245Z,(\211 (\312W\203\262\327(!S(\320(\325\246!\205\313\320(\330\246!?\206\313\320(\331\246!)\203\324,T,,-'\332_'\325\245'\330\245['\331\245\334\211 & &\334@) )&\211 &\211 *A@* +& &\317&8) (+)S\323_\\ ,)\317V\203\\,\324)\325_\\\326\245Z,(\211 (\312W\203:\327(!S(\320(\325\246!\205S\320(\330\246!?\206S\320(\331\246!)\203\\,T,,-&+ .\337-! /\337.! 0)\326W\203|0\202~/\211 1@ 21\211 *A@) (\3402()+F!. \202\257\341)\342\n!\"\211 *A@)+S\\! &\343&!\205\277&3DC)\207" [displayed-month m1 displayed-year y1 m2 y2 calendar-gregorian-from-absolute (12 1 2 3) 12 nil 0 + -1 mod 1 2 zerop error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-chinese-from-absolute calendar-chinese-to-absolute assoc calendar-chinese-year calendar-date-is-visible-p macro-y nmonths date offset-years year month x day day-of-year start-date end-date local-start local-end local cycle string] 12 (#$ . 20064)])
#@90 String of Chinese date of Gregorian DATE.
Defaults to today's date if DATE is not given.
(defalias 'calendar-chinese-date-string #[(&optional date) "\206 \306 \211\3078)\310\311\n!\203 \312\313!\202o\n\314V\203\230 \nS\315\211\211@)\211\211 A@* \3078)
S\316_\\ * \307V\203\204 *\317 \320_\\\321\245Z*\n\211\314W\203e \322\n!S\311\n\320\246!\205{ \311\n\323\246!?\206{ \311\n\324\246!)\203\204 *T**- \325_ \320\245 \323\245[ \324\245%\202o\322\nT!\326\211\211@)\211\211 A@* \3078)
S\316_\\ * \307V\203\374 *\317 \320_\\\321\245Z*\n\211\314W\203\335 \322\n!S\311\n\320\246!\205\363 \311\n\323\246!?\206\363 \311\n\324\246!)\203\374 *T**- \325_ \320\245 \323\245[ \324\245\327\211\327@)\211\211 A@* \3078)
S\316_\\ * \307V\203j*\317 \320_\\\321\245Z*\n\211\314W\203K\322\n!S\311\n\320\246!\205a\311\n\323\246!?\206a\311\n\324\246!)\203j*T**-&+ +\330+!\211 ,@ -,\211 A@)\307,8\331,8 \332-\n \333F! .\332\n\334U\203\245-T\202\247-\335 !\336U\203\264\nT\202\265\n\337\335 !\336\"T\333F! /\340\341-\n\342\n! \250\204\322\343\202\341\344/.ZW\203\340\345\202\341\346\335 ! \250\203\370\340\347\342\315\n\336_ \350#!\"\202\371\346
\342+\351\\!& .\207" [date offset-years year month x day calendar-current-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-chinese-from-absolute 3 calendar-chinese-to-absolute 1 60 floor 12 mod format "Cycle %s, year %s (%s), %smonth %s%s, day %s (%s)" calendar-chinese-sexagesimal-name "second " 30 "first " "" " (%s)" 50 15 day-of-year a-date c-date cycle this-month next-month] 15 (#$ . 23036)])
#@44 Show the Chinese date equivalents of date.
(defalias 'calendar-chinese-print-date #[nil "\300\301!\210\300\302\303\304\305!!\"\207" [message "Computing Chinese date..." "Chinese date: %s" calendar-chinese-date-string calendar-cursor-to-date t] 5 (#$ . 24709) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-chinese-date calendar-chinese-print-date nil make-obsolete "23.1"] 4)
#@43 Make list of months L into an assoc list.
(defalias 'calendar-chinese-months-to-alist #[(l) "\205\\ @\205\\ A\203T \211A@)\203T @\302\211A@)!U\203E \303\304\305@\"@B\304\306@\"\211A@)BD\307\211AA)!\"\207\303\310@!@BC\307A!\"\207\310@!@BC\207" [l x floor append format "%s (first)" "%s (second)" calendar-chinese-months-to-alist number-to-string] 6 (#$ . 25131)])
#@66 A list of the months in cycle C, year Y of the Chinese calendar.
(defalias 'calendar-chinese-months #[(c y) "\303\304\305\306\307\310\311 \303\211F!!\312\n8)!\"\305\313\307\310\311 \314U\203% T\202& \314U\2030 \303\2021 \303\211F!!\312\n8)!\"\">\207" [c y date 1 append mapcar #[(x) "@\207" [x] 1] calendar-chinese-year calendar-gregorian-from-absolute calendar-chinese-to-absolute 2 #[(x) "@\301V\205 @\207" [x 11] 2] 60] 12 (#$ . 25520)])
#@79 Move cursor to Chinese date DATE.
Echo Chinese date unless NOECHO is non-nil.
(defalias 'calendar-chinese-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-chinese-to-absolute calendar-chinese-print-date] 4 (#$ . 25978) (let* ((c (calendar-chinese-from-absolute (calendar-absolute-from-gregorian (calendar-current-date)))) (cycle (calendar-read "Chinese calendar cycle number (>44): " #'(lambda (x) (> x 44)) (number-to-string (car c)))) (year (calendar-read "Year in Chinese cycle (1..60): " #'(lambda (x) (and (<= 1 x) (<= x 60))) (number-to-string (cadr c)))) (month-list (calendar-chinese-months-to-alist (calendar-chinese-months cycle year))) (month (cdr (assoc (completing-read "Chinese calendar month: " month-list nil t) month-list))) (last (if (= month (nth 2 (calendar-chinese-from-absolute (+ 29 (calendar-chinese-to-absolute (list cycle year month 1)))))) 30 29)) (day (calendar-read (format "Chinese calendar day (1-%d): " last) #'(lambda (x) (and (<= 1 x) (<= x last)))))) (list (list cycle year month day)))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-chinese-date calendar-chinese-goto-date nil make-obsolete "23.1"] 4)
#@50 Chinese calendar equivalent of date diary entry.
(defalias 'diary-chinese-date #[nil "\301\302\303!\"\207" [date format "Chinese date: %s" calendar-chinese-date-string] 4 (#$ . 27257)])
(provide 'cal-china)