/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / utils / crontab.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 36 3a 30 | 30 20 31 39 39 35 0a 3b | 14:26:0|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 75 74 | 69 6c 73 2f 63 72 6f 6e |/lisp/ut|ils/cron|
|00000090| 74 61 62 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |tab.el.;|;; emacs|
|000000a0| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 31 33 20 58 | version| 19.13 X|
|000000b0| 45 6d 61 63 73 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |Emacs Lu|cid..;;;|
|000000c0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000d0| 6e 20 32 2e 32 35 3b 20 | 31 2d 53 65 70 2d 39 34 |n 2.25; |1-Sep-94|
|000000e0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000f0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000100| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000110| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000120| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000130| 20 31 38 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 18...(i|f (and (|
|00000140| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000160| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000170| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000180| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n)..    |
|00000190| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001a0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 31 39 |macs-ver|sion "19|
|000001b0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))).   | (error |
|000001c0| 22 54 68 69 73 20 66 69 | 6c 65 20 77 61 73 20 63 |"This fi|le was c|
|000001d0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001e0| 73 20 31 39 2e 22 29 29 | 0a 0a 28 70 72 6f 76 69 |s 19."))|..(provi|
|000001f0| 64 65 20 27 63 72 6f 6e | 74 61 62 2d 65 64 69 74 |de 'cron|tab-edit|
|00000200| 29 0a 28 64 65 66 76 61 | 72 20 63 72 6f 6e 74 61 |).(defva|r cronta|
|00000210| 62 2d 66 69 6c 65 6e 61 | 6d 65 20 22 7e 2f 2e 63 |b-filena|me "~/.c|
|00000220| 72 6f 6e 74 61 62 22 20 | 22 5c 0a 2a 54 68 65 20 |rontab" |"\.*The |
|00000230| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 66 69 6c 65 |name of |the file|
|00000240| 20 74 6f 20 73 74 6f 72 | 65 20 74 68 65 20 55 73 | to stor|e the Us|
|00000250| 65 72 27 73 20 43 72 6f | 6e 74 61 62 2e 22 29 0a |er's Cro|ntab.").|
|00000260| 28 64 65 66 76 61 72 20 | 63 72 6f 6e 74 61 62 2d |(defvar |crontab-|
|00000270| 64 69 72 65 63 74 6f 72 | 79 20 22 2f 75 73 72 2f |director|y "/usr/|
|00000280| 73 70 6f 6f 6c 2f 63 72 | 6f 6e 2f 63 72 6f 6e 74 |spool/cr|on/cront|
|00000290| 61 62 73 22 20 22 5c 0a | 2a 54 68 65 20 6e 61 6d |abs" "\.|*The nam|
|000002a0| 65 20 6f 66 20 74 68 65 | 20 64 69 72 65 63 74 6f |e of the| directo|
|000002b0| 72 79 20 69 6e 20 77 68 | 69 63 68 20 63 72 6f 6e |ry in wh|ich cron|
|000002c0| 74 61 62 20 73 74 6f 72 | 65 73 20 69 74 27 73 20 |tab stor|es it's |
|000002d0| 65 6e 74 72 69 65 73 2e | 22 29 0a 28 64 65 66 76 |entries.|").(defv|
|000002e0| 61 72 20 63 72 6f 6e 74 | 61 62 2d 75 73 65 2d 6c |ar cront|ab-use-l|
|000002f0| 6f 63 61 6c 2d 66 69 6c | 65 20 6e 69 6c 20 22 5c |ocal-fil|e nil "\|
|00000300| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |.*Non-ni|l means |
|00000310| 75 73 65 20 66 69 6c 65 | 20 73 74 6f 72 65 64 20 |use file| stored |
|00000320| 69 6e 20 55 73 65 72 27 | 73 20 48 6f 6d 65 20 64 |in User'|s Home d|
|00000330| 69 72 65 63 74 6f 72 79 | 2c 20 69 66 20 69 74 20 |irectory|, if it |
|00000340| 65 78 69 73 74 73 2e 0a | 4f 74 68 65 72 77 69 73 |exists..|Otherwis|
|00000350| 65 2c 20 61 6c 77 61 79 | 73 20 61 73 6b 20 63 72 |e, alway|s ask cr|
|00000360| 6f 6e 74 61 62 20 66 6f | 72 20 74 68 65 20 63 75 |ontab fo|r the cu|
|00000370| 72 72 65 6e 74 20 65 6e | 74 72 79 20 28 6d 61 79 |rrent en|try (may|
|00000380| 62 65 29 2e 22 29 0a 28 | 66 73 65 74 20 27 63 72 |be).").(|fset 'cr|
|00000390| 6f 6e 74 61 62 2d 65 64 | 69 74 20 23 5b 6e 69 6c |ontab-ed|it #[nil|
|000003a0| 20 22 c0 20 87 22 20 5b | 63 72 6f 6e 74 61 62 2d | ". ." [|crontab-|
|000003b0| 67 65 74 5d 20 31 20 22 | 5c 0a 46 75 6e 63 74 69 |get] 1 "|\.Functi|
|000003c0| 6f 6e 20 74 6f 20 61 6c | 6c 6f 77 20 74 68 65 20 |on to al|low the |
|000003d0| 65 61 73 79 20 65 64 69 | 74 69 6e 67 20 6f 66 20 |easy edi|ting of |
|000003e0| 63 72 6f 6e 74 61 62 20 | 66 69 6c 65 73 2e 22 20 |crontab |files." |
|000003f0| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 63 72 6f |nil]).(f|set 'cro|
|00000400| 6e 74 61 62 2d 67 65 74 | 20 23 5b 6e 69 6c 20 22 |ntab-get| #[nil "|
|00000410| c0 c1 21 88 c2 c3 0c 21 | 21 88 c5 20 88 c6 0c 21 |..!....!|!.. ...!|
|00000420| ab b6 c7 0e 08 c9 ca 20 | 51 cb 0c 21 5c 22 ab 95 |....... |Q..!\"..|
|00000430| cc cd 21 ab 8a ce cf d0 | d1 89 d2 25 88 aa ac d3 |..!.....|...%....|
|00000440| 0c 21 88 aa a6 0e 14 ab | 86 d3 0c 21 88 aa 9c ce |.!......|...!....|
|00000450| cf d0 d1 89 d2 25 88 aa | 92 0e 14 ab 86 d3 0c 21 |.....%..|.......!|
|00000460| 88 aa 88 ce cf d0 d1 89 | d2 25 88 65 62 88 d5 d6 |........|.%.eb...|
|00000470| d0 d1 d0 24 ab 83 c5 20 | 88 6d ab 83 d7 20 88 d8 |...$... |.m... ..|
|00000480| d9 21 88 0c 16 1a db d0 | 21 88 dc dd 21 88 de 0e |.!......|!...!...|
|00000490| 1d 3e ac 8a df de df 0e | 1d 21 42 21 16 1d c0 e0 |.>......|.!B!....|
|000004a0| 21 87 22 20 5b 6d 65 73 | 73 61 67 65 20 22 52 65 |!." [mes|sage "Re|
|000004b0| 74 72 69 65 76 69 6e 67 | 20 43 72 6f 6e 74 61 62 |trieving| Crontab|
|000004c0| 20 2e 2e 2e 20 22 20 73 | 77 69 74 63 68 2d 74 6f | ... " s|witch-to|
|000004d0| 2d 62 75 66 66 65 72 20 | 63 72 65 61 74 65 2d 66 |-buffer |create-f|
|000004e0| 69 6c 65 2d 62 75 66 66 | 65 72 20 63 72 6f 6e 74 |ile-buff|er cront|
|000004f0| 61 62 2d 66 69 6c 65 6e | 61 6d 65 20 65 72 61 73 |ab-filen|ame eras|
|00000500| 65 2d 62 75 66 66 65 72 | 20 66 69 6c 65 2d 65 78 |e-buffer| file-ex|
|00000510| 69 73 74 73 2d 70 20 66 | 69 6c 65 2d 6e 65 77 65 |ists-p f|ile-newe|
|00000520| 72 2d 74 68 61 6e 2d 66 | 69 6c 65 2d 70 20 63 72 |r-than-f|ile-p cr|
|00000530| 6f 6e 74 61 62 2d 64 69 | 72 65 63 74 6f 72 79 20 |ontab-di|rectory |
|00000540| 22 2f 22 20 75 73 65 72 | 2d 6c 6f 67 69 6e 2d 6e |"/" user|-login-n|
|00000550| 61 6d 65 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |ame expa|nd-file-|
|00000560| 6e 61 6d 65 20 79 65 73 | 2d 6f 72 2d 6e 6f 2d 70 |name yes|-or-no-p|
|00000570| 20 22 43 72 6f 6e 20 68 | 61 73 20 61 20 6d 6f 72 | "Cron h|as a mor|
|00000580| 65 20 72 65 63 65 6e 74 | 20 63 6f 70 79 20 6f 66 |e recent| copy of|
|00000590| 20 79 6f 75 72 20 63 72 | 6f 6e 74 61 62 2e 20 20 | your cr|ontab.  |
|000005a0| 55 73 65 20 69 74 20 3f | 20 22 20 63 61 6c 6c 2d |Use it ?| " call-|
|000005b0| 70 72 6f 63 65 73 73 20 | 22 63 72 6f 6e 74 61 62 |process |"crontab|
|000005c0| 22 20 6e 69 6c 20 74 20 | 22 2d 6c 22 20 69 6e 73 |" nil t |"-l" ins|
|000005d0| 65 72 74 2d 66 69 6c 65 | 20 63 72 6f 6e 74 61 62 |ert-file| crontab|
|000005e0| 2d 75 73 65 2d 6c 6f 63 | 61 6c 2d 66 69 6c 65 20 |-use-loc|al-file |
|000005f0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00000600| 63 72 6f 6e 74 61 62 3a | 22 20 63 72 6f 6e 74 61 |crontab:|" cronta|
|00000610| 62 2d 69 6e 69 74 69 61 | 6c 69 7a 65 20 67 6f 74 |b-initia|lize got|
|00000620| 6f 2d 6c 69 6e 65 20 36 | 20 62 75 66 66 65 72 2d |o-line 6| buffer-|
|00000630| 66 69 6c 65 2d 6e 61 6d | 65 20 73 65 74 2d 62 75 |file-nam|e set-bu|
|00000640| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00000650| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|00000660| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 77 72 69 74 65 |ffer-loc|al write|
|00000670| 2d 66 69 6c 65 2d 68 6f | 6f 6b 73 20 63 72 6f 6e |-file-ho|oks cron|
|00000680| 74 61 62 2d 73 61 76 65 | 20 72 65 76 65 72 73 65 |tab-save| reverse|
|00000690| 20 22 53 61 76 65 20 66 | 69 6c 65 20 6e 6f 72 6d | "Save f|ile norm|
|000006a0| 61 6c 6c 79 20 77 68 65 | 6e 20 66 69 6e 69 73 68 |ally whe|n finish|
|000006b0| 65 64 20 74 6f 20 75 70 | 64 61 74 65 20 63 72 6f |ed to up|date cro|
|000006c0| 6e 2e 22 5d 20 36 20 22 | 5c 0a 52 65 74 72 69 65 |n."] 6 "|\.Retrie|
|000006d0| 76 65 20 61 20 63 72 6f | 6e 74 61 62 20 66 69 6c |ve a cro|ntab fil|
|000006e0| 65 20 65 69 74 68 65 72 | 20 75 73 69 6e 67 20 63 |e either| using c|
|000006f0| 72 6f 6e 74 61 62 20 2d | 6c 20 6f 72 20 66 72 6f |rontab -|l or fro|
|00000700| 6d 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 0a 63 |m the va|riable.c|
|00000710| 72 6f 6e 74 61 62 2d 66 | 69 6c 65 6e 61 6d 65 22 |rontab-f|ilename"|
|00000720| 5d 29 0a 28 66 73 65 74 | 20 27 63 72 6f 6e 74 61 |]).(fset| 'cronta|
|00000730| 62 2d 73 61 76 65 20 23 | 5b 6e 69 6c 20 22 65 62 |b-save #|[nil "eb|
|00000740| 88 6d ac 88 c0 20 88 c1 | 79 88 aa 75 c2 20 88 c3 |.m... ..|y..u. ..|
|00000750| 14 c5 20 1e 06 c7 20 88 | c8 c9 ca 0e 0b 21 50 21 |.. ... .|.....!P!|
|00000760| 88 cc cd 20 21 88 ce 0e | 06 21 88 29 cf d0 0e 0b |... !...|.!.)....|
|00000770| d1 51 21 88 d2 87 22 20 | 5b 64 65 6c 65 74 65 2d |.Q!..." |[delete-|
|00000780| 62 6c 61 6e 6b 2d 6c 69 | 6e 65 73 20 31 20 72 65 |blank-li|nes 1 re|
|00000790| 64 72 61 77 2d 64 69 73 | 70 6c 61 79 20 6e 69 6c |draw-dis|play nil|
|000007a0| 20 77 72 69 74 65 2d 66 | 69 6c 65 2d 68 6f 6f 6b | write-f|ile-hook|
|000007b0| 73 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 63 72 |s buffer|-name cr|
|000007c0| 6f 6e 74 61 62 2d 62 75 | 66 66 65 72 20 62 61 73 |ontab-bu|ffer bas|
|000007d0| 69 63 2d 73 61 76 65 2d | 62 75 66 66 65 72 20 73 |ic-save-|buffer s|
|000007e0| 68 65 6c 6c 2d 63 6f 6d | 6d 61 6e 64 20 22 63 72 |hell-com|mand "cr|
|000007f0| 6f 6e 74 61 62 20 22 20 | 65 78 70 61 6e 64 2d 66 |ontab " |expand-f|
|00000800| 69 6c 65 2d 6e 61 6d 65 | 20 63 72 6f 6e 74 61 62 |ile-name| crontab|
|00000810| 2d 66 69 6c 65 6e 61 6d | 65 20 73 77 69 74 63 68 |-filenam|e switch|
|00000820| 2d 74 6f 2d 62 75 66 66 | 65 72 20 6f 74 68 65 72 |-to-buff|er other|
|00000830| 2d 62 75 66 66 65 72 20 | 6b 69 6c 6c 2d 62 75 66 |-buffer |kill-buf|
|00000840| 66 65 72 20 6d 65 73 73 | 61 67 65 20 22 43 72 6f |fer mess|age "Cro|
|00000850| 6e 74 61 62 20 73 61 76 | 65 64 20 61 73 20 22 20 |ntab sav|ed as " |
|00000860| 22 20 61 6e 64 20 73 75 | 62 6d 69 74 74 65 64 20 |" and su|bmitted |
|00000870| 74 6f 20 63 72 6f 6e 2e | 22 20 22 22 5d 20 34 20 |to cron.|" ""] 4 |
|00000880| 22 5c 0a 53 75 62 6d 69 | 74 20 74 68 65 20 65 64 |"\.Submi|t the ed|
|00000890| 69 74 65 64 20 63 72 6f | 6e 74 61 62 20 74 6f 20 |ited cro|ntab to |
|000008a0| 74 68 65 20 63 72 6f 6e | 20 64 65 61 6d 6f 6e 20 |the cron| deamon |
|000008b0| 66 6f 72 20 70 72 6f 63 | 65 73 73 69 6e 67 22 5d |for proc|essing"]|
|000008c0| 29 0a 28 66 73 65 74 20 | 27 63 72 6f 6e 74 61 62 |).(fset |'crontab|
|000008d0| 2d 69 6e 69 74 69 61 6c | 69 7a 65 20 23 5b 6e 69 |-initial|ize #[ni|
|000008e0| 6c 20 22 c0 63 88 c1 20 | 63 88 c2 63 88 c3 20 63 |l ".c.. |c..c.. c|
|000008f0| 88 c4 63 88 c5 63 88 c6 | 63 88 c5 63 87 22 20 5b |..c..c..|c..c." [|
|00000900| 22 23 20 43 72 6f 6e 20 | 54 61 62 6c 65 20 45 6e |"# Cron |Table En|
|00000910| 74 72 79 20 66 6f 72 20 | 22 20 75 73 65 72 2d 6c |try for |" user-l|
|00000920| 6f 67 69 6e 2d 6e 61 6d | 65 20 22 20 28 22 20 75 |ogin-nam|e " (" u|
|00000930| 73 65 72 2d 66 75 6c 6c | 2d 6e 61 6d 65 20 22 29 |ser-full|-name ")|
|00000940| 5c 6e 23 20 4c 61 73 74 | 20 45 64 69 74 65 64 3a |\n# Last| Edited:|
|00000950| 20 5c 6e 22 20 22 23 5c | 6e 22 20 22 23 20 6d 69 | \n" "#\|n" "# mi|
|00000960| 6e 20 20 20 20 68 72 20 | 20 20 20 20 64 61 79 20 |n    hr |    day |
|00000970| 20 20 6d 6f 6e 20 20 20 | 20 77 64 61 79 28 30 3d |  mon   | wday(0=|
|00000980| 73 75 6e 29 20 20 63 6d | 64 5c 6e 22 5d 20 31 20 |sun)  cm|d\n"] 1 |
|00000990| 22 5c 0a 43 72 65 61 74 | 65 20 61 20 64 65 66 61 |"\.Creat|e a defa|
|000009a0| 75 6c 74 20 43 72 6f 6e | 74 61 62 20 66 69 6c 65 |ult Cron|tab file|
|000009b0| 20 69 66 20 6f 6e 65 20 | 64 6f 65 73 20 6e 6f 74 | if one |does not|
|000009c0| 20 65 78 69 73 74 20 6f | 72 20 69 73 20 65 6d 70 | exist o|r is emp|
|000009d0| 74 79 2e 0a 49 66 20 74 | 68 65 20 66 75 6e 63 74 |ty..If t|he funct|
|000009e0| 69 6f 6e 20 28 74 69 6d | 65 2d 73 74 61 6d 70 29 |ion (tim|e-stamp)|
|000009f0| 20 69 73 20 61 76 61 69 | 6c 61 62 6c 65 2c 20 74 | is avai|lable, t|
|00000a00| 68 65 20 6c 61 73 74 20 | 6d 6f 64 69 66 69 63 61 |he last |modifica|
|00000a10| 74 69 6f 6e 20 74 69 6d | 65 20 77 69 6c 6c 0a 62 |tion tim|e will.b|
|00000a20| 65 20 73 74 61 6d 70 65 | 64 20 74 6f 20 74 68 65 |e stampe|d to the|
|00000a30| 20 66 69 6c 65 2e 22 5d | 29 0a                   | file."]|).      |
+--------+-------------------------+-------------------------+--------+--------+