home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 3.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul 6|
|00000040| 20 30 30 3a 31 31 3a 34 | 37 20 31 39 39 33 0a 3b | 00:11:4|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 74 69 6d | 65 72 2e 65 6c 0a 3b 3b |lisp/tim|er.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 31 35 2e 31 36 | 2e 0a 3b 3b 3b 20 62 79 |19.15.16|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)). (|
|00000190| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c2 c3 21 |byte-cod|e "....!|
|000001d0| 84 5c 6e 00 c4 13 c2 c5 | 21 84 12 00 c4 15 c2 c6 |.\n.....|!.......|
|000001e0| 21 84 1b 00 c7 16 06 c4 | 87 22 20 5b 22 74 69 6d |!.......|." ["tim|
|000001f0| 65 72 22 20 74 69 6d 65 | 72 2d 70 72 6f 67 72 61 |er" time|r-progra|
|00000200| 6d 20 62 6f 75 6e 64 70 | 20 74 69 6d 65 72 2d 70 |m boundp| timer-p|
|00000210| 72 6f 63 65 73 73 20 6e | 69 6c 20 74 69 6d 65 72 |rocess n|il timer|
|00000220| 2d 61 6c 69 73 74 20 74 | 69 6d 65 72 2d 6f 75 74 |-alist t|imer-out|
|00000230| 20 22 22 5d 20 32 29 0a | 28 64 65 66 76 61 72 20 | ""] 2).|(defvar |
|00000240| 74 69 6d 65 72 2d 64 6f | 6e 74 2d 65 78 69 74 20 |timer-do|nt-exit |
|00000250| 6e 69 6c 20 22 5c 0a 49 | 66 20 6e 6f 6e 2d 6e 69 |nil "\.I|f non-ni|
|00000260| 6c 2c 20 64 6f 6e 27 74 | 20 65 78 69 74 20 74 68 |l, don't| exit th|
|00000270| 65 20 74 69 6d 65 72 20 | 70 72 6f 63 65 73 73 20 |e timer |process |
|00000280| 77 68 65 6e 20 6e 6f 20 | 6d 6f 72 65 20 65 76 65 |when no |more eve|
|00000290| 6e 74 73 20 61 72 65 20 | 70 65 6e 64 69 6e 67 2e |nts are |pending.|
|000002a0| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 75 |").(defa|lias 'ru|
|000002b0| 6e 2d 61 74 2d 74 69 6d | 65 20 23 5b 28 74 69 6d |n-at-tim|e #[(tim|
|000002c0| 65 20 72 65 70 65 61 74 | 20 66 75 6e 63 74 69 6f |e repeat| functio|
|000002d0| 6e 20 26 72 65 73 74 20 | 61 72 67 73 29 20 22 08 |n &rest |args) ".|
|000002e0| a8 83 5c 6e 00 c1 c2 08 | 5c 22 10 0b 83 16 00 c4 |..\n....|\"......|
|000002f0| 0b 21 c5 3e 83 41 00 0b | 83 1e 00 c6 0b 21 88 c7 |.!.>.A..|.....!..|
|00000300| 1e 08 c9 ca c7 cb 0e 0c | 0e 0d 5c 22 23 29 13 c7 |........|..\"#)..|
|00000310| 16 0e cf 0b d0 5c 22 88 | d1 0b d2 5c 22 88 d3 0b |.....\".|...\"...|
|00000320| 21 88 82 4d 00 c4 0b 21 | d4 3d 83 4d 00 d5 0b 21 |!..M...!|.=.M...!|
|00000330| 88 d6 20 d7 0e 0e 47 51 | 89 1e 18 0e 19 0e 1a 0e |.. ...GQ|........|
|00000340| 1b 46 1e 1c dd 0b 08 de | 0e 18 df 52 5c 22 88 0e |.F......|...R\"..|
|00000350| 1c 0e 0e 42 16 0e 0e 1c | 2a 87 22 20 5b 74 69 6d |...B....|*." [tim|
|00000360| 65 20 66 6f 72 6d 61 74 | 20 22 25 64 20 73 65 63 |e format| "%d sec|
|00000370| 22 20 74 69 6d 65 72 2d | 70 72 6f 63 65 73 73 20 |" timer-|process |
|00000380| 70 72 6f 63 65 73 73 2d | 73 74 61 74 75 73 20 28 |process-|status (|
|00000390| 65 78 69 74 20 73 69 67 | 6e 61 6c 20 6e 69 6c 29 |exit sig|nal nil)|
|000003a0| 20 64 65 6c 65 74 65 2d | 70 72 6f 63 65 73 73 20 | delete-|process |
|000003b0| 6e 69 6c 20 70 72 6f 63 | 65 73 73 2d 63 6f 6e 6e |nil proc|ess-conn|
|000003c0| 65 63 74 69 6f 6e 2d 74 | 79 70 65 20 73 74 61 72 |ection-t|ype star|
|000003d0| 74 2d 70 72 6f 63 65 73 | 73 20 22 74 69 6d 65 72 |t-proces|s "timer|
|000003e0| 22 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |" expand|-file-na|
|000003f0| 6d 65 20 74 69 6d 65 72 | 2d 70 72 6f 67 72 61 6d |me timer|-program|
|00000400| 20 65 78 65 63 2d 64 69 | 72 65 63 74 6f 72 79 20 | exec-di|rectory |
|00000410| 74 69 6d 65 72 2d 61 6c | 69 73 74 20 73 65 74 2d |timer-al|ist set-|
|00000420| 70 72 6f 63 65 73 73 2d | 66 69 6c 74 65 72 20 74 |process-|filter t|
|00000430| 69 6d 65 72 2d 70 72 6f | 63 65 73 73 2d 66 69 6c |imer-pro|cess-fil|
|00000440| 74 65 72 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |ter set-|process-|
|00000450| 73 65 6e 74 69 6e 65 6c | 20 74 69 6d 65 72 2d 70 |sentinel| timer-p|
|00000460| 72 6f 63 65 73 73 2d 73 | 65 6e 74 69 6e 65 6c 20 |rocess-s|entinel |
|00000470| 70 72 6f 63 65 73 73 2d | 6b 69 6c 6c 2d 77 69 74 |process-|kill-wit|
|00000480| 68 6f 75 74 2d 71 75 65 | 72 79 20 73 74 6f 70 20 |hout-que|ry stop |
|00000490| 63 6f 6e 74 69 6e 75 65 | 2d 70 72 6f 63 65 73 73 |continue|-process|
|000004a0| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 2d 73 74 | current|-time-st|
|000004b0| 72 69 6e 67 20 22 2d 22 | 20 74 6f 6b 65 6e 20 72 |ring "-"| token r|
|000004c0| 65 70 65 61 74 20 66 75 | 6e 63 74 69 6f 6e 20 61 |epeat fu|nction a|
|000004d0| 72 67 73 20 65 6c 74 20 | 70 72 6f 63 65 73 73 2d |rgs elt |process-|
|000004e0| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 22 40 22 20 |send-str|ing "@" |
|000004f0| 22 5c 6e 22 5d 20 37 20 | 22 5c 0a 52 75 6e 20 61 |"\n"] 7 |"\.Run a|
|00000500| 20 66 75 6e 63 74 69 6f | 6e 20 61 74 20 61 20 74 | functio|n at a t|
|00000510| 69 6d 65 2c 20 61 6e 64 | 20 6f 70 74 69 6f 6e 61 |ime, and| optiona|
|00000520| 6c 6c 79 20 6f 6e 20 61 | 20 72 65 67 75 6c 61 72 |lly on a| regular|
|00000530| 20 69 6e 74 65 72 76 61 | 6c 2e 0a 41 72 67 75 6d | interva|l..Argum|
|00000540| 65 6e 74 73 20 61 72 65 | 20 54 49 4d 45 2c 20 52 |ents are| TIME, R|
|00000550| 45 50 45 41 54 2c 20 46 | 55 4e 43 54 49 4f 4e 20 |EPEAT, F|UNCTION |
|00000560| 26 72 65 73 74 20 41 52 | 47 53 2e 0a 54 49 4d 45 |&rest AR|GS..TIME|
|00000570| 2c 20 61 20 73 74 72 69 | 6e 67 2c 20 63 61 6e 20 |, a stri|ng, can |
|00000580| 62 65 20 73 70 65 63 69 | 66 69 65 64 20 61 62 73 |be speci|fied abs|
|00000590| 6f 6c 75 74 65 6c 79 20 | 6f 72 20 72 65 6c 61 74 |olutely |or relat|
|000005a0| 69 76 65 20 74 6f 20 6e | 6f 77 2e 0a 54 49 4d 45 |ive to n|ow..TIME|
|000005b0| 20 63 61 6e 20 61 6c 73 | 6f 20 62 65 20 61 6e 20 | can als|o be an |
|000005c0| 69 6e 74 65 67 65 72 2c | 20 61 20 6e 75 6d 62 65 |integer,| a numbe|
|000005d0| 72 20 6f 66 20 73 65 63 | 6f 6e 64 73 2e 0a 52 45 |r of sec|onds..RE|
|000005e0| 50 45 41 54 2c 20 61 6e | 20 69 6e 74 65 67 65 72 |PEAT, an| integer|
|000005f0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 73 65 63 6f 6e | number |of secon|
|00000600| 64 73 2c 20 69 73 20 74 | 68 65 20 69 6e 74 65 72 |ds, is t|he inter|
|00000610| 76 61 6c 20 6f 6e 20 77 | 68 69 63 68 20 74 6f 20 |val on w|hich to |
|00000620| 72 65 70 65 61 74 0a 74 | 68 65 20 63 61 6c 6c 20 |repeat.t|he call |
|00000630| 74 6f 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 2e |to the f|unction.|
|00000640| 20 20 49 66 20 52 45 50 | 45 41 54 20 69 73 20 6e | If REP|EAT is n|
|00000650| 69 6c 2c 20 63 61 6c 6c | 20 69 74 20 6a 75 73 74 |il, call| it just|
|00000660| 20 6f 6e 63 65 2e 0a 0a | 41 62 73 6f 6c 75 74 65 | once...|Absolute|
|00000670| 20 74 69 6d 65 73 20 6d | 61 79 20 62 65 20 73 70 | times m|ay be sp|
|00000680| 65 63 69 66 69 65 64 20 | 69 6e 20 61 20 77 69 64 |ecified |in a wid|
|00000690| 65 20 76 61 72 69 65 74 | 79 20 6f 66 20 66 6f 72 |e variet|y of for|
|000006a0| 6d 61 74 73 3b 0a 53 6f | 6d 65 74 68 69 6e 67 20 |mats;.So|mething |
|000006b0| 6f 66 20 74 68 65 20 66 | 6f 72 6d 20 60 48 4f 55 |of the f|orm `HOU|
|000006c0| 52 3a 4d 49 4e 3a 53 45 | 43 20 54 49 4d 45 5a 4f |R:MIN:SE|C TIMEZO|
|000006d0| 4e 45 20 4d 4f 4e 54 48 | 2f 44 41 59 2f 59 45 41 |NE MONTH|/DAY/YEA|
|000006e0| 52 27 2c 20 77 68 65 72 | 65 0a 61 6c 6c 20 66 69 |R', wher|e.all fi|
|000006f0| 65 6c 64 73 20 61 72 65 | 20 6e 75 6d 62 65 72 73 |elds are| numbers|
|00000700| 2c 20 77 6f 72 6b 73 3b | 20 74 68 65 20 66 6f 72 |, works;| the for|
|00000710| 6d 61 74 20 75 73 65 64 | 20 62 79 20 74 68 65 20 |mat used| by the |
|00000720| 55 6e 69 78 20 60 64 61 | 74 65 27 0a 63 6f 6d 6d |Unix `da|te'.comm|
|00000730| 61 6e 64 20 77 6f 72 6b | 73 20 74 6f 6f 2e 0a 0a |and work|s too...|
|00000740| 52 65 6c 61 74 69 76 65 | 20 74 69 6d 65 73 20 6d |Relative| times m|
|00000750| 61 79 20 62 65 20 73 70 | 65 63 69 66 69 65 64 20 |ay be sp|ecified |
|00000760| 61 73 20 61 20 73 65 72 | 69 65 73 20 6f 66 20 6e |as a ser|ies of n|
|00000770| 75 6d 62 65 72 73 20 66 | 6f 6c 6c 6f 77 65 64 20 |umbers f|ollowed |
|00000780| 62 79 20 75 6e 69 74 73 | 3a 0a 20 20 31 20 6d 69 |by units|:. 1 mi|
|00000790| 6e 20 20 20 20 20 20 20 | 20 20 09 64 65 6e 6f 74 |n | .denot|
|000007a0| 65 73 20 6f 6e 65 20 6d | 69 6e 75 74 65 20 66 72 |es one m|inute fr|
|000007b0| 6f 6d 20 6e 6f 77 2e 0a | 20 20 6d 69 6e 09 09 09 |om now..| min...|
|000007c0| 64 6f 65 73 20 74 6f 6f | 2e 0a 20 20 31 20 6d 69 |does too|.. 1 mi|
|000007d0| 6e 20 35 20 73 65 63 09 | 09 64 65 6e 6f 74 65 73 |n 5 sec.|.denotes|
|000007e0| 20 36 35 20 73 65 63 6f | 6e 64 73 20 66 72 6f 6d | 65 seco|nds from|
|000007f0| 20 6e 6f 77 2e 0a 20 20 | 31 20 6d 69 6e 20 32 20 | now.. |1 min 2 |
|00000800| 73 65 63 20 33 20 68 6f | 75 72 20 34 20 64 61 79 |sec 3 ho|ur 4 day|
|00000810| 20 35 20 77 65 65 6b 20 | 36 20 66 6f 72 74 6e 69 | 5 week |6 fortni|
|00000820| 67 68 74 20 37 20 6d 6f | 6e 74 68 20 38 20 79 65 |ght 7 mo|nth 8 ye|
|00000830| 61 72 0a 09 09 09 64 65 | 6e 6f 74 65 73 20 74 68 |ar....de|notes th|
|00000840| 65 20 73 75 6d 20 6f 66 | 20 61 6c 6c 20 74 68 65 |e sum of| all the|
|00000850| 20 67 69 76 65 6e 20 64 | 75 72 61 74 69 6f 6e 73 | given d|urations|
|00000860| 20 66 72 6f 6d 20 6e 6f | 77 2e 22 20 22 73 52 75 | from no|w." "sRu|
|00000870| 6e 20 61 74 20 74 69 6d | 65 3a 20 5c 6e 4e 52 65 |n at tim|e: \nNRe|
|00000880| 70 65 61 74 20 69 6e 74 | 65 72 76 61 6c 3a 20 5c |peat int|erval: \|
|00000890| 6e 61 46 75 6e 63 74 69 | 6f 6e 3a 20 22 5d 29 0a |naFuncti|on: "]).|
|000008a0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 61 6e 63 65 |(defalia|s 'cance|
|000008b0| 6c 2d 74 69 6d 65 72 20 | 23 5b 28 65 6c 74 29 20 |l-timer |#[(elt) |
|000008c0| 22 08 41 c1 a0 88 08 41 | 41 c2 a0 87 22 20 5b 65 |".A....A|A..." [e|
|000008d0| 6c 74 20 6e 69 6c 20 69 | 67 6e 6f 72 65 5d 20 32 |lt nil i|gnore] 2|
|000008e0| 20 22 5c 0a 43 61 6e 63 | 65 6c 20 61 20 74 69 6d | "\.Canc|el a tim|
|000008f0| 65 72 20 70 72 65 76 69 | 6f 75 73 6c 79 20 6d 61 |er previ|ously ma|
|00000900| 64 65 20 77 69 74 68 20 | 60 72 75 6e 2d 61 74 2d |de with |`run-at-|
|00000910| 74 69 6d 65 27 2e 0a 54 | 68 65 20 61 72 67 75 6d |time'..T|he argum|
|00000920| 65 6e 74 20 73 68 6f 75 | 6c 64 20 62 65 20 61 20 |ent shou|ld be a |
|00000930| 76 61 6c 75 65 20 70 72 | 65 76 69 6f 75 73 6c 79 |value pr|eviously|
|00000940| 20 72 65 74 75 72 6e 65 | 64 20 62 79 20 60 72 75 | returne|d by `ru|
|00000950| 6e 2d 61 74 2d 74 69 6d | 65 27 2e 0a 43 61 6e 63 |n-at-tim|e'..Canc|
|00000960| 65 6c 6c 69 6e 67 20 74 | 68 65 20 74 69 6d 65 72 |elling t|he timer|
|00000970| 20 6d 65 61 6e 73 20 74 | 68 61 74 20 6e 6f 74 68 | means t|hat noth|
|00000980| 69 6e 67 20 73 70 65 63 | 69 61 6c 20 0a 77 69 6c |ing spec|ial .wil|
|00000990| 6c 20 68 61 70 70 65 6e | 20 61 74 20 74 68 65 20 |l happen| at the |
|000009a0| 73 70 65 63 69 66 69 65 | 64 20 74 69 6d 65 2e 22 |specifie|d time."|
|000009b0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|000009c0| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 87 22 20 5b 64 65 |..\"....|\"." [de|
|000009d0| 66 61 6c 69 61 73 20 74 | 69 6d 65 72 2d 70 72 6f |falias t|imer-pro|
|000009e0| 63 65 73 73 2d 66 69 6c | 74 65 72 20 23 5b 28 70 |cess-fil|ter #[(p|
|000009f0| 72 6f 63 20 73 74 72 29 | 20 22 08 09 50 10 c2 89 |roc str)| "..P...|
|00000a00| 89 1b 1c 1d c6 c7 08 5c | 22 83 89 00 08 c8 89 94 |.......\|".......|
|00000a10| 4f 14 c9 0c 0e 5c 6e 5c | 22 15 08 c8 95 c2 4f 10 |O....\n\|".....O.|
|00000a20| 0d 83 52 00 cb cc 0d 38 | cd 0d 38 5c 22 88 ce 0d |..R....8|..8\"...|
|00000a30| 41 40 21 83 48 00 cf 0e | 10 0d 41 40 d1 0d 40 c7 |A@!.H...|..A@..@.|
|00000a40| 52 5c 22 88 82 5c 6e 00 | d2 0d 0e 5c 6e 5c 22 16 |R\"..\n.|...\n\".|
|00000a50| 5c 6e 82 5c 6e 00 c6 d3 | 0c 5c 22 83 5c 6e 00 0c |\n.\n...|.\".\n..|
|00000a60| d4 94 d4 95 4f 13 0c cc | 94 cc 95 4f 15 c9 0c cd |....O...|...O....|
|00000a70| 94 cd 95 4f 0e 5c 6e 5c | 22 14 d2 0c 0e 5c 6e 5c |...O.\n\|"....\n\|
|00000a80| 22 16 5c 6e d5 d6 21 88 | d7 d8 0b cc 0c 38 0d 24 |".\n..!.|.....8.$|
|00000a90| 88 82 5c 6e 00 0e 5c 6e | 86 97 00 0e 19 86 97 00 |..\n..\n|........|
|00000aa0| da 0e 10 21 2b 87 22 20 | 5b 74 69 6d 65 72 2d 6f |...!+." |[timer-o|
|00000ab0| 75 74 20 73 74 72 20 6e | 69 6c 20 65 72 72 6f 72 |ut str n|il error|
|00000ac0| 20 74 6f 6b 65 6e 20 64 | 6f 20 73 74 72 69 6e 67 | token d|o string|
|00000ad0| 2d 6d 61 74 63 68 20 22 | 5c 6e 22 20 30 20 61 73 |-match "|\n" 0 as|
|00000ae0| 73 6f 63 20 74 69 6d 65 | 72 2d 61 6c 69 73 74 20 |soc time|r-alist |
|00000af0| 61 70 70 6c 79 20 32 20 | 33 20 6e 61 74 6e 75 6d |apply 2 |3 natnum|
|00000b00| 70 20 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 70 72 |p send-s|tring pr|
|00000b10| 6f 63 20 22 20 73 65 63 | 40 22 20 64 65 6c 71 20 |oc " sec|@" delq |
|00000b20| 22 74 69 6d 65 72 3a 20 | 5c 5c 28 5b 5e 3a 5d 2b |"timer: |\\([^:]+|
|00000b30| 5c 5c 29 3a 20 5c 5c 28 | 5b 5e 40 5d 2a 5c 5c 29 |\\): \\(|[^@]*\\)|
|00000b40| 40 5c 5c 28 2e 2a 5c 5c | 29 24 22 20 31 20 64 69 |@\\(.*\\|)$" 1 di|
|00000b50| 6e 67 20 6e 6f 2d 74 65 | 72 6d 69 6e 61 74 65 20 |ng no-te|rminate |
|00000b60| 6d 65 73 73 61 67 65 20 | 22 25 73 20 66 6f 72 20 |message |"%s for |
|00000b70| 25 73 3b 20 63 6f 75 6c | 64 6e 27 74 20 73 65 74 |%s; coul|dn't set|
|00000b80| 20 61 74 20 5c 22 25 73 | 5c 22 22 20 74 69 6d 65 | at \"%s|\"" time|
|00000b90| 72 2d 64 6f 6e 74 2d 65 | 78 69 74 20 70 72 6f 63 |r-dont-e|xit proc|
|00000ba0| 65 73 73 2d 73 65 6e 64 | 2d 65 6f 66 5d 20 36 5d |ess-send|-eof] 6]|
|00000bb0| 20 74 69 6d 65 72 2d 70 | 72 6f 63 65 73 73 2d 73 | timer-p|rocess-s|
|00000bc0| 65 6e 74 69 6e 65 6c 20 | 23 5b 28 70 72 6f 63 20 |entinel |#[(proc |
|00000bd0| 73 74 72 29 20 22 c0 09 | 21 89 1a c3 3d 83 10 00 |str) "..|!...=...|
|00000be0| c4 09 21 82 28 00 0d 83 | 5c 22 00 5c 6e c6 3d 84 |..!.(...|\".\n.=.|
|00000bf0| 5c 22 00 c7 c8 21 88 c9 | ca 21 88 cb 16 0c cb 89 |\"...!..|.!......|
|00000c00| 15 29 87 22 20 5b 70 72 | 6f 63 65 73 73 2d 73 74 |.)." [pr|ocess-st|
|00000c10| 61 74 75 73 20 70 72 6f | 63 20 73 74 61 74 20 73 |atus pro|c stat s|
|00000c20| 74 6f 70 20 63 6f 6e 74 | 69 6e 75 65 2d 70 72 6f |top cont|inue-pro|
|00000c30| 63 65 73 73 20 74 69 6d | 65 72 2d 61 6c 69 73 74 |cess tim|er-alist|
|00000c40| 20 65 78 69 74 20 64 69 | 6e 67 20 6e 6f 2d 74 65 | exit di|ng no-te|
|00000c50| 72 6d 69 6e 61 74 65 20 | 6d 65 73 73 61 67 65 20 |rminate |message |
|00000c60| 22 54 69 6d 65 72 20 65 | 78 69 74 65 64 20 61 62 |"Timer e|xited ab|
|00000c70| 6e 6f 72 6d 61 6c 6c 79 | 2e 20 20 41 6c 6c 20 65 |normally|. All e|
|00000c80| 76 65 6e 74 73 20 63 61 | 6e 63 65 6c 6c 65 64 2e |vents ca|ncelled.|
|00000c90| 22 20 6e 69 6c 20 74 69 | 6d 65 72 2d 70 72 6f 63 |" nil ti|mer-proc|
|00000ca0| 65 73 73 5d 20 33 5d 5d | 20 33 29 0a 28 64 65 66 |ess] 3]]| 3).(def|
|00000cb0| 61 6c 69 61 73 20 27 63 | 61 6e 63 65 6c 2d 66 75 |alias 'c|ancel-fu|
|00000cc0| 6e 63 74 69 6f 6e 2d 74 | 69 6d 65 72 73 20 23 5b |nction-t|imers #[|
|00000cd0| 28 66 75 6e 63 74 69 6f | 6e 29 20 22 08 89 19 83 |(functio|n) "....|
|00000ce0| 1c 00 c2 09 40 38 0b 3d | 83 15 00 c4 09 40 08 5c |....@8.=|.....@.\|
|00000cf0| 22 10 09 41 89 11 84 06 | 00 29 08 86 29 00 0d 86 |"..A....|.)..)...|
|00000d00| 29 00 c6 0e 07 21 87 22 | 20 5b 74 69 6d 65 72 2d |)....!."| [timer-|
|00000d10| 61 6c 69 73 74 20 61 6c | 69 73 74 20 32 20 66 75 |alist al|ist 2 fu|
|00000d20| 6e 63 74 69 6f 6e 20 64 | 65 6c 71 20 74 69 6d 65 |nction d|elq time|
|00000d30| 72 2d 64 6f 6e 74 2d 65 | 78 69 74 20 70 72 6f 63 |r-dont-e|xit proc|
|00000d40| 65 73 73 2d 73 65 6e 64 | 2d 65 6f 66 20 74 69 6d |ess-send|-eof tim|
|00000d50| 65 72 2d 70 72 6f 63 65 | 73 73 5d 20 34 20 22 5c |er-proce|ss] 4 "\|
|00000d60| 0a 43 61 6e 63 65 6c 20 | 61 6c 6c 20 65 76 65 6e |.Cancel |all even|
|00000d70| 74 73 20 73 63 68 65 64 | 75 6c 65 64 20 62 79 20 |ts sched|uled by |
|00000d80| 60 72 75 6e 2d 61 74 2d | 74 69 6d 65 27 20 77 68 |`run-at-|time' wh|
|00000d90| 69 63 68 20 77 6f 75 6c | 64 20 72 75 6e 20 46 55 |ich woul|d run FU|
|00000da0| 4e 43 54 49 4f 4e 2e 22 | 20 22 61 43 61 6e 63 65 |NCTION."| "aCance|
|00000db0| 6c 20 74 69 6d 65 72 73 | 20 6f 66 20 66 75 6e 63 |l timers| of func|
|00000dc0| 74 69 6f 6e 3a 20 22 5d | 29 0a 28 70 72 6f 76 69 |tion: "]|).(provi|
|00000dd0| 64 65 20 28 71 75 6f 74 | 65 20 74 69 6d 65 72 29 |de (quot|e timer)|
|00000de0| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
