ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calendar/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calendar/time-date.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@649 Decode a time value and bind it according to VARLIST, then eval BODY.
The value of the last form in BODY is returned.
Each element of the list VARLIST is a list of the form
(HIGH-SYMBOL LOW-SYMBOL MICRO-SYMBOL [PICO-SYMBOL [TYPE-SYMBOL]] TIME-VALUE).
The time value TIME-VALUE is decoded and the result is bound to
the symbols HIGH-SYMBOL, LOW-SYMBOL and MICRO-SYMBOL.
The optional PICO-SYMBOL is bound to the picoseconds part.
The optional TYPE-SYMBOL is bound to the type of the time value.
Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH
LOW), type 2 is the list (HIGH LOW MICRO), and type 3 is the
list (HIGH LOW MICRO PICO).
(defalias 'with-decoded-time-value '(macro . #[(varlist &rest body) "\203:\211A\242\211\211A\242 \211A\242 \211A\242 G\306X?\205) \211A\242 G\307=?\2057 \211A\242 7 @ 8\310\311! 9\312\3139\3148\315BBD9\316\3179D\320\3219\322BB\3239\324BBED\3259D\312\326\327\330\3319\332BBED\333\334\335\336\3319\337BBDD\340\3369\341BBD\257\342BBD\3439DFD\n\3449DD \f\257
\205\243
C7\205\253 7C#\345\3469D\347\350 \3449DE\3459\347\350\f\3519DE
\203\363 \345\3529D\313\350
\3539DE7\205\336 7\354B\"\313\350
\355BB7\205\356 7\356B\"F\202\371 7\205\371 \357E\313\350\f\360BB
\205
\361B7\2057\362B#FE\313\350 9\f\363BBBB
\205%
\364B7\205.7\365B#F\366:BBF.\207\347:B\207" [varlist elt high low micro pico 2 1 make-symbol "time" let* append or ((current-time)) cond integerp list ash (-16) logand (65535) floatp usec * 1000000 mod (1) (ps (round (* 1000000 (mod usec 1)))) (us (floor usec)) lo floor (65536) hi (65536) ((if (eq ps 1000000) (progn (setq ps 0) (setq us (1+ us)) (if (eq us 1000000) (progn (setq us 0) (setq lo (1+ lo)) (if (eq lo 65536) (progn (setq lo 0) (setq hi (1+ hi)))))))) (list hi lo us ps)) t pop if consp progn setq car cdr cadr (3) (0) (2) (setq type 2) (0) (0) (1) (0) (0) (0) with-decoded-time-value type time-value gensym body] 18 (#$ . 411)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put with-decoded-time-value lisp-indent-function 1 put edebug-form-spec ((&rest (symbolp symbolp symbolp &or [symbolp symbolp form] [symbolp form] form)) body)] 4)
#@331 Encode HIGH, LOW, MICRO, and PICO into a time value of type TYPE.
Type 0 is the cons cell (HIGH . LOW), type 1 is the list (HIGH LOW),
type 2 is (HIGH LOW MICRO), and type 3 is (HIGH LOW MICRO PICO).
For backward compatibility, if only four arguments are given,
it is assumed that PICO was omitted and should be treated as zero.
(defalias 'encode-time-value #[(high low micro pico &optional type) "\305=\203\n \nB\207\306=\203 \nD\207\307=\203 \n E\207\310=\203+ \n \fF\207?\2057 \311 \n \305\f%\207" [type high low micro pico 0 1 2 3 encode-time-value] 6 (#$ . 2606)])
(byte-code "\300\301!\203 \302\301K!\203 \303\304\305\306#\210\303\307\305\306#\210\310\311\312\"\210\310\313\314\"\207" [fboundp time-add subrp make-obsolete encode-time-value nil "25.1" with-decoded-time-value autoload parse-time-string "parse-time" timezone-make-date-arpa-standard "timezone"] 4)
#@126 Parse a string DATE that represents a date-time and return a time value.
If DATE lacks timezone information, GMT is assumed.
(defalias 'date-to-time #[(date) "\3031\f \304\305\306!\"0\207\307 \n\232\203 \304\310 \"\202? \3111, \304\305\306\312!!\"0\202? \211\n\232\203: \304\310 \"\202> \313\314\")*\207" [date err overflow-error (error) apply encode-time parse-time-string (error "Specified time is not representable") signal (error) timezone-make-date-arpa-standard error "Invalid date: %s"] 6 (#$ . 3497)])
#@34 Convert SECONDS to a time value.
(defalias 'seconds-to-time #[(seconds) "\301\302\"\207" [seconds time-add 0] 3 (#$ . 4020)])
#@33 Convert DAYS into a time value.
(defalias 'days-to-time #[(days) "\3031
\304\305_!0\202 \210 \306D\250\203 \nA\307\241\210\n)\207" [days most-positive-fixnum time (range-error) seconds-to-time 86400.0 65535 nil] 3 (#$ . 4153)])
#@95 Return the time elapsed since TIME.
TIME should be either a time value or a date-time string.
(defalias 'time-since #[(time) ";\203 \301!\302\303\"\207" [time date-to-time time-subtract nil] 3 (#$ . 4393)])
(byte-code "\300\301\302\"\210\303\304!\203 \305\304K!\204! \300\304\306\"\210\300\302\307\"\210\300\310\311\"\210\300\207" [defalias subtract-time time-subtract fboundp time-add subrp #[(t1 t2) "\206 \306 \211\250\203 \307 \310\"\311 \312\"D\202m \313 !\203l \314 \315\"\316_\317\314\n\315\"\316_!\320\n! \320\314 \321\"! \320 \321\" \316=\203b \322\fT\211\316=\203b \322
T\211\321=\203b \322T
\f F-\202m \211\211A\242 \323\211 \323\211 :\203\272 \211A\242 \203\256 @ A\203\245 A@\324 \202\306 \322\325 \202\306 \322\211\315 \202\306 \322\211\322 \206\315 \306 \211 \250\203\342 \307 \310\"\311 \312\"D\202<\313 !\203:\314 \315\"\316_\317\314\n\315\"\316_!\320\n! \320\314 \321\"! \320 \321\" \316=\2030\322\fT\211\316=\2030\322
T\211\321=\2030\322T
\f F-\202< \211 \211A \242 \323\211 !\323\211 \" # :\203\222 \211A \242 \203\206 @! A\203} A@\"\324#\202\237\322\"\325#\202\237\322\211!\"\315#\202\237 \322\211!\"\322# \\ \\!\\\"\\ #] \316Y\203\324T\316Z\316Y\203\346T\316Z\321Y\203\370T\321Z\326 %.\207" [t1 #:time usec ps us lo current-time ash -16 logand 65535 floatp mod 1 1000000 round floor 65536 0 nil 3 2 encode-time-value hi high low micro pico type t2 #:time high2 low2 micro2 pico2 type2] 7 "Add two time values T1 and T2. One should represent a time difference."] #[(t1 t2) "\206 \306 \211\250\203 \307 \310\"\311 \312\"D\202m \313 !\203l \314 \315\"\316_\317\314\n\315\"\316_!\320\n! \320\314 \321\"! \320 \321\" \316=\203b \322\fT\211\316=\203b \322
T\211\321=\203b \322T
\f F-\202m \211\211A\242 \323\211 \323\211 :\203\272 \211A\242 \203\256 @ A\203\245 A@\324 \202\306 \322\325 \202\306 \322\211\315 \202\306 \322\211\322 \206\315 \306 \211 \250\203\342 \307 \310\"\311 \312\"D\202<\313 !\203:\314 \315\"\316_\317\314\n\315\"\316_!\320\n! \320\314 \321\"! \320 \321\" \316=\2030\322\fT\211\316=\2030\322
T\211\321=\2030\322T
\f F-\202< \211 \211A \242 \323\211 !\323\211 \" # :\203\222 \211A \242 \203\206 @! A\203} A@\"\324#\202\237\322\"\325#\202\237\322\211!\"\315#\202\237 \322\211!\"\322# Z Z!Z\"Z #] \322W\203\324S\316\\\322W\203\346S\316\\\322W\203\370S\321\\\326 %.\207" [t1 #:time usec ps us lo current-time ash -16 logand 65535 floatp mod 1 1000000 round floor 65536 0 nil 3 2 encode-time-value hi high low micro pico type t2 #:time high2 low2 micro2 pico2 type2] 7 "Subtract two time values, T1 minus T2.\nReturn the difference in the format of a time value."] time-less-p #[(t1 t2) "\206 \306 \211\250\203 \307 \310\"\311 \312\"D\202m \313 !\203l \314 \315\"\316_\317\314\n\315\"\316_!\320\n! \320\314 \321\"! \320 \321\" \316=\203b \322\fT\211\316=\203b \322
T\211\321=\203b \322T
\f F-\202m \211\211A\242 \323\211 \323\211 :\203\272 \211A\242 \203\256 @ A\203\245 A@\324\202\306 \322\325\202\306 \322\211\315\202\306 \322\211\322 \206\315 \306 \211 \250\203\342 \307 \310\"\311 \312\"D\202<\313 !\203:\314 \315\"\316_\317\314\n\315\"\316_!\320\n! \320\314 \321\"! \320 \321\" \316=\2030\322\fT\211\316=\2030\322
T\211\321=\2030\322T
\f F-\202< \211 \211A \242 \323\211 \323\211 ! \" :\203\222 \211A \242 \203\206 @ A\203} A@!\324\"\202\237\322!\325\"\202\237\322\211 !\315\"\202\237 \322\211 !\322\" W\206\324 U\205\324 W\206\324 U\205\324 W\206\324 U\205\324!W.\207" [t1 #:time usec ps us lo current-time ash -16 logand 65535 floatp mod 1 1000000 round floor 65536 0 nil 3 2 hi high1 low1 micro1 pico1 _type1 t2 #:time high2 low2 micro2 pico2 _type2] 5 "Return non-nil if time value T1 is earlier than time value T2."]] 3)
#@87 Return the number of days between year 1 and DATE.
DATE should be a date-time string.
(defalias 'date-to-day #[(date) "\301\302!!\207" [date time-to-days date-to-time] 3 (#$ . 8600)])
#@97 Return the number of days between DATE1 and DATE2.
DATE1 and DATE2 should be date-time strings.
(defalias 'days-between #[(date1 date2) "\302!\302 !Z\207" [date1 date2 date-to-day] 3 (#$ . 8791)])
#@34 Return t if YEAR is a leap year.
(defalias 'date-leap-year-p #[(year) "\301\246\302U\203 \303\246\302U?\206 \304\246\302U\207" [year 4 0 100 400] 2 (#$ . 8995)])
#@78 Return the day number within the year corresponding to the decoded time TIM.
(defalias 'time-date--day-in-year #[(tim) "\3058\3068\3078\n S\310_\\ \311V\203, \f\312 \305_\\\313\245Z\314 !\203, \fT\f,\207" [tim month day year day-of-year 4 3 5 31 2 23 10 date-leap-year-p] 4 (#$ . 9168)])
#@62 Return the day number within the year corresponding to TIME.
(defalias 'time-to-day-in-year #[(time) "\301\302!!\207" [time time-date--day-in-year decode-time] 3 (#$ . 9471)])
#@159 The number of days between the Gregorian date 0001-12-31bce and TIME.
TIME should be a time value.
The Gregorian date Sunday, December 31, 1bce is imaginary.
(defalias 'time-to-days #[(time) "\303!\304 8\305\306 !\nS\307_\nS\310\245\nS\311\245[\nS\312\245%*\207" [time tim year decode-time 5 + time-date--day-in-year 365 4 100 400] 7 (#$ . 9655)])
#@81 Return the number of days represented by TIME.
Returns a floating point number.
(defalias 'time-to-number-of-days #[(time) "\301!\302\245\207" [time float-time 86400] 2 (#$ . 10012)])
#@126 Parse a string DATE that represents a date-time and return a time value.
If DATE is malformed, return a time value of zeros.
(defalias 'safe-date-to-time #[(date) "\3011 \302!0\207\210\303\207" [date (error) date-to-time (0 0)] 2 (#$ . 10204)])
#@867 Use format control STRING to format the number SECONDS.
The valid format specifiers are:
%y is the number of (365-day) years.
%d is the number of days.
%h is the number of hours.
%m is the number of minutes.
%s is the number of seconds.
%z is a non-printing control flag (see below).
%% is a literal "%".
Upper-case specifiers are followed by the unit-name (e.g. "years").
Lower-case specifiers return only the unit.
"%" may be followed by a number specifying a width, with an
optional leading "." for zero-padding. For example, "%.3Y" will
return something of the form "001 year".
The "%z" specifier does not print anything. When it is used, specifiers
must be given in order of decreasing size. To the left of "%z", nothing
is output until the first non-zero unit is encountered.
This function does not work for SECONDS greater than `most-positive-fixnum'.
(defalias 'format-seconds #[(string seconds) "\306\307\310\311\211\211\211\211\211\211\211\211\211 ! \" # $ % & '\312\313('#\203\212 \306\225'\314\315(\"\211$\316\230\204! \317$\227&\"\211#\204O \320\321$\"\210\317$\227\"\"\203_ \320\322$\"\210#@\323\230\203m \310!\202\200
\204\200 \324#8\f\205} \n\fV\n#\"B\"\202! !\203\227
\203\227 \320\325!\210&\311 )\211 *\2034*@\211)@$)A@\324)8\312\326\327$\"(\"\203+$\323\230\203\336 \330\331\332(\206\323 \306\225\306\224^\311O#(\202+\333+\n\"+ \n_Z+\204\372 \306U?\205\371 \306\224\334\326\316\314\315(\"\335Q \314\324(\"$\230\203\332\202#\326\336 \315U\203!\332\202\"\337##\310\211($(*A\211*\204\242 .\330\340\316(#\207" [zeropos num unit name prev larger 0 (("y" "year" 31536000) ("d" "day" 86400) ("h" "hour" 3600) ("m" "minute" 60) ("s" "second" 1) ("z")) t nil string-match "%\\.?[0-9]*\\(.\\)" match-string 1 "%" assoc error "Bad format specifier: `%s'" "Multiple instances of specifier: `%s'" "z" 2 "Units are not in decreasing order of size" format "%%\\(\\.?[0-9]+\\)?\\(%s\\)" replace-regexp-in-string "%z" "" floor replace-match "d%s" " %s%s" "s" "%%" zeroflag usedunits match spec case-fold-search units start string u --dolist-tail-- seconds] 14 (#$ . 10458)])
#@54 Formatting used by the function `seconds-to-string'.
(defvar seconds-to-string (byte-code "\300\301\302E\303\304\300E\305\306\307E\310\311\312E\313\314\315E\316\317\320E\257\207" [1 "ms" 0.001 100 "s" 6000 "m" 60.0 108000 "h" 3600.0 34560000 "d" 86400.0 nil "y" 31557600.0] 8) (#$ . 12616))
#@57 Convert the time interval in seconds to a short string.
(defalias 'seconds-to-string #[(delay) "\304V\203
\305\301[!P\207\304U\203 \306\207 \307 \211A\242\211@\203+ \n@X\204 \310\311\nAA@\245\"\nA@P*\207" [delay seconds-to-string here sts 0 "-" "0s" nil format "%.2f"] 4 (#$ . 12914)])
(provide 'time-date)
Kontol Shell Bypass