/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume03 / clockrep.ost

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 68 75 73 63 |Path: uu|net!husc|
|00000010| 36 21 6d 61 69 6c 72 75 | 73 21 74 75 74 2e 63 69 |6!mailru|s!tut.ci|
|00000020| 73 2e 6f 68 69 6f 2d 73 | 74 61 74 65 2e 65 64 75 |s.ohio-s|tate.edu|
|00000030| 21 6d 61 6e 64 72 69 6c | 6c 21 68 61 6c 21 6e 63 |!mandril|l!hal!nc|
|00000040| 6f 61 73 74 21 61 6c 6c | 62 65 72 79 0a 46 72 6f |oast!all|bery.Fro|
|00000050| 6d 3a 20 77 69 6c 6c 65 | 40 68 70 63 63 63 2e 48 |m: wille|@hpccc.H|
|00000060| 50 2e 43 4f 4d 20 28 52 | 6f 73 73 20 57 69 6c 6c |P.COM (R|oss Will|
|00000070| 65 29 0a 4e 65 77 73 67 | 72 6f 75 70 73 3a 20 63 |e).Newsg|roups: c|
|00000080| 6f 6d 70 2e 73 6f 75 72 | 63 65 73 2e 6d 69 73 63 |omp.sour|ces.misc|
|00000090| 0a 53 75 62 6a 65 63 74 | 3a 20 76 30 33 69 30 35 |.Subject|: v03i05|
|000000a0| 39 3a 20 63 6c 6f 63 6b | 20 70 72 6f 67 72 61 6d |9: clock| program|
|000000b0| 20 28 61 6e 6f 74 68 65 | 72 20 61 74 74 65 6d 70 | (anothe|r attemp|
|000000c0| 74 20 61 74 20 76 30 33 | 69 30 35 36 29 0a 4d 65 |t at v03|i056).Me|
|000000d0| 73 73 61 67 65 2d 49 44 | 3a 20 3c 37 39 35 30 30 |ssage-ID|: <79500|
|000000e0| 30 31 40 68 70 63 63 63 | 2e 48 50 2e 43 4f 4d 3e |01@hpccc|.HP.COM>|
|000000f0| 0a 44 61 74 65 3a 20 32 | 33 20 4a 75 6e 20 38 38 |.Date: 2|3 Jun 88|
|00000100| 20 31 38 3a 32 32 3a 34 | 33 20 47 4d 54 0a 53 65 | 18:22:4|3 GMT.Se|
|00000110| 6e 64 65 72 3a 20 61 6c | 6c 62 65 72 79 40 6e 63 |nder: al|lbery@nc|
|00000120| 6f 61 73 74 2e 55 55 43 | 50 0a 52 65 70 6c 79 2d |oast.UUC|P.Reply-|
|00000130| 54 6f 3a 20 77 69 6c 6c | 65 40 68 70 63 63 63 2e |To: will|e@hpccc.|
|00000140| 48 50 2e 43 4f 4d 20 28 | 52 6f 73 73 20 57 69 6c |HP.COM (|Ross Wil|
|00000150| 6c 65 29 0a 4f 72 67 61 | 6e 69 7a 61 74 69 6f 6e |le).Orga|nization|
|00000160| 3a 20 48 50 20 43 6f 72 | 70 6f 72 61 74 65 20 43 |: HP Cor|porate C|
|00000170| 6f 6d 70 75 74 69 6e 67 | 20 43 65 6e 74 65 72 0a |omputing| Center.|
|00000180| 4c 69 6e 65 73 3a 20 32 | 37 34 0a 41 70 70 72 6f |Lines: 2|74.Appro|
|00000190| 76 65 64 3a 20 61 6c 6c | 62 65 72 79 40 6e 63 6f |ved: all|bery@nco|
|000001a0| 61 73 74 2e 55 55 43 50 | 0a 0a 63 6f 6d 70 2e 73 |ast.UUCP|..comp.s|
|000001b0| 6f 75 72 63 65 73 2e 6d | 69 73 63 3a 20 56 6f 6c |ources.m|isc: Vol|
|000001c0| 75 6d 65 20 33 2c 20 49 | 73 73 75 65 20 35 39 0a |ume 3, I|ssue 59.|
|000001d0| 53 75 62 6d 69 74 74 65 | 64 2d 42 79 3a 20 22 52 |Submitte|d-By: "R|
|000001e0| 6f 73 73 20 57 69 6c 6c | 65 22 20 3c 77 69 6c 6c |oss Will|e" <will|
|000001f0| 65 40 68 70 63 63 63 2e | 48 50 2e 43 4f 4d 3e 0a |e@hpccc.|HP.COM>.|
|00000200| 41 72 63 68 69 76 65 2d | 4e 61 6d 65 3a 20 63 6c |Archive-|Name: cl|
|00000210| 6f 63 6b 52 45 50 4f 53 | 54 0a 0a 5b 41 70 70 61 |ockREPOS|T..[Appa|
|00000220| 72 65 6e 74 6c 79 20 74 | 68 65 72 65 20 77 65 72 |rently t|here wer|
|00000230| 65 20 70 72 6f 62 6c 65 | 6d 73 20 77 69 74 68 20 |e proble|ms with |
|00000240| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 70 6f 73 |the orig|inal pos|
|00000250| 74 69 6e 67 2c 20 73 6f | 20 74 68 65 20 61 75 74 |ting, so| the aut|
|00000260| 68 6f 72 20 69 73 0a 74 | 72 79 69 6e 67 20 61 67 |hor is.t|rying ag|
|00000270| 61 69 6e 2e 20 20 2b 2b | 62 73 61 5d 0a 0a 54 68 |ain.  ++|bsa]..Th|
|00000280| 65 20 63 6c 6f 63 6b 20 | 73 68 61 72 20 66 69 6c |e clock |shar fil|
|00000290| 65 20 68 61 64 20 73 6f | 6d 65 20 70 72 6f 62 6c |e had so|me probl|
|000002a0| 65 6d 73 20 74 68 61 74 | 20 63 61 75 73 65 64 20 |ems that| caused |
|000002b0| 63 6c 6f 63 6b 2e 63 20 | 74 6f 20 62 65 20 74 68 |clock.c |to be th|
|000002c0| 65 20 77 72 6f 6e 67 0a | 73 69 7a 65 20 61 6e 64 |e wrong.|size and|
|000002d0| 20 63 61 75 73 65 64 20 | 63 6f 6d 70 69 6c 61 74 | caused |compilat|
|000002e0| 69 6f 6e 20 65 72 72 6f | 72 73 20 64 75 72 69 6e |ion erro|rs durin|
|000002f0| 67 20 63 6c 6f 63 6b 2e | 63 2e 20 20 54 68 65 73 |g clock.|c.  Thes|
|00000300| 65 20 68 61 76 65 20 62 | 65 65 6e 20 0a 63 6f 72 |e have b|een .cor|
|00000310| 72 65 63 74 65 64 20 61 | 6e 64 20 74 68 65 20 6e |rected a|nd the n|
|00000320| 65 77 20 73 68 61 72 20 | 66 69 6c 65 20 66 6f 6c |ew shar |file fol|
|00000330| 6c 6f 77 73 3a 0a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |lows:.--|--------|
|00000340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000350| 63 75 74 20 68 65 72 65 | 20 2d 2d 2d 2d 2d 2d 2d |cut here| -------|
|00000360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000370| 2d 2d 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |--.#! /b|in/sh.# |
|00000380| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000390| 61 72 63 68 69 76 65 2e | 20 20 52 65 6d 6f 76 65 |archive.|  Remove|
|000003a0| 20 61 6e 79 74 68 69 6e | 67 20 62 65 66 6f 72 65 | anythin|g before|
|000003b0| 20 74 68 69 73 20 6c 69 | 6e 65 2c 20 74 68 65 6e | this li|ne, then|
|000003c0| 20 75 6e 70 61 63 6b 0a | 23 20 69 74 20 62 79 20 | unpack.|# it by |
|000003d0| 73 61 76 69 6e 67 20 69 | 74 20 69 6e 74 6f 20 61 |saving i|t into a|
|000003e0| 20 66 69 6c 65 20 61 6e | 64 20 74 79 70 69 6e 67 | file an|d typing|
|000003f0| 20 22 73 68 20 66 69 6c | 65 22 2e 20 20 54 6f 20 | "sh fil|e".  To |
|00000400| 6f 76 65 72 77 72 69 74 | 65 20 65 78 69 73 74 69 |overwrit|e existi|
|00000410| 6e 67 0a 23 20 66 69 6c | 65 73 2c 20 74 79 70 65 |ng.# fil|es, type|
|00000420| 20 22 73 68 20 66 69 6c | 65 20 2d 63 22 2e 20 20 | "sh fil|e -c".  |
|00000430| 59 6f 75 20 63 61 6e 20 | 61 6c 73 6f 20 66 65 65 |You can |also fee|
|00000440| 64 20 74 68 69 73 20 61 | 73 20 73 74 61 6e 64 61 |d this a|s standa|
|00000450| 72 64 20 69 6e 70 75 74 | 20 76 69 61 0a 23 20 75 |rd input| via.# u|
|00000460| 6e 73 68 61 72 2c 20 6f | 72 20 62 79 20 74 79 70 |nshar, o|r by typ|
|00000470| 69 6e 67 20 22 73 68 20 | 3c 66 69 6c 65 22 2c 20 |ing "sh |<file", |
|00000480| 65 2e 67 2e 2e 20 20 49 | 66 20 74 68 69 73 20 61 |e.g..  I|f this a|
|00000490| 72 63 68 69 76 65 20 69 | 73 20 63 6f 6d 70 6c 65 |rchive i|s comple|
|000004a0| 74 65 2c 20 79 6f 75 0a | 23 20 77 69 6c 6c 20 73 |te, you.|# will s|
|000004b0| 65 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ee the f|ollowing|
|000004c0| 20 6d 65 73 73 61 67 65 | 20 61 74 20 74 68 65 20 | message| at the |
|000004d0| 65 6e 64 3a 0a 23 09 09 | 22 45 6e 64 20 6f 66 20 |end:.#..|"End of |
|000004e0| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 22 0a |shell ar|chive.".|
|000004f0| 23 20 43 6f 6e 74 65 6e | 74 73 3a 20 20 4d 61 6b |# Conten|ts:  Mak|
|00000500| 65 66 69 6c 65 20 63 6c | 6f 63 6b 2e 63 0a 23 20 |efile cl|ock.c.# |
|00000510| 57 72 61 70 70 65 64 20 | 62 79 20 63 68 61 64 40 |Wrapped |by chad@|
|00000520| 61 6e 61 73 61 7a 20 6f | 6e 20 54 68 75 20 4a 75 |anasaz o|n Thu Ju|
|00000530| 6e 20 31 36 20 30 30 3a | 34 37 3a 31 39 20 31 39 |n 16 00:|47:19 19|
|00000540| 38 38 0a 50 41 54 48 3d | 2f 62 69 6e 3a 2f 75 73 |88.PATH=|/bin:/us|
|00000550| 72 2f 62 69 6e 3a 2f 75 | 73 72 2f 75 63 62 20 3b |r/bin:/u|sr/ucb ;|
|00000560| 20 65 78 70 6f 72 74 20 | 50 41 54 48 0a 69 66 20 | export |PATH.if |
|00000570| 74 65 73 74 20 2d 66 20 | 27 4d 61 6b 65 66 69 6c |test -f |'Makefil|
|00000580| 65 27 20 2d 61 20 22 24 | 7b 31 7d 22 20 21 3d 20 |e' -a "$|{1}" != |
|00000590| 22 2d 63 22 20 3b 20 74 | 68 65 6e 20 0a 20 20 65 |"-c" ; t|hen .  e|
|000005a0| 63 68 6f 20 73 68 61 72 | 3a 20 57 69 6c 6c 20 6e |cho shar|: Will n|
|000005b0| 6f 74 20 63 6c 6f 62 62 | 65 72 20 65 78 69 73 74 |ot clobb|er exist|
|000005c0| 69 6e 67 20 66 69 6c 65 | 20 5c 22 27 4d 61 6b 65 |ing file| \"'Make|
|000005d0| 66 69 6c 65 27 5c 22 0a | 65 6c 73 65 0a 65 63 68 |file'\".|else.ech|
|000005e0| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|000005f0| 6e 67 20 5c 22 27 4d 61 | 6b 65 66 69 6c 65 27 5c |ng \"'Ma|kefile'\|
|00000600| 22 20 5c 28 34 36 38 20 | 63 68 61 72 61 63 74 65 |" \(468 |characte|
|00000610| 72 73 5c 29 0a 73 65 64 | 20 22 73 2f 5e 58 2f 2f |rs\).sed| "s/^X//|
|00000620| 22 20 3e 27 4d 61 6b 65 | 66 69 6c 65 27 20 3c 3c |" >'Make|file' <<|
|00000630| 27 45 4e 44 5f 4f 46 5f | 46 49 4c 45 27 0a 58 23 |'END_OF_|FILE'.X#|
|00000640| 0a 58 23 20 4d 61 6b 65 | 66 69 6c 65 20 66 6f 72 |.X# Make|file for|
|00000650| 20 63 6c 6f 63 6b 20 72 | 6f 75 74 69 6e 65 0a 58 | clock r|outine.X|
|00000660| 23 09 4c 61 73 74 20 63 | 68 61 6e 67 65 64 20 34 |#.Last c|hanged 4|
|00000670| 2f 33 30 2f 38 38 20 30 | 31 3a 33 35 3a 33 39 0a |/30/88 0|1:35:39.|
|00000680| 58 23 0a 58 0a 58 23 20 | 6e 6f 74 65 3a 20 74 68 |X#.X.X# |note: th|
|00000690| 69 73 20 73 68 6f 75 6c | 64 20 62 65 20 61 62 6c |is shoul|d be abl|
|000006a0| 65 20 74 6f 20 62 65 20 | 63 6f 6d 70 69 6c 65 64 |e to be |compiled|
|000006b0| 20 77 69 74 68 20 2d 44 | 4d 49 4e 49 43 55 52 53 | with -D|MINICURS|
|000006c0| 45 53 20 74 6f 20 73 61 | 76 65 0a 58 23 20 73 69 |ES to sa|ve.X# si|
|000006d0| 7a 65 20 61 6e 64 20 73 | 70 65 65 64 2c 20 62 75 |ze and s|peed, bu|
|000006e0| 74 20 61 6e 20 61 70 70 | 61 72 65 6e 74 20 62 75 |t an app|arent bu|
|000006f0| 67 20 63 61 75 73 65 73 | 20 6e 6f 65 63 68 6f 28 |g causes| noecho(|
|00000700| 29 20 74 6f 20 67 65 74 | 20 62 72 6f 6b 65 6e 0a |) to get| broken.|
|00000710| 58 0a 58 42 49 4e 44 49 | 52 20 3d 20 2f 75 73 72 |X.XBINDI|R = /usr|
|00000720| 2f 6c 6f 63 61 6c 2f 62 | 69 6e 0a 58 0a 58 63 6c |/local/b|in.X.Xcl|
|00000730| 6f 63 6b 3a 09 63 6c 6f | 63 6b 2e 63 0a 58 23 09 |ock:.clo|ck.c.X#.|
|00000740| 24 28 43 43 29 20 24 28 | 43 46 4c 41 47 53 29 20 |$(CC) $(|CFLAGS) |
|00000750| 2d 44 4d 49 4e 49 43 55 | 52 53 45 53 20 2d 6f 20 |-DMINICU|RSES -o |
|00000760| 63 6c 6f 63 6b 20 63 6c | 6f 63 6b 2e 63 20 2d 6c |clock cl|ock.c -l|
|00000770| 63 75 72 73 65 73 0a 58 | 09 24 28 43 43 29 20 24 |curses.X|.$(CC) $|
|00000780| 28 43 46 4c 41 47 53 29 | 20 2d 6f 20 63 6c 6f 63 |(CFLAGS)| -o cloc|
|00000790| 6b 20 63 6c 6f 63 6b 2e | 63 20 2d 6c 63 75 72 73 |k clock.|c -lcurs|
|000007a0| 65 73 0a 58 0a 58 69 6e | 73 74 61 6c 6c 3a 09 63 |es.X.Xin|stall:.c|
|000007b0| 6c 6f 63 6b 0a 58 09 73 | 74 72 69 70 20 63 6c 6f |lock.X.s|trip clo|
|000007c0| 63 6b 0a 58 09 2d 72 6d | 20 24 28 42 49 4e 44 49 |ck.X.-rm| $(BINDI|
|000007d0| 52 29 2f 63 6c 6f 63 6b | 0a 58 09 6c 6e 20 63 6c |R)/clock|.X.ln cl|
|000007e0| 6f 63 6b 20 24 28 42 49 | 4e 44 49 52 29 0a 58 09 |ock $(BI|NDIR).X.|
|000007f0| 74 6f 75 63 68 20 69 6e | 73 74 61 6c 6c 0a 58 0a |touch in|stall.X.|
|00000800| 58 6c 69 6e 74 3a 09 63 | 6c 6f 63 6b 2e 63 0a 58 |Xlint:.c|lock.c.X|
|00000810| 09 6c 69 6e 74 20 2d 70 | 75 20 63 6c 6f 63 6b 2e |.lint -p|u clock.|
|00000820| 63 20 3e 4c 49 4e 54 0a | 45 4e 44 5f 4f 46 5f 46 |c >LINT.|END_OF_F|
|00000830| 49 4c 45 0a 69 66 20 74 | 65 73 74 20 34 36 38 20 |ILE.if t|est 468 |
|00000840| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 27 4d 61 6b |-ne `wc |-c <'Mak|
|00000850| 65 66 69 6c 65 27 60 3b | 20 74 68 65 6e 0a 20 20 |efile'`;| then.  |
|00000860| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 5c 22 27 |  echo s|har: \"'|
|00000870| 4d 61 6b 65 66 69 6c 65 | 27 5c 22 20 75 6e 70 61 |Makefile|'\" unpa|
|00000880| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|00000890| 73 69 7a 65 21 0a 66 69 | 0a 23 20 65 6e 64 20 6f |size!.fi|.# end o|
|000008a0| 66 20 27 4d 61 6b 65 66 | 69 6c 65 27 0a 66 69 0a |f 'Makef|ile'.fi.|
|000008b0| 69 66 20 74 65 73 74 20 | 2d 66 20 27 63 6c 6f 63 |if test |-f 'cloc|
|000008c0| 6b 2e 63 27 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |k.c' -a |"${1}" !|
|000008d0| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|000008e0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|000008f0| 20 6e 6f 74 20 63 6c 6f | 62 62 65 72 20 65 78 69 | not clo|bber exi|
|00000900| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 27 63 6c |sting fi|le \"'cl|
|00000910| 6f 63 6b 2e 63 27 5c 22 | 0a 65 6c 73 65 0a 65 63 |ock.c'\"|.else.ec|
|00000920| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|00000930| 69 6e 67 20 5c 22 27 63 | 6c 6f 63 6b 2e 63 27 5c |ing \"'c|lock.c'\|
|00000940| 22 20 5c 28 35 30 31 39 | 20 63 68 61 72 61 63 74 |" \(5019| charact|
|00000950| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|00000960| 2f 22 20 3e 27 63 6c 6f | 63 6b 2e 63 27 20 3c 3c |/" >'clo|ck.c' <<|
|00000970| 27 45 4e 44 5f 4f 46 5f | 46 49 4c 45 27 0a 58 2f |'END_OF_|FILE'.X/|
|00000980| 2a 54 49 54 4c 45 20 63 | 6c 6f 63 6b 2e 63 20 2d |*TITLE c|lock.c -|
|00000990| 20 43 6c 6f 63 6b 2f 63 | 61 6c 65 6e 64 61 72 20 | Clock/c|alendar |
|000009a0| 6f 6e 20 74 65 72 6d 69 | 6e 61 6c 20 2d 20 35 2f |on termi|nal - 5/|
|000009b0| 34 2f 38 38 20 2a 2f 0a | 58 0a 58 2f 2a 0a 58 2a |4/88 */.|X.X/*.X*|
|000009c0| 2a 20 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 77 |* This p|rogram w|
|000009d0| 69 6c 6c 20 70 6c 61 63 | 65 20 61 20 66 75 6c 6c |ill plac|e a full|
|000009e0| 20 73 63 72 65 65 6e 20 | 28 72 65 61 64 61 62 6c | screen |(readabl|
|000009f0| 65 20 61 63 72 6f 73 73 | 20 74 68 65 20 72 6f 6f |e across| the roo|
|00000a00| 6d 29 0a 58 2a 2a 20 64 | 61 74 65 20 61 6e 64 20 |m).X** d|ate and |
|00000a10| 74 69 6d 65 20 64 69 73 | 70 6c 61 79 20 6f 6e 20 |time dis|play on |
|00000a20| 79 6f 75 72 20 74 65 72 | 6d 69 6e 61 6c 2e 20 20 |your ter|minal.  |
|00000a30| 54 68 65 20 64 69 73 70 | 6c 61 79 20 77 69 6c 6c |The disp|lay will|
|00000a40| 20 75 70 64 61 74 65 0a | 58 2a 2a 20 61 75 74 6f | update.|X** auto|
|00000a50| 6d 61 67 69 63 61 6c 6c | 79 2e 20 20 54 6f 20 72 |magicall|y.  To r|
|00000a60| 75 6e 20 69 74 2c 20 6d | 61 6b 65 20 73 75 72 65 |un it, m|ake sure|
|00000a70| 20 79 6f 75 72 20 54 45 | 52 4d 20 65 6e 76 69 72 | your TE|RM envir|
|00000a80| 6f 6e 6d 65 6e 74 61 6c | 0a 58 2a 2a 20 76 61 72 |onmental|.X** var|
|00000a90| 69 61 62 6c 65 20 69 73 | 20 73 65 74 20 70 72 6f |iable is| set pro|
|00000aa0| 70 65 72 6c 79 20 61 6e | 64 20 74 79 70 65 20 22 |perly an|d type "|
|00000ab0| 63 6c 6f 63 6b 22 2e 20 | 20 54 6f 20 65 6e 64 20 |clock". | To end |
|00000ac0| 74 68 65 20 70 72 6f 67 | 72 61 6d 2c 0a 58 2a 2a |the prog|ram,.X**|
|00000ad0| 20 74 79 70 65 20 79 6f | 75 72 20 22 69 6e 74 65 | type yo|ur "inte|
|00000ae0| 72 72 75 70 74 22 20 63 | 68 61 72 61 63 74 65 72 |rrupt" c|haracter|
|00000af0| 20 28 75 73 75 61 6c 6c | 79 20 63 6e 74 6c 2d 63 | (usuall|y cntl-c|
|00000b00| 20 6f 72 20 64 65 6c 65 | 74 65 29 2e 0a 58 2a 2a | or dele|te)..X**|
|00000b10| 20 54 68 65 20 70 72 6f | 67 72 61 6d 20 61 6c 73 | The pro|gram als|
|00000b20| 6f 20 74 72 61 70 73 20 | 74 68 65 20 22 74 65 72 |o traps |the "ter|
|00000b30| 6d 69 6e 61 74 65 22 20 | 73 69 67 6e 61 6c 2c 20 |minate" |signal, |
|00000b40| 73 6f 20 69 74 20 63 61 | 6e 20 62 65 0a 58 2a 2a |so it ca|n be.X**|
|00000b50| 20 67 72 61 63 65 66 75 | 6c 6c 79 20 73 74 6f 70 | gracefu|lly stop|
|00000b60| 70 65 64 20 62 79 20 73 | 68 75 74 64 6f 77 6e 28 |ped by s|hutdown(|
|00000b70| 31 4d 29 20 6f 72 20 61 | 20 6b 69 6c 6c 20 63 6f |1M) or a| kill co|
|00000b80| 6d 6d 61 6e 64 20 66 72 | 6f 6d 20 61 6e 6f 74 68 |mmand fr|om anoth|
|00000b90| 65 72 0a 58 2a 2a 20 74 | 65 72 6d 69 6e 61 6c 2e |er.X** t|erminal.|
|00000ba0| 0a 58 2a 2a 0a 58 2a 2a | 20 20 49 74 20 68 61 73 |.X**.X**|  It has|
|00000bb0| 20 62 65 65 6e 20 74 65 | 73 74 65 64 20 6f 6e 20 | been te|sted on |
|00000bc0| 73 65 76 65 72 61 6c 20 | 53 79 73 74 65 6d 20 56 |several |System V|
|00000bd0| 20 6d 61 63 68 69 6e 65 | 73 2c 20 62 75 74 20 6e | machine|s, but n|
|00000be0| 6f 20 6f 74 68 65 72 73 | 2e 0a 58 2a 2a 20 20 54 |o others|..X**  T|
|00000bf0| 6f 20 63 6f 6d 70 69 6c | 65 3a 20 20 63 63 20 2d |o compil|e:  cc -|
|00000c00| 4f 20 2d 73 20 63 6c 6f | 63 6b 2e 63 20 2d 6f 20 |O -s clo|ck.c -o |
|00000c10| 63 6c 6f 63 6b 20 2d 6c | 63 75 72 73 65 73 0a 58 |clock -l|curses.X|
|00000c20| 2a 2f 0a 58 0a 58 2f 2a | 20 20 54 68 69 73 20 70 |*/.X.X/*|  This p|
|00000c30| 72 6f 67 72 61 6d 2c 20 | 61 6e 64 20 74 68 65 20 |rogram, |and the |
|00000c40| 70 72 6f 63 65 64 75 72 | 65 73 20 69 6e 20 69 74 |procedur|es in it|
|00000c50| 20 61 72 65 20 43 6f 70 | 79 72 69 67 68 74 20 31 | are Cop|yright 1|
|00000c60| 39 38 38 20 62 79 3a 0a | 58 2a 2a 09 44 43 46 2c |988 by:.|X**.DCF,|
|00000c70| 20 49 6e 63 2e 0a 58 2a | 2a 09 31 34 36 32 33 20 | Inc..X*|*.14623 |
|00000c80| 4e 6f 72 74 68 20 34 39 | 74 68 20 50 6c 61 63 65 |North 49|th Place|
|00000c90| 0a 58 2a 2a 09 53 63 6f | 74 74 73 64 61 6c 65 2c |.X**.Sco|ttsdale,|
|00000ca0| 20 41 5a 20 38 35 32 35 | 34 0a 58 2a 2a 20 20 59 | AZ 8525|4.X**  Y|
|00000cb0| 6f 75 20 6d 61 79 20 75 | 73 65 20 69 74 20 61 73 |ou may u|se it as|
|00000cc0| 20 79 6f 75 20 77 69 73 | 68 2c 20 69 6e 63 6c 75 | you wis|h, inclu|
|00000cd0| 64 69 6e 67 20 72 65 2d | 64 69 73 74 72 69 62 75 |ding re-|distribu|
|00000ce0| 74 69 6f 6e 2c 20 61 73 | 20 6c 6f 6e 67 0a 58 2a |tion, as| long.X*|
|00000cf0| 2a 20 20 61 73 20 74 68 | 69 73 20 6e 6f 74 69 63 |*  as th|is notic|
|00000d00| 65 20 72 65 6d 61 69 6e | 73 20 69 6e 74 61 63 74 |e remain|s intact|
|00000d10| 20 61 6e 64 20 77 69 74 | 68 20 74 68 65 20 73 6f | and wit|h the so|
|00000d20| 75 72 63 65 20 63 6f 64 | 65 2e 0a 58 2a 2a 20 20 |urce cod|e..X**  |
|00000d30| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 77 61 73 |This pro|gram was|
|00000d40| 20 73 75 67 67 65 73 74 | 65 64 20 62 79 20 61 20 | suggest|ed by a |
|00000d50| 73 69 6d 69 6c 61 72 20 | 6f 6e 65 20 77 72 69 74 |similar |one writ|
|00000d60| 74 65 6e 20 62 79 0a 58 | 2a 2a 20 20 61 6e 61 73 |ten by.X|**  anas|
|00000d70| 61 7a 69 21 64 75 61 6e | 65 2e 0a 58 2a 2f 0a 58 |azi!duan|e..X*/.X|
|00000d80| 0a 58 2f 2a 53 55 42 54 | 54 4c 20 49 6e 63 6c 75 |.X/*SUBT|TL Inclu|
|00000d90| 64 65 73 2c 20 64 65 66 | 69 6e 65 73 2c 20 61 6e |des, def|ines, an|
|00000da0| 64 20 64 65 63 6c 61 72 | 61 74 69 6f 6e 73 20 2a |d declar|ations *|
|00000db0| 2f 0a 58 0a 58 73 74 61 | 74 69 63 20 63 68 61 72 |/.X.Xsta|tic char|
|00000dc0| 09 53 43 43 53 5b 5d 20 | 3d 20 22 40 28 23 29 63 |.SCCS[] |= "@(#)c|
|00000dd0| 6c 6f 63 6b 2e 63 09 31 | 2e 34 20 34 2f 33 30 2f |lock.c.1|.4 4/30/|
|00000de0| 38 38 20 30 39 3a 30 34 | 3a 35 34 22 3b 0a 58 0a |88 09:04|:54";.X.|
|00000df0| 58 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |X#includ|e <stdio|
|00000e00| 2e 68 3e 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 63 |.h>.X#in|clude <c|
|00000e10| 75 72 73 65 73 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |urses.h>|.X#inclu|
|00000e20| 64 65 20 3c 73 74 72 69 | 6e 67 2e 68 3e 0a 58 23 |de <stri|ng.h>.X#|
|00000e30| 69 6e 63 6c 75 64 65 20 | 3c 65 72 72 6e 6f 2e 68 |include |<errno.h|
|00000e40| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 73 69 67 |>.X#incl|ude <sig|
|00000e50| 6e 61 6c 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |nal.h>.X|#include|
|00000e60| 20 3c 74 69 6d 65 2e 68 | 3e 0a 58 0a 58 23 64 65 | <time.h|>.X.X#de|
|00000e70| 66 69 6e 65 09 4d 41 58 | 4c 49 4e 45 53 09 38 09 |fine.MAX|LINES.8.|
|00000e80| 2f 2a 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |/* numbe|r of lin|
|00000e90| 65 73 20 6f 75 74 70 75 | 74 20 62 79 20 62 61 6e |es outpu|t by ban|
|00000ea0| 6e 65 72 20 2a 2f 0a 58 | 23 64 65 66 69 6e 65 20 |ner */.X|#define |
|00000eb0| 42 41 4e 4e 45 52 09 09 | 22 2f 75 73 72 2f 62 69 |BANNER..|"/usr/bi|
|00000ec0| 6e 2f 62 61 6e 6e 65 72 | 20 22 09 2f 2a 20 5b 61 |n/banner| "./* [a|
|00000ed0| 6e 6e 65 72 20 70 72 6f | 67 72 61 6d 20 74 6f 20 |nner pro|gram to |
|00000ee0| 75 73 65 20 2a 2f 0a 58 | 23 64 65 66 69 6e 65 09 |use */.X|#define.|
|00000ef0| 44 41 59 5f 4c 49 4e 45 | 09 30 09 2f 2a 20 73 63 |DAY_LINE|.0./* sc|
|00000f00| 72 65 65 6e 20 6c 6f 63 | 61 74 69 6f 6e 20 66 6f |reen loc|ation fo|
|00000f10| 72 20 64 69 73 70 6c 61 | 79 20 65 6c 65 6d 65 6e |r displa|y elemen|
|00000f20| 74 73 20 2a 2f 0a 58 23 | 64 65 66 69 6e 65 09 44 |ts */.X#|define.D|
|00000f30| 41 54 45 5f 4c 49 4e 45 | 09 38 0a 58 23 64 65 66 |ATE_LINE|.8.X#def|
|00000f40| 69 6e 65 09 54 49 4d 45 | 5f 4c 49 4e 45 09 31 36 |ine.TIME|_LINE.16|
|00000f50| 0a 58 0a 58 0a 58 2f 2a | 20 67 6c 6f 62 61 6c 20 |.X.X.X/*| global |
|00000f60| 64 61 74 61 20 2a 2f 0a | 58 63 68 61 72 09 09 74 |data */.|Xchar..t|
|00000f70| 69 6d 65 5f 62 75 66 5b | 32 34 5d 3b 09 2f 2a 20 |ime_buf[|24];./* |
|00000f80| 6c 6f 63 61 6c 20 74 69 | 6d 65 20 61 73 20 61 20 |local ti|me as a |
|00000f90| 73 74 72 69 6e 67 20 2a | 2f 0a 58 73 74 72 75 63 |string *|/.Xstruc|
|00000fa0| 74 20 74 6d 09 2a 74 69 | 6d 65 5f 74 6d 3b 09 2f |t tm.*ti|me_tm;./|
|00000fb0| 2a 20 6c 6f 63 61 6c 20 | 74 69 6d 65 20 61 73 20 |* local |time as |
|00000fc0| 61 20 73 74 72 75 63 74 | 75 72 65 20 2a 2f 0a 58 |a struct|ure */.X|
|00000fd0| 0a 58 2f 2a 20 66 6f 72 | 77 61 72 64 20 72 65 66 |.X/* for|ward ref|
|00000fe0| 65 72 65 6e 63 65 73 20 | 2a 2f 0a 58 76 6f 69 64 |erences |*/.Xvoid|
|00000ff0| 09 09 70 75 74 5f 73 63 | 72 28 29 2c 20 64 6f 5f |..put_sc|r(), do_|
|00001000| 74 69 6d 65 28 29 2c 20 | 64 6f 5f 64 61 74 65 28 |time(), |do_date(|
|00001010| 29 2c 20 62 6c 61 6d 6d | 6f 28 29 2c 20 65 6e 64 |), blamm|o(), end|
|00001020| 5f 77 69 6e 28 29 2c 20 | 65 78 69 74 28 29 3b 0a |_win(), |exit();.|
|00001030| 58 69 6e 74 09 09 63 61 | 74 5f 69 6e 74 28 29 3b |Xint..ca|t_int();|
|00001040| 0a 58 75 6e 73 69 67 6e | 65 64 09 73 6c 65 65 70 |.Xunsign|ed.sleep|
|00001050| 28 29 3b 0a 58 65 78 74 | 65 72 6e 20 46 49 4c 45 |();.Xext|ern FILE|
|00001060| 09 2a 70 6f 70 65 6e 28 | 29 3b 0a 58 65 78 74 65 |.*popen(|);.Xexte|
|00001070| 72 6e 20 6c 6f 6e 67 09 | 74 69 6d 65 28 29 3b 0a |rn long.|time();.|
|00001080| 58 0a 58 0a 58 2f 2a 53 | 55 42 54 54 4c 20 4d 61 |X.X.X/*S|UBTTL Ma|
|00001090| 69 6e 20 70 72 6f 63 65 | 64 75 72 65 20 2a 2f 0a |in proce|dure */.|
|000010a0| 58 6d 61 69 6e 28 29 0a | 58 7b 0a 58 20 20 20 20 |Xmain().|X{.X    |
|000010b0| 6c 6f 6e 67 09 74 69 63 | 6b 73 3b 09 09 2f 2a 20 |long.tic|ks;../* |
|000010c0| 73 65 63 6f 6e 64 73 20 | 73 69 6e 63 65 20 65 70 |seconds |since ep|
|000010d0| 6f 63 68 20 2a 2f 0a 58 | 20 20 20 20 69 6e 74 09 |och */.X|    int.|
|000010e0| 09 6f 6c 64 5f 64 61 79 | 20 3d 20 2d 31 3b 09 2f |.old_day| = -1;./|
|000010f0| 2a 20 70 72 65 76 69 6f | 75 73 20 6a 75 6c 69 61 |* previo|us julia|
|00001100| 6e 20 64 61 79 20 2a 2f | 0a 58 0a 58 20 20 20 20 |n day */|.X.X    |
|00001110| 69 66 20 28 20 21 69 6e | 69 74 73 63 72 28 29 20 |if ( !in|itscr() |
|00001120| 29 0a 58 20 20 20 20 20 | 20 20 20 62 6c 61 6d 6d |).X     |   blamm|
|00001130| 6f 28 22 63 75 72 73 65 | 73 20 69 6e 69 74 69 61 |o("curse|s initia|
|00001140| 6c 69 7a 61 74 69 6f 6e | 20 66 61 69 6c 65 64 22 |lization| failed"|
|00001150| 2c 20 30 29 3b 0a 58 0a | 58 20 20 20 20 73 69 67 |, 0);.X.|X    sig|
|00001160| 6e 61 6c 28 53 49 47 49 | 4e 54 2c 20 63 61 74 5f |nal(SIGI|NT, cat_|
|00001170| 69 6e 74 29 3b 09 2f 2a | 20 70 72 6f 76 69 64 65 |int);./*| provide|
|00001180| 20 61 6e 20 65 78 69 74 | 20 70 61 74 68 20 2a 2f | an exit| path */|
|00001190| 0a 58 20 20 20 20 73 69 | 67 6e 61 6c 28 53 49 47 |.X    si|gnal(SIG|
|000011a0| 54 45 52 4d 2c 20 63 61 | 74 5f 69 6e 74 29 3b 0a |TERM, ca|t_int);.|
|000011b0| 58 20 20 20 20 63 6c 65 | 61 72 28 29 3b 09 09 09 |X    cle|ar();...|
|000011c0| 2f 2a 20 73 65 74 75 70 | 20 2a 2f 0a 58 20 20 20 |/* setup| */.X   |
|000011d0| 20 6e 6f 65 63 68 6f 28 | 29 3b 0a 58 0a 58 20 20 | noecho(|);.X.X  |
|000011e0| 20 20 77 68 69 6c 65 20 | 28 54 52 55 45 29 20 7b |  while |(TRUE) {|
|000011f0| 0a 58 09 2f 2a 20 67 65 | 74 20 74 68 65 20 6c 6f |.X./* ge|t the lo|
|00001200| 63 61 6c 20 74 69 6d 65 | 20 66 6f 72 20 75 73 20 |cal time| for us |
|00001210| 74 6f 20 75 73 65 20 2a | 2f 0a 58 09 74 69 63 6b |to use *|/.X.tick|
|00001220| 73 20 3d 20 74 69 6d 65 | 28 20 28 6c 6f 6e 67 20 |s = time|( (long |
|00001230| 2a 29 4e 55 4c 4c 20 29 | 3b 0a 58 09 73 74 72 6e |*)NULL )|;.X.strn|
|00001240| 63 70 79 28 74 69 6d 65 | 5f 62 75 66 2c 20 63 74 |cpy(time|_buf, ct|
|00001250| 69 6d 65 28 26 74 69 63 | 6b 73 29 2c 20 32 34 29 |ime(&tic|ks), 24)|
|00001260| 3b 0a 58 09 74 69 6d 65 | 5f 74 6d 20 3d 20 6c 6f |;.X.time|_tm = lo|
|00001270| 63 61 6c 74 69 6d 65 28 | 26 74 69 63 6b 73 29 3b |caltime(|&ticks);|
|00001280| 0a 58 0a 58 09 2f 2a 20 | 70 75 74 20 64 61 74 65 |.X.X./* |put date|
|00001290| 20 26 20 74 69 6d 65 20 | 6f 6e 20 74 68 65 20 73 | & time |on the s|
|000012a0| 63 72 65 65 6e 20 2a 2f | 0a 58 09 69 66 20 28 6f |creen */|.X.if (o|
|000012b0| 6c 64 5f 64 61 79 20 21 | 3d 20 74 69 6d 65 5f 74 |ld_day !|= time_t|
|000012c0| 6d 2d 3e 74 6d 5f 79 64 | 61 79 29 20 7b 0a 58 09 |m->tm_yd|ay) {.X.|
|000012d0| 20 20 20 20 6f 6c 64 5f | 64 61 79 20 3d 20 74 69 |    old_|day = ti|
|000012e0| 6d 65 5f 74 6d 2d 3e 74 | 6d 5f 79 64 61 79 3b 0a |me_tm->t|m_yday;.|
|000012f0| 58 09 20 20 20 20 64 6f | 5f 64 61 74 65 28 29 3b |X.    do|_date();|
|00001300| 09 09 2f 2a 20 62 75 69 | 6c 64 20 61 20 6e 65 77 |../* bui|ld a new|
|00001310| 20 64 61 74 65 20 2a 2f | 0a 58 09 7d 0a 58 20 20 | date */|.X.}.X  |
|00001320| 20 20 20 20 20 20 64 6f | 5f 74 69 6d 65 28 29 3b |      do|_time();|
|00001330| 09 09 2f 2a 20 62 75 69 | 6c 64 20 74 68 65 20 74 |../* bui|ld the t|
|00001340| 69 6d 65 20 2a 2f 0a 58 | 09 6d 6f 76 65 28 30 2c |ime */.X|.move(0,|
|00001350| 20 30 29 3b 09 09 2f 2a | 20 75 70 64 61 74 65 20 | 0);../*| update |
|00001360| 74 68 65 20 73 63 72 65 | 65 6e 20 2a 2f 0a 58 09 |the scre|en */.X.|
|00001370| 72 65 66 72 65 73 68 28 | 29 3b 0a 58 0a 58 09 2f |refresh(|);.X.X./|
|00001380| 2a 20 77 61 69 74 20 66 | 6f 72 20 63 6c 6f 63 6b |* wait f|or clock|
|00001390| 20 74 6f 20 72 6f 6c 6c | 20 6f 76 65 72 20 74 68 | to roll| over th|
|000013a0| 65 20 6e 65 78 74 20 6d | 69 6e 75 74 65 20 2a 2f |e next m|inute */|
|000013b0| 0a 58 09 73 6c 65 65 70 | 28 20 28 75 6e 73 69 67 |.X.sleep|( (unsig|
|000013c0| 6e 65 64 29 28 36 30 20 | 2d 20 74 69 6d 65 5f 74 |ned)(60 |- time_t|
|000013d0| 6d 2d 3e 74 6d 5f 73 65 | 63 29 20 29 3b 0a 58 20 |m->tm_se|c) );.X |
|000013e0| 20 20 20 7d 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 53 |   }.X}.|X.X.X/*S|
|000013f0| 55 42 54 54 4c 20 64 6f | 5f 64 61 74 65 20 2d 20 |UBTTL do|_date - |
|00001400| 64 69 73 70 6c 61 79 20 | 74 68 65 20 64 61 74 65 |display |the date|
|00001410| 20 62 61 6e 6e 65 72 20 | 2a 2f 0a 58 2f 2a 0a 58 | banner |*/.X/*.X|
|00001420| 2a 2a 20 20 43 6f 6e 73 | 74 72 75 63 74 20 61 6e |**  Cons|truct an|
|00001430| 64 20 64 69 73 70 6c 61 | 79 20 74 68 65 20 64 61 |d displa|y the da|
|00001440| 74 65 20 62 61 6e 6e 65 | 72 0a 58 2a 2f 0a 58 76 |te banne|r.X*/.Xv|
|00001450| 6f 69 64 20 64 6f 5f 64 | 61 74 65 28 29 0a 58 7b |oid do_d|ate().X{|
|00001460| 0a 58 20 20 20 20 73 74 | 61 74 69 63 20 63 68 61 |.X    st|atic cha|
|00001470| 72 20 2a 64 61 79 73 5b | 5d 20 3d 20 7b 09 2f 2a |r *days[|] = {./*|
|00001480| 20 64 61 79 73 20 6f 66 | 20 74 68 65 20 77 65 65 | days of| the wee|
|00001490| 6b 20 2a 2f 0a 58 20 20 | 20 20 20 20 22 53 75 6e |k */.X  |    "Sun|
|000014a0| 64 61 79 22 2c 20 22 4d | 6f 6e 64 61 79 22 2c 20 |day", "M|onday", |
|000014b0| 22 54 75 65 73 64 61 79 | 22 2c 20 22 57 65 64 6e |"Tuesday|", "Wedn|
|000014c0| 65 73 64 61 79 22 2c 0a | 58 20 20 20 20 20 20 22 |esday",.|X      "|
|000014d0| 54 68 75 72 73 64 61 79 | 22 2c 20 22 46 72 69 64 |Thursday|", "Frid|
|000014e0| 61 79 22 2c 20 22 53 61 | 74 75 72 64 61 79 22 20 |ay", "Sa|turday" |
|000014f0| 7d 3b 0a 58 20 20 20 20 | 63 68 61 72 09 62 75 66 |};.X    |char.buf|
|00001500| 5b 37 5d 3b 0a 58 0a 58 | 20 20 20 20 65 72 61 73 |[7];.X.X|    eras|
|00001510| 65 28 29 3b 09 2f 2a 20 | 69 6e 20 63 61 73 65 20 |e();./* |in case |
|00001520| 6e 65 77 20 64 61 74 65 | 20 69 73 20 73 68 6f 72 |new date| is shor|
|00001530| 74 65 72 20 74 68 61 6e | 20 63 75 72 72 65 6e 74 |ter than| current|
|00001540| 20 2a 2f 0a 58 20 20 20 | 20 70 75 74 5f 73 63 72 | */.X   | put_scr|
|00001550| 28 44 41 59 5f 4c 49 4e | 45 2c 20 64 61 79 73 5b |(DAY_LIN|E, days[|
|00001560| 74 69 6d 65 5f 74 6d 2d | 3e 74 6d 5f 77 64 61 79 |time_tm-|>tm_wday|
|00001570| 5d 29 3b 0a 58 20 20 20 | 20 73 74 72 6e 63 70 79 |]);.X   | strncpy|
|00001580| 28 62 75 66 2c 20 26 74 | 69 6d 65 5f 62 75 66 5b |(buf, &t|ime_buf[|
|00001590| 34 5d 2c 20 36 29 3b 0a | 58 20 20 20 20 62 75 66 |4], 6);.|X    buf|
|000015a0| 5b 36 5d 20 3d 20 27 5c | 30 27 3b 0a 58 20 20 20 |[6] = '\|0';.X   |
|000015b0| 20 70 75 74 5f 73 63 72 | 28 44 41 54 45 5f 4c 49 | put_scr|(DATE_LI|
|000015c0| 4e 45 2c 20 62 75 66 29 | 3b 0a 58 7d 0a 58 0a 58 |NE, buf)|;.X}.X.X|
|000015d0| 0a 58 2f 2a 53 55 42 54 | 54 4c 20 64 6f 5f 74 69 |.X/*SUBT|TL do_ti|
|000015e0| 6d 65 20 2d 20 64 69 73 | 70 6c 61 79 20 74 68 65 |me - dis|play the|
|000015f0| 20 74 69 6d 65 20 62 61 | 6e 6e 65 72 20 2a 2f 0a | time ba|nner */.|
|00001600| 58 2f 2a 0a 58 2a 2a 20 | 20 43 6f 6e 73 74 72 75 |X/*.X** | Constru|
|00001610| 63 74 20 61 6e 64 20 64 | 69 73 70 6c 61 79 20 74 |ct and d|isplay t|
|00001620| 68 65 20 74 69 6d 65 20 | 62 61 6e 6e 65 72 0a 58 |he time |banner.X|
|00001630| 2a 2f 0a 58 76 6f 69 64 | 20 64 6f 5f 74 69 6d 65 |*/.Xvoid| do_time|
|00001640| 28 29 0a 58 7b 0a 58 20 | 20 20 20 63 68 61 72 09 |().X{.X |   char.|
|00001650| 62 75 66 5b 36 5d 3b 0a | 58 0a 58 20 20 20 20 73 |buf[6];.|X.X    s|
|00001660| 74 72 6e 63 70 79 28 62 | 75 66 2c 20 26 74 69 6d |trncpy(b|uf, &tim|
|00001670| 65 5f 62 75 66 5b 31 31 | 5d 2c 20 35 29 3b 0a 58 |e_buf[11|], 5);.X|
|00001680| 20 20 20 20 62 75 66 5b | 35 5d 20 3d 20 27 5c 30 |    buf[|5] = '\0|
|00001690| 27 3b 0a 58 20 20 20 20 | 70 75 74 5f 73 63 72 28 |';.X    |put_scr(|
|000016a0| 54 49 4d 45 5f 4c 49 4e | 45 2c 20 62 75 66 29 3b |TIME_LIN|E, buf);|
|000016b0| 0a 58 7d 0a 58 0a 58 0a | 58 2f 2a 53 55 42 54 54 |.X}.X.X.|X/*SUBTT|
|000016c0| 4c 20 70 75 74 5f 73 63 | 72 20 2d 20 70 75 74 20 |L put_sc|r - put |
|000016d0| 61 20 62 61 6e 6e 65 72 | 20 69 6e 20 74 68 65 20 |a banner| in the |
|000016e0| 73 63 72 65 65 6e 20 62 | 75 66 66 65 72 20 2a 2f |screen b|uffer */|
|000016f0| 0a 58 2f 2a 0a 58 2a 2a | 20 20 43 6f 6e 73 74 72 |.X/*.X**|  Constr|
|00001700| 75 63 74 20 61 6e 64 20 | 64 69 73 70 6c 61 79 20 |uct and |display |
|00001710| 61 20 62 61 6e 6e 65 72 | 20 73 74 72 69 6e 67 0a |a banner| string.|
|00001720| 58 2a 2f 0a 58 0a 58 76 | 6f 69 64 09 70 75 74 5f |X*/.X.Xv|oid.put_|
|00001730| 73 63 72 28 77 68 65 72 | 65 2c 20 77 68 61 74 29 |scr(wher|e, what)|
|00001740| 0a 58 69 6e 74 09 77 68 | 65 72 65 3b 0a 58 63 68 |.Xint.wh|ere;.Xch|
|00001750| 61 72 09 2a 77 68 61 74 | 3b 0a 58 7b 0a 58 20 20 |ar.*what|;.X{.X  |
|00001760| 20 20 63 68 61 72 09 62 | 61 6e 5f 62 75 66 5b 4d |  char.b|an_buf[M|
|00001770| 41 58 4c 49 4e 45 53 5d | 5b 38 30 5d 3b 0a 58 20 |AXLINES]|[80];.X |
|00001780| 20 20 20 63 68 61 72 09 | 62 75 66 5b 38 30 5d 3b |   char.|buf[80];|
|00001790| 0a 58 20 20 20 20 46 49 | 4c 45 09 2a 70 72 6f 63 |.X    FI|LE.*proc|
|000017a0| 5f 73 74 72 65 61 6d 3b | 0a 58 20 20 20 20 69 6e |_stream;|.X    in|
|000017b0| 74 09 09 6c 65 6e 67 74 | 68 20 3d 20 30 3b 0a 58 |t..lengt|h = 0;.X|
|000017c0| 20 20 20 20 72 65 67 69 | 73 74 65 72 20 69 6e 74 |    regi|ster int|
|000017d0| 20 6c 69 6e 65 3b 0a 58 | 0a 58 20 20 20 20 2f 2a | line;.X|.X    /*|
|000017e0| 20 73 74 61 72 74 20 61 | 20 22 62 61 6e 6e 65 72 | start a| "banner|
|000017f0| 22 20 73 74 72 65 61 6d | 20 69 6e 20 6f 75 72 20 |" stream| in our |
|00001800| 64 69 72 65 63 74 69 6f | 6e 20 2a 2f 0a 58 20 20 |directio|n */.X  |
|00001810| 20 20 73 74 72 6e 63 70 | 79 28 62 75 66 2c 20 42 |  strncp|y(buf, B|
|00001820| 41 4e 4e 45 52 2c 20 38 | 30 29 3b 0a 58 20 20 20 |ANNER, 8|0);.X   |
|00001830| 20 73 74 72 63 61 74 28 | 62 75 66 2c 20 22 27 22 | strcat(|buf, "'"|
|00001840| 29 3b 0a 58 20 20 20 20 | 73 74 72 63 61 74 28 62 |);.X    |strcat(b|
|00001850| 75 66 2c 20 77 68 61 74 | 29 3b 0a 58 20 20 20 20 |uf, what|);.X    |
|00001860| 73 74 72 63 61 74 28 62 | 75 66 2c 20 22 27 22 29 |strcat(b|uf, "'")|
|00001870| 3b 0a 58 20 20 20 20 69 | 66 20 28 20 28 70 72 6f |;.X    i|f ( (pro|
|00001880| 63 5f 73 74 72 65 61 6d | 20 3d 20 70 6f 70 65 6e |c_stream| = popen|
|00001890| 28 62 75 66 2c 20 22 72 | 22 29 20 29 20 3d 3d 20 |(buf, "r|") ) == |
|000018a0| 28 46 49 4c 45 20 2a 29 | 4e 55 4c 4c 20 29 0a 58 |(FILE *)|NULL ).X|
|000018b0| 20 20 20 20 20 20 20 20 | 62 6c 61 6d 6d 6f 28 22 |        |blammo("|
|000018c0| 50 6f 70 65 6e 22 2c 20 | 65 72 72 6e 6f 29 3b 0a |Popen", |errno);.|
|000018d0| 58 0a 58 20 20 20 20 2f | 2a 20 63 61 70 74 75 72 |X.X    /|* captur|
|000018e0| 65 20 74 68 65 20 73 74 | 72 65 61 6d 20 69 6e 20 |e the st|ream in |
|000018f0| 6f 75 72 20 62 75 66 66 | 65 72 20 2a 2f 0a 58 20 |our buff|er */.X |
|00001900| 20 20 20 66 6f 72 20 28 | 6c 69 6e 65 20 3d 20 30 |   for (|line = 0|
|00001910| 3b 20 6c 69 6e 65 20 3c | 20 4d 41 58 4c 49 4e 45 |; line <| MAXLINE|
|00001920| 53 3b 20 6c 69 6e 65 2b | 2b 29 20 7b 0a 58 09 66 |S; line+|+) {.X.f|
|00001930| 67 65 74 73 28 62 61 6e | 5f 62 75 66 5b 6c 69 6e |gets(ban|_buf[lin|
|00001940| 65 5d 2c 20 38 30 2c 20 | 70 72 6f 63 5f 73 74 72 |e], 80, |proc_str|
|00001950| 65 61 6d 29 3b 0a 58 09 | 69 66 20 28 20 66 65 6f |eam);.X.|if ( feo|
|00001960| 66 28 70 72 6f 63 5f 73 | 74 72 65 61 6d 29 20 29 |f(proc_s|tream) )|
|00001970| 0a 58 09 20 20 20 20 62 | 6c 61 6d 6d 6f 28 22 50 |.X.    b|lammo("P|
|00001980| 72 65 6d 61 74 75 72 65 | 20 65 6f 66 22 2c 20 30 |remature| eof", 0|
|00001990| 29 3b 0a 58 20 20 20 20 | 7d 0a 58 20 20 20 20 28 |);.X    |}.X    (|
|000019a0| 76 6f 69 64 29 70 63 6c | 6f 73 65 28 70 72 6f 63 |void)pcl|ose(proc|
|000019b0| 5f 73 74 72 65 61 6d 29 | 3b 0a 58 0a 58 20 20 20 |_stream)|;.X.X   |
|000019c0| 20 2f 2a 20 66 69 67 75 | 72 65 20 6f 75 74 20 68 | /* figu|re out h|
|000019d0| 6f 77 20 6c 6f 6e 67 20 | 74 68 69 73 20 62 61 6e |ow long |this ban|
|000019e0| 6e 65 72 20 69 73 20 28 | 66 6f 72 20 63 65 6e 74 |ner is (|for cent|
|000019f0| 65 72 69 6e 67 29 20 2a | 2f 0a 58 20 20 20 20 66 |ering) *|/.X    f|
|00001a00| 6f 72 20 28 6c 69 6e 65 | 20 3d 20 30 3b 20 6c 69 |or (line| = 0; li|
|00001a10| 6e 65 20 3c 20 4d 41 58 | 4c 49 4e 45 53 3b 20 6c |ne < MAX|LINES; l|
|00001a20| 69 6e 65 2b 2b 29 0a 58 | 09 6c 65 6e 67 74 68 20 |ine++).X|.length |
|00001a30| 3d 20 28 6c 65 6e 67 74 | 68 20 3c 20 73 74 72 6c |= (lengt|h < strl|
|00001a40| 65 6e 28 62 61 6e 5f 62 | 75 66 5b 6c 69 6e 65 5d |en(ban_b|uf[line]|
|00001a50| 29 20 3f 0a 58 09 20 20 | 73 74 72 6c 65 6e 28 62 |) ?.X.  |strlen(b|
|00001a60| 61 6e 5f 62 75 66 5b 6c | 69 6e 65 5d 29 20 3a 20 |an_buf[l|ine]) : |
|00001a70| 6c 65 6e 67 74 68 29 3b | 0a 58 0a 58 20 20 20 20 |length);|.X.X    |
|00001a80| 2f 2a 20 70 75 74 20 74 | 68 65 20 62 61 6e 6e 65 |/* put t|he banne|
|00001a90| 72 20 69 6e 20 74 68 65 | 20 73 63 72 65 65 6e 20 |r in the| screen |
|00001aa0| 62 75 66 66 65 72 20 2a | 2f 0a 58 20 20 20 20 66 |buffer *|/.X    f|
|00001ab0| 6f 72 20 28 6c 69 6e 65 | 20 3d 20 30 3b 20 6c 69 |or (line| = 0; li|
|00001ac0| 6e 65 20 3c 20 4d 41 58 | 4c 49 4e 45 53 3b 20 6c |ne < MAX|LINES; l|
|00001ad0| 69 6e 65 2b 2b 29 0a 58 | 09 6d 76 61 64 64 73 74 |ine++).X|.mvaddst|
|00001ae0| 72 28 77 68 65 72 65 20 | 2b 20 6c 69 6e 65 2c 20 |r(where |+ line, |
|00001af0| 28 43 4f 4c 53 20 2d 20 | 6c 65 6e 67 74 68 29 20 |(COLS - |length) |
|00001b00| 2f 20 32 2c 20 62 61 6e | 5f 62 75 66 5b 6c 69 6e |/ 2, ban|_buf[lin|
|00001b10| 65 5d 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 53 |e]);.X}.|X.X.X/*S|
|00001b20| 55 42 54 54 4c 20 62 6c | 61 6d 6d 6f 20 2d 20 64 |UBTTL bl|ammo - d|
|00001b30| 69 73 70 6c 61 79 20 6d | 65 73 73 61 67 65 20 61 |isplay m|essage a|
|00001b40| 6e 64 20 74 65 72 6d 69 | 6e 61 74 65 20 70 72 6f |nd termi|nate pro|
|00001b50| 67 72 61 6d 20 2a 2f 0a | 58 2f 2a 0a 58 2a 2a 20 |gram */.|X/*.X** |
|00001b60| 20 52 65 73 65 74 20 74 | 68 65 20 73 63 72 65 65 | Reset t|he scree|
|00001b70| 6e 2c 20 69 73 73 75 65 | 20 61 6e 20 65 72 72 6f |n, issue| an erro|
|00001b80| 72 20 6d 65 73 73 61 67 | 65 2c 20 61 6e 64 20 65 |r messag|e, and e|
|00001b90| 78 69 74 2e 0a 58 2a 2f | 0a 58 0a 58 76 6f 69 64 |xit..X*/|.X.Xvoid|
|00001ba0| 20 62 6c 61 6d 6d 6f 28 | 6d 73 67 2c 20 63 6f 64 | blammo(|msg, cod|
|00001bb0| 65 29 0a 58 63 68 61 72 | 09 2a 6d 73 67 3b 0a 58 |e).Xchar|.*msg;.X|
|00001bc0| 69 6e 74 09 63 6f 64 65 | 3b 0a 58 7b 0a 58 20 20 |int.code|;.X{.X  |
|00001bd0| 20 20 65 6e 64 5f 77 69 | 6e 28 29 3b 0a 58 20 20 |  end_wi|n();.X  |
|00001be0| 20 20 69 66 20 28 63 6f | 64 65 29 0a 58 20 20 20 |  if (co|de).X   |
|00001bf0| 20 20 20 20 20 66 70 72 | 69 6e 74 66 28 73 74 64 |     fpr|intf(std|
|00001c00| 65 72 72 2c 20 22 25 73 | 20 65 72 72 6f 72 20 25 |err, "%s| error %|
|00001c10| 64 5c 6e 22 2c 20 6d 73 | 67 2c 20 63 6f 64 65 29 |d\n", ms|g, code)|
|00001c20| 3b 0a 58 20 20 20 20 65 | 6c 73 65 0a 58 20 20 20 |;.X    e|lse.X   |
|00001c30| 20 20 20 20 20 66 70 72 | 69 6e 74 66 28 73 74 64 |     fpr|intf(std|
|00001c40| 65 72 72 2c 20 22 25 73 | 5c 6e 22 2c 20 6d 73 67 |err, "%s|\n", msg|
|00001c50| 29 3b 0a 58 20 20 20 20 | 65 78 69 74 28 2d 31 29 |);.X    |exit(-1)|
|00001c60| 3b 0a 58 7d 0a 58 0a 58 | 0a 58 2f 2a 53 55 42 54 |;.X}.X.X|.X/*SUBT|
|00001c70| 54 4c 20 65 6e 64 5f 77 | 69 6e 20 2d 20 63 6c 65 |TL end_w|in - cle|
|00001c80| 61 6e 20 75 70 20 74 68 | 65 20 77 69 6e 64 6f 77 |an up th|e window|
|00001c90| 20 73 74 75 66 66 20 2a | 2f 0a 58 2f 2a 0a 58 2a | stuff *|/.X/*.X*|
|00001ca0| 2a 20 20 54 65 72 6d 69 | 6e 61 74 65 20 74 68 65 |*  Termi|nate the|
|00001cb0| 20 77 69 6e 64 6f 77 20 | 73 74 75 66 66 20 2d 20 | window |stuff - |
|00001cc0| 63 6c 65 61 72 20 74 68 | 65 20 77 69 6e 64 6f 77 |clear th|e window|
|00001cd0| 20 61 6e 64 20 6d 6f 76 | 65 20 74 68 65 20 63 75 | and mov|e the cu|
|00001ce0| 72 73 6f 72 2e 0a 58 2a | 2f 0a 58 0a 58 76 6f 69 |rsor..X*|/.X.Xvoi|
|00001cf0| 64 20 65 6e 64 5f 77 69 | 6e 28 29 0a 58 7b 0a 58 |d end_wi|n().X{.X|
|00001d00| 20 20 20 20 63 6c 65 61 | 72 28 29 3b 0a 58 20 20 |    clea|r();.X  |
|00001d10| 20 20 6d 6f 76 65 28 4c | 49 4e 45 53 20 2d 20 31 |  move(L|INES - 1|
|00001d20| 2c 20 30 29 3b 0a 58 20 | 20 20 20 72 65 66 72 65 |, 0);.X |   refre|
|00001d30| 73 68 28 29 3b 0a 58 20 | 20 20 20 65 6e 64 77 69 |sh();.X |   endwi|
|00001d40| 6e 28 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 53 |n();.X}.|X.X.X/*S|
|00001d50| 55 42 54 54 4c 20 63 61 | 74 5f 69 6e 74 20 2d 20 |UBTTL ca|t_int - |
|00001d60| 73 69 67 6e 61 6c 20 63 | 61 74 63 68 65 72 20 2a |signal c|atcher *|
|00001d70| 2f 0a 58 2f 2a 0a 58 2a | 2a 20 20 43 61 74 63 68 |/.X/*.X*|*  Catch|
|00001d80| 20 61 6e 20 69 6e 74 65 | 72 72 75 70 74 20 73 69 | an inte|rrupt si|
|00001d90| 67 6e 61 6c 20 61 6e 64 | 20 74 65 72 6d 69 6e 61 |gnal and| termina|
|00001da0| 74 65 20 74 68 65 20 70 | 72 6f 67 72 61 6d 2e 0a |te the p|rogram..|
|00001db0| 58 2a 2f 0a 58 0a 58 69 | 6e 74 09 63 61 74 5f 69 |X*/.X.Xi|nt.cat_i|
|00001dc0| 6e 74 28 29 0a 58 7b 0a | 58 20 20 20 20 65 6e 64 |nt().X{.|X    end|
|00001dd0| 5f 77 69 6e 28 29 3b 0a | 58 20 20 20 20 65 78 69 |_win();.|X    exi|
|00001de0| 74 28 30 29 3b 0a 58 7d | 0a 45 4e 44 5f 4f 46 5f |t(0);.X}|.END_OF_|
|00001df0| 46 49 4c 45 0a 69 66 20 | 74 65 73 74 20 35 30 31 |FILE.if |test 501|
|00001e00| 39 20 2d 6e 65 20 60 77 | 63 20 2d 63 20 3c 27 63 |9 -ne `w|c -c <'c|
|00001e10| 6c 6f 63 6b 2e 63 27 60 | 3b 20 74 68 65 6e 0a 20 |lock.c'`|; then. |
|00001e20| 20 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 5c 22 |   echo |shar: \"|
|00001e30| 27 63 6c 6f 63 6b 2e 63 | 27 5c 22 20 75 6e 70 61 |'clock.c|'\" unpa|
|00001e40| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|00001e50| 73 69 7a 65 21 0a 66 69 | 0a 23 20 65 6e 64 20 6f |size!.fi|.# end o|
|00001e60| 66 20 27 63 6c 6f 63 6b | 2e 63 27 0a 66 69 0a 65 |f 'clock|.c'.fi.e|
|00001e70| 63 68 6f 20 73 68 61 72 | 3a 20 45 6e 64 0a       |cho shar|: End.  |
+--------+-------------------------+-------------------------+--------+--------+