/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume03 / date

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 44 49 | 44 45 4c 4f 54 20 41 6e |From: DI|DELOT An|
|00000010| 64 72 65 20 3c 74 61 6c | 63 6f 74 74 21 73 65 69 |dre <tal|cott!sei|
|00000020| 73 6d 6f 21 6d 63 76 61 | 78 21 63 75 69 21 61 6e |smo!mcva|x!cui!an|
|00000030| 64 72 65 3e 0a 53 75 62 | 6a 65 63 74 3a 20 64 61 |dre>.Sub|ject: da|
|00000040| 74 65 20 2d 20 66 6f 72 | 6d 61 74 74 65 64 20 64 |te - for|matted d|
|00000050| 61 74 65 20 70 72 6f 67 | 72 61 6d 0a 4e 65 77 73 |ate prog|ram.News|
|00000060| 67 72 6f 75 70 73 3a 20 | 6d 6f 64 2e 73 6f 75 72 |groups: |mod.sour|
|00000070| 63 65 73 0a 41 70 70 72 | 6f 76 65 64 3a 20 6a 70 |ces.Appr|oved: jp|
|00000080| 6e 40 70 61 6e 64 61 2e | 55 55 43 50 0a 0a 4d 6f |n@panda.|UUCP..Mo|
|00000090| 64 2e 73 6f 75 72 63 65 | 73 3a 20 20 56 6f 6c 75 |d.source|s:  Volu|
|000000a0| 6d 65 20 33 2c 20 49 73 | 73 75 65 20 31 32 32 0a |me 3, Is|sue 122.|
|000000b0| 53 75 62 6d 69 74 74 65 | 64 20 62 79 3a 20 44 49 |Submitte|d by: DI|
|000000c0| 44 45 4c 4f 54 20 41 6e | 64 72 65 20 3c 74 61 6c |DELOT An|dre <tal|
|000000d0| 63 6f 74 74 21 73 65 69 | 73 6d 6f 21 6d 63 76 61 |cott!sei|smo!mcva|
|000000e0| 78 21 63 75 69 21 61 6e | 64 72 65 3e 0a 0a 0a 2d |x!cui!an|dre>...-|
|000000f0| 2d 2d 38 3c 2d 2d 2d 2d | 2d 2d 2d 43 55 54 2d 2d |--8<----|---CUT--|
|00000100| 48 45 52 45 2d 2d 2d 2d | 2d 2d 38 3c 2d 2d 2d 2d |HERE----|--8<----|
|00000110| 2d 2d 2d 43 55 54 2d 2d | 48 45 52 45 2d 2d 2d 2d |---CUT--|HERE----|
|00000120| 2d 2d 2d 38 3c 2d 2d 2d | 2d 2d 2d 2d 43 55 54 2d |---8<---|----CUT-|
|00000130| 2d 48 45 52 45 2d 2d 2d | 2d 2d 2d 38 3c 2d 0a 23 |-HERE---|---8<-.#|
|00000140| 21 2f 62 69 6e 2f 73 68 | 0a 23 20 54 68 69 73 20 |!/bin/sh|.# This |
|00000150| 69 73 20 61 20 73 68 65 | 6c 6c 20 61 72 63 68 69 |is a she|ll archi|
|00000160| 76 65 2c 20 6d 65 61 6e | 69 6e 67 3a 0a 23 20 31 |ve, mean|ing:.# 1|
|00000170| 2e 20 52 65 6d 6f 76 65 | 20 65 76 65 72 79 74 68 |. Remove| everyth|
|00000180| 69 6e 67 20 61 62 6f 76 | 65 20 74 68 65 20 23 21 |ing abov|e the #!|
|00000190| 2f 62 69 6e 2f 73 68 20 | 6c 69 6e 65 2e 0a 23 20 |/bin/sh |line..# |
|000001a0| 32 2e 20 53 61 76 65 20 | 74 68 65 20 72 65 73 75 |2. Save |the resu|
|000001b0| 6c 74 69 6e 67 20 74 65 | 78 74 20 69 6e 20 61 20 |lting te|xt in a |
|000001c0| 66 69 6c 65 2e 0a 23 20 | 33 2e 20 45 78 65 63 75 |file..# |3. Execu|
|000001d0| 74 65 20 74 68 65 20 66 | 69 6c 65 20 77 69 74 68 |te the f|ile with|
|000001e0| 20 73 68 20 28 6e 6f 74 | 20 63 73 68 29 20 74 6f | sh (not| csh) to|
|000001f0| 20 63 72 65 61 74 65 20 | 74 68 65 20 66 69 6c 65 | create |the file|
|00000200| 73 3a 0a 23 20 20 20 20 | 20 20 20 20 20 20 64 61 |s:.#    |      da|
|00000210| 74 65 2e 31 0a 23 20 20 | 20 20 20 20 20 20 20 20 |te.1.#  |        |
|00000220| 64 61 74 65 2e 63 0a 23 | 0a 23 20 43 72 65 61 74 |date.c.#|.# Creat|
|00000230| 65 64 3a 20 54 75 65 20 | 46 65 62 20 31 31 20 31 |ed: Tue |Feb 11 1|
|00000240| 34 3a 31 33 3a 33 38 20 | 4d 45 54 20 31 39 38 36 |4:13:38 |MET 1986|
|00000250| 0a 23 20 43 72 65 61 74 | 6f 72 3a 20 44 49 44 45 |.# Creat|or: DIDE|
|00000260| 4c 4f 54 20 41 6e 64 72 | 65 20 28 55 6e 69 76 65 |LOT Andr|e (Unive|
|00000270| 72 73 69 74 79 20 6f 66 | 20 47 65 6e 65 76 61 29 |rsity of| Geneva)|
|00000280| 0a 20 0a 65 78 70 6f 72 | 74 20 50 41 54 48 0a 50 |. .expor|t PATH.P|
|00000290| 41 54 48 3d 2f 62 69 6e | 3a 24 50 41 54 48 0a 20 |ATH=/bin|:$PATH. |
|000002a0| 0a 69 66 20 5b 20 2d 66 | 20 27 64 61 74 65 2e 31 |.if [ -f| 'date.1|
|000002b0| 27 20 5d 0a 74 68 65 6e | 0a 20 20 20 20 65 63 68 |' ].then|.    ech|
|000002c0| 6f 20 2a 2a 2a 57 41 52 | 4e 49 4e 47 20 22 27 64 |o ***WAR|NING "'d|
|000002d0| 61 74 65 2e 31 27 22 20 | 65 78 69 73 74 73 2c 20 |ate.1'" |exists, |
|000002e0| 6e 6f 74 20 72 65 6d 70 | 6c 61 63 65 64 0a 65 6c |not remp|laced.el|
|000002f0| 73 65 0a 20 20 20 20 65 | 63 68 6f 20 65 78 74 72 |se.    e|cho extr|
|00000300| 61 63 74 69 6e 67 20 22 | 27 64 61 74 65 2e 31 27 |acting "|'date.1'|
|00000310| 22 20 31 3e 26 32 0a 20 | 20 20 20 73 65 64 20 2d |" 1>&2. |   sed -|
|00000320| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 20 27 64 61 |e 's/^X/|/' > 'da|
|00000330| 74 65 2e 31 27 20 3c 3c | 27 2d 2d 2d 45 4f 46 28 |te.1' <<|'---EOF(|
|00000340| 64 61 74 65 2e 31 29 2d | 2d 2d 27 0a 58 2e 54 48 |date.1)-|--'.X.TH|
|00000350| 20 44 41 54 45 20 6c 20 | 22 36 20 41 75 67 75 73 | DATE l |"6 Augus|
|00000360| 74 20 31 39 38 34 22 0a | 58 2e 55 43 20 34 0a 58 |t 1984".|X.UC 4.X|
|00000370| 2e 53 48 20 4e 41 4d 45 | 0a 58 64 61 74 65 20 5c |.SH NAME|.Xdate \|
|00000380| 2d 20 66 6f 72 6d 61 74 | 74 65 64 20 6f 75 74 70 |- format|ted outp|
|00000390| 75 74 20 6f 66 20 63 75 | 72 72 65 6e 74 20 64 61 |ut of cu|rrent da|
|000003a0| 74 65 0a 58 2e 53 48 20 | 53 59 4e 4f 50 53 49 53 |te.X.SH |SYNOPSIS|
|000003b0| 0a 58 2e 42 20 64 61 74 | 65 0a 58 5b 20 0a 58 2e |.X.B dat|e.X[ .X.|
|000003c0| 42 20 5c 2d 6c 66 0a 58 | 5d 0a 58 5b 20 5b 5c 2d |B \-lf.X|].X[ [\-|
|000003d0| 5d 0a 58 2e 42 20 66 6f | 72 6d 61 74 20 76 61 72 |].X.B fo|rmat var|
|000003e0| 69 61 62 6c 65 73 0a 58 | 5d 0a 58 2e 53 48 20 44 |iables.X|].X.SH D|
|000003f0| 45 53 43 52 49 50 54 49 | 4f 4e 0a 58 57 69 74 68 |ESCRIPTI|ON.XWith|
|00000400| 6f 75 74 20 61 6e 79 20 | 61 72 67 75 6d 65 6e 74 |out any |argument|
|00000410| 2c 0a 58 2e 49 20 64 61 | 74 65 0a 58 6f 75 74 70 |,.X.I da|te.Xoutp|
|00000420| 75 74 20 75 73 65 20 41 | 53 43 49 49 20 66 6f 72 |ut use A|SCII for|
|00000430| 6d 61 74 2e 0a 58 54 68 | 65 0a 58 2e 42 20 5c 2d |mat..XTh|e.X.B \-|
|00000440| 66 0a 58 6f 70 74 69 6f | 6e 20 73 74 61 6e 64 20 |f.Xoptio|n stand |
|00000450| 66 6f 72 20 66 72 65 6e | 63 68 20 6f 75 74 70 75 |for fren|ch outpu|
|00000460| 74 2e 0a 58 54 68 65 0a | 58 2e 42 20 5c 2d 6c 0a |t..XThe.|X.B \-l.|
|00000470| 58 6f 70 74 69 6f 6e 20 | 73 74 61 6e 64 20 66 6f |Xoption |stand fo|
|00000480| 72 20 6c 6f 6e 67 20 6f | 75 74 70 75 74 2c 20 65 |r long o|utput, e|
|00000490| 69 74 68 65 72 20 69 6e | 20 65 6e 67 6c 69 73 68 |ither in| english|
|000004a0| 20 6f 72 20 69 6e 20 66 | 72 65 6e 63 68 2e 0a 58 | or in f|rench..X|
|000004b0| 2e 50 50 0a 58 54 68 65 | 20 73 74 72 69 6e 67 0a |.PP.XThe| string.|
|000004c0| 58 2e 49 20 66 6f 72 6d | 61 74 0a 58 63 6f 6e 74 |X.I form|at.Xcont|
|000004d0| 61 69 6e 73 20 61 20 66 | 6f 72 6d 61 74 20 6c 69 |ains a f|ormat li|
|000004e0| 6b 65 20 74 68 61 74 20 | 75 73 65 64 20 62 79 20 |ke that |used by |
|000004f0| 74 68 65 20 43 20 73 75 | 62 72 6f 75 74 69 6e 65 |the C su|broutine|
|00000500| 0a 58 2e 49 20 70 72 69 | 6e 74 66 0a 58 3b 20 61 |.X.I pri|ntf.X; a|
|00000510| 6c 6c 20 73 70 65 63 69 | 61 6c 20 63 68 61 72 20 |ll speci|al char |
|00000520| 63 6f 6e 76 65 6e 74 69 | 6f 6e 73 20 61 72 65 20 |conventi|ons are |
|00000530| 72 65 63 6f 67 6e 69 7a | 65 64 2e 0a 58 54 68 65 |recogniz|ed..XThe|
|00000540| 20 73 74 72 69 6e 67 20 | 77 6f 75 6c 64 20 68 61 | string |would ha|
|00000550| 76 65 20 62 65 74 74 65 | 72 20 74 6f 20 62 65 20 |ve bette|r to be |
|00000560| 71 75 6f 74 65 64 20 74 | 6f 20 70 72 65 76 65 6e |quoted t|o preven|
|00000570| 74 20 61 6e 79 20 66 75 | 72 74 68 65 72 20 73 68 |t any fu|rther sh|
|00000580| 65 6c 6c 0a 58 69 6e 74 | 65 72 70 72 65 74 61 74 |ell.Xint|erpretat|
|00000590| 69 6f 6e 2e 0a 58 41 6e | 20 6f 70 74 69 6f 6e 6e |ion..XAn| optionn|
|000005a0| 61 6c 20 73 69 6e 67 6c | 65 20 5c 2d 20 61 6c 6c |al singl|e \- all|
|000005b0| 6f 77 20 75 73 65 20 6f | 66 20 66 6f 72 6d 61 74 |ow use o|f format|
|000005c0| 73 20 62 65 67 69 6e 6e | 69 6e 67 20 77 69 74 68 |s beginn|ing with|
|000005d0| 20 61 20 5c 2d 2e 0a 58 | 2e 50 50 0a 58 2e 49 20 | a \-..X|.PP.X.I |
|000005e0| 56 61 72 69 61 62 6c 65 | 73 0a 58 69 73 20 61 20 |Variable|s.Xis a |
|000005f0| 6c 69 73 74 20 6f 66 20 | 73 69 6e 67 6c 65 20 6c |list of |single l|
|00000600| 65 74 74 65 72 73 2c 20 | 65 69 74 68 65 72 20 63 |etters, |either c|
|00000610| 6f 6d 6d 61 20 6f 72 20 | 62 6c 61 6e 6b 20 73 65 |omma or |blank se|
|00000620| 70 61 72 61 74 65 64 2c | 20 6f 72 20 65 76 65 6e |parated,| or even|
|00000630| 0a 58 63 6f 6e 63 61 74 | 65 6e 65 64 20 61 6c 6c |.Xconcat|ened all|
|00000640| 74 6f 67 65 74 68 65 72 | 3b 20 76 61 6c 69 64 20 |together|; valid |
|00000650| 6e 61 6d 65 73 20 61 6e | 64 20 74 68 65 69 72 20 |names an|d their |
|00000660| 6d 65 61 6e 69 6e 67 20 | 61 72 65 20 3a 0a 58 2e |meaning |are :.X.|
|00000670| 54 50 20 31 30 0a 58 64 | 2c 20 6a 0a 58 64 61 79 |TP 10.Xd|, j.Xday|
|00000680| 20 6f 66 20 74 68 65 20 | 77 65 65 6b 2e 0a 58 2e | of the |week..X.|
|00000690| 54 50 20 31 30 0a 58 4d | 0a 58 6d 6f 6e 74 68 2e |TP 10.XM|.Xmonth.|
|000006a0| 0a 58 2e 54 50 20 31 30 | 0a 58 44 2c 20 4a 0a 58 |.X.TP 10|.XD, J.X|
|000006b0| 64 61 79 20 6f 66 20 74 | 68 65 20 6d 6f 6e 74 68 |day of t|he month|
|000006c0| 2e 0a 58 2e 54 50 20 31 | 30 0a 58 68 0a 58 68 6f |..X.TP 1|0.Xh.Xho|
|000006d0| 75 72 73 2e 0a 58 2e 54 | 50 20 31 30 0a 58 6d 0a |urs..X.T|P 10.Xm.|
|000006e0| 58 6d 69 6e 75 74 65 73 | 2e 0a 58 2e 54 50 20 31 |Xminutes|..X.TP 1|
|000006f0| 30 0a 58 73 0a 58 73 65 | 63 6f 6e 64 73 2e 0a 58 |0.Xs.Xse|conds..X|
|00000700| 2e 54 50 20 31 30 0a 58 | 59 2c 20 41 0a 58 79 65 |.TP 10.X|Y, A.Xye|
|00000710| 61 72 2e 0a 58 2e 53 48 | 20 53 45 45 20 41 4c 53 |ar..X.SH| SEE ALS|
|00000720| 4f 0a 58 63 74 69 6d 65 | 2c 20 6c 6f 63 61 6c 74 |O.Xctime|, localt|
|00000730| 69 6d 65 2c 20 67 6d 74 | 69 6d 65 2c 20 61 73 63 |ime, gmt|ime, asc|
|00000740| 74 69 6d 65 2c 20 74 69 | 6d 65 7a 6f 6e 65 20 28 |time, ti|mezone (|
|00000750| 33 29 0a 58 2e 53 48 20 | 41 55 54 48 4f 52 0a 58 |3).X.SH |AUTHOR.X|
|00000760| 41 2e 20 44 69 64 65 6c | 6f 74 0a 58 2e 53 48 20 |A. Didel|ot.X.SH |
|00000770| 42 55 47 53 0a 58 4e 6f | 20 77 61 79 20 74 6f 20 |BUGS.XNo| way to |
|00000780| 73 70 65 63 69 66 79 20 | 6c 65 74 74 65 72 27 73 |specify |letter's|
|00000790| 20 63 61 73 65 20 75 73 | 69 6e 67 20 66 6f 72 6d | case us|ing form|
|000007a0| 61 74 2e 0a 2d 2d 2d 45 | 4f 46 28 64 61 74 65 2e |at..---E|OF(date.|
|000007b0| 31 29 2d 2d 2d 0a 20 20 | 20 20 73 69 7a 65 3d 60 |1)---.  |  size=`|
|000007c0| 77 63 20 2d 63 20 64 61 | 74 65 2e 31 20 7c 20 61 |wc -c da|te.1 | a|
|000007d0| 77 6b 20 27 7b 70 72 69 | 6e 74 20 5c 24 31 7d 27 |wk '{pri|nt \$1}'|
|000007e0| 60 0a 20 20 20 20 69 66 | 20 5b 20 31 30 35 30 20 |`.    if| [ 1050 |
|000007f0| 2d 6e 65 20 24 73 69 7a | 65 20 5d 0a 20 20 20 20 |-ne $siz|e ].    |
|00000800| 74 68 65 6e 0a 20 20 20 | 20 20 20 20 20 65 63 68 |then.   |     ech|
|00000810| 6f 20 2a 2a 2a 57 41 52 | 4e 49 4e 47 20 22 27 64 |o ***WAR|NING "'d|
|00000820| 61 74 65 2e 31 27 22 20 | 62 61 64 20 63 68 65 63 |ate.1'" |bad chec|
|00000830| 6b 73 75 6d 0a 20 20 20 | 20 66 69 0a 66 69 0a 20 |ksum.   | fi.fi. |
|00000840| 0a 69 66 20 5b 20 2d 66 | 20 27 64 61 74 65 2e 63 |.if [ -f| 'date.c|
|00000850| 27 20 5d 0a 74 68 65 6e | 0a 20 20 20 20 65 63 68 |' ].then|.    ech|
|00000860| 6f 20 2a 2a 2a 57 41 52 | 4e 49 4e 47 20 22 27 64 |o ***WAR|NING "'d|
|00000870| 61 74 65 2e 63 27 22 20 | 65 78 69 73 74 73 2c 20 |ate.c'" |exists, |
|00000880| 6e 6f 74 20 72 65 6d 70 | 6c 61 63 65 64 0a 65 6c |not remp|laced.el|
|00000890| 73 65 0a 20 20 20 20 65 | 63 68 6f 20 65 78 74 72 |se.    e|cho extr|
|000008a0| 61 63 74 69 6e 67 20 22 | 27 64 61 74 65 2e 63 27 |acting "|'date.c'|
|000008b0| 22 20 31 3e 26 32 0a 20 | 20 20 20 73 65 64 20 2d |" 1>&2. |   sed -|
|000008c0| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 20 27 64 61 |e 's/^X/|/' > 'da|
|000008d0| 74 65 2e 63 27 20 3c 3c | 27 2d 2d 2d 45 4f 46 28 |te.c' <<|'---EOF(|
|000008e0| 64 61 74 65 2e 63 29 2d | 2d 2d 27 0a 58 23 69 6e |date.c)-|--'.X#in|
|000008f0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00000900| 58 23 69 6e 63 6c 75 64 | 65 20 3c 73 79 73 2f 74 |X#includ|e <sys/t|
|00000910| 69 6d 65 2e 68 3e 0a 58 | 0a 58 63 68 61 72 20 2a |ime.h>.X|.Xchar *|
|00000920| 64 61 79 73 68 6f 72 74 | 5b 5d 20 3d 20 7b 0a 58 |dayshort|[] = {.X|
|00000930| 09 22 4d 6f 6e 22 2c 0a | 58 09 22 54 75 65 22 2c |."Mon",.|X."Tue",|
|00000940| 0a 58 09 22 57 65 64 22 | 2c 0a 58 09 22 54 68 75 |.X."Wed"|,.X."Thu|
|00000950| 22 2c 0a 58 09 22 46 72 | 69 22 2c 0a 58 09 22 53 |",.X."Fr|i",.X."S|
|00000960| 61 74 22 2c 0a 58 09 22 | 53 75 6e 22 0a 58 7d 3b |at",.X."|Sun".X};|
|00000970| 0a 58 0a 58 63 68 61 72 | 20 2a 6d 6f 6e 74 68 73 |.X.Xchar| *months|
|00000980| 68 6f 72 74 5b 5d 20 3d | 20 7b 0a 58 09 22 4a 61 |hort[] =| {.X."Ja|
|00000990| 6e 22 2c 0a 58 09 22 46 | 65 62 22 2c 0a 58 09 22 |n",.X."F|eb",.X."|
|000009a0| 4d 61 72 22 2c 0a 58 09 | 22 41 70 72 22 2c 0a 58 |Mar",.X.|"Apr",.X|
|000009b0| 09 22 4d 61 79 22 2c 0a | 58 09 22 4a 75 6e 22 2c |."May",.|X."Jun",|
|000009c0| 0a 58 09 22 4a 75 6c 22 | 2c 0a 58 09 22 41 75 67 |.X."Jul"|,.X."Aug|
|000009d0| 22 2c 0a 58 09 22 53 65 | 70 22 2c 0a 58 09 22 4f |",.X."Se|p",.X."O|
|000009e0| 63 74 22 2c 0a 58 09 22 | 4e 6f 76 22 2c 0a 58 09 |ct",.X."|Nov",.X.|
|000009f0| 22 44 65 63 22 0a 58 7d | 3b 0a 58 0a 58 63 68 61 |"Dec".X}|;.X.Xcha|
|00000a00| 72 20 2a 64 61 79 73 5b | 5d 20 3d 20 7b 0a 58 09 |r *days[|] = {.X.|
|00000a10| 22 6d 6f 6e 64 61 79 22 | 2c 0a 58 09 22 74 75 65 |"monday"|,.X."tue|
|00000a20| 73 64 61 79 22 2c 0a 58 | 09 22 77 65 64 6e 65 73 |sday",.X|."wednes|
|00000a30| 64 61 79 22 2c 0a 58 09 | 22 74 68 75 72 73 64 61 |day",.X.|"thursda|
|00000a40| 79 22 2c 0a 58 09 22 66 | 72 69 64 61 79 22 2c 0a |y",.X."f|riday",.|
|00000a50| 58 09 22 73 61 74 75 72 | 64 61 79 22 2c 0a 58 09 |X."satur|day",.X.|
|00000a60| 22 73 75 6e 64 61 79 22 | 0a 58 7d 3b 0a 58 0a 58 |"sunday"|.X};.X.X|
|00000a70| 63 68 61 72 20 2a 6d 6f | 6e 74 68 73 5b 5d 20 3d |char *mo|nths[] =|
|00000a80| 20 7b 0a 58 09 22 6a 61 | 6e 75 61 72 79 22 2c 0a | {.X."ja|nuary",.|
|00000a90| 58 09 22 66 65 62 72 75 | 61 72 79 22 2c 0a 58 09 |X."febru|ary",.X.|
|00000aa0| 22 6d 61 72 63 68 22 2c | 0a 58 09 22 61 70 72 69 |"march",|.X."apri|
|00000ab0| 6c 22 2c 0a 58 09 22 6d | 61 79 22 2c 0a 58 09 22 |l",.X."m|ay",.X."|
|00000ac0| 6a 75 6e 65 22 2c 0a 58 | 09 22 6a 75 6c 79 22 2c |june",.X|."july",|
|00000ad0| 0a 58 09 22 61 75 67 75 | 73 74 22 2c 0a 58 09 22 |.X."augu|st",.X."|
|00000ae0| 73 65 70 74 65 6d 62 65 | 72 22 2c 0a 58 09 22 6f |septembe|r",.X."o|
|00000af0| 63 74 6f 62 65 72 22 2c | 0a 58 09 22 6e 6f 76 65 |ctober",|.X."nove|
|00000b00| 6d 62 65 72 22 2c 0a 58 | 09 22 64 65 63 65 6d 62 |mber",.X|."decemb|
|00000b10| 65 72 22 0a 58 7d 3b 0a | 58 0a 58 63 68 61 72 20 |er".X};.|X.Xchar |
|00000b20| 2a 6a 72 73 5b 5d 20 3d | 20 7b 0a 58 09 22 6c 75 |*jrs[] =| {.X."lu|
|00000b30| 6e 22 2c 0a 58 09 22 6d | 61 72 22 2c 0a 58 09 22 |n",.X."m|ar",.X."|
|00000b40| 6d 65 72 22 2c 0a 58 09 | 22 6a 65 75 22 2c 0a 58 |mer",.X.|"jeu",.X|
|00000b50| 09 22 76 65 6e 22 2c 0a | 58 09 22 73 61 6d 22 2c |."ven",.|X."sam",|
|00000b60| 0a 58 09 22 64 69 6d 22 | 0a 58 7d 3b 0a 58 0a 58 |.X."dim"|.X};.X.X|
|00000b70| 63 68 61 72 20 2a 6d 73 | 5b 5d 20 3d 20 7b 0a 58 |char *ms|[] = {.X|
|00000b80| 09 22 6a 61 6e 22 2c 0a | 58 09 22 66 65 76 22 2c |."jan",.|X."fev",|
|00000b90| 0a 58 09 22 6d 61 72 22 | 2c 0a 58 09 22 61 76 72 |.X."mar"|,.X."avr|
|00000ba0| 22 2c 0a 58 09 22 6d 61 | 69 22 2c 0a 58 09 22 6a |",.X."ma|i",.X."j|
|00000bb0| 75 69 6e 22 2c 0a 58 09 | 22 6a 75 69 6c 22 2c 0a |uin",.X.|"juil",.|
|00000bc0| 58 09 22 61 6f 75 22 2c | 0a 58 09 22 73 65 70 22 |X."aou",|.X."sep"|
|00000bd0| 2c 0a 58 09 22 6f 63 74 | 22 2c 0a 58 09 22 6e 6f |,.X."oct|",.X."no|
|00000be0| 76 22 2c 0a 58 09 22 64 | 65 63 22 0a 58 7d 3b 0a |v",.X."d|ec".X};.|
|00000bf0| 58 0a 58 63 68 61 72 20 | 2a 6a 6f 75 72 73 5b 5d |X.Xchar |*jours[]|
|00000c00| 20 3d 20 7b 0a 58 09 22 | 6c 75 6e 64 69 22 2c 0a | = {.X."|lundi",.|
|00000c10| 58 09 22 6d 61 72 64 69 | 22 2c 0a 58 09 22 6d 65 |X."mardi|",.X."me|
|00000c20| 72 63 72 65 64 69 22 2c | 0a 58 09 22 6a 65 75 64 |rcredi",|.X."jeud|
|00000c30| 69 22 2c 0a 58 09 22 76 | 65 6e 64 72 65 64 69 22 |i",.X."v|endredi"|
|00000c40| 2c 0a 58 09 22 73 61 6d | 65 64 69 22 2c 0a 58 09 |,.X."sam|edi",.X.|
|00000c50| 22 64 69 6d 61 6e 63 68 | 65 22 0a 58 7d 3b 0a 58 |"dimanch|e".X};.X|
|00000c60| 0a 58 63 68 61 72 20 2a | 6d 6f 69 73 5b 5d 20 3d |.Xchar *|mois[] =|
|00000c70| 20 7b 0a 58 09 22 6a 61 | 6e 76 69 65 72 22 2c 0a | {.X."ja|nvier",.|
|00000c80| 58 09 22 66 65 76 72 69 | 65 72 22 2c 0a 58 09 22 |X."fevri|er",.X."|
|00000c90| 6d 61 72 73 22 2c 0a 58 | 09 22 61 76 72 69 6c 22 |mars",.X|."avril"|
|00000ca0| 2c 0a 58 09 22 6d 61 69 | 22 2c 0a 58 09 22 6a 75 |,.X."mai|",.X."ju|
|00000cb0| 69 6e 22 2c 0a 58 09 22 | 6a 75 69 6c 6c 65 74 22 |in",.X."|juillet"|
|00000cc0| 2c 0a 58 09 22 61 6f 75 | 74 22 2c 0a 58 09 22 73 |,.X."aou|t",.X."s|
|00000cd0| 65 70 74 65 6d 62 72 65 | 22 2c 0a 58 09 22 6f 63 |eptembre|",.X."oc|
|00000ce0| 74 6f 62 72 65 22 2c 0a | 58 09 22 6e 6f 76 65 6d |tobre",.|X."novem|
|00000cf0| 62 72 65 22 2c 0a 58 09 | 22 64 65 63 65 6d 62 72 |bre",.X.|"decembr|
|00000d00| 65 22 0a 58 7d 3b 0a 58 | 0a 58 6d 61 69 6e 28 20 |e".X};.X|.Xmain( |
|00000d10| 61 72 67 63 2c 20 61 72 | 67 76 29 0a 58 0a 58 69 |argc, ar|gv).X.Xi|
|00000d20| 6e 74 09 61 72 67 63 3b | 0a 58 63 68 61 72 09 2a |nt.argc;|.Xchar.*|
|00000d30| 2a 61 72 67 76 3b 0a 58 | 0a 58 7b 09 6c 6f 6e 67 |*argv;.X|.X{.long|
|00000d40| 09 6c 3b 0a 58 0a 58 09 | 69 6e 74 20 09 69 2c 20 |.l;.X.X.|int .i, |
|00000d50| 6a 2c 0a 58 09 09 66 66 | 6c 67 2c 20 6c 66 6c 67 |j,.X..ff|lg, lflg|
|00000d60| 2c 0a 58 09 09 69 64 61 | 79 2c 20 69 6d 6f 6e 74 |,.X..ida|y, imont|
|00000d70| 68 3b 0a 58 0a 58 09 63 | 68 61 72 09 2a 77 6f 72 |h;.X.X.c|har.*wor|
|00000d80| 64 5b 37 5d 2c 0a 58 09 | 09 66 6f 72 6d 61 74 5b |d[7],.X.|.format[|
|00000d90| 38 30 5d 2c 0a 58 09 09 | 2a 63 6f 6d 6d 61 6e 64 |80],.X..|*command|
|00000da0| 2c 0a 58 09 09 2a 64 61 | 74 65 2c 0a 58 09 09 64 |,.X..*da|te,.X..d|
|00000db0| 61 79 5b 31 35 5d 2c 0a | 58 09 09 6d 6f 6e 74 68 |ay[15],.|X..month|
|00000dc0| 5b 31 35 5d 2c 0a 58 09 | 09 64 61 79 6d 6f 6e 74 |[15],.X.|.daymont|
|00000dd0| 68 5b 33 5d 2c 0a 58 09 | 09 68 6f 75 72 5b 33 5d |h[3],.X.|.hour[3]|
|00000de0| 2c 0a 58 09 09 6d 69 6e | 75 74 65 5b 33 5d 2c 0a |,.X..min|ute[3],.|
|00000df0| 58 09 09 73 65 63 6f 6e | 64 5b 33 5d 2c 0a 58 09 |X..secon|d[3],.X.|
|00000e00| 09 79 65 61 72 5b 35 5d | 3b 0a 58 0a 58 2f 2a 20 |.year[5]|;.X.X/* |
|00000e10| 67 65 74 20 64 61 74 65 | 09 09 09 09 2a 2f 0a 58 |get date|....*/.X|
|00000e20| 0a 58 09 74 69 6d 65 28 | 26 6c 29 3b 0a 58 09 64 |.X.time(|&l);.X.d|
|00000e30| 61 74 65 20 3d 20 63 74 | 69 6d 65 28 26 6c 29 3b |ate = ct|ime(&l);|
|00000e40| 0a 58 0a 58 2f 2a 20 70 | 72 69 6e 74 20 64 61 74 |.X.X/* p|rint dat|
|00000e50| 65 20 61 6e 64 20 65 78 | 69 74 2c 20 69 66 20 6e |e and ex|it, if n|
|00000e60| 6f 20 61 72 67 75 6d 65 | 6e 74 09 2a 2f 0a 58 0a |o argume|nt.*/.X.|
|00000e70| 58 09 69 66 20 28 61 72 | 67 63 20 3d 3d 20 31 29 |X.if (ar|gc == 1)|
|00000e80| 20 7b 0a 58 09 09 70 72 | 69 6e 74 66 28 20 22 25 | {.X..pr|intf( "%|
|00000e90| 73 22 2c 20 64 61 74 65 | 29 3b 0a 58 09 09 65 78 |s", date|);.X..ex|
|00000ea0| 69 74 28 30 29 3b 0a 58 | 09 7d 0a 58 0a 58 2f 2a |it(0);.X|.}.X.X/*|
|00000eb0| 20 73 61 76 65 20 6e 61 | 6d 65 20 6f 66 20 63 6f | save na|me of co|
|00000ec0| 6d 6d 61 6e 64 09 09 09 | 2a 2f 0a 58 0a 58 09 63 |mmand...|*/.X.X.c|
|00000ed0| 6f 6d 6d 61 6e 64 20 3d | 20 61 72 67 76 5b 30 5d |ommand =| argv[0]|
|00000ee0| 3b 0a 58 0a 58 2f 2a 20 | 67 65 74 20 6f 70 74 69 |;.X.X/* |get opti|
|00000ef0| 6f 6e 73 20 69 66 20 61 | 6e 79 09 09 09 2a 2f 0a |ons if a|ny...*/.|
|00000f00| 58 0a 58 09 61 72 67 63 | 2d 2d 3b 09 61 72 67 76 |X.X.argc|--;.argv|
|00000f10| 2b 2b 3b 0a 58 09 6c 66 | 6c 67 20 3d 20 66 66 6c |++;.X.lf|lg = ffl|
|00000f20| 67 20 3d 20 30 3b 0a 58 | 09 77 68 69 6c 65 28 61 |g = 0;.X|.while(a|
|00000f30| 72 67 76 5b 30 5d 5b 30 | 5d 20 3d 3d 20 27 2d 27 |rgv[0][0|] == '-'|
|00000f40| 20 26 26 20 61 72 67 76 | 5b 30 5d 5b 31 5d 29 20 | && argv|[0][1]) |
|00000f50| 7b 0a 58 09 20 20 20 20 | 66 6f 72 28 20 69 3d 31 |{.X.    |for( i=1|
|00000f60| 3b 20 61 72 67 76 5b 30 | 5d 5b 69 5d 3b 20 69 2b |; argv[0|][i]; i+|
|00000f70| 2b 29 0a 58 09 09 73 77 | 69 74 63 68 28 61 72 67 |+).X..sw|itch(arg|
|00000f80| 76 5b 30 5d 5b 69 5d 29 | 20 7b 0a 58 0a 58 09 09 |v[0][i])| {.X.X..|
|00000f90| 63 61 73 65 20 27 66 27 | 3a 0a 58 09 09 09 66 66 |case 'f'|:.X...ff|
|00000fa0| 6c 67 2b 2b 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b |lg++;.X.|..break;|
|00000fb0| 0a 58 0a 58 09 09 63 61 | 73 65 20 27 6c 27 3a 0a |.X.X..ca|se 'l':.|
|00000fc0| 58 09 09 09 6c 66 6c 67 | 2b 2b 3b 0a 58 09 09 09 |X...lflg|++;.X...|
|00000fd0| 62 72 65 61 6b 3b 0a 58 | 0a 58 09 09 64 65 66 61 |break;.X|.X..defa|
|00000fe0| 75 6c 74 3a 0a 58 09 09 | 09 66 70 72 69 6e 74 66 |ult:.X..|.fprintf|
|00000ff0| 28 20 73 74 64 65 72 72 | 2c 0a 58 09 09 09 22 25 |( stderr|,.X..."%|
|00001000| 73 20 3a 20 62 61 64 20 | 6f 70 74 69 6f 6e 20 25 |s : bad |option %|
|00001010| 63 5c 6e 22 2c 20 63 6f | 6d 6d 61 6e 64 2c 20 61 |c\n", co|mmand, a|
|00001020| 72 67 76 5b 30 5d 5b 69 | 5d 29 3b 0a 58 09 09 7d |rgv[0][i|]);.X..}|
|00001030| 0a 58 09 20 20 20 20 61 | 72 67 63 2d 2d 3b 20 61 |.X.    a|rgc--; a|
|00001040| 72 67 76 2b 2b 3b 0a 58 | 09 7d 0a 58 09 69 66 20 |rgv++;.X|.}.X.if |
|00001050| 28 61 72 67 76 5b 30 5d | 5b 30 5d 20 3d 3d 20 27 |(argv[0]|[0] == '|
|00001060| 2d 27 29 20 7b 0a 58 09 | 20 20 20 20 61 72 67 63 |-') {.X.|    argc|
|00001070| 2d 2d 3b 20 61 72 67 76 | 2b 2b 3b 0a 58 09 7d 0a |--; argv|++;.X.}.|
|00001080| 58 0a 58 2f 2a 20 69 6e | 69 74 69 61 6c 69 7a 65 |X.X/* in|itialize|
|00001090| 20 64 61 79 2c 20 6d 6f | 6e 74 68 2c 20 2e 2e 2e | day, mo|nth, ...|
|000010a0| 09 09 2a 2f 0a 58 0a 58 | 09 73 75 62 73 74 72 63 |..*/.X.X|.substrc|
|000010b0| 70 79 28 20 64 61 74 65 | 2c 20 20 30 2c 20 20 32 |py( date|,  0,  2|
|000010c0| 2c 20 64 61 79 29 3b 0a | 58 09 73 75 62 73 74 72 |, day);.|X.substr|
|000010d0| 63 70 79 28 20 64 61 74 | 65 2c 20 20 34 2c 20 20 |cpy( dat|e,  4,  |
|000010e0| 36 2c 20 6d 6f 6e 74 68 | 29 3b 0a 58 09 69 66 20 |6, month|);.X.if |
|000010f0| 28 64 61 74 65 5b 38 5d | 20 3d 3d 20 27 20 27 29 |(date[8]| == ' ')|
|00001100| 20 7b 0a 58 09 20 20 20 | 20 64 61 79 6d 6f 6e 74 | {.X.   | daymont|
|00001110| 68 5b 30 5d 20 3d 20 64 | 61 74 65 5b 39 5d 3b 0a |h[0] = d|ate[9];.|
|00001120| 58 09 20 20 20 20 64 61 | 79 6d 6f 6e 74 68 5b 31 |X.    da|ymonth[1|
|00001130| 5d 20 3d 20 27 5c 30 27 | 3b 0a 58 09 20 20 20 20 |] = '\0'|;.X.    |
|00001140| 7d 0a 58 09 65 6c 73 65 | 0a 58 09 20 20 20 20 73 |}.X.else|.X.    s|
|00001150| 75 62 73 74 72 63 70 79 | 28 20 64 61 74 65 2c 20 |ubstrcpy|( date, |
|00001160| 20 38 2c 20 20 39 2c 20 | 64 61 79 6d 6f 6e 74 68 | 8,  9, |daymonth|
|00001170| 29 3b 0a 58 09 73 75 62 | 73 74 72 63 70 79 28 20 |);.X.sub|strcpy( |
|00001180| 64 61 74 65 2c 20 31 31 | 2c 20 31 32 2c 20 68 6f |date, 11|, 12, ho|
|00001190| 75 72 29 3b 0a 58 09 73 | 75 62 73 74 72 63 70 79 |ur);.X.s|ubstrcpy|
|000011a0| 28 20 64 61 74 65 2c 20 | 31 34 2c 20 31 35 2c 20 |( date, |14, 15, |
|000011b0| 6d 69 6e 75 74 65 29 3b | 0a 58 09 73 75 62 73 74 |minute);|.X.subst|
|000011c0| 72 63 70 79 28 20 64 61 | 74 65 2c 20 31 37 2c 20 |rcpy( da|te, 17, |
|000011d0| 31 38 2c 20 73 65 63 6f | 6e 64 29 3b 0a 58 09 73 |18, seco|nd);.X.s|
|000011e0| 75 62 73 74 72 63 70 79 | 28 20 64 61 74 65 2c 20 |ubstrcpy|( date, |
|000011f0| 32 30 2c 20 32 33 2c 20 | 79 65 61 72 29 3b 0a 58 |20, 23, |year);.X|
|00001200| 0a 58 0a 58 2f 2a 20 63 | 6f 6d 70 75 74 65 20 69 |.X.X/* c|ompute i|
|00001210| 64 61 79 2c 20 69 6d 6f | 6e 74 68 09 09 09 2a 2f |day, imo|nth...*/|
|00001220| 0a 58 0a 58 09 66 6f 72 | 28 20 69 64 61 79 3d 30 |.X.X.for|( iday=0|
|00001230| 3b 20 69 64 61 79 3c 37 | 3b 20 69 64 61 79 2b 2b |; iday<7|; iday++|
|00001240| 29 20 0a 58 09 09 69 66 | 20 28 21 73 74 72 6e 63 |) .X..if| (!strnc|
|00001250| 6d 70 28 20 64 61 79 73 | 68 6f 72 74 5b 69 64 61 |mp( days|hort[ida|
|00001260| 79 5d 2c 20 64 61 79 2c | 20 33 29 29 20 62 72 65 |y], day,| 3)) bre|
|00001270| 61 6b 3b 0a 58 09 66 6f | 72 28 20 69 6d 6f 6e 74 |ak;.X.fo|r( imont|
|00001280| 68 3d 30 3b 20 69 6d 6f | 6e 74 68 3c 31 32 3b 20 |h=0; imo|nth<12; |
|00001290| 69 6d 6f 6e 74 68 2b 2b | 29 20 0a 58 09 09 69 66 |imonth++|) .X..if|
|000012a0| 20 28 21 73 74 72 6e 63 | 6d 70 28 20 6d 6f 6e 74 | (!strnc|mp( mont|
|000012b0| 68 73 68 6f 72 74 5b 69 | 6d 6f 6e 74 68 5d 2c 20 |hshort[i|month], |
|000012c0| 6d 6f 6e 74 68 2c 20 33 | 29 29 20 62 72 65 61 6b |month, 3|)) break|
|000012d0| 3b 0a 58 0a 58 2f 2a 20 | 6c 6f 6f 6b 20 66 6f 72 |;.X.X/* |look for|
|000012e0| 20 66 72 65 6e 63 68 20 | 61 6e 64 2f 6f 72 20 6c | french |and/or l|
|000012f0| 6f 6e 67 20 6f 75 74 70 | 75 74 09 2a 2f 0a 58 0a |ong outp|ut.*/.X.|
|00001300| 58 09 69 66 20 28 66 66 | 6c 67 29 0a 58 09 20 20 |X.if (ff|lg).X.  |
|00001310| 20 20 69 66 20 28 6c 66 | 6c 67 29 20 7b 0a 58 09 |  if (lf|lg) {.X.|
|00001320| 09 73 74 72 63 70 79 28 | 20 64 61 79 2c 20 20 20 |.strcpy(| day,   |
|00001330| 6a 6f 75 72 73 5b 69 64 | 61 79 5d 29 3b 0a 58 09 |jours[id|ay]);.X.|
|00001340| 09 73 74 72 63 70 79 28 | 20 6d 6f 6e 74 68 2c 20 |.strcpy(| month, |
|00001350| 6d 6f 69 73 5b 69 6d 6f | 6e 74 68 5d 29 3b 0a 58 |mois[imo|nth]);.X|
|00001360| 09 09 7d 0a 58 09 20 20 | 20 20 65 6c 73 65 20 7b |..}.X.  |  else {|
|00001370| 0a 58 09 09 73 74 72 63 | 70 79 28 20 64 61 79 2c |.X..strc|py( day,|
|00001380| 20 20 20 6a 72 73 5b 69 | 64 61 79 5d 29 3b 0a 58 |   jrs[i|day]);.X|
|00001390| 09 09 73 74 72 63 70 79 | 28 20 6d 6f 6e 74 68 2c |..strcpy|( month,|
|000013a0| 20 6d 73 5b 69 6d 6f 6e | 74 68 5d 29 3b 0a 58 09 | ms[imon|th]);.X.|
|000013b0| 20 20 20 20 7d 0a 58 09 | 65 6c 73 65 0a 58 09 20 |    }.X.|else.X. |
|000013c0| 20 20 20 69 66 20 28 6c | 66 6c 67 29 20 7b 0a 58 |   if (l|flg) {.X|
|000013d0| 09 09 73 74 72 63 70 79 | 28 20 64 61 79 2c 20 20 |..strcpy|( day,  |
|000013e0| 20 64 61 79 73 5b 69 64 | 61 79 5d 29 3b 0a 58 09 | days[id|ay]);.X.|
|000013f0| 09 73 74 72 63 70 79 28 | 20 6d 6f 6e 74 68 2c 20 |.strcpy(| month, |
|00001400| 6d 6f 6e 74 68 73 5b 69 | 6d 6f 6e 74 68 5d 29 3b |months[i|month]);|
|00001410| 0a 58 09 20 20 20 20 7d | 0a 58 0a 58 2f 2a 20 63 |.X.    }|.X.X/* c|
|00001420| 68 65 63 6b 20 6e 75 6d | 62 65 72 20 6f 66 20 61 |heck num|ber of a|
|00001430| 72 67 75 6d 65 6e 74 73 | 09 09 2a 2f 0a 58 0a 58 |rguments|..*/.X.X|
|00001440| 09 69 66 20 28 61 72 67 | 63 20 3d 3d 20 31 20 7c |.if (arg|c == 1 ||
|00001450| 7c 20 61 72 67 63 20 3e | 20 38 29 20 7b 0a 58 09 || argc >| 8) {.X.|
|00001460| 09 66 70 72 69 6e 74 66 | 28 20 73 74 64 65 72 72 |.fprintf|( stderr|
|00001470| 2c 0a 58 09 09 22 25 73 | 20 3a 20 77 72 6f 6e 67 |,.X.."%s| : wrong|
|00001480| 20 6e 75 6d 62 65 72 20 | 6f 66 20 61 72 67 75 6d | number |of argum|
|00001490| 65 6e 74 73 5c 6e 22 2c | 20 63 6f 6d 6d 61 6e 64 |ents\n",| command|
|000014a0| 29 3b 0a 58 09 09 65 78 | 69 74 28 31 29 3b 0a 58 |);.X..ex|it(1);.X|
|000014b0| 09 7d 0a 58 0a 58 09 69 | 66 20 28 61 72 67 63 29 |.}.X.X.i|f (argc)|
|000014c0| 20 7b 0a 58 0a 58 2f 2a | 20 74 72 61 6e 73 6c 61 | {.X.X/*| transla|
|000014d0| 74 65 20 43 20 63 6f 6e | 76 65 6e 74 69 6f 6e 20 |te C con|vention |
|000014e0| 6c 69 6b 65 20 5c 6e 2c | 20 5c 74 2c 20 2e 2e 2e |like \n,| \t, ...|
|000014f0| 0a 58 20 20 20 69 6e 74 | 6f 20 73 69 6e 67 6c 65 |.X   int|o single|
|00001500| 20 63 68 61 72 2e 09 09 | 09 2a 2f 0a 58 0a 58 09 | char...|.*/.X.X.|
|00001510| 20 20 20 20 66 6f 72 20 | 28 20 69 3d 30 2c 20 6a |    for |( i=0, j|
|00001520| 3d 30 3b 20 61 72 67 76 | 5b 30 5d 5b 69 5d 3b 20 |=0; argv|[0][i]; |
|00001530| 69 2b 2b 2c 20 6a 2b 2b | 29 20 7b 0a 58 09 09 66 |i++, j++|) {.X..f|
|00001540| 6f 72 6d 61 74 5b 6a 5d | 20 3d 20 61 72 67 76 5b |ormat[j]| = argv[|
|00001550| 30 5d 5b 69 5d 3b 0a 58 | 09 09 69 66 20 28 61 72 |0][i];.X|..if (ar|
|00001560| 67 76 5b 30 5d 5b 69 5d | 20 3d 3d 20 27 5c 5c 27 |gv[0][i]| == '\\'|
|00001570| 29 20 0a 58 09 09 09 73 | 77 69 74 63 68 20 28 61 |) .X...s|witch (a|
|00001580| 72 67 76 5b 30 5d 5b 2b | 2b 69 5d 29 20 7b 0a 58 |rgv[0][+|+i]) {.X|
|00001590| 0a 58 09 09 09 63 61 73 | 65 20 27 6e 27 3a 0a 58 |.X...cas|e 'n':.X|
|000015a0| 09 09 09 09 66 6f 72 6d | 61 74 5b 6a 5d 20 3d 20 |....form|at[j] = |
|000015b0| 27 5c 6e 27 3b 0a 58 09 | 09 09 09 62 72 65 61 6b |'\n';.X.|...break|
|000015c0| 3b 0a 58 0a 58 09 09 09 | 63 61 73 65 20 27 74 27 |;.X.X...|case 't'|
|000015d0| 3a 0a 58 09 09 09 09 66 | 6f 72 6d 61 74 5b 6a 5d |:.X....f|ormat[j]|
|000015e0| 20 3d 20 27 5c 74 27 3b | 0a 58 09 09 09 09 62 72 | = '\t';|.X....br|
|000015f0| 65 61 6b 3b 0a 58 0a 58 | 09 09 09 63 61 73 65 20 |eak;.X.X|...case |
|00001600| 27 62 27 3a 0a 58 09 09 | 09 09 66 6f 72 6d 61 74 |'b':.X..|..format|
|00001610| 5b 6a 5d 20 3d 20 27 5c | 62 27 3b 0a 58 09 09 09 |[j] = '\|b';.X...|
|00001620| 09 62 72 65 61 6b 3b 0a | 58 0a 58 09 09 09 63 61 |.break;.|X.X...ca|
|00001630| 73 65 20 27 72 27 3a 0a | 58 09 09 09 09 66 6f 72 |se 'r':.|X....for|
|00001640| 6d 61 74 5b 6a 5d 20 3d | 20 27 5c 72 27 3b 0a 58 |mat[j] =| '\r';.X|
|00001650| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 0a 58 09 09 |....brea|k;.X.X..|
|00001660| 09 63 61 73 65 20 27 66 | 27 3a 0a 58 09 09 09 09 |.case 'f|':.X....|
|00001670| 66 6f 72 6d 61 74 5b 6a | 5d 20 3d 20 27 5c 66 27 |format[j|] = '\f'|
|00001680| 3b 0a 58 09 09 09 09 62 | 72 65 61 6b 3b 0a 58 0a |;.X....b|reak;.X.|
|00001690| 58 09 09 09 63 61 73 65 | 20 27 5c 5c 27 3a 0a 58 |X...case| '\\':.X|
|000016a0| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 0a 58 09 09 |....brea|k;.X.X..|
|000016b0| 09 64 65 66 61 75 6c 74 | 3a 0a 58 09 09 09 09 66 |.default|:.X....f|
|000016c0| 6f 72 6d 61 74 5b 2b 2b | 6a 5d 20 3d 20 61 72 67 |ormat[++|j] = arg|
|000016d0| 76 5b 30 5d 5b 69 5d 3b | 0a 58 09 09 09 7d 0a 58 |v[0][i];|.X...}.X|
|000016e0| 09 20 20 20 20 7d 0a 58 | 09 20 20 20 20 66 6f 72 |.    }.X|.    for|
|000016f0| 6d 61 74 5b 6a 5d 20 3d | 20 27 5c 30 27 3b 0a 58 |mat[j] =| '\0';.X|
|00001700| 09 20 20 20 20 61 72 67 | 63 2d 2d 3b 20 61 72 67 |.    arg|c--; arg|
|00001710| 76 2b 2b 3b 0a 58 0a 58 | 2f 2a 20 6f 72 64 65 72 |v++;.X.X|/* order|
|00001720| 20 61 72 67 75 6d 65 6e | 74 73 09 09 09 2a 2f 0a | argumen|ts...*/.|
|00001730| 58 0a 58 09 20 20 20 20 | 66 6f 72 28 20 69 3d 30 |X.X.    |for( i=0|
|00001740| 3b 20 69 3c 37 3b 20 69 | 2b 2b 29 20 77 6f 72 64 |; i<7; i|++) word|
|00001750| 5b 69 5d 20 3d 20 27 5c | 30 27 3b 0a 58 09 20 20 |[i] = '\|0';.X.  |
|00001760| 20 20 6a 20 3d 20 30 3b | 0a 58 09 20 20 20 20 77 |  j = 0;|.X.    w|
|00001770| 68 69 6c 65 20 28 61 72 | 67 63 29 20 7b 0a 58 09 |hile (ar|gc) {.X.|
|00001780| 09 66 6f 72 28 20 69 3d | 30 3b 20 61 72 67 76 5b |.for( i=|0; argv[|
|00001790| 30 5d 5b 69 5d 3b 20 69 | 2b 2b 29 0a 58 09 09 09 |0][i]; i|++).X...|
|000017a0| 73 77 69 74 63 68 28 61 | 72 67 76 5b 30 5d 5b 69 |switch(a|rgv[0][i|
|000017b0| 5d 29 20 7b 0a 58 0a 58 | 09 09 09 63 61 73 65 20 |]) {.X.X|...case |
|000017c0| 27 64 27 3a 0a 58 09 09 | 09 63 61 73 65 20 27 6a |'d':.X..|.case 'j|
|000017d0| 27 3a 0a 58 09 09 09 09 | 77 6f 72 64 5b 6a 2b 2b |':.X....|word[j++|
|000017e0| 5d 20 3d 20 64 61 79 3b | 0a 58 09 09 09 09 62 72 |] = day;|.X....br|
|000017f0| 65 61 6b 3b 0a 58 0a 58 | 09 09 09 63 61 73 65 20 |eak;.X.X|...case |
|00001800| 27 4d 27 3a 0a 58 09 09 | 09 09 77 6f 72 64 5b 6a |'M':.X..|..word[j|
|00001810| 2b 2b 5d 20 3d 20 6d 6f | 6e 74 68 3b 0a 58 09 09 |++] = mo|nth;.X..|
|00001820| 09 09 62 72 65 61 6b 3b | 0a 58 0a 58 09 09 09 63 |..break;|.X.X...c|
|00001830| 61 73 65 20 27 44 27 3a | 0a 58 09 09 09 63 61 73 |ase 'D':|.X...cas|
|00001840| 65 20 27 4a 27 3a 0a 58 | 09 09 09 09 77 6f 72 64 |e 'J':.X|....word|
|00001850| 5b 6a 2b 2b 5d 20 3d 20 | 64 61 79 6d 6f 6e 74 68 |[j++] = |daymonth|
|00001860| 3b 0a 58 09 09 09 09 62 | 72 65 61 6b 3b 0a 58 0a |;.X....b|reak;.X.|
|00001870| 58 09 09 09 63 61 73 65 | 20 27 68 27 3a 0a 58 09 |X...case| 'h':.X.|
|00001880| 09 09 09 77 6f 72 64 5b | 6a 2b 2b 5d 20 3d 20 68 |...word[|j++] = h|
|00001890| 6f 75 72 3b 0a 58 09 09 | 09 09 62 72 65 61 6b 3b |our;.X..|..break;|
|000018a0| 0a 58 0a 58 09 09 09 63 | 61 73 65 20 27 6d 27 3a |.X.X...c|ase 'm':|
|000018b0| 0a 58 09 09 09 09 77 6f | 72 64 5b 6a 2b 2b 5d 20 |.X....wo|rd[j++] |
|000018c0| 3d 20 6d 69 6e 75 74 65 | 3b 0a 58 09 09 09 09 62 |= minute|;.X....b|
|000018d0| 72 65 61 6b 3b 0a 58 0a | 58 09 09 09 63 61 73 65 |reak;.X.|X...case|
|000018e0| 20 27 73 27 3a 0a 58 09 | 09 09 09 77 6f 72 64 5b | 's':.X.|...word[|
|000018f0| 6a 2b 2b 5d 20 3d 20 73 | 65 63 6f 6e 64 3b 0a 58 |j++] = s|econd;.X|
|00001900| 09 09 09 09 62 72 65 61 | 6b 3b 0a 58 0a 58 09 09 |....brea|k;.X.X..|
|00001910| 09 63 61 73 65 20 27 41 | 27 3a 09 0a 58 09 09 09 |.case 'A|':..X...|
|00001920| 63 61 73 65 20 27 59 27 | 3a 09 0a 58 09 09 09 09 |case 'Y'|:..X....|
|00001930| 77 6f 72 64 5b 6a 2b 2b | 5d 20 3d 20 79 65 61 72 |word[j++|] = year|
|00001940| 3b 0a 58 09 09 09 09 62 | 72 65 61 6b 3b 0a 58 0a |;.X....b|reak;.X.|
|00001950| 58 09 09 09 63 61 73 65 | 20 27 2c 27 3a 0a 58 09 |X...case| ',':.X.|
|00001960| 09 09 09 62 72 65 61 6b | 3b 0a 58 0a 58 09 09 09 |...break|;.X.X...|
|00001970| 64 65 66 61 75 6c 74 3a | 09 0a 58 09 09 09 09 66 |default:|..X....f|
|00001980| 70 72 69 6e 74 66 28 20 | 73 74 64 65 72 72 2c 0a |printf( |stderr,.|
|00001990| 58 09 09 09 09 22 25 73 | 20 3a 20 62 61 64 20 61 |X...."%s| : bad a|
|000019a0| 72 67 75 6d 65 6e 74 20 | 25 63 5c 6e 22 2c 20 63 |rgument |%c\n", c|
|000019b0| 6f 6d 6d 61 6e 64 2c 20 | 61 72 67 76 5b 30 5d 5b |ommand, |argv[0][|
|000019c0| 69 5d 29 3b 0a 58 09 09 | 09 7d 0a 58 09 09 61 72 |i]);.X..|.}.X..ar|
|000019d0| 67 63 2d 2d 3b 09 61 72 | 67 76 2b 2b 3b 0a 58 09 |gc--;.ar|gv++;.X.|
|000019e0| 20 20 20 20 7d 0a 58 0a | 58 2f 2a 20 6f 75 74 70 |    }.X.|X/* outp|
|000019f0| 75 74 20 64 61 74 65 20 | 61 63 63 6f 72 64 69 6e |ut date |accordin|
|00001a00| 67 20 74 6f 20 66 6f 72 | 6d 61 74 09 2a 2f 0a 58 |g to for|mat.*/.X|
|00001a10| 0a 58 09 20 20 20 20 70 | 72 69 6e 74 66 28 20 66 |.X.    p|rintf( f|
|00001a20| 6f 72 6d 61 74 2c 20 77 | 6f 72 64 5b 30 5d 2c 20 |ormat, w|ord[0], |
|00001a30| 77 6f 72 64 5b 31 5d 2c | 20 77 6f 72 64 5b 32 5d |word[1],| word[2]|
|00001a40| 2c 0a 58 09 09 20 20 20 | 20 77 6f 72 64 5b 33 5d |,.X..   | word[3]|
|00001a50| 2c 20 77 6f 72 64 5b 34 | 5d 2c 20 77 6f 72 64 5b |, word[4|], word[|
|00001a60| 35 5d 2c 20 77 6f 72 64 | 5b 36 5d 29 3b 0a 58 09 |5], word|[6]);.X.|
|00001a70| 20 20 20 20 7d 0a 58 0a | 58 09 65 6c 73 65 20 7b |    }.X.|X.else {|
|00001a80| 0a 58 0a 58 09 20 20 20 | 20 73 74 72 63 70 79 28 |.X.X.   | strcpy(|
|00001a90| 20 66 6f 72 6d 61 74 2c | 20 22 25 73 20 25 73 20 | format,| "%s %s |
|00001aa0| 25 73 20 25 73 20 20 20 | 25 73 3a 25 73 3a 25 73 |%s %s   |%s:%s:%s|
|00001ab0| 5c 6e 22 29 3b 0a 58 09 | 20 20 20 20 69 66 20 28 |\n");.X.|    if (|
|00001ac0| 66 66 6c 67 29 0a 58 09 | 09 70 72 69 6e 74 66 28 |fflg).X.|.printf(|
|00001ad0| 20 66 6f 72 6d 61 74 2c | 20 64 61 79 2c 20 64 61 | format,| day, da|
|00001ae0| 79 6d 6f 6e 74 68 2c 20 | 6d 6f 6e 74 68 2c 20 79 |ymonth, |month, y|
|00001af0| 65 61 72 2c 20 68 6f 75 | 72 2c 20 6d 69 6e 75 74 |ear, hou|r, minut|
|00001b00| 65 2c 20 73 65 63 6f 6e | 64 29 3b 0a 58 09 20 20 |e, secon|d);.X.  |
|00001b10| 20 20 65 6c 73 65 0a 58 | 09 09 70 72 69 6e 74 66 |  else.X|..printf|
|00001b20| 28 20 66 6f 72 6d 61 74 | 2c 20 64 61 79 2c 20 6d |( format|, day, m|
|00001b30| 6f 6e 74 68 2c 20 64 61 | 79 6d 6f 6e 74 68 2c 20 |onth, da|ymonth, |
|00001b40| 79 65 61 72 2c 20 68 6f | 75 72 2c 20 6d 69 6e 75 |year, ho|ur, minu|
|00001b50| 74 65 2c 20 73 65 63 6f | 6e 64 29 3b 0a 58 09 7d |te, seco|nd);.X.}|
|00001b60| 0a 58 7d 0a 58 0a 58 0a | 58 2f 2a 20 63 6f 70 79 |.X}.X.X.|X/* copy|
|00001b70| 20 73 74 72 69 6e 67 20 | 73 74 72 31 5b 6e 2e 2e | string |str1[n..|
|00001b80| 6d 5d 20 69 6e 74 6f 20 | 73 74 72 32 09 2a 2f 0a |m] into |str2.*/.|
|00001b90| 58 0a 58 73 75 62 73 74 | 72 63 70 79 28 20 73 74 |X.Xsubst|rcpy( st|
|00001ba0| 72 31 2c 20 6e 2c 20 6d | 2c 20 73 74 72 32 29 0a |r1, n, m|, str2).|
|00001bb0| 58 0a 58 69 6e 74 09 6e | 2c 20 6d 3b 0a 58 63 68 |X.Xint.n|, m;.Xch|
|00001bc0| 61 72 09 2a 73 74 72 31 | 2c 20 2a 73 74 72 32 3b |ar.*str1|, *str2;|
|00001bd0| 0a 58 0a 58 7b 0a 58 09 | 6d 2b 2b 3b 0a 58 09 69 |.X.X{.X.|m++;.X.i|
|00001be0| 66 20 28 20 6e 20 3e 3d | 20 30 20 26 26 20 6d 20 |f ( n >=| 0 && m |
|00001bf0| 3e 3d 20 6e 20 29 20 7b | 0a 58 09 09 77 68 69 6c |>= n ) {|.X..whil|
|00001c00| 65 28 20 6e 2d 2d 20 26 | 26 20 2a 73 74 72 31 2b |e( n-- &|& *str1+|
|00001c10| 2b 20 26 26 20 6d 2d 2d | 29 3b 0a 58 09 09 77 68 |+ && m--|);.X..wh|
|00001c20| 69 6c 65 28 20 6d 2d 2d | 20 26 26 20 28 20 2a 73 |ile( m--| && ( *s|
|00001c30| 74 72 32 2b 2b 20 3d 20 | 2a 73 74 72 31 2b 2b 20 |tr2++ = |*str1++ |
|00001c40| 29 29 3b 0a 58 09 7d 0a | 58 09 2a 73 74 72 32 3d |));.X.}.|X.*str2=|
|00001c50| 27 5c 30 27 3b 0a 58 7d | 0a 2d 2d 2d 45 4f 46 28 |'\0';.X}|.---EOF(|
|00001c60| 64 61 74 65 2e 63 29 2d | 2d 2d 0a 20 20 20 20 73 |date.c)-|--.    s|
|00001c70| 69 7a 65 3d 60 77 63 20 | 2d 63 20 64 61 74 65 2e |ize=`wc |-c date.|
|00001c80| 63 20 7c 20 61 77 6b 20 | 27 7b 70 72 69 6e 74 20 |c | awk |'{print |
|00001c90| 5c 24 31 7d 27 60 0a 20 | 20 20 20 69 66 20 5b 20 |\$1}'`. |   if [ |
|00001ca0| 34 36 33 36 20 2d 6e 65 | 20 24 73 69 7a 65 20 5d |4636 -ne| $size ]|
|00001cb0| 0a 20 20 20 20 74 68 65 | 6e 0a 20 20 20 20 20 20 |.    the|n.      |
|00001cc0| 20 20 65 63 68 6f 20 2a | 2a 2a 57 41 52 4e 49 4e |  echo *|**WARNIN|
|00001cd0| 47 20 22 27 64 61 74 65 | 2e 63 27 22 20 62 61 64 |G "'date|.c'" bad|
|00001ce0| 20 63 68 65 63 6b 73 75 | 6d 0a 20 20 20 20 66 69 | checksu|m.    fi|
|00001cf0| 0a 66 69 0a 2d 2d 2d 38 | 3c 2d 2d 2d 2d 2d 2d 2d |.fi.---8|<-------|
|00001d00| 43 55 54 2d 2d 48 45 52 | 45 2d 2d 2d 2d 2d 2d 38 |CUT--HER|E------8|
|00001d10| 3c 2d 2d 2d 2d 2d 2d 2d | 43 55 54 2d 2d 48 45 52 |<-------|CUT--HER|
|00001d20| 45 2d 2d 2d 2d 2d 2d 2d | 38 3c 2d 2d 2d 2d 2d 2d |E-------|8<------|
|00001d30| 2d 43 55 54 2d 2d 48 45 | 52 45 2d 2d 2d 2d 2d 2d |-CUT--HE|RE------|
|00001d40| 38 3c 2d 0a 09 41 6e 64 | 72 65 20 44 49 44 45 4c |8<-..And|re DIDEL|
|00001d50| 4f 54 09 09 09 09 43 48 | 55 4e 45 54 3a 20 61 6e |OT....CH|UNET: an|
|00001d60| 64 72 65 40 63 75 69 2e | 75 6e 69 67 65 2e 63 68 |dre@cui.|unige.ch|
|00001d70| 75 6e 65 74 0a 0a 4d 41 | 49 4c 3a 09 43 65 6e 74 |unet..MA|IL:.Cent|
|00001d80| 72 65 20 55 6e 69 76 65 | 72 73 69 74 61 69 72 65 |re Unive|rsitaire|
|00001d90| 20 64 27 49 6e 66 6f 72 | 6d 61 74 69 71 75 65 09 | d'Infor|matique.|
|00001da0| 55 55 43 50 3a 09 6d 63 | 76 61 78 21 63 65 72 6e |UUCP:.mc|vax!cern|
|00001db0| 76 61 78 21 63 75 69 21 | 61 6e 64 72 65 0a 09 55 |vax!cui!|andre..U|
|00001dc0| 6e 69 76 65 72 73 69 74 | 65 20 64 65 20 47 65 6e |niversit|e de Gen|
|00001dd0| 65 76 65 09 09 09 09 6d | 63 76 61 78 21 63 65 72 |eve....m|cvax!cer|
|00001de0| 6e 76 61 78 21 63 75 69 | 21 72 6f 6f 74 0a 09 52 |nvax!cui|!root..R|
|00001df0| 75 65 20 64 75 20 47 65 | 6e 65 72 61 6c 20 44 75 |ue du Ge|neral Du|
|00001e00| 66 6f 75 72 20 32 34 0a | 09 43 48 20 2d 20 31 32 |four 24.|.CH - 12|
|00001e10| 31 31 20 47 45 4e 45 56 | 45 20 34 09 09 09 42 49 |11 GENEV|E 4...BI|
|00001e20| 54 4e 45 54 3a 20 44 49 | 44 45 4c 4f 54 40 43 47 |TNET: DI|DELOT@CG|
|00001e30| 45 55 47 45 35 31 0a 09 | 53 57 49 54 5a 45 52 4c |EUGE51..|SWITZERL|
|00001e40| 41 4e 44 09 09 09 09 09 | 53 59 53 54 45 4d 40 43 |AND.....|SYSTEM@C|
|00001e50| 47 45 55 47 45 35 31 0a | 0a 0a                   |GEUGE51.|..      |
+--------+-------------------------+-------------------------+--------+--------+