Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/calendar/cal-iso.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

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


(require 'calendar)
#@503 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
The "ISO year" corresponds approximately to the Gregorian year, but
weeks start on Monday and end on Sunday.  The first week of the ISO year is
the first such week in which at least 4 days are in a year.  The ISO
commercial DATE has the form (week day year) in which week is in the range
1..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 =
Sunday).  The Gregorian date Sunday, December 31, 1 BC is imaginary.
(defalias 'calendar-iso-to-absolute #[(date) "\211A@\262
\302\303\304\305\304\211\306
8\262
E\211\306
8\262
\307
\310U\203'\311\312!\202g

\310V\203\235
S\262
\302\211\211@\262

\211A@\262
\306
8\262

\313S_\\\306V\203\210\211\314\315_\\\316\245Z\262

\211\310W\203i\317
!S\262
\211\315\246\310U\205\211\320\246\310U?\206\211\321\246\310U\262
\203\210\211T\262
\266\203\262
\322_\315\245\320\245[\321\245%\202g
\317T!\262
\323\211\211@\262

\211A@\262
\306
8\262

\313S_\\\306V\203\372\211\314\315_\\\316\245Z\262

\211\310W\203\333\317
!S\262
\211\315\246\310U\205\361\211\320\246\310U?\206\361\211\321\246\310U\262
\203\372\211T\262
\266\203\262
\322_\315\245\320\245[\321\245\324\211\211@\262

\211A@\262
\306
8\262

\313S_\\\306V\203a
\211\314\315_\\\316\245Z\262

\211\310W\203B
\317
!S\262
\211\315\246\310U\205X
\211\320\246\310U?\206X
\211\321\246\310U\262
\203a
\211T\262
\266\203\262
&\266\203\\\"\325\211@\262
S_	\310U\203}
\326\202
	S#)\207" [date day + calendar-dayname-on-or-before 1 3 2 nil 0 user-error "There was no year zero" 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 6] 22 (#$ . 429)])
#@549 Compute the "ISO commercial date" corresponding to the absolute DATE.
The ISO year corresponds approximately to the Gregorian year, but weeks
start on Monday and end on Sunday.  The first week of the ISO year is the
first such week in which at least 4 days are in a year.  The ISO commercial
date has the form (week day year) in which week is in the range 1..52 and
day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = Sunday).  The
absolute date is the number of days elapsed since the (imaginary) Gregorian
date Sunday, December 31, 1 BC.
(defalias 'calendar-iso-from-absolute #[(date) "\305\306Z!\307
8\262
\211\211\310\311\312\211TE!Y\203%\nTT\202\n*\\\311\312\211\fE!Z\313\245T\313\246\fE*\207" [date approx sum y year calendar-gregorian-from-absolute 3 2 0 calendar-iso-to-absolute 1 7] 7 (#$ . 2089)])
#@54 String of ISO date of Gregorian DATE, default today.
(defalias 'calendar-iso-date-string #[(&optional date) "\206\304 \211\305
8\262
\306
\307U\203\310\311!\202Y

\307V\203\217
S\262
\312\211\211@\262

\211A@\262
\305
8\262

\313S_\\\305V\203z\211\314\315_\\\316\245Z\262

\211\307W\203[\317
!S\262
\211\315\246\307U\205q\211\320\246\307U?\206q\211\321\246\307U\262
\203z\211T\262
\266\203\262
\322_\315\245\320\245[\321\245%\202Y
\317T!\262
\323\211\211@\262

\211A@\262
\305
8\262

\313S_\\\305V\203\354\211\314\315_\\\316\245Z\262

\211\307W\203\315\317
!S\262
\211\315\246\307U\205\343\211\320\246\307U?\206\343\211\321\246\307U\262
\203\354\211T\262
\266\203\262
\322_\315\245\320\245[\321\245\324\211\211@\262

\211A@\262
\305
8\262

\313S_\\\305V\203S
\211\314\315_\\\316\245Z\262

\211\307W\2034
\317
!S\262
\211\315\246\307U\205J
\211\320\246\307U?\206J
\211\321\246\307U\262
\203S
\211T\262
\266\203\262
&\266\203\211\325\246\326	!\327\330\n\307U\203p
\325\202q
\n\211@\262
\305
8\262
$+\207" [date d day iso-date calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 calendar-iso-from-absolute format "Day %s of week %d of %d"] 19 (#$ . 2926)])
#@57 Show equivalent ISO date for the date under the cursor.
(defalias 'calendar-iso-print-date #[nil "\300\301\302\303\304!!\"\207" [message "ISO date: %s" calendar-iso-date-string calendar-cursor-to-date t] 5 (#$ . 4192) nil])
#@141 Interactively read the arguments for an ISO date command.
Reads a year and week, and if DAYFLAG is non-nil a day (otherwise
taken to be 1).
(defalias 'calendar-iso-read-date #[(&optional dayflag) "\305\306\307\310\311 \312
8\262
!#\313\314\315\211\316TE\211\312
8\262
\317
\320U\203)\321\322!\202i

\320V\203\237
S\262
\323\211\211@\262

\211A@\262
\312
8\262

\324S_\\\312V\203\212\211\325\316_\\\326\245Z\262

\211\320W\203k\327
!S\262
\211\316\246\320U\205\201\211\330\246\320U?\206\201\211\331\246\320U\262
\203\212\211T\262
\266\203\262
\332_\316\245\330\245[\331\245%\202i
\327T!\262
\333\211\211@\262

\211A@\262
\312
8\262

\324S_\\\312V\203\374\211\325\316_\\\326\245Z\262

\211\320W\203\335\327
!S\262
\211\316\246\320U\205\363\211\330\246\320U?\206\363\211\331\246\320U\262
\203\374\211T\262
\266\203\262
\332_\316\245\330\245[\331\245\334\211\211@\262

\211A@\262
\312
8\262

\324S_\\\312V\203c
\211\325\316_\\\326\245Z\262

\211\320W\203D
\327
!S\262
\211\316\246\320U\205Z
\211\330\246\320U?\206Z
\211\331\246\320U\262
\203c
\211T\262
\266\203\262
&\266\203\"S!\211@\262
\305\335\336	\"\337\"\203\206
\305\340\341\"\202\207
\315\n\fE,C\207" [year no-weeks week dayflag day calendar-read "ISO calendar year (>0): " #[(x) "\301V\207" [x 0] 2] number-to-string calendar-current-date 2 calendar-iso-from-absolute calendar-dayname-on-or-before 1 4 nil 0 user-error "There was no year zero" + 31 23 10 abs 100 400 365 - (12 31 -1) format "ISO calendar week (1-%d): " #[(x) "\302V\205		X\207" [x no-weeks 0] 2] "ISO day (1-7): " #[(x) "\301X\205	\302X\207" [x 1 7] 2]] 21 (#$ . 4423)])
#@66 Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil.
(defalias 'calendar-iso-goto-date #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-iso-to-absolute calendar-iso-print-date] 4 (#$ . 6075) (calendar-iso-read-date t)])
#@126 Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil.
Interactively, goes to the first day of the specified week.
(defalias 'calendar-iso-goto-week #[(date &optional noecho) "\302\303\304!!!\210	\206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-iso-to-absolute calendar-iso-print-date] 4 (#$ . 6404) (calendar-iso-read-date)])
#@46 ISO calendar equivalent of date diary entry.
(defalias 'diary-iso-date #[nil "\301\302\303!\"\207" [date format "ISO date: %s" calendar-iso-date-string] 4 (#$ . 6790)])
(provide 'cal-iso)