/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / time.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 64 69 73 70 6c 61 79 |.(defvar| display|
|00000010| 2d 74 69 6d 65 2d 6d 61 | 69 6c 2d 66 69 6c 65 20 |-time-ma|il-file |
|00000020| 6e 69 6c 20 22 5c 0a 2a | 46 69 6c 65 20 6e 61 6d |nil "\.*|File nam|
|00000030| 65 20 6f 66 20 6d 61 69 | 6c 20 69 6e 62 6f 78 20 |e of mai|l inbox |
|00000040| 66 69 6c 65 2c 20 66 6f | 72 20 69 6e 64 69 63 61 |file, fo|r indica|
|00000050| 74 69 6e 67 20 65 78 69 | 73 74 65 6e 63 65 20 6f |ting exi|stence o|
|00000060| 66 20 6e 65 77 20 6d 61 | 69 6c 2e 0a 44 65 66 61 |f new ma|il..Defa|
|00000070| 75 6c 74 20 69 73 20 73 | 79 73 74 65 6d 2d 64 65 |ult is s|ystem-de|
|00000080| 70 65 6e 64 65 6e 74 2c | 20 61 6e 64 20 69 73 20 |pendent,| and is |
|00000090| 74 68 65 20 73 61 6d 65 | 20 61 73 20 75 73 65 64 |the same| as used|
|000000a0| 20 62 79 20 52 6d 61 69 | 6c 2e 22 29 0a 0a 28 64 | by Rmai|l.")..(d|
|000000b0| 65 66 76 61 72 20 64 69 | 73 70 6c 61 79 2d 74 69 |efvar di|splay-ti|
|000000c0| 6d 65 2d 70 72 6f 63 65 | 73 73 20 6e 69 6c 29 0a |me-proce|ss nil).|
|000000d0| 0a 28 64 65 66 76 61 72 | 20 64 69 73 70 6c 61 79 |.(defvar| display|
|000000e0| 2d 74 69 6d 65 2d 69 6e | 74 65 72 76 61 6c 20 36 |-time-in|terval 6|
|000000f0| 30 20 22 5c 0a 2a 53 65 | 63 6f 6e 64 73 20 62 65 |0 "\.*Se|conds be|
|00000100| 74 77 65 65 6e 20 75 70 | 64 61 74 65 73 20 6f 66 |tween up|dates of|
|00000110| 20 74 69 6d 65 20 69 6e | 20 74 68 65 20 6d 6f 64 | time in| the mod|
|00000120| 65 20 6c 69 6e 65 2e 22 | 29 0a 0a 28 64 65 66 76 |e line."|)..(defv|
|00000130| 61 72 20 64 69 73 70 6c | 61 79 2d 74 69 6d 65 2d |ar displ|ay-time-|
|00000140| 73 74 72 69 6e 67 20 6e | 69 6c 29 0a 0a 28 64 65 |string n|il)..(de|
|00000150| 66 75 6e 20 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |fun disp|lay-time|
|00000160| 20 6e 69 6c 20 22 5c 0a | 44 69 73 70 6c 61 79 20 | nil "\.|Display |
|00000170| 63 75 72 72 65 6e 74 20 | 74 69 6d 65 20 61 6e 64 |current |time and|
|00000180| 20 6c 6f 61 64 20 6c 65 | 76 65 6c 20 69 6e 20 6d | load le|vel in m|
|00000190| 6f 64 65 20 6c 69 6e 65 | 20 6f 66 20 65 61 63 68 |ode line| of each|
|000001a0| 20 62 75 66 66 65 72 2e | 0a 55 70 64 61 74 65 73 | buffer.|.Updates|
|000001b0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 20 65 | automat|ically e|
|000001c0| 76 65 72 79 20 6d 69 6e | 75 74 65 2e 0a 49 66 20 |very min|ute..If |
|000001d0| 64 69 73 70 6c 61 79 2d | 74 69 6d 65 2d 64 61 79 |display-|time-day|
|000001e0| 2d 61 6e 64 2d 64 61 74 | 65 20 69 73 20 6e 6f 6e |-and-dat|e is non|
|000001f0| 2d 6e 69 6c 2c 20 74 68 | 65 20 63 75 72 72 65 6e |-nil, th|e curren|
|00000200| 74 20 64 61 79 20 61 6e | 64 20 64 61 74 65 0a 61 |t day an|d date.a|
|00000210| 72 65 20 64 69 73 70 6c | 61 79 65 64 20 61 73 20 |re displ|ayed as |
|00000220| 77 65 6c 6c 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |well." (|interact|
|00000230| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000240| 22 c5 88 09 85 0b 00 c8 | 09 21 c9 3d 18 08 3f 85 |".......|.!.=..?.|
|00000250| 51 00 09 85 18 00 ca 09 | 21 88 0a 86 20 00 cb 89 |Q.......|!... ...|
|00000260| 12 88 c3 0a 3e 86 2d 00 | cc 0a cd 5c 22 89 12 88 |....>.-.|...\"...|
|00000270| ce 89 13 88 c5 1c cf d0 | c5 0e 06 d1 50 d2 0e 07 |........|....P...|
|00000280| 21 24 89 11 29 88 d3 09 | 21 88 d4 09 d5 5c 22 88 |!$..)...|!....\".|
|00000290| d6 09 d7 5c 22 29 87 22 | 20 5b 6c 69 76 65 20 64 |...\")."| [live d|
|000002a0| 69 73 70 6c 61 79 2d 74 | 69 6d 65 2d 70 72 6f 63 |isplay-t|ime-proc|
|000002b0| 65 73 73 20 67 6c 6f 62 | 61 6c 2d 6d 6f 64 65 2d |ess glob|al-mode-|
|000002c0| 73 74 72 69 6e 67 20 64 | 69 73 70 6c 61 79 2d 74 |string d|isplay-t|
|000002d0| 69 6d 65 2d 73 74 72 69 | 6e 67 20 70 72 6f 63 65 |ime-stri|ng proce|
|000002e0| 73 73 2d 63 6f 6e 6e 65 | 63 74 69 6f 6e 2d 74 79 |ss-conne|ction-ty|
|000002f0| 70 65 20 6e 69 6c 20 65 | 78 65 63 2d 64 69 72 65 |pe nil e|xec-dire|
|00000300| 63 74 6f 72 79 20 64 69 | 73 70 6c 61 79 2d 74 69 |ctory di|splay-ti|
|00000310| 6d 65 2d 69 6e 74 65 72 | 76 61 6c 20 70 72 6f 63 |me-inter|val proc|
|00000320| 65 73 73 2d 73 74 61 74 | 75 73 20 72 75 6e 20 64 |ess-stat|us run d|
|00000330| 65 6c 65 74 65 2d 70 72 | 6f 63 65 73 73 20 28 22 |elete-pr|ocess ("|
|00000340| 22 29 20 61 70 70 65 6e | 64 20 28 64 69 73 70 6c |") appen|d (displ|
|00000350| 61 79 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 29 20 |ay-time-|string) |
|00000360| 22 22 20 73 74 61 72 74 | 2d 70 72 6f 63 65 73 73 |"" start|-process|
|00000370| 20 22 64 69 73 70 6c 61 | 79 2d 74 69 6d 65 22 20 | "displa|y-time" |
|00000380| 22 77 61 6b 65 75 70 22 | 20 69 6e 74 2d 74 6f 2d |"wakeup"| int-to-|
|00000390| 73 74 72 69 6e 67 20 70 | 72 6f 63 65 73 73 2d 6b |string p|rocess-k|
|000003a0| 69 6c 6c 2d 77 69 74 68 | 6f 75 74 2d 71 75 65 72 |ill-with|out-quer|
|000003b0| 79 20 73 65 74 2d 70 72 | 6f 63 65 73 73 2d 73 65 |y set-pr|ocess-se|
|000003c0| 6e 74 69 6e 65 6c 20 64 | 69 73 70 6c 61 79 2d 74 |ntinel d|isplay-t|
|000003d0| 69 6d 65 2d 73 65 6e 74 | 69 6e 65 6c 20 73 65 74 |ime-sent|inel set|
|000003e0| 2d 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 |-process|-filter |
|000003f0| 64 69 73 70 6c 61 79 2d | 74 69 6d 65 2d 66 69 6c |display-|time-fil|
|00000400| 74 65 72 5d 20 31 30 29 | 29 0a 0a 28 64 65 66 75 |ter] 10)|)..(defu|
|00000410| 6e 20 64 69 73 70 6c 61 | 79 2d 74 69 6d 65 2d 73 |n displa|y-time-s|
|00000420| 65 6e 74 69 6e 65 6c 20 | 28 70 72 6f 63 20 72 65 |entinel |(proc re|
|00000430| 61 73 6f 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |ason) (b|yte-code|
|00000440| 20 22 c2 08 21 c3 3d 86 | 0b 00 c4 89 11 88 8a c5 | "..!.=.|........|
|00000450| 20 71 29 88 c6 c7 20 21 | 88 c8 c9 21 87 22 20 5b | q)... !|...!." [|
|00000460| 70 72 6f 63 20 64 69 73 | 70 6c 61 79 2d 74 69 6d |proc dis|play-tim|
|00000470| 65 2d 73 74 72 69 6e 67 | 20 70 72 6f 63 65 73 73 |e-string| process|
|00000480| 2d 73 74 61 74 75 73 20 | 72 75 6e 20 22 22 20 6f |-status |run "" o|
|00000490| 74 68 65 72 2d 62 75 66 | 66 65 72 20 73 65 74 2d |ther-buf|fer set-|
|000004a0| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000004b0| 70 20 62 75 66 66 65 72 | 2d 6d 6f 64 69 66 69 65 |p buffer|-modifie|
|000004c0| 64 2d 70 20 73 69 74 2d | 66 6f 72 20 30 5d 20 36 |d-p sit-|for 0] 6|
|000004d0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 64 69 73 70 6c |))..(def|un displ|
|000004e0| 61 79 2d 74 69 6d 65 2d | 66 69 6c 74 65 72 20 28 |ay-time-|filter (|
|000004f0| 70 72 6f 63 20 73 74 72 | 69 6e 67 29 20 28 62 79 |proc str|ing) (by|
|00000500| 74 65 2d 63 6f 64 65 20 | 22 c9 20 ca cb cc 8f 0b |te-code |". .....|
|00000510| 86 20 00 cd ce 21 86 20 | 00 0c cd cf 21 86 1f 00 |. ...!. |....!...|
|00000520| cd d0 21 86 1f 00 d1 20 | 50 ca ca 1e 06 1d 1a 19 |..!.... |P.......|
|00000530| 18 d2 08 d3 d4 4f 21 89 | 15 88 0d d5 59 89 16 06 |.....O!.|....Y...|
|00000540| 88 0d d5 56 83 46 00 0d | d5 5a 89 15 82 4f 00 0d |...V.F..|.Z...O..|
|00000550| d6 55 85 4f 00 d5 89 15 | 88 d7 d8 d9 0d 5c 22 08 |.U.O....|.....\".|
|00000560| d4 da 4f 0e 06 83 62 00 | db 82 63 00 dc dd 09 de |..O...b.|..c.....|
|00000570| 5c 22 83 6e 00 de 82 79 | 00 df 09 d6 e0 4f e1 09 |\".n...y|.....O..|
|00000580| e0 ca 4f 52 e2 0a 21 85 | 86 00 e3 e4 0a 21 38 d6 |..OR..!.|.....!8.|
|00000590| 56 83 8d 00 e5 82 8e 00 | de 25 89 16 07 88 0e 08 |V.......|.%......|
|000005a0| 85 a2 00 08 d6 d3 4f 0e | 07 50 89 16 07 2d 88 8a |......O.|.P...-..|
|000005b0| e6 20 71 29 88 e7 e8 20 | 21 88 e9 d6 21 87 22 20 |. q)... |!...!." |
|000005c0| 5b 74 69 6d 65 20 6c 6f | 61 64 20 6d 61 69 6c 2d |[time lo|ad mail-|
|000005d0| 73 70 6f 6f 6c 2d 66 69 | 6c 65 20 64 69 73 70 6c |spool-fi|le displ|
|000005e0| 61 79 2d 74 69 6d 65 2d | 6d 61 69 6c 2d 66 69 6c |ay-time-|mail-fil|
|000005f0| 65 20 72 6d 61 69 6c 2d | 73 70 6f 6f 6c 2d 64 69 |e rmail-|spool-di|
|00000600| 72 65 63 74 6f 72 79 20 | 68 6f 75 72 20 70 6d 20 |rectory |hour pm |
|00000610| 64 69 73 70 6c 61 79 2d | 74 69 6d 65 2d 73 74 72 |display-|time-str|
|00000620| 69 6e 67 20 64 69 73 70 | 6c 61 79 2d 74 69 6d 65 |ing disp|lay-time|
|00000630| 2d 64 61 79 2d 61 6e 64 | 2d 64 61 74 65 20 63 75 |-day-and|-date cu|
|00000640| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00000650| 67 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |g nil (b|yte-code|
|00000660| 20 22 c0 c1 20 40 21 83 | 0c 00 c2 82 12 00 c3 c4 | ".. @!.|........|
|00000670| c1 20 40 5c 22 87 22 20 | 5b 7a 65 72 6f 70 20 6c |. @\"." |[zerop l|
|00000680| 6f 61 64 2d 61 76 65 72 | 61 67 65 20 22 22 20 66 |oad-aver|age "" f|
|00000690| 6f 72 6d 61 74 20 22 25 | 30 33 64 22 5d 20 36 29 |ormat "%|03d"] 6)|
|000006a0| 20 28 28 65 72 72 6f 72 | 20 28 62 79 74 65 2d 63 | ((error| (byte-c|
|000006b0| 6f 64 65 20 22 c0 c1 c2 | 8f 87 22 20 5b 6e 69 6c |ode "...|.." [nil|
|000006c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 8e 8a | (byte-c|ode "...|
|000006d0| c2 c3 21 71 88 c4 c5 c0 | 70 23 88 65 62 88 c6 c7 |..!q....|p#.eb...|
|000006e0| 21 88 c8 60 c9 ca 21 88 | 60 5c 22 c8 60 54 c9 ca |!..`..!.|`\".`T..|
|000006f0| 21 88 60 5c 22 50 29 29 | 87 22 20 5b 6e 69 6c 20 |!.`\"P))|." [nil |
|00000700| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |((byte-c|ode "..!|
|00000710| 87 22 20 5b 6b 69 6c 6c | 2d 62 75 66 66 65 72 20 |." [kill|-buffer |
|00000720| 22 20 2a 75 70 74 69 6d | 65 2a 22 5d 20 32 29 29 |" *uptim|e*"] 2))|
|00000730| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 | get-buf|fer-crea|
|00000740| 74 65 20 22 20 2a 75 70 | 74 69 6d 65 2a 22 20 63 |te " *up|time*" c|
|00000750| 61 6c 6c 2d 70 72 6f 63 | 65 73 73 20 22 2f 75 73 |all-proc|ess "/us|
|00000760| 72 2f 75 63 62 2f 75 70 | 74 69 6d 65 22 20 73 65 |r/ucb/up|time" se|
|00000770| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 61 76 |arch-for|ward "av|
|00000780| 65 72 61 67 65 3a 20 22 | 20 62 75 66 66 65 72 2d |erage: "| buffer-|
|00000790| 73 75 62 73 74 72 69 6e | 67 20 66 6f 72 77 61 72 |substrin|g forwar|
|000007a0| 64 2d 77 6f 72 64 20 31 | 5d 20 31 30 29 20 28 28 |d-word 1|] 10) ((|
|000007b0| 65 72 72 6f 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |error (b|yte-code|
|000007c0| 20 22 c0 87 22 20 5b 22 | 22 5d 20 31 29 29 29 5d | ".." ["|"] 1)))]|
|000007d0| 20 33 29 29 29 20 67 65 | 74 65 6e 76 20 22 4d 41 | 3))) ge|tenv "MA|
|000007e0| 49 4c 22 20 22 4c 4f 47 | 4e 41 4d 45 22 20 22 55 |IL" "LOG|NAME" "U|
|000007f0| 53 45 52 22 20 75 73 65 | 72 2d 6c 6f 67 69 6e 2d |SER" use|r-login-|
|00000800| 6e 61 6d 65 20 72 65 61 | 64 20 31 31 20 31 33 20 |name rea|d 11 13 |
|00000810| 31 32 20 30 20 63 6f 6e | 63 61 74 20 66 6f 72 6d |12 0 con|cat form|
|00000820| 61 74 20 22 25 64 22 20 | 31 36 20 22 70 6d 22 20 |at "%d" |16 "pm" |
|00000830| 22 61 6d 22 20 73 74 72 | 69 6e 67 3d 20 22 22 20 |"am" str|ing= "" |
|00000840| 22 20 22 20 2d 32 20 22 | 2e 22 20 66 69 6c 65 2d |" " -2 "|." file-|
|00000850| 65 78 69 73 74 73 2d 70 | 20 37 20 66 69 6c 65 2d |exists-p| 7 file-|
|00000860| 61 74 74 72 69 62 75 74 | 65 73 20 22 20 4d 61 69 |attribut|es " Mai|
|00000870| 6c 22 20 6f 74 68 65 72 | 2d 62 75 66 66 65 72 20 |l" other|-buffer |
|00000880| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00000890| 69 65 64 2d 70 20 62 75 | 66 66 65 72 2d 6d 6f 64 |ied-p bu|ffer-mod|
|000008a0| 69 66 69 65 64 2d 70 20 | 73 69 74 2d 66 6f 72 5d |ified-p |sit-for]|
|000008b0| 20 31 38 29 29 0a       |                         | 18)).  |        |
+--------+-------------------------+-------------------------+--------+--------+