/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / net / date

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 74 61 79 | 6c 6f 72 40 68 70 6c 61 |From tay|lor@hpla|
|00000010| 62 73 63 2e 55 55 43 50 | 20 54 75 65 20 4a 61 6e |bsc.UUCP| Tue Jan|
|00000020| 20 20 36 20 30 30 3a 32 | 37 3a 34 38 20 31 39 38 |  6 00:2|7:48 198|
|00000030| 37 0a 50 61 74 68 3a 20 | 62 65 6e 6f 21 73 65 69 |7.Path: |beno!sei|
|00000040| 73 6d 6f 21 62 72 6c 2d | 61 64 6d 21 72 75 74 67 |smo!brl-|adm!rutg|
|00000050| 65 72 73 21 73 72 69 2d | 75 6e 69 78 21 68 70 6c |ers!sri-|unix!hpl|
|00000060| 61 62 73 21 68 70 6c 61 | 62 73 63 21 74 61 79 6c |abs!hpla|bsc!tayl|
|00000070| 6f 72 0a 46 72 6f 6d 3a | 20 74 61 79 6c 6f 72 40 |or.From:| taylor@|
|00000080| 68 70 6c 61 62 73 63 2e | 55 55 43 50 20 28 44 61 |hplabsc.|UUCP (Da|
|00000090| 76 65 20 54 61 79 6c 6f | 72 29 0a 4e 65 77 73 67 |ve Taylo|r).Newsg|
|000000a0| 72 6f 75 70 73 3a 20 6e | 65 74 2e 73 6f 75 72 63 |roups: n|et.sourc|
|000000b0| 65 73 0a 53 75 62 6a 65 | 63 74 3a 20 4e 65 77 20 |es.Subje|ct: New |
|000000c0| 44 61 74 65 20 50 72 6f | 67 72 61 6d 2e 2e 2e 0a |Date Pro|gram....|
|000000d0| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 39 35 34 |Message-|ID: <954|
|000000e0| 40 68 70 6c 61 62 73 63 | 2e 55 55 43 50 3e 0a 44 |@hplabsc|.UUCP>.D|
|000000f0| 61 74 65 3a 20 36 20 4a | 61 6e 20 38 37 20 30 35 |ate: 6 J|an 87 05|
|00000100| 3a 32 37 3a 34 38 20 47 | 4d 54 0a 52 65 70 6c 79 |:27:48 G|MT.Reply|
|00000110| 2d 54 6f 3a 20 74 61 79 | 6c 6f 72 40 68 70 6c 61 |-To: tay|lor@hpla|
|00000120| 62 73 63 2e 55 55 43 50 | 20 28 44 61 76 65 20 54 |bsc.UUCP| (Dave T|
|00000130| 61 79 6c 6f 72 29 0a 4f | 72 67 61 6e 69 7a 61 74 |aylor).O|rganizat|
|00000140| 69 6f 6e 3a 20 48 65 77 | 6c 65 74 74 2d 50 61 63 |ion: Hew|lett-Pac|
|00000150| 6b 61 72 64 20 4c 61 62 | 73 2c 20 50 61 6c 6f 20 |kard Lab|s, Palo |
|00000160| 41 6c 74 6f 2c 20 43 41 | 0a 4c 69 6e 65 73 3a 20 |Alto, CA|.Lines: |
|00000170| 33 33 30 0a 0a 53 6f 20 | 74 68 65 72 65 20 49 20 |330..So |there I |
|00000180| 77 61 73 20 61 66 74 65 | 72 20 68 61 76 69 6e 67 |was afte|r having|
|00000190| 20 75 73 65 64 20 74 68 | 65 20 64 61 74 65 28 31 | used th|e date(1|
|000001a0| 29 20 63 6f 6d 6d 61 6e | 64 20 6f 6e 20 48 50 2d |) comman|d on HP-|
|000001b0| 55 58 20 28 53 79 73 74 | 65 6d 20 56 0a 77 69 74 |UX (Syst|em V.wit|
|000001c0| 68 20 73 6f 6d 65 20 6e | 65 61 74 20 65 6e 68 61 |h some n|eat enha|
|000001d0| 6e 63 65 6d 65 6e 74 73 | 2c 20 65 74 63 20 65 74 |ncements|, etc et|
|000001e0| 63 29 20 61 6e 64 20 49 | 20 67 6f 74 20 6f 6e 74 |c) and I| got ont|
|000001f0| 6f 20 61 20 56 61 78 20 | 72 75 6e 6e 69 6e 67 20 |o a Vax |running |
|00000200| 42 53 44 0a 55 6e 69 78 | 2e 20 20 57 65 6c 6c 21 |BSD.Unix|.  Well!|
|00000210| 20 20 54 68 65 20 64 61 | 74 65 28 31 29 20 63 6f |  The da|te(1) co|
|00000220| 6d 6d 61 6e 64 20 6f 6e | 20 42 53 44 20 64 6f 65 |mmand on| BSD doe|
|00000230| 73 6e 27 74 20 68 61 76 | 65 20 61 6c 6c 20 74 68 |sn't hav|e all th|
|00000240| 65 20 6e 65 61 74 0a 66 | 75 6e 63 74 69 6f 6e 61 |e neat.f|unctiona|
|00000250| 6c 69 74 79 20 74 68 61 | 74 20 74 68 65 20 48 50 |lity tha|t the HP|
|00000260| 2d 55 58 20 6f 6e 65 20 | 68 61 73 2c 20 73 6f 20 |-UX one |has, so |
|00000270| 49 20 72 65 77 72 6f 74 | 65 20 74 68 65 20 42 53 |I rewrot|e the BS|
|00000280| 44 20 64 61 74 65 20 63 | 6f 6d 6d 61 6e 64 21 0a |D date c|ommand!.|
|00000290| 57 68 61 74 20 66 6f 6c | 6c 6f 77 73 20 69 73 20 |What fol|lows is |
|000002a0| 61 20 2a 6e 6f 6e 73 68 | 61 72 2a 20 28 74 6f 6f |a *nonsh|ar* (too|
|000002b0| 20 6c 61 7a 79 29 20 74 | 68 61 74 20 63 6f 6e 74 | lazy) t|hat cont|
|000002c0| 61 69 6e 73 20 74 68 65 | 20 22 43 22 20 73 6f 75 |ains the| "C" sou|
|000002d0| 72 63 65 20 74 6f 0a 74 | 68 65 20 6e 65 77 64 61 |rce to.t|he newda|
|000002e0| 74 65 20 70 72 6f 67 72 | 61 6d 20 61 6e 64 20 74 |te progr|am and t|
|000002f0| 68 65 20 6d 61 6e 20 65 | 6e 74 72 79 20 74 6f 6f |he man e|ntry too|
|00000300| 2e 0a 0a 54 68 65 20 65 | 6e 68 61 6e 63 65 6d 65 |...The e|nhanceme|
|00000310| 6e 74 20 69 73 20 74 68 | 61 74 20 74 68 65 20 75 |nt is th|at the u|
|00000320| 73 65 72 20 63 61 6e 20 | 6e 6f 77 20 73 70 65 63 |ser can |now spec|
|00000330| 69 66 79 20 65 78 61 63 | 74 6c 79 20 77 68 61 74 |ify exac|tly what|
|00000340| 20 74 68 65 0a 6f 75 74 | 70 75 74 20 66 6f 72 6d | the.out|put form|
|00000350| 61 74 20 69 73 20 74 6f | 20 6c 6f 6f 6b 20 6c 69 |at is to| look li|
|00000360| 6b 65 2e 20 20 59 6f 75 | 20 63 61 6e 20 6e 6f 77 |ke.  You| can now|
|00000370| 20 68 61 76 65 20 27 64 | 61 74 65 27 20 6f 75 74 | have 'd|ate' out|
|00000380| 70 75 74 20 61 0a 66 6f | 72 6d 61 74 20 6c 69 6b |put a.fo|rmat lik|
|00000390| 65 20 22 54 6f 64 61 79 | 20 69 73 20 46 72 69 64 |e "Today| is Frid|
|000003a0| 61 79 2c 20 44 65 63 65 | 6d 62 65 72 20 31 32 2c |ay, Dece|mber 12,|
|000003b0| 20 31 39 38 36 20 61 74 | 20 34 3a 35 30 20 70 6d | 1986 at| 4:50 pm|
|000003c0| 22 20 72 61 74 68 65 72 | 0a 74 68 61 6e 20 74 68 |" rather|.than th|
|000003d0| 65 20 6f 6c 64 2c 20 62 | 6f 72 69 6e 67 20 73 74 |e old, b|oring st|
|000003e0| 75 66 66 2e 20 20 4e 65 | 61 74 2c 20 65 68 3f 0a |uff.  Ne|at, eh?.|
|000003f0| 0a 54 68 69 73 20 68 61 | 73 20 62 65 65 6e 20 65 |.This ha|s been e|
|00000400| 6e 68 61 6e 63 65 64 20 | 74 6f 6f 20 2d 20 49 27 |nhanced |too - I'|
|00000410| 76 65 20 61 64 64 65 64 | 20 28 61 6d 6f 6e 67 20 |ve added| (among |
|00000420| 6f 74 68 65 72 73 29 20 | 25 7a 20 74 6f 20 6f 75 |others) |%z to ou|
|00000430| 74 70 75 74 20 74 68 65 | 0a 63 75 72 72 65 6e 74 |tput the|.current|
|00000440| 20 74 69 6d 65 7a 6f 6e | 65 2c 20 73 6f 20 65 76 | timezon|e, so ev|
|00000450| 65 6e 20 79 6f 75 20 73 | 79 73 74 65 6d 20 56 20 |en you s|ystem V |
|00000460| 75 73 65 72 73 20 73 68 | 6f 75 6c 64 20 62 65 20 |users sh|ould be |
|00000470| 69 6e 74 65 72 65 73 74 | 65 64 21 0a 0a 42 75 67 |interest|ed!..Bug|
|00000480| 73 2c 20 65 74 63 2c 20 | 74 6f 20 63 6f 6d 70 2e |s, etc, |to comp.|
|00000490| 73 6f 75 72 63 65 73 2e | 64 20 70 6c 65 61 73 65 |sources.|d please|
|000004a0| 2e 0a 0a 09 09 09 09 09 | 09 2d 2d 20 44 61 76 65 |........|.-- Dave|
|000004b0| 20 54 61 79 6c 6f 72 0a | 09 09 09 09 09 09 74 61 | Taylor.|......ta|
|000004c0| 79 6c 6f 72 40 68 70 6c | 61 62 73 2e 48 50 2e 43 |ylor@hpl|abs.HP.C|
|000004d0| 4f 4d 0a 0a 2d 2d 20 61 | 74 74 61 63 68 6d 65 6e |OM..-- a|ttachmen|
|000004e0| 74 3a 20 73 68 61 72 20 | 66 69 6c 65 73 2e 2e 0a |t: shar |files...|
|000004f0| 0a 23 20 53 68 65 6c 6c | 20 41 72 63 68 69 76 65 |.# Shell| Archive|
|00000500| 20 63 72 65 61 74 65 64 | 20 62 79 20 68 70 6c 64 | created| by hpld|
|00000510| 61 74 21 74 61 79 6c 6f | 72 20 61 74 20 4d 6f 6e |at!taylo|r at Mon|
|00000520| 20 4a 61 6e 20 20 35 20 | 32 31 3a 33 33 3a 31 32 | Jan  5 |21:33:12|
|00000530| 20 31 39 38 37 0a 0a 23 | 20 54 6f 20 75 6e 70 61 | 1987..#| To unpa|
|00000540| 63 6b 20 74 68 65 20 65 | 6e 63 6c 6f 73 65 64 20 |ck the e|nclosed |
|00000550| 66 69 6c 65 73 2c 20 70 | 6c 65 61 73 65 20 75 73 |files, p|lease us|
|00000560| 65 20 74 68 69 73 20 66 | 69 6c 65 20 61 73 20 69 |e this f|ile as i|
|00000570| 6e 70 75 74 20 74 6f 20 | 74 68 65 0a 23 20 42 6f |nput to |the.# Bo|
|00000580| 75 72 6e 65 20 28 73 68 | 29 20 73 68 65 6c 6c 2e |urne (sh|) shell.|
|00000590| 20 20 54 68 69 73 20 63 | 61 6e 20 62 65 20 6d 6f |  This c|an be mo|
|000005a0| 73 74 20 65 61 73 69 6c | 79 20 64 6f 6e 65 20 62 |st easil|y done b|
|000005b0| 79 20 74 68 65 20 63 6f | 6d 6d 61 6e 64 3b 0a 23 |y the co|mmand;.#|
|000005c0| 20 20 20 20 20 73 68 20 | 3c 20 74 68 69 73 66 69 |     sh |< thisfi|
|000005d0| 6c 65 6e 61 6d 65 0a 0a | 23 20 54 68 69 73 20 61 |lename..|# This a|
|000005e0| 72 63 68 69 76 65 20 63 | 6f 6e 74 61 69 6e 73 3b |rchive c|ontains;|
|000005f0| 0a 23 20 20 6e 65 77 64 | 61 74 65 2e 31 20 20 20 |.#  newd|ate.1   |
|00000600| 20 20 20 20 20 6e 65 77 | 64 61 74 65 2e 63 0a 0a |     new|date.c..|
|00000610| 23 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 66 69 6c |# ------|---- fil|
|00000620| 65 20 6e 65 77 64 61 74 | 65 2e 31 20 2d 2d 2d 2d |e newdat|e.1 ----|
|00000630| 2d 2d 2d 2d 2d 2d 0a 0a | 66 69 6c 65 6e 61 6d 65 |------..|filename|
|00000640| 3d 22 6e 65 77 64 61 74 | 65 2e 31 22 0a 0a 69 66 |="newdat|e.1"..if|
|00000650| 20 5b 20 2d 66 20 24 66 | 69 6c 65 6e 61 6d 65 20 | [ -f $f|ilename |
|00000660| 5d 0a 74 68 65 6e 0a 20 | 20 65 63 68 6f 20 46 69 |].then. | echo Fi|
|00000670| 6c 65 20 5c 22 24 66 69 | 6c 65 6e 61 6d 65 5c 22 |le \"$fi|lename\"|
|00000680| 20 61 6c 72 65 61 64 79 | 20 65 78 69 73 74 73 5c | already| exists\|
|00000690| 21 20 20 53 6b 69 70 70 | 69 6e 67 2e 2e 2e 0a 20 |!  Skipp|ing.... |
|000006a0| 20 66 69 6c 65 6e 61 6d | 65 3d 2f 64 65 76 2f 6e | filenam|e=/dev/n|
|000006b0| 75 6c 6c 09 09 23 20 74 | 68 72 6f 77 20 69 74 20 |ull..# t|hrow it |
|000006c0| 61 77 61 79 0a 65 6c 73 | 65 0a 20 20 65 63 68 6f |away.els|e.  echo|
|000006d0| 20 65 78 74 72 61 63 74 | 69 6e 67 20 66 69 6c 65 | extract|ing file|
|000006e0| 20 6e 65 77 64 61 74 65 | 2e 31 2e 2e 2e 0a 66 69 | newdate|.1....fi|
|000006f0| 0a 0a 63 61 74 20 3c 3c | 20 27 45 4e 44 2d 4f 46 |..cat <<| 'END-OF|
|00000700| 2d 46 49 4c 45 27 20 3e | 20 24 66 69 6c 65 6e 61 |-FILE' >| $filena|
|00000710| 6d 65 0a 2e 54 48 20 4e | 45 57 44 41 54 45 20 31 |me..TH N|EWDATE 1|
|00000720| 20 4c 4f 43 41 4c 0a 2e | 55 43 20 34 0a 2e 53 48 | LOCAL..|UC 4..SH|
|00000730| 20 4e 41 4d 45 0a 6e 65 | 77 64 61 74 65 20 5c 2d | NAME.ne|wdate \-|
|00000740| 20 65 6e 68 61 6e 63 65 | 64 20 76 65 72 73 69 6f | enhance|d versio|
|00000750| 6e 20 6f 66 20 64 61 74 | 65 28 31 29 0a 2e 53 48 |n of dat|e(1)..SH|
|00000760| 20 53 59 4e 4f 50 53 49 | 53 0a 2e 42 20 6e 65 77 | SYNOPSI|S..B new|
|00000770| 64 61 74 65 0a 2e 52 42 | 20 22 5b 20 79 79 6d 6d |date..RB| "[ yymm|
|00000780| 64 64 68 68 6d 6d 20 5b | 20 22 20 2e 20 22 73 73 |ddhhmm [| " . "ss|
|00000790| 20 5d 20 5d 22 0a 2e 62 | 72 0a 2e 42 20 6e 65 77 | ] ]"..b|r..B new|
|000007a0| 64 61 74 65 0a 2e 52 42 | 20 22 2b 66 6f 72 6d 61 |date..RB| "+forma|
|000007b0| 74 5f 73 74 61 74 65 6d | 65 6e 74 22 0a 2e 53 48 |t_statem|ent"..SH|
|000007c0| 20 44 45 53 43 52 49 50 | 54 49 4f 4e 0a 49 66 20 | DESCRIP|TION.If |
|000007d0| 6e 6f 20 61 72 67 75 6d | 65 6e 74 73 20 61 72 65 |no argum|ents are|
|000007e0| 20 67 69 76 65 6e 2c 20 | 6f 72 20 74 68 65 20 66 | given, |or the f|
|000007f0| 69 72 73 74 20 61 72 67 | 75 6d 65 6e 74 20 64 6f |irst arg|ument do|
|00000800| 65 73 6e 27 74 20 73 74 | 61 72 74 0a 77 69 74 68 |esn't st|art.with|
|00000810| 20 61 20 60 2b 27 20 63 | 68 61 72 61 63 74 65 72 | a `+' c|haracter|
|00000820| 2c 20 74 68 65 20 73 74 | 61 6e 64 61 72 64 20 0a |, the st|andard .|
|00000830| 2e 49 20 64 61 74 65 28 | 31 29 0a 70 72 6f 67 72 |.I date(|1).progr|
|00000840| 61 6d 20 69 73 20 69 6e | 76 6f 6b 65 64 2e 20 20 |am is in|voked.  |
|00000850| 0a 2e 73 70 0a 49 66 20 | 74 68 65 20 61 72 67 75 |..sp.If |the argu|
|00000860| 6d 65 6e 74 20 62 65 67 | 69 6e 73 20 77 69 74 68 |ment beg|ins with|
|00000870| 20 61 20 60 2b 27 20 73 | 69 67 6e 2c 20 74 68 65 | a `+' s|ign, the|
|00000880| 6e 20 69 74 20 69 73 20 | 69 6e 74 65 72 70 72 65 |n it is |interpre|
|00000890| 74 65 64 0a 61 73 20 66 | 6f 6c 6c 6f 77 73 3a 0a |ted.as f|ollows:.|
|000008a0| 2e 6e 66 0a 0a 09 25 6e | 09 63 61 72 72 69 61 67 |.nf...%n|.carriag|
|000008b0| 65 20 72 65 74 75 72 6e | 0a 09 25 74 09 74 61 62 |e return|..%t.tab|
|000008c0| 0a 09 25 25 09 70 65 72 | 63 65 6e 74 20 73 69 67 |..%%.per|cent sig|
|000008d0| 6e 0a 09 0a 09 25 41 09 | 6e 61 6d 65 20 6f 66 20 |n....%A.|name of |
|000008e0| 74 68 65 20 64 61 79 20 | 6f 66 20 74 68 65 20 77 |the day |of the w|
|000008f0| 65 65 6b 0a 09 25 44 09 | 64 61 74 65 20 69 6e 20 |eek..%D.|date in |
|00000900| 4d 4d 2f 44 44 2f 59 59 | 20 66 6f 72 6d 61 74 0a |MM/DD/YY| format.|
|00000910| 09 25 48 09 68 6f 75 72 | 20 28 30 2d 32 33 29 0a |.%H.hour| (0-23).|
|00000920| 09 25 4d 09 6d 69 6e 75 | 74 65 20 28 30 2d 35 39 |.%M.minu|te (0-59|
|00000930| 29 0a 09 25 4e 09 6e 61 | 6d 65 20 6f 66 20 74 68 |)..%N.na|me of th|
|00000940| 65 20 6d 6f 6e 74 68 0a | 09 25 53 09 73 65 63 6f |e month.|.%S.seco|
|00000950| 6e 64 20 28 30 2d 35 39 | 29 0a 09 25 54 09 74 69 |nd (0-59|)..%T.ti|
|00000960| 6d 65 20 61 73 20 48 48 | 3a 4d 4d 3a 53 53 0a 09 |me as HH|:MM:SS..|
|00000970| 25 61 09 61 62 62 72 65 | 76 69 61 74 65 64 20 6e |%a.abbre|viated n|
|00000980| 61 6d 65 20 6f 66 20 74 | 68 65 20 64 61 79 20 6f |ame of t|he day o|
|00000990| 66 20 74 68 65 20 77 65 | 65 6b 0a 09 25 64 09 64 |f the we|ek..%d.d|
|000009a0| 61 79 20 6f 66 20 6d 6f | 6e 74 68 20 28 30 2d 33 |ay of mo|nth (0-3|
|000009b0| 31 29 0a 09 25 68 09 61 | 62 62 72 65 76 69 61 74 |1)..%h.a|bbreviat|
|000009c0| 65 64 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 6d |ed name |of the m|
|000009d0| 6f 6e 74 68 0a 09 25 6a | 09 4a 75 6c 69 61 6e 20 |onth..%j|.Julian |
|000009e0| 64 61 74 65 20 28 30 2d | 33 36 34 29 0a 09 25 6d |date (0-|364)..%m|
|000009f0| 09 6d 6f 6e 74 68 20 6e | 75 6d 62 65 72 20 28 30 |.month n|umber (0|
|00000a00| 2d 31 31 29 0a 09 25 72 | 09 74 69 6d 65 20 61 73 |-11)..%r|.time as|
|00000a10| 20 48 48 3a 4d 4d 20 61 | 6d 2f 70 6d 0a 09 25 77 | HH:MM a|m/pm..%w|
|00000a20| 09 64 61 79 20 6f 66 20 | 77 65 65 6b 20 28 30 2d |.day of |week (0-|
|00000a30| 36 2c 20 30 3d 53 75 6e | 64 61 79 29 0a 09 25 79 |6, 0=Sun|day)..%y|
|00000a40| 09 79 65 61 72 20 2d 20 | 31 39 30 30 20 20 28 30 |.year - |1900  (0|
|00000a50| 2d 39 39 29 0a 09 25 7a | 09 74 69 6d 65 20 7a 6f |-99)..%z|.time zo|
|00000a60| 6e 65 20 6e 61 6d 65 0a | 0a 2e 66 69 0a 61 6e 79 |ne name.|..fi.any|
|00000a70| 20 6f 74 68 65 72 20 63 | 68 61 72 61 63 74 65 72 | other c|haracter|
|00000a80| 73 20 65 6e 63 6f 75 6e | 74 65 72 65 64 20 69 6e |s encoun|tered in|
|00000a90| 20 74 68 65 20 66 6f 72 | 6d 61 74 20 69 6e 73 74 | the for|mat inst|
|00000aa0| 72 75 63 74 69 6f 6e 0a | 28 77 68 69 63 68 20 6d |ruction.|(which m|
|00000ab0| 75 73 74 20 73 74 61 72 | 74 20 77 69 74 68 20 74 |ust star|t with t|
|00000ac0| 68 65 20 60 2b 27 20 63 | 68 61 72 61 63 74 65 72 |he `+' c|haracter|
|00000ad0| 29 20 61 72 65 20 63 6f | 70 69 65 64 20 61 73 0a |) are co|pied as.|
|00000ae0| 69 73 20 74 6f 20 74 68 | 65 20 6f 75 74 70 75 74 |is to th|e output|
|00000af0| 2e 0a 2e 53 48 20 45 58 | 41 4d 50 4c 45 0a 41 20 |...SH EX|AMPLE.A |
|00000b00| 6e 69 63 65 20 64 61 74 | 65 20 66 6f 72 6d 61 74 |nice dat|e format|
|00000b10| 20 63 61 6e 20 62 65 20 | 6f 62 74 61 69 6e 65 64 | can be |obtained|
|00000b20| 20 62 79 20 75 73 69 6e | 67 0a 2e 6e 66 0a 0a 20 | by usin|g..nf.. |
|00000b30| 20 5c 66 49 6e 65 77 64 | 61 74 65 20 22 2b 54 6f | \fInewd|ate "+To|
|00000b40| 64 61 79 20 69 73 20 25 | 41 2c 20 25 4e 20 31 39 |day is %|A, %N 19|
|00000b50| 25 64 2c 20 25 79 20 61 | 74 20 25 72 27 22 5c 66 |%d, %y a|t %r'"\f|
|00000b60| 52 0a 0a 2e 66 69 0a 77 | 68 69 63 68 20 72 65 73 |R...fi.w|hich res|
|00000b70| 75 6c 74 73 20 69 6e 20 | 6f 75 74 70 75 74 20 6c |ults in |output l|
|00000b80| 69 6b 65 0a 2e 6e 66 0a | 0a 20 20 5c 66 49 54 6f |ike..nf.|.  \fITo|
|00000b90| 64 61 79 20 69 73 20 46 | 72 69 64 61 79 2c 20 44 |day is F|riday, D|
|00000ba0| 65 63 65 6d 62 65 72 20 | 31 32 2c 20 31 39 38 36 |ecember |12, 1986|
|00000bb0| 20 61 74 20 31 31 3a 30 | 32 20 70 6d 5c 66 52 0a | at 11:0|2 pm\fR.|
|00000bc0| 0a 2e 73 70 0a 41 6e 6f | 74 68 65 72 20 69 6e 74 |..sp.Ano|ther int|
|00000bd0| 65 72 65 73 74 69 6e 67 | 20 65 78 61 6d 70 6c 65 |eresting| example|
|00000be0| 20 69 73 20 74 6f 20 75 | 73 65 0a 2e 6e 66 0a 0a | is to u|se..nf..|
|00000bf0| 20 20 5c 66 49 6e 65 77 | 64 61 74 65 20 2b 44 61 |  \fInew|date +Da|
|00000c00| 74 65 3a 20 25 61 20 25 | 68 20 25 64 2c 20 25 79 |te: %a %|h %d, %y|
|00000c10| 20 25 54 20 25 7a 5c 66 | 52 0a 0a 2e 66 69 0a 74 | %T %z\f|R...fi.t|
|00000c20| 6f 20 67 65 74 20 74 68 | 65 20 73 74 61 6e 64 61 |o get th|e standa|
|00000c30| 72 64 20 6d 61 69 6c 20 | 68 65 61 64 65 72 20 6c |rd mail |header l|
|00000c40| 69 6e 65 3a 0a 2e 6e 66 | 0a 0a 20 20 5c 66 49 44 |ine:..nf|..  \fID|
|00000c50| 61 74 65 3a 20 46 72 69 | 20 44 65 63 20 31 32 2c |ate: Fri| Dec 12,|
|00000c60| 20 38 36 20 32 33 3a 30 | 35 3a 34 30 20 50 53 54 | 86 23:0|5:40 PST|
|00000c70| 5c 66 52 0a 0a 2e 66 69 | 0a 2e 53 48 20 46 49 4c |\fR...fi|..SH FIL|
|00000c80| 45 53 0a 2f 62 69 6e 2f | 64 61 74 65 20 66 6f 72 |ES./bin/|date for|
|00000c90| 20 63 61 6c 6c 73 20 74 | 6f 20 74 68 65 20 60 60 | calls t|o the ``|
|00000ca0| 72 65 61 6c 27 27 20 64 | 61 74 65 20 70 72 6f 67 |real'' d|ate prog|
|00000cb0| 72 61 6d 2e 0a 2e 53 48 | 20 53 45 45 20 41 4c 53 |ram...SH| SEE ALS|
|00000cc0| 4f 0a 64 61 74 65 28 31 | 29 0a 2e 53 48 20 41 55 |O.date(1|)..SH AU|
|00000cd0| 54 48 4f 52 0a 44 61 76 | 65 20 54 61 79 6c 6f 72 |THOR.Dav|e Taylor|
|00000ce0| 2c 20 48 65 77 6c 65 74 | 74 2d 50 61 63 6b 61 72 |, Hewlet|t-Packar|
|00000cf0| 64 20 4c 61 62 73 0a 2e | 53 48 20 43 4f 4d 50 41 |d Labs..|SH COMPA|
|00000d00| 54 41 42 49 4c 49 54 59 | 0a 54 68 69 73 20 70 72 |TABILITY|.This pr|
|00000d10| 6f 67 72 61 6d 20 69 6d | 70 6c 65 6d 65 6e 74 73 |ogram im|plements|
|00000d20| 20 74 68 65 20 53 79 73 | 74 65 6d 20 56 20 0a 2e | the Sys|tem V ..|
|00000d30| 49 20 64 61 74 65 28 31 | 29 0a 63 6f 6d 6d 61 6e |I date(1|).comman|
|00000d40| 64 20 77 69 74 68 20 74 | 68 72 65 65 20 6e 65 77 |d with t|hree new|
|00000d50| 20 28 61 6e 64 20 75 73 | 65 66 75 6c 29 20 61 64 | (and us|eful) ad|
|00000d60| 64 69 74 69 6f 6e 73 2c | 0a 6e 61 6d 65 6c 79 20 |ditions,|.namely |
|00000d70| 74 68 65 20 27 25 41 27 | 20 28 66 75 6c 6c 20 64 |the '%A'| (full d|
|00000d80| 61 79 20 6e 61 6d 65 29 | 20 27 25 4e 27 20 28 66 |ay name)| '%N' (f|
|00000d90| 75 6c 6c 20 6d 6f 6e 74 | 68 20 6e 61 6d 65 29 0a |ull mont|h name).|
|00000da0| 61 6e 64 20 27 25 7a 27 | 20 28 74 69 6d 65 20 7a |and '%z'| (time z|
|00000db0| 6f 6e 65 20 6e 61 6d 65 | 29 2e 0a 2e 53 48 20 43 |one name|)...SH C|
|00000dc0| 4f 4d 4d 45 4e 54 53 0a | 53 69 6e 63 65 20 74 68 |OMMENTS.|Since th|
|00000dd0| 69 73 20 70 72 6f 67 72 | 61 6d 20 63 61 6c 6c 73 |is progr|am calls|
|00000de0| 20 0a 2e 49 20 2f 62 69 | 6e 2f 64 61 74 65 0a 66 | ..I /bi|n/date.f|
|00000df0| 6f 72 20 61 6c 6c 20 61 | 72 67 75 6d 65 6e 74 73 |or all a|rguments|
|00000e00| 20 6f 74 68 65 72 20 74 | 68 61 6e 20 74 68 6f 73 | other t|han thos|
|00000e10| 65 20 73 74 61 72 74 69 | 6e 67 20 77 69 74 68 20 |e starti|ng with |
|00000e20| 61 20 60 2b 27 2c 0a 69 | 74 20 69 73 20 65 78 70 |a `+',.i|t is exp|
|00000e30| 65 63 74 65 64 20 74 68 | 61 74 20 74 68 69 73 20 |ected th|at this |
|00000e40| 63 61 6e 20 62 65 20 63 | 61 6c 6c 65 64 20 60 60 |can be c|alled ``|
|00000e50| 64 61 74 65 27 27 20 61 | 6e 64 20 62 65 0a 70 6c |date'' a|nd be.pl|
|00000e60| 61 63 65 64 20 73 6f 6d | 65 77 68 65 72 65 20 69 |aced som|ewhere i|
|00000e70| 6e 20 74 68 65 20 75 73 | 65 72 73 20 70 61 74 68 |n the us|ers path|
|00000e80| 20 73 6f 20 74 68 61 74 | 20 74 68 69 73 20 69 73 | so that| this is|
|00000e90| 20 74 68 65 0a 64 65 66 | 61 75 6c 74 20 70 72 6f | the.def|ault pro|
|00000ea0| 67 72 61 6d 20 66 6f 72 | 20 63 61 6c 6c 73 20 74 |gram for| calls t|
|00000eb0| 6f 20 0a 2e 49 20 64 61 | 74 65 28 31 29 2e 0a 2e |o ..I da|te(1)...|
|00000ec0| 73 70 0a 54 68 65 20 6e | 6f 74 61 74 69 6f 6e 20 |sp.The n|otation |
|00000ed0| 69 73 20 72 65 61 6c 6c | 79 20 64 69 73 67 75 73 |is reall|y disgus|
|00000ee0| 74 69 6e 67 2c 20 62 75 | 74 20 49 27 6d 20 6a 75 |ting, bu|t I'm ju|
|00000ef0| 73 74 20 69 6d 70 6c 65 | 6d 65 6e 74 69 6e 67 0a |st imple|menting.|
|00000f00| 77 68 61 74 20 77 61 73 | 20 63 72 65 61 74 65 64 |what was| created|
|00000f10| 20 6f 6e 20 53 79 73 74 | 65 6d 20 56 2e 20 20 49 | on Syst|em V.  I|
|00000f20| 20 73 75 70 70 6f 73 65 | 20 74 68 65 20 63 6f 72 | suppose| the cor|
|00000f30| 72 65 63 74 20 77 61 79 | 20 74 6f 0a 70 68 72 61 |rect way| to.phra|
|00000f40| 73 65 20 74 68 69 73 20 | 69 73 20 60 60 69 74 27 |se this |is ``it'|
|00000f50| 73 20 63 6f 6d 70 61 74 | 69 62 6c 65 21 27 27 2c |s compat|ible!'',|
|00000f60| 20 62 75 74 20 73 74 69 | 6c 6c 2e 2e 2e 2e 0a 45 | but sti|ll.....E|
|00000f70| 4e 44 2d 4f 46 2d 46 49 | 4c 45 0a 0a 69 66 20 5b |ND-OF-FI|LE..if [|
|00000f80| 20 22 24 66 69 6c 65 6e | 61 6d 65 22 20 21 3d 20 | "$filen|ame" != |
|00000f90| 22 2f 64 65 76 2f 6e 75 | 6c 6c 22 20 5d 0a 74 68 |"/dev/nu|ll" ].th|
|00000fa0| 65 6e 0a 20 20 73 69 7a | 65 3d 60 77 63 20 2d 63 |en.  siz|e=`wc -c|
|00000fb0| 20 3c 20 24 66 69 6c 65 | 6e 61 6d 65 60 0a 0a 20 | < $file|name`.. |
|00000fc0| 20 69 66 20 5b 20 24 73 | 69 7a 65 20 21 3d 20 32 | if [ $s|ize != 2|
|00000fd0| 31 34 30 20 5d 0a 20 20 | 74 68 65 6e 0a 20 20 20 |140 ].  |then.   |
|00000fe0| 20 65 63 68 6f 20 24 66 | 69 6c 65 6e 61 6d 65 20 | echo $f|ilename |
|00000ff0| 63 68 61 6e 67 65 64 20 | 2d 20 73 68 6f 75 6c 64 |changed |- should|
|00001000| 20 62 65 20 32 31 34 30 | 20 62 79 74 65 73 2c 20 | be 2140| bytes, |
|00001010| 6e 6f 74 20 24 73 69 7a | 65 20 62 79 74 65 73 0a |not $siz|e bytes.|
|00001020| 20 20 66 69 0a 0a 20 20 | 63 68 6d 6f 64 20 36 36 |  fi..  |chmod 66|
|00001030| 36 20 24 66 69 6c 65 6e | 61 6d 65 0a 66 69 0a 0a |6 $filen|ame.fi..|
|00001040| 23 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 66 69 6c |# ------|---- fil|
|00001050| 65 20 6e 65 77 64 61 74 | 65 2e 63 20 2d 2d 2d 2d |e newdat|e.c ----|
|00001060| 2d 2d 2d 2d 2d 2d 0a 0a | 66 69 6c 65 6e 61 6d 65 |------..|filename|
|00001070| 3d 22 6e 65 77 64 61 74 | 65 2e 63 22 0a 0a 69 66 |="newdat|e.c"..if|
|00001080| 20 5b 20 2d 66 20 24 66 | 69 6c 65 6e 61 6d 65 20 | [ -f $f|ilename |
|00001090| 5d 0a 74 68 65 6e 0a 20 | 20 65 63 68 6f 20 46 69 |].then. | echo Fi|
|000010a0| 6c 65 20 5c 22 24 66 69 | 6c 65 6e 61 6d 65 5c 22 |le \"$fi|lename\"|
|000010b0| 20 61 6c 72 65 61 64 79 | 20 65 78 69 73 74 73 5c | already| exists\|
|000010c0| 21 20 20 53 6b 69 70 70 | 69 6e 67 2e 2e 2e 0a 20 |!  Skipp|ing.... |
|000010d0| 20 66 69 6c 65 6e 61 6d | 65 3d 2f 64 65 76 2f 6e | filenam|e=/dev/n|
|000010e0| 75 6c 6c 09 09 23 20 74 | 68 72 6f 77 20 69 74 20 |ull..# t|hrow it |
|000010f0| 61 77 61 79 0a 65 6c 73 | 65 0a 20 20 65 63 68 6f |away.els|e.  echo|
|00001100| 20 65 78 74 72 61 63 74 | 69 6e 67 20 66 69 6c 65 | extract|ing file|
|00001110| 20 6e 65 77 64 61 74 65 | 2e 63 2e 2e 2e 0a 66 69 | newdate|.c....fi|
|00001120| 0a 0a 63 61 74 20 3c 3c | 20 27 45 4e 44 2d 4f 46 |..cat <<| 'END-OF|
|00001130| 2d 46 49 4c 45 27 20 3e | 20 24 66 69 6c 65 6e 61 |-FILE' >| $filena|
|00001140| 6d 65 0a 2f 2a 2a 09 09 | 09 09 6e 65 77 64 61 74 |me./**..|..newdat|
|00001150| 65 2e 63 09 09 09 09 2a | 2a 2f 0a 0a 2f 2a 2a 20 |e.c....*|*/../** |
|00001160| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 69 73 20 |This pro|gram is |
|00001170| 69 6d 70 6c 65 6d 65 6e | 74 65 64 20 62 61 73 65 |implemen|ted base|
|00001180| 64 20 6f 6e 20 74 68 65 | 20 6d 61 6e 75 61 6c 20 |d on the| manual |
|00001190| 65 6e 74 72 79 20 69 6e | 20 48 50 2d 55 58 0a 20 |entry in| HP-UX. |
|000011a0| 20 20 20 28 48 65 77 6c | 65 74 74 2d 50 61 63 6b |   (Hewl|ett-Pack|
|000011b0| 61 72 64 73 20 2a 72 65 | 6c 69 61 62 6c 65 2a 20 |ards *re|liable* |
|000011c0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 55 6e 69 78 29 |version |of Unix)|
|000011d0| 20 66 6f 72 20 74 68 65 | 20 27 64 61 74 65 28 31 | for the| 'date(1|
|000011e0| 29 27 0a 20 20 20 20 70 | 72 6f 67 72 61 6d 2e 20 |)'.    p|rogram. |
|000011f0| 20 54 68 65 20 6d 61 69 | 6e 20 69 6d 70 72 6f 76 | The mai|n improv|
|00001200| 65 6d 65 6e 74 20 69 73 | 20 74 68 61 74 20 74 68 |ement is| that th|
|00001210| 65 20 75 73 65 72 20 6e | 6f 77 20 68 61 73 20 61 |e user n|ow has a|
|00001220| 20 73 65 74 0a 20 20 20 | 20 6f 66 20 66 6f 72 6d | set.   | of form|
|00001230| 61 74 20 63 6f 6d 6d 61 | 6e 64 73 20 74 68 61 74 |at comma|nds that|
|00001240| 20 74 68 65 79 20 63 61 | 6e 20 75 73 65 20 74 6f | they ca|n use to|
|00001250| 20 67 65 74 20 6f 75 74 | 70 75 74 20 69 6e 20 61 | get out|put in a|
|00001260| 20 64 69 66 66 65 72 65 | 6e 74 0a 20 20 20 20 66 | differe|nt.    f|
|00001270| 6f 72 6d 61 74 20 74 68 | 61 6e 20 74 68 65 20 6e |ormat th|an the n|
|00001280| 6f 72 6d 61 6c 20 28 75 | 67 6c 79 29 20 64 61 74 |ormal (u|gly) dat|
|00001290| 65 28 31 29 20 63 6f 6d | 6d 61 6e 64 2e 20 20 4e |e(1) com|mand.  N|
|000012a0| 6f 74 65 20 74 6f 20 73 | 79 73 74 65 6d 20 56 0a |ote to s|ystem V.|
|000012b0| 20 20 20 20 61 6e 64 20 | 48 50 2d 55 58 20 75 73 |    and |HP-UX us|
|000012c0| 65 72 73 20 2d 20 49 27 | 76 65 20 61 6c 73 6f 20 |ers - I'|ve also |
|000012d0| 61 64 64 65 64 20 25 41 | 20 61 6e 64 20 25 4e 20 |added %A| and %N |
|000012e0| 66 6f 72 20 66 75 6c 6c | 20 64 61 79 20 61 6e 64 |for full| day and|
|000012f0| 0a 20 20 20 20 6d 6f 6e | 74 68 20 6e 61 6d 65 2c |.    mon|th name,|
|00001300| 20 72 65 73 70 65 63 74 | 69 76 65 6c 79 2e 0a 0a | respect|ively...|
|00001310| 20 20 20 20 50 6c 65 61 | 73 65 20 73 65 65 20 74 |    Plea|se see t|
|00001320| 68 65 20 6d 61 6e 75 61 | 6c 20 65 6e 74 72 79 20 |he manua|l entry |
|00001330| 66 6f 72 20 6d 6f 72 65 | 20 69 6e 66 6f 72 6d 61 |for more| informa|
|00001340| 74 69 6f 6e 2e 0a 0a 20 | 20 20 20 28 43 29 20 43 |tion... |   (C) C|
|00001350| 6f 70 79 72 69 67 68 74 | 20 31 39 38 36 2c 20 44 |opyright| 1986, D|
|00001360| 61 76 65 20 54 61 79 6c | 6f 72 0a 2a 2a 2f 0a 0a |ave Tayl|or.**/..|
|00001370| 2f 2a 2a 20 49 66 20 79 | 6f 75 27 72 65 20 6f 6e |/** If y|ou're on|
|00001380| 20 61 20 53 79 73 74 65 | 6d 20 56 20 6d 61 63 68 | a Syste|m V mach|
|00001390| 69 6e 65 2c 20 74 68 65 | 6e 20 63 6f 6d 70 69 6c |ine, the|n compil|
|000013a0| 65 20 77 69 74 68 20 2d | 44 53 59 53 56 20 61 73 |e with -|DSYSV as|
|000013b0| 20 61 20 66 6c 61 67 2e | 20 2a 2a 2f 0a 0a 23 69 | a flag.| **/..#i|
|000013c0| 6e 63 6c 75 64 65 20 3c | 73 74 64 69 6f 2e 68 3e |nclude <|stdio.h>|
|000013d0| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 79 73 2f 74 |.#includ|e <sys/t|
|000013e0| 69 6d 65 2e 68 3e 0a 0a | 63 68 61 72 20 2a 73 68 |ime.h>..|char *sh|
|000013f0| 6f 72 74 5f 64 61 79 6e | 61 6d 65 5b 5d 20 20 20 |ort_dayn|ame[]   |
|00001400| 3d 20 7b 20 22 53 75 6e | 22 2c 20 22 4d 6f 6e 22 |= { "Sun|", "Mon"|
|00001410| 2c 20 22 54 75 65 22 2c | 20 22 57 65 64 22 2c 20 |, "Tue",| "Wed", |
|00001420| 22 54 68 75 22 2c 20 22 | 46 72 69 22 2c 20 22 53 |"Thu", "|Fri", "S|
|00001430| 61 74 22 20 7d 3b 0a 63 | 68 61 72 20 2a 73 68 6f |at" };.c|har *sho|
|00001440| 72 74 5f 6d 6f 6e 74 68 | 6e 61 6d 65 5b 5d 20 3d |rt_month|name[] =|
|00001450| 20 7b 20 22 4a 61 6e 22 | 2c 20 22 46 65 62 22 2c | { "Jan"|, "Feb",|
|00001460| 20 22 4d 61 72 22 2c 20 | 22 41 70 72 22 2c 20 22 | "Mar", |"Apr", "|
|00001470| 4d 61 79 22 2c 20 22 4a | 75 6e 22 2c 20 22 4a 75 |May", "J|un", "Ju|
|00001480| 6c 22 2c 0a 09 09 20 20 | 20 20 20 20 20 20 20 20 |l",...  |        |
|00001490| 20 20 22 41 75 67 22 2c | 20 22 53 65 70 22 2c 20 |  "Aug",| "Sep", |
|000014a0| 22 4f 63 74 22 2c 20 22 | 4e 6f 76 22 2c 20 22 44 |"Oct", "|Nov", "D|
|000014b0| 65 63 22 20 7d 3b 0a 0a | 63 68 61 72 20 2a 6c 6f |ec" };..|char *lo|
|000014c0| 6e 67 5f 64 61 79 6e 61 | 6d 65 5b 5d 20 20 20 20 |ng_dayna|me[]    |
|000014d0| 3d 20 7b 20 22 53 75 6e | 64 61 79 22 2c 20 22 4d |= { "Sun|day", "M|
|000014e0| 6f 6e 64 61 79 22 2c 20 | 22 54 75 65 73 64 61 79 |onday", |"Tuesday|
|000014f0| 22 2c 20 22 57 65 64 6e | 65 73 64 61 79 22 2c 20 |", "Wedn|esday", |
|00001500| 0a 09 09 09 20 20 20 20 | 22 54 68 75 72 73 64 61 |....    |"Thursda|
|00001510| 79 22 2c 20 22 46 72 69 | 64 61 79 22 2c 20 22 53 |y", "Fri|day", "S|
|00001520| 61 74 75 72 64 61 79 22 | 20 7d 3b 0a 63 68 61 72 |aturday"| };.char|
|00001530| 20 2a 6c 6f 6e 67 5f 6d | 6f 6e 74 68 6e 61 6d 65 | *long_m|onthname|
|00001540| 5b 5d 20 20 3d 20 7b 20 | 22 4a 61 6e 75 61 72 79 |[]  = { |"January|
|00001550| 22 2c 20 22 46 65 62 72 | 75 61 72 79 22 2c 20 22 |", "Febr|uary", "|
|00001560| 4d 61 72 63 68 22 2c 20 | 22 41 70 72 69 6c 22 2c |March", |"April",|
|00001570| 20 22 4d 61 79 22 2c 0a | 09 09 09 20 20 20 20 22 | "May",.|...    "|
|00001580| 4a 75 6e 65 22 2c 20 22 | 4a 75 6c 79 22 2c 20 22 |June", "|July", "|
|00001590| 41 75 67 75 73 74 22 2c | 20 22 53 65 70 74 65 6d |August",| "Septem|
|000015a0| 62 65 72 22 2c 20 22 4f | 63 74 6f 62 65 72 22 2c |ber", "O|ctober",|
|000015b0| 0a 09 09 09 20 20 20 20 | 22 4e 6f 76 65 6d 62 65 |....    |"Novembe|
|000015c0| 72 22 2c 20 22 44 65 63 | 65 6d 62 65 72 22 20 7d |r", "Dec|ember" }|
|000015d0| 3b 0a 0a 73 74 72 75 63 | 74 20 74 6d 20 2a 6c 6f |;..struc|t tm *lo|
|000015e0| 63 61 6c 74 69 6d 65 28 | 29 3b 09 09 2f 2a 20 66 |caltime(|);../* f|
|000015f0| 6f 72 77 61 72 64 20 64 | 65 63 6c 61 72 65 20 66 |orward d|eclare f|
|00001600| 6f 72 20 63 6f 6d 70 69 | 6c 65 72 20 68 61 70 70 |or compi|ler happ|
|00001610| 69 6e 65 73 73 20 2a 2f | 0a 0a 23 69 66 64 65 66 |iness */|..#ifdef|
|00001620| 20 53 59 53 56 0a 20 20 | 65 78 74 65 72 6e 20 63 | SYSV.  |extern c|
|00001630| 68 61 72 20 2a 74 7a 6e | 61 6d 65 5b 32 5d 3b 0a |har *tzn|ame[2];.|
|00001640| 23 65 6c 73 65 0a 20 20 | 63 68 61 72 20 2a 74 69 |#else.  |char *ti|
|00001650| 6d 65 7a 6f 6e 65 28 29 | 3b 09 09 2f 2a 20 61 6e |mezone()|;../* an|
|00001660| 6f 74 68 65 72 20 66 6f | 72 77 61 72 64 20 64 65 |other fo|rward de|
|00001670| 63 6c 61 72 61 74 69 6f | 6e 2e 2e 2e 20 20 09 2a |claratio|n...  .*|
|00001680| 2f 0a 23 65 6e 64 69 66 | 0a 0a 6d 61 69 6e 28 61 |/.#endif|..main(a|
|00001690| 72 67 63 2c 20 61 72 67 | 76 29 0a 69 6e 74 20 61 |rgc, arg|v).int a|
|000016a0| 72 67 63 3b 0a 63 68 61 | 72 20 2a 61 72 67 76 5b |rgc;.cha|r *argv[|
|000016b0| 5d 3b 0a 7b 0a 09 63 68 | 61 72 20 62 75 66 66 65 |];.{..ch|ar buffe|
|000016c0| 72 5b 32 30 30 5d 2c 20 | 09 2f 2a 20 6f 75 72 20 |r[200], |./* our |
|000016d0| 6f 75 74 70 75 74 20 62 | 75 66 66 65 72 2e 2e 2e |output b|uffer...|
|000016e0| 20 09 09 2a 2f 0a 09 20 | 20 20 20 20 74 65 6d 70 | ..*/.. |    temp|
|000016f0| 62 75 66 5b 31 30 30 5d | 3b 09 2f 2a 20 61 6e 64 |buf[100]|;./* and|
|00001700| 20 61 20 74 65 6d 70 20 | 6f 6e 65 20 66 6f 72 20 | a temp |one for |
|00001710| 66 6f 72 6d 61 74 74 69 | 6e 67 20 73 74 75 66 66 |formatti|ng stuff|
|00001720| 20 20 2a 2f 0a 09 69 6e | 74 20 20 6c 6f 63 3b 09 |  */..in|t  loc;.|
|00001730| 09 2f 2a 20 6f 75 72 20 | 6c 6f 63 61 74 69 6f 6e |./* our |location|
|00001740| 20 69 6e 20 74 68 65 20 | 66 6f 72 6d 61 74 20 73 | in the |format s|
|00001750| 74 72 69 6e 67 20 20 20 | 20 2a 2f 0a 09 6c 6f 6e |tring   | */..lon|
|00001760| 67 20 74 68 65 74 69 6d | 65 3b 09 09 2f 2a 20 74 |g thetim|e;../* t|
|00001770| 68 65 20 63 75 72 72 65 | 6e 74 20 74 69 6d 65 2c |he curre|nt time,|
|00001780| 20 69 6e 20 73 65 63 6f | 6e 64 73 21 20 20 20 20 | in seco|nds!    |
|00001790| 20 20 20 20 2a 2f 0a 09 | 73 74 72 75 63 74 20 74 |    */..|struct t|
|000017a0| 6d 20 2a 74 3b 09 09 2f | 2a 20 74 68 65 20 74 69 |m *t;../|* the ti|
|000017b0| 6d 65 20 72 65 63 6f 72 | 64 20 73 74 72 75 63 74 |me recor|d struct|
|000017c0| 75 72 65 09 09 2a 2f 0a | 23 69 66 6e 64 65 66 20 |ure..*/.|#ifndef |
|000017d0| 53 59 53 56 0a 09 73 74 | 72 75 63 74 20 74 69 6d |SYSV..st|ruct tim|
|000017e0| 65 76 61 6c 09 74 70 3b | 09 2f 2a 20 66 6f 72 20 |eval.tp;|./* for |
|000017f0| 73 74 6f 72 69 6e 67 20 | 79 65 74 2d 61 6e 6f 74 |storing |yet-anot|
|00001800| 68 65 72 2d 66 6f 72 6d | 61 74 20 20 20 20 20 20 |her-form|at      |
|00001810| 20 2a 2f 0a 09 73 74 72 | 75 63 74 20 74 69 6d 65 | */..str|uct time|
|00001820| 7a 6f 6e 65 20 74 7a 3b | 09 2f 2a 20 74 6f 20 66 |zone tz;|./* to f|
|00001830| 69 67 75 72 65 20 6f 75 | 74 20 6f 75 72 20 74 69 |igure ou|t our ti|
|00001840| 6d 65 7a 6f 6e 65 2e 2e | 2e 20 20 20 20 20 20 20 |mezone..|.       |
|00001850| 20 2a 2f 0a 23 65 6e 64 | 69 66 0a 0a 09 69 66 20 | */.#end|if...if |
|00001860| 28 61 72 67 63 20 3d 3d | 20 31 20 7c 7c 20 61 72 |(argc ==| 1 || ar|
|00001870| 67 76 5b 31 5d 5b 30 5d | 20 21 3d 20 27 2b 27 29 |gv[1][0]| != '+')|
|00001880| 20 20 20 2f 2a 20 67 6f | 20 74 6f 20 27 72 65 61 |   /* go| to 'rea|
|00001890| 6c 27 20 64 61 74 65 20 | 70 72 6f 67 20 2a 2f 0a |l' date |prog */.|
|000018a0| 09 20 20 65 78 65 63 76 | 28 22 2f 62 69 6e 2f 64 |.  execv|("/bin/d|
|000018b0| 61 74 65 22 2c 20 61 72 | 67 76 29 3b 0a 0a 09 69 |ate", ar|gv);...i|
|000018c0| 66 20 28 61 72 67 63 20 | 3e 20 32 29 20 7b 0a 09 |f (argc |> 2) {..|
|000018d0| 20 20 66 70 72 69 6e 74 | 66 28 73 74 64 65 72 72 |  fprint|f(stderr|
|000018e0| 2c 22 55 73 61 67 65 3a | 20 25 73 20 5b 6e 65 77 |,"Usage:| %s [new|
|000018f0| 20 74 69 6d 65 5d 20 5b | 20 2b 20 66 6f 72 6d 61 | time] [| + forma|
|00001900| 74 20 73 74 72 69 6e 67 | 5d 5c 6e 22 2c 0a 09 09 |t string|]\n",...|
|00001910| 20 20 61 72 67 76 5b 30 | 5d 29 3b 0a 09 20 20 65 |  argv[0|]);..  e|
|00001920| 78 69 74 28 31 29 3b 0a | 09 7d 0a 0a 09 2f 2a 20 |xit(1);.|.}.../* |
|00001930| 69 66 20 77 65 27 72 65 | 20 68 65 72 65 20 77 65 |if we're| here we|
|00001940| 27 72 65 20 64 6f 69 6e | 67 20 6f 6b 61 79 2e 2e |'re doin|g okay..|
|00001950| 2e 20 2a 2f 0a 0a 09 74 | 68 65 74 69 6d 65 20 3d |. */...t|hetime =|
|00001960| 20 74 69 6d 65 28 20 28 | 6c 6f 6e 67 20 2a 29 20 | time( (|long *) |
|00001970| 30 29 3b 0a 09 74 20 3d | 20 6c 6f 63 61 6c 74 69 |0);..t =| localti|
|00001980| 6d 65 28 26 74 68 65 74 | 69 6d 65 29 3b 0a 0a 23 |me(&thet|ime);..#|
|00001990| 69 66 6e 64 65 66 20 53 | 59 53 56 0a 09 2f 2a 2a |ifndef S|YSV../**|
|000019a0| 20 6e 6f 77 20 6c 65 74 | 27 73 20 67 65 74 20 74 | now let|'s get t|
|000019b0| 68 65 20 74 69 6d 65 7a | 6f 6e 65 20 74 68 61 74 |he timez|one that|
|000019c0| 20 77 65 27 72 65 20 69 | 6e 2e 2e 2e 20 2a 2a 2f | we're i|n... **/|
|000019d0| 0a 0a 09 67 65 74 74 69 | 6d 65 6f 66 64 61 79 28 |...getti|meofday(|
|000019e0| 26 74 70 2c 20 26 74 7a | 29 3b 0a 0a 23 65 6e 64 |&tp, &tz|);..#end|
|000019f0| 69 66 0a 0a 09 2f 2a 20 | 77 65 20 68 61 76 65 20 |if.../* |we have |
|00001a00| 74 68 65 20 74 69 6d 65 | 2e 2e 2e 6e 6f 77 20 6c |the time|...now l|
|00001a10| 65 74 27 73 20 70 61 72 | 73 65 20 61 6e 64 20 62 |et's par|se and b|
|00001a20| 75 69 6c 64 20 74 68 65 | 20 6f 75 74 70 75 74 21 |uild the| output!|
|00001a30| 20 2a 2f 0a 0a 09 66 6f | 72 20 28 6c 6f 63 20 3d | */...fo|r (loc =|
|00001a40| 20 31 3b 20 6c 6f 63 20 | 3c 20 73 74 72 6c 65 6e | 1; loc |< strlen|
|00001a50| 28 61 72 67 76 5b 31 5d | 29 3b 29 20 7b 0a 09 20 |(argv[1]|);) {.. |
|00001a60| 20 74 65 6d 70 62 75 66 | 5b 30 5d 20 3d 20 27 5c | tempbuf|[0] = '\|
|00001a70| 30 27 3b 0a 0a 09 20 20 | 69 66 20 28 61 72 67 76 |0';...  |if (argv|
|00001a80| 5b 31 5d 5b 6c 6f 63 5d | 20 3d 3d 20 27 25 27 29 |[1][loc]| == '%')|
|00001a90| 20 7b 09 2f 2a 20 61 20 | 66 6f 72 6d 61 74 20 73 | {./* a |format s|
|00001aa0| 74 72 69 6e 67 21 20 2a | 2f 0a 0a 09 20 20 20 20 |tring! *|/...    |
|00001ab0| 73 77 69 74 63 68 20 28 | 61 72 67 76 5b 31 5d 5b |switch (|argv[1][|
|00001ac0| 6c 6f 63 2b 31 5d 29 20 | 7b 0a 0a 09 20 20 20 20 |loc+1]) |{...    |
|00001ad0| 20 20 63 61 73 65 20 27 | 6e 27 20 3a 20 73 74 72 |  case '|n' : str|
|00001ae0| 63 61 74 28 62 75 66 66 | 65 72 2c 20 22 5c 6e 22 |cat(buff|er, "\n"|
|00001af0| 29 3b 09 09 62 72 65 61 | 6b 3b 0a 09 20 20 20 20 |);..brea|k;..    |
|00001b00| 20 20 63 61 73 65 20 27 | 74 27 20 3a 20 73 74 72 |  case '|t' : str|
|00001b10| 63 61 74 28 62 75 66 66 | 65 72 2c 20 22 5c 74 22 |cat(buff|er, "\t"|
|00001b20| 29 3b 09 09 62 72 65 61 | 6b 3b 0a 09 20 20 20 20 |);..brea|k;..    |
|00001b30| 20 20 63 61 73 65 20 27 | 25 27 20 3a 20 73 74 72 |  case '|%' : str|
|00001b40| 63 61 74 28 62 75 66 66 | 65 72 2c 20 22 25 22 29 |cat(buff|er, "%")|
|00001b50| 3b 09 09 62 72 65 61 6b | 3b 0a 0a 09 20 20 20 20 |;..break|;...    |
|00001b60| 20 20 63 61 73 65 20 27 | 6d 27 20 3a 20 73 70 72 |  case '|m' : spr|
|00001b70| 69 6e 74 66 28 74 65 6d | 70 62 75 66 2c 20 22 25 |intf(tem|pbuf, "%|
|00001b80| 64 22 2c 20 74 2d 3e 74 | 6d 5f 6d 6f 6e 29 3b 09 |d", t->t|m_mon);.|
|00001b90| 62 72 65 61 6b 3b 0a 09 | 20 20 20 20 20 20 63 61 |break;..|      ca|
|00001ba0| 73 65 20 27 64 27 20 3a | 20 73 70 72 69 6e 74 66 |se 'd' :| sprintf|
|00001bb0| 28 74 65 6d 70 62 75 66 | 2c 20 22 25 64 22 2c 20 |(tempbuf|, "%d", |
|00001bc0| 74 2d 3e 74 6d 5f 6d 64 | 61 79 29 3b 09 62 72 65 |t->tm_md|ay);.bre|
|00001bd0| 61 6b 3b 0a 09 20 20 20 | 20 20 20 63 61 73 65 20 |ak;..   |   case |
|00001be0| 27 79 27 20 3a 20 73 70 | 72 69 6e 74 66 28 74 65 |'y' : sp|rintf(te|
|00001bf0| 6d 70 62 75 66 2c 20 22 | 25 64 22 2c 20 74 2d 3e |mpbuf, "|%d", t->|
|00001c00| 74 6d 5f 79 65 61 72 29 | 3b 09 62 72 65 61 6b 3b |tm_year)|;.break;|
|00001c10| 0a 09 20 20 20 20 20 20 | 63 61 73 65 20 27 44 27 |..      |case 'D'|
|00001c20| 20 3a 20 73 70 72 69 6e | 74 66 28 74 65 6d 70 62 | : sprin|tf(tempb|
|00001c30| 75 66 2c 20 22 25 64 2f | 25 64 2f 25 64 22 2c 0a |uf, "%d/|%d/%d",.|
|00001c40| 09 09 09 20 74 2d 3e 74 | 6d 5f 6d 6f 6e 2c 20 74 |... t->t|m_mon, t|
|00001c50| 2d 3e 74 6d 5f 6d 64 61 | 79 2c 20 74 2d 3e 74 6d |->tm_mda|y, t->tm|
|00001c60| 5f 79 65 61 72 29 3b 09 | 62 72 65 61 6b 3b 0a 09 |_year);.|break;..|
|00001c70| 20 20 20 20 20 20 63 61 | 73 65 20 27 48 27 20 3a |      ca|se 'H' :|
|00001c80| 20 73 70 72 69 6e 74 66 | 28 74 65 6d 70 62 75 66 | sprintf|(tempbuf|
|00001c90| 2c 20 22 25 64 22 2c 20 | 74 2d 3e 74 6d 5f 68 6f |, "%d", |t->tm_ho|
|00001ca0| 75 72 29 3b 09 62 72 65 | 61 6b 3b 0a 09 20 20 20 |ur);.bre|ak;..   |
|00001cb0| 20 20 20 63 61 73 65 20 | 27 4d 27 20 3a 20 73 70 |   case |'M' : sp|
|00001cc0| 72 69 6e 74 66 28 74 65 | 6d 70 62 75 66 2c 20 22 |rintf(te|mpbuf, "|
|00001cd0| 25 64 22 2c 20 74 2d 3e | 74 6d 5f 6d 69 6e 29 3b |%d", t->|tm_min);|
|00001ce0| 09 62 72 65 61 6b 3b 0a | 09 20 20 20 20 20 20 63 |.break;.|.      c|
|00001cf0| 61 73 65 20 27 53 27 20 | 3a 20 73 70 72 69 6e 74 |ase 'S' |: sprint|
|00001d00| 66 28 74 65 6d 70 62 75 | 66 2c 20 22 25 64 22 2c |f(tempbu|f, "%d",|
|00001d10| 20 74 2d 3e 74 6d 5f 73 | 65 63 29 3b 09 62 72 65 | t->tm_s|ec);.bre|
|00001d20| 61 6b 3b 0a 09 20 20 20 | 20 20 20 63 61 73 65 20 |ak;..   |   case |
|00001d30| 27 54 27 20 3a 20 73 70 | 72 69 6e 74 66 28 74 65 |'T' : sp|rintf(te|
|00001d40| 6d 70 62 75 66 2c 20 22 | 25 30 32 64 3a 25 30 32 |mpbuf, "|%02d:%02|
|00001d50| 64 3a 25 30 32 64 22 2c | 0a 09 09 09 20 74 2d 3e |d:%02d",|.... t->|
|00001d60| 74 6d 5f 68 6f 75 72 2c | 20 74 2d 3e 74 6d 5f 6d |tm_hour,| t->tm_m|
|00001d70| 69 6e 2c 20 74 2d 3e 74 | 6d 5f 73 65 63 29 3b 09 |in, t->t|m_sec);.|
|00001d80| 62 72 65 61 6b 3b 0a 09 | 20 20 20 20 20 20 63 61 |break;..|      ca|
|00001d90| 73 65 20 27 6a 27 20 3a | 20 73 70 72 69 6e 74 66 |se 'j' :| sprintf|
|00001da0| 28 74 65 6d 70 62 75 66 | 2c 20 22 25 64 22 2c 20 |(tempbuf|, "%d", |
|00001db0| 74 2d 3e 74 6d 5f 79 64 | 61 79 29 3b 09 62 72 65 |t->tm_yd|ay);.bre|
|00001dc0| 61 6b 3b 0a 09 20 20 20 | 20 20 20 63 61 73 65 20 |ak;..   |   case |
|00001dd0| 27 77 27 20 3a 20 73 70 | 72 69 6e 74 66 28 74 65 |'w' : sp|rintf(te|
|00001de0| 6d 70 62 75 66 2c 20 22 | 25 64 22 2c 20 74 2d 3e |mpbuf, "|%d", t->|
|00001df0| 74 6d 5f 77 64 61 79 29 | 3b 09 62 72 65 61 6b 3b |tm_wday)|;.break;|
|00001e00| 0a 09 20 20 20 20 20 20 | 63 61 73 65 20 27 61 27 |..      |case 'a'|
|00001e10| 20 3a 20 73 70 72 69 6e | 74 66 28 74 65 6d 70 62 | : sprin|tf(tempb|
|00001e20| 75 66 2c 20 22 25 73 22 | 2c 20 0a 09 09 09 09 20 |uf, "%s"|, ..... |
|00001e30| 73 68 6f 72 74 5f 64 61 | 79 6e 61 6d 65 5b 74 2d |short_da|yname[t-|
|00001e40| 3e 74 6d 5f 77 64 61 79 | 5d 29 3b 20 09 62 72 65 |>tm_wday|]); .bre|
|00001e50| 61 6b 3b 0a 09 20 20 20 | 20 20 20 63 61 73 65 20 |ak;..   |   case |
|00001e60| 27 68 27 20 3a 20 73 70 | 72 69 6e 74 66 28 74 65 |'h' : sp|rintf(te|
|00001e70| 6d 70 62 75 66 2c 20 22 | 25 73 22 2c 20 0a 09 09 |mpbuf, "|%s", ...|
|00001e80| 09 09 73 68 6f 72 74 5f | 6d 6f 6e 74 68 6e 61 6d |..short_|monthnam|
|00001e90| 65 5b 74 2d 3e 74 6d 5f | 6d 6f 6e 5d 29 3b 20 09 |e[t->tm_|mon]); .|
|00001ea0| 62 72 65 61 6b 3b 0a 09 | 20 20 20 20 20 20 63 61 |break;..|      ca|
|00001eb0| 73 65 20 27 41 27 20 3a | 20 73 70 72 69 6e 74 66 |se 'A' :| sprintf|
|00001ec0| 28 74 65 6d 70 62 75 66 | 2c 20 22 25 73 22 2c 20 |(tempbuf|, "%s", |
|00001ed0| 0a 09 09 09 09 20 6c 6f | 6e 67 5f 64 61 79 6e 61 |..... lo|ng_dayna|
|00001ee0| 6d 65 5b 74 2d 3e 74 6d | 5f 77 64 61 79 5d 29 3b |me[t->tm|_wday]);|
|00001ef0| 20 09 62 72 65 61 6b 3b | 0a 09 20 20 20 20 20 20 | .break;|..      |
|00001f00| 63 61 73 65 20 27 4e 27 | 20 3a 20 73 70 72 69 6e |case 'N'| : sprin|
|00001f10| 74 66 28 74 65 6d 70 62 | 75 66 2c 20 22 25 73 22 |tf(tempb|uf, "%s"|
|00001f20| 2c 20 0a 09 09 09 09 6c | 6f 6e 67 5f 6d 6f 6e 74 |, .....l|ong_mont|
|00001f30| 68 6e 61 6d 65 5b 74 2d | 3e 74 6d 5f 6d 6f 6e 5d |hname[t-|>tm_mon]|
|00001f40| 29 3b 20 09 62 72 65 61 | 6b 3b 0a 09 20 20 20 20 |); .brea|k;..    |
|00001f50| 20 20 63 61 73 65 20 27 | 72 27 20 3a 20 73 70 72 |  case '|r' : spr|
|00001f60| 69 6e 74 66 28 74 65 6d | 70 62 75 66 2c 20 22 25 |intf(tem|pbuf, "%|
|00001f70| 64 3a 25 30 32 64 20 25 | 73 22 2c 0a 09 09 09 20 |d:%02d %|s",.... |
|00001f80| 74 2d 3e 74 6d 5f 68 6f | 75 72 20 3e 20 31 32 3f |t->tm_ho|ur > 12?|
|00001f90| 20 74 2d 3e 74 6d 5f 68 | 6f 75 72 20 2d 20 31 32 | t->tm_h|our - 12|
|00001fa0| 3a 74 2d 3e 74 6d 5f 68 | 6f 75 72 2c 0a 09 09 20 |:t->tm_h|our,... |
|00001fb0| 20 20 20 20 20 20 20 20 | 74 2d 3e 74 6d 5f 6d 69 |        |t->tm_mi|
|00001fc0| 6e 2c 0a 09 09 09 20 74 | 2d 3e 74 6d 5f 68 6f 75 |n,.... t|->tm_hou|
|00001fd0| 72 20 3e 20 31 32 3f 20 | 22 70 6d 22 3a 22 61 6d |r > 12? |"pm":"am|
|00001fe0| 22 29 3b 09 09 62 72 65 | 61 6b 3b 0a 09 20 20 20 |");..bre|ak;..   |
|00001ff0| 20 20 20 63 61 73 65 20 | 27 7a 27 20 3a 20 73 70 |   case |'z' : sp|
|00002000| 72 69 6e 74 66 28 74 65 | 6d 70 62 75 66 2c 20 22 |rintf(te|mpbuf, "|
|00002010| 25 73 22 2c 0a 23 69 66 | 64 65 66 20 53 59 53 56 |%s",.#if|def SYSV|
|00002020| 0a 09 09 09 20 74 2d 3e | 74 6d 5f 69 73 64 73 74 |.... t->|tm_isdst|
|00002030| 3f 20 74 7a 6e 61 6d 65 | 5b 31 5d 20 3a 20 74 7a |? tzname|[1] : tz|
|00002040| 61 6d 65 5b 30 5d 29 3b | 09 62 72 65 61 6b 3b 0a |ame[0]);|.break;.|
|00002050| 23 65 6c 73 65 0a 09 09 | 09 20 74 69 6d 65 7a 6f |#else...|. timezo|
|00002060| 6e 65 28 74 7a 2e 74 7a | 5f 6d 69 6e 75 74 65 73 |ne(tz.tz|_minutes|
|00002070| 77 65 73 74 2c 20 74 2d | 3e 74 6d 5f 69 73 64 73 |west, t-|>tm_isds|
|00002080| 74 29 29 3b 20 20 62 72 | 65 61 6b 3b 0a 23 65 6e |t));  br|eak;.#en|
|00002090| 64 69 66 0a 0a 09 20 20 | 20 20 20 20 63 61 73 65 |dif...  |    case|
|000020a0| 20 27 5c 30 27 3a 20 66 | 70 72 69 6e 74 66 28 73 | '\0': f|printf(s|
|000020b0| 74 64 65 72 72 2c 0a 09 | 09 09 22 25 73 3a 20 75 |tderr,..|.."%s: u|
|000020c0| 6e 65 78 70 65 63 74 65 | 64 20 65 6e 64 20 6f 66 |nexpecte|d end of|
|000020d0| 20 66 6f 72 6d 61 74 20 | 69 6e 73 74 72 75 63 74 | format |instruct|
|000020e0| 69 6f 6e 73 21 5c 6e 22 | 2c 61 72 67 76 5b 30 5d |ions!\n"|,argv[0]|
|000020f0| 29 3b 0a 09 09 09 20 65 | 78 69 74 28 31 29 3b 0a |);.... e|xit(1);.|
|00002100| 0a 09 20 20 20 20 20 20 | 64 65 66 61 75 6c 74 20 |..      |default |
|00002110| 20 3a 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 | : fprin|tf(stder|
|00002120| 72 2c 0a 09 09 20 20 20 | 20 20 20 20 20 20 22 25 |r,...   |      "%|
|00002130| 73 3a 20 64 6f 6e 27 74 | 20 75 6e 64 65 72 73 74 |s: don't| underst|
|00002140| 61 6e 64 20 25 25 25 63 | 20 61 73 20 61 20 66 6f |and %%%c| as a fo|
|00002150| 72 6d 61 74 20 69 6e 73 | 74 72 75 63 74 69 6f 6e |rmat ins|truction|
|00002160| 21 5c 6e 22 2c 0a 09 09 | 09 20 61 72 67 76 5b 30 |!\n",...|. argv[0|
|00002170| 5d 2c 20 61 72 67 76 5b | 31 5d 5b 6c 6f 63 2b 31 |], argv[|1][loc+1|
|00002180| 5d 29 3b 0a 09 09 09 20 | 65 78 69 74 28 31 29 3b |]);.... |exit(1);|
|00002190| 0a 09 20 20 20 20 7d 0a | 0a 09 20 20 20 20 6c 6f |..    }.|..    lo|
|000021a0| 63 20 2b 3d 20 32 3b 09 | 2f 2a 20 73 6b 69 70 20 |c += 2;.|/* skip |
|000021b0| 74 68 65 20 70 65 72 63 | 65 6e 74 20 61 6e 64 20 |the perc|ent and |
|000021c0| 74 68 65 20 63 68 61 72 | 20 77 65 20 6a 75 73 74 |the char| we just|
|000021d0| 20 64 65 61 6c 74 20 77 | 69 74 68 20 2a 2f 0a 0a | dealt w|ith */..|
|000021e0| 09 20 20 20 20 69 66 20 | 28 74 65 6d 70 62 75 66 |.    if |(tempbuf|
|000021f0| 5b 30 5d 20 21 3d 20 27 | 5c 30 27 29 20 0a 09 20 |[0] != '|\0') .. |
|00002200| 20 20 20 20 20 73 74 72 | 63 61 74 28 62 75 66 66 |     str|cat(buff|
|00002210| 65 72 2c 20 74 65 6d 70 | 62 75 66 29 3b 0a 0a 09 |er, temp|buf);...|
|00002220| 20 20 7d 0a 09 20 20 65 | 6c 73 65 20 7b 20 09 2f |  }..  e|lse { ./|
|00002230| 2a 20 6e 6f 74 20 61 20 | 70 65 72 63 65 6e 74 20 |* not a |percent |
|00002240| 73 69 67 6e 2e 2e 2e 20 | 2a 2f 0a 0a 09 20 20 20 |sign... |*/...   |
|00002250| 20 74 65 6d 70 62 75 66 | 5b 30 5d 20 3d 20 61 72 | tempbuf|[0] = ar|
|00002260| 67 76 5b 31 5d 5b 6c 6f | 63 2b 2b 5d 3b 0a 09 20 |gv[1][lo|c++];.. |
|00002270| 20 20 20 74 65 6d 70 62 | 75 66 5b 31 5d 20 3d 20 |   tempb|uf[1] = |
|00002280| 27 5c 30 27 3b 0a 09 20 | 20 20 20 73 74 72 63 61 |'\0';.. |   strca|
|00002290| 74 28 62 75 66 66 65 72 | 2c 20 74 65 6d 70 62 75 |t(buffer|, tempbu|
|000022a0| 66 29 3b 0a 0a 09 20 20 | 7d 0a 09 7d 0a 09 0a 09 |f);...  |}..}....|
|000022b0| 2f 2a 20 61 6e 64 20 70 | 72 69 6e 74 20 74 68 65 |/* and p|rint the|
|000022c0| 20 62 75 66 66 65 72 20 | 6f 75 74 21 20 2a 2f 0a | buffer |out! */.|
|000022d0| 0a 09 70 72 69 6e 74 66 | 28 22 25 73 5c 6e 22 2c |..printf|("%s\n",|
|000022e0| 20 62 75 66 66 65 72 29 | 3b 0a 09 0a 09 65 78 69 | buffer)|;....exi|
|000022f0| 74 28 30 29 3b 09 09 09 | 2f 2a 20 62 79 65 21 20 |t(0);...|/* bye! |
|00002300| 2a 2f 0a 7d 0a 45 4e 44 | 2d 4f 46 2d 46 49 4c 45 |*/.}.END|-OF-FILE|
|00002310| 0a 0a 69 66 20 5b 20 22 | 24 66 69 6c 65 6e 61 6d |..if [ "|$filenam|
|00002320| 65 22 20 21 3d 20 22 2f | 64 65 76 2f 6e 75 6c 6c |e" != "/|dev/null|
|00002330| 22 20 5d 0a 74 68 65 6e | 0a 20 20 73 69 7a 65 3d |" ].then|.  size=|
|00002340| 60 77 63 20 2d 63 20 3c | 20 24 66 69 6c 65 6e 61 |`wc -c <| $filena|
|00002350| 6d 65 60 0a 0a 20 20 69 | 66 20 5b 20 24 73 69 7a |me`..  i|f [ $siz|
|00002360| 65 20 21 3d 20 34 35 34 | 36 20 5d 0a 20 20 74 68 |e != 454|6 ].  th|
|00002370| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 24 66 69 6c |en.    e|cho $fil|
|00002380| 65 6e 61 6d 65 20 63 68 | 61 6e 67 65 64 20 2d 20 |ename ch|anged - |
|00002390| 73 68 6f 75 6c 64 20 62 | 65 20 34 35 34 36 20 62 |should b|e 4546 b|
|000023a0| 79 74 65 73 2c 20 6e 6f | 74 20 24 73 69 7a 65 20 |ytes, no|t $size |
|000023b0| 62 79 74 65 73 0a 20 20 | 66 69 0a 0a 20 20 63 68 |bytes.  |fi..  ch|
|000023c0| 6d 6f 64 20 36 36 36 20 | 24 66 69 6c 65 6e 61 6d |mod 666 |$filenam|
|000023d0| 65 0a 66 69 0a 0a 65 63 | 68 6f 20 64 6f 6e 65 0a |e.fi..ec|ho done.|
|000023e0| 0a 65 78 69 74 20 30 0a | 0a 0a                   |.exit 0.|..      |
+--------+-------------------------+-------------------------+--------+--------+