/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / unix / volume15 / lponions.kin

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 31 35 69 30 30 |Subject:|  v15i00|
|00000010| 39 3a 20 20 57 72 61 70 | 70 65 72 20 66 6f 72 20 |9:  Wrap|per for |
|00000020| 53 79 73 74 65 6d 20 56 | 20 6c 70 2c 20 62 75 67 |System V| lp, bug|
|00000030| 20 77 6f 72 6b 2d 61 72 | 6f 75 6e 64 0a 4e 65 77 | work-ar|ound.New|
|00000040| 73 67 72 6f 75 70 73 3a | 20 63 6f 6d 70 2e 73 6f |sgroups:| comp.so|
|00000050| 75 72 63 65 73 2e 75 6e | 69 78 0a 53 65 6e 64 65 |urces.un|ix.Sende|
|00000060| 72 3a 20 73 6f 75 72 63 | 65 73 0a 41 70 70 72 6f |r: sourc|es.Appro|
|00000070| 76 65 64 3a 20 72 73 61 | 6c 7a 40 75 75 6e 65 74 |ved: rsa|lz@uunet|
|00000080| 2e 55 55 2e 4e 45 54 0a | 0a 53 75 62 6d 69 74 74 |.UU.NET.|.Submitt|
|00000090| 65 64 2d 62 79 3a 20 75 | 74 67 70 75 21 75 74 66 |ed-by: u|tgpu!utf|
|000000a0| 79 7a 78 21 68 61 72 72 | 69 73 6f 6e 20 28 44 61 |yzx!harr|ison (Da|
|000000b0| 76 69 64 20 48 61 72 72 | 69 73 6f 6e 29 0a 50 6f |vid Harr|ison).Po|
|000000c0| 73 74 69 6e 67 2d 6e 75 | 6d 62 65 72 3a 20 56 6f |sting-nu|mber: Vo|
|000000d0| 6c 75 6d 65 20 31 35 2c | 20 49 73 73 75 65 20 39 |lume 15,| Issue 9|
|000000e0| 0a 41 72 63 68 69 76 65 | 2d 6e 61 6d 65 3a 20 6c |.Archive|-name: l|
|000000f0| 70 2d 6f 6e 69 6f 6e 73 | 6b 69 6e 0a 0a 48 65 72 |p-onions|kin..Her|
|00000100| 65 20 69 73 20 61 20 73 | 6d 61 6c 6c 20 70 72 6f |e is a s|mall pro|
|00000110| 67 72 61 6d 20 6f 66 20 | 75 73 65 20 6f 6e 6c 79 |gram of |use only|
|00000120| 20 66 6f 72 20 73 79 73 | 74 65 6d 73 20 77 69 74 | for sys|tems wit|
|00000130| 68 20 74 68 65 20 53 79 | 73 74 65 6d 20 56 20 0a |h the Sy|stem V .|
|00000140| 73 65 6d 61 70 68 6f 72 | 65 20 66 61 63 69 6c 69 |semaphor|e facili|
|00000150| 74 79 2e 20 20 49 74 20 | 77 6f 72 6b 73 20 61 72 |ty.  It |works ar|
|00000160| 6f 75 6e 64 20 61 20 62 | 75 67 20 69 6e 20 74 68 |ound a b|ug in th|
|00000170| 65 20 6c 6f 63 6b 66 69 | 6c 65 20 6d 65 63 68 61 |e lockfi|le mecha|
|00000180| 6e 69 73 6d 20 0a 6f 66 | 20 6c 70 28 31 29 20 74 |nism .of| lp(1) t|
|00000190| 68 61 74 20 63 61 75 73 | 65 73 20 74 68 65 20 73 |hat caus|es the s|
|000001a0| 70 6f 6f 6c 65 72 20 74 | 6f 20 70 65 72 69 6f 64 |pooler t|o period|
|000001b0| 69 63 61 6c 6c 79 20 63 | 72 61 73 68 20 69 66 20 |ically c|rash if |
|000001c0| 69 74 20 67 65 74 73 20 | 0a 32 20 6f 72 20 6d 6f |it gets |.2 or mo|
|000001d0| 72 65 20 6a 6f 62 73 20 | 61 74 20 61 6c 6d 6f 73 |re jobs |at almos|
|000001e0| 74 20 74 68 65 20 73 61 | 6d 65 20 74 69 6d 65 2e |t the sa|me time.|
|000001f0| 20 20 54 68 65 20 52 45 | 41 44 4d 45 20 66 69 6c |  The RE|ADME fil|
|00000200| 65 20 64 69 73 63 75 73 | 73 65 73 20 0a 66 75 72 |e discus|ses .fur|
|00000210| 74 68 65 72 2e 20 20 54 | 6f 20 64 6f 20 74 68 65 |ther.  T|o do the|
|00000220| 20 6a 6f 62 20 72 69 67 | 68 74 20 77 6f 75 6c 64 | job rig|ht would|
|00000230| 20 6e 75 6b 65 20 74 68 | 65 20 6c 6f 63 6b 66 69 | nuke th|e lockfi|
|00000240| 6c 65 73 20 69 6e 20 6c | 70 28 31 29 0a 69 6e 20 |les in l|p(1).in |
|00000250| 66 61 76 6f 75 72 20 6f | 66 20 74 68 65 20 53 79 |favour o|f the Sy|
|00000260| 73 74 65 6d 20 56 20 69 | 70 63 73 20 66 61 63 69 |stem V i|pcs faci|
|00000270| 6c 69 74 79 2c 20 62 75 | 74 20 74 68 61 74 20 72 |lity, bu|t that r|
|00000280| 65 71 75 69 72 65 73 20 | 73 6f 75 72 63 65 0a 28 |equires |source.(|
|00000290| 77 68 69 63 68 20 49 20 | 68 61 76 65 29 20 61 6e |which I |have) an|
|000002a0| 64 20 74 69 6d 65 20 28 | 77 68 69 63 68 20 49 20 |d time (|which I |
|000002b0| 64 6f 6e 27 74 20 68 61 | 76 65 29 2c 20 73 6f 20 |don't ha|ve), so |
|000002c0| 74 68 69 73 20 69 73 20 | 6a 75 73 74 0a 61 6e 20 |this is |just.an |
|000002d0| 6f 6e 69 6f 6e 73 6b 69 | 6e 20 61 72 6f 75 6e 64 |onionski|n around|
|000002e0| 20 6c 70 28 31 29 2e 0a | 20 20 20 20 44 61 76 69 | lp(1)..|    Davi|
|000002f0| 64 20 48 61 72 72 69 73 | 6f 6e 2c 20 44 65 70 74 |d Harris|on, Dept|
|00000300| 2e 20 6f 66 20 50 68 79 | 73 69 63 73 2c 20 55 6e |. of Phy|sics, Un|
|00000310| 69 76 2e 20 6f 66 20 54 | 6f 72 6f 6e 74 6f 0a 20 |iv. of T|oronto. |
|00000320| 20 20 20 7b 69 68 6e 70 | 34 2c 75 74 7a 6f 6f 7d |   {ihnp|4,utzoo}|
|00000330| 21 75 74 67 70 75 21 75 | 74 66 79 7a 78 21 68 61 |!utgpu!u|tfyzx!ha|
|00000340| 72 72 69 73 6f 6e 0a 0a | 23 21 20 2f 62 69 6e 2f |rrison..|#! /bin/|
|00000350| 73 68 0a 23 20 54 68 69 | 73 20 69 73 20 61 20 73 |sh.# Thi|s is a s|
|00000360| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2c 20 6d 65 |hell arc|hive, me|
|00000370| 61 6e 69 6e 67 3a 0a 23 | 20 31 2e 20 52 65 6d 6f |aning:.#| 1. Remo|
|00000380| 76 65 20 65 76 65 72 79 | 74 68 69 6e 67 20 61 62 |ve every|thing ab|
|00000390| 6f 76 65 20 74 68 65 20 | 23 21 20 2f 62 69 6e 2f |ove the |#! /bin/|
|000003a0| 73 68 20 6c 69 6e 65 2e | 0a 23 20 32 2e 20 53 61 |sh line.|.# 2. Sa|
|000003b0| 76 65 20 74 68 65 20 72 | 65 73 75 6c 74 69 6e 67 |ve the r|esulting|
|000003c0| 20 74 65 78 74 20 69 6e | 20 61 20 66 69 6c 65 2e | text in| a file.|
|000003d0| 0a 23 20 33 2e 20 45 78 | 65 63 75 74 65 20 74 68 |.# 3. Ex|ecute th|
|000003e0| 65 20 66 69 6c 65 20 77 | 69 74 68 20 2f 62 69 6e |e file w|ith /bin|
|000003f0| 2f 73 68 20 28 6e 6f 74 | 20 63 73 68 29 20 74 6f |/sh (not| csh) to|
|00000400| 20 63 72 65 61 74 65 20 | 74 68 65 20 66 69 6c 65 | create |the file|
|00000410| 73 3a 0a 23 09 4d 61 6b | 65 66 69 6c 65 0a 23 09 |s:.#.Mak|efile.#.|
|00000420| 52 45 41 44 4d 45 0a 23 | 09 6c 70 2e 63 0a 23 09 |README.#|.lp.c.#.|
|00000430| 6c 6f 63 6b 2e 63 0a 65 | 78 70 6f 72 74 20 50 41 |lock.c.e|xport PA|
|00000440| 54 48 3b 20 50 41 54 48 | 3d 2f 62 69 6e 3a 24 50 |TH; PATH|=/bin:$P|
|00000450| 41 54 48 0a 65 63 68 6f | 20 73 68 61 72 3a 20 65 |ATH.echo| shar: e|
|00000460| 78 74 72 61 63 74 69 6e | 67 20 22 27 4d 61 6b 65 |xtractin|g "'Make|
|00000470| 66 69 6c 65 27 22 20 27 | 28 34 33 35 20 63 68 61 |file'" '|(435 cha|
|00000480| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00000490| 74 20 2d 66 20 27 4d 61 | 6b 65 66 69 6c 65 27 0a |t -f 'Ma|kefile'.|
|000004a0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|000004b0| 20 77 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | will no|t over-w|
|000004c0| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|000004d0| 6c 65 20 22 27 4d 61 6b | 65 66 69 6c 65 27 22 0a |le "'Mak|efile'".|
|000004e0| 65 6c 73 65 0a 73 65 64 | 20 27 73 2f 5e 58 2f 2f |else.sed| 's/^X//|
|000004f0| 27 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |' << \SH|AR_EOF >|
|00000500| 20 27 4d 61 6b 65 66 69 | 6c 65 27 0a 58 23 09 40 | 'Makefi|le'.X#.@|
|00000510| 28 23 29 4d 61 6b 65 66 | 69 6c 65 09 31 2e 31 20 |(#)Makef|ile.1.1 |
|00000520| 55 20 6f 66 20 54 20 50 | 68 79 73 69 63 73 20 32 |U of T P|hysics 2|
|00000530| 2f 32 34 2f 38 38 0a 58 | 0a 58 53 52 43 20 3d 20 |/24/88.X|.XSRC = |
|00000540| 6c 70 2e 63 20 6c 6f 63 | 6b 2e 63 0a 58 4f 42 4a |lp.c loc|k.c.XOBJ|
|00000550| 53 20 3d 20 6c 70 2e 6f | 20 6c 6f 63 6b 2e 6f 0a |S = lp.o| lock.o.|
|00000560| 58 42 49 4e 20 3d 20 2f | 75 73 72 2f 62 69 6e 0a |XBIN = /|usr/bin.|
|00000570| 58 4c 50 20 3d 20 6c 70 | 20 2d 73 0a 58 4c 49 4e |XLP = lp| -s.XLIN|
|00000580| 54 46 4c 41 47 53 20 3d | 20 2d 44 4c 49 4e 54 0a |TFLAGS =| -DLINT.|
|00000590| 58 0a 58 23 20 66 6f 72 | 20 73 79 6d 62 6f 6c 69 |X.X# for| symboli|
|000005a0| 63 20 64 65 62 75 67 67 | 65 72 0a 58 23 20 43 46 |c debugg|er.X# CF|
|000005b0| 4c 41 47 53 20 3d 20 2d | 67 0a 58 23 20 43 44 42 |LAGS = -|g.X# CDB|
|000005c0| 4f 42 4a 20 3d 20 2f 75 | 73 72 2f 6c 69 62 2f 65 |OBJ = /u|sr/lib/e|
|000005d0| 6e 64 2e 6f 0a 58 0a 58 | 6c 70 74 72 79 3a 09 24 |nd.o.X.X|lptry:.$|
|000005e0| 28 4f 42 4a 53 29 0a 58 | 09 63 63 20 2d 6f 20 6c |(OBJS).X|.cc -o l|
|000005f0| 70 74 72 79 20 24 28 4f | 42 4a 53 29 20 24 28 43 |ptry $(O|BJS) $(C|
|00000600| 44 42 4f 42 4a 29 0a 58 | 0a 58 69 6e 73 74 61 6c |DBOBJ).X|.Xinstal|
|00000610| 6c 3a 09 6c 70 74 72 79 | 0a 58 09 73 74 72 69 70 |l:.lptry|.X.strip|
|00000620| 20 6c 70 74 72 79 0a 58 | 09 6d 76 20 24 28 42 49 | lptry.X|.mv $(BI|
|00000630| 4e 29 2f 6c 70 20 24 28 | 42 49 4e 29 2f 72 65 61 |N)/lp $(|BIN)/rea|
|00000640| 6c 5f 6c 70 0a 58 09 63 | 70 73 65 74 20 6c 70 74 |l_lp.X.c|pset lpt|
|00000650| 72 79 20 24 28 42 49 4e | 29 20 30 37 35 35 0a 58 |ry $(BIN|) 0755.X|
|00000660| 0a 58 6c 69 6e 74 3a 09 | 0a 58 09 6c 69 6e 74 20 |.Xlint:.|.X.lint |
|00000670| 24 28 4c 49 4e 54 46 4c | 41 47 53 29 20 24 28 53 |$(LINTFL|AGS) $(S|
|00000680| 52 43 29 0a 58 0a 58 63 | 6c 65 61 6e 3a 0a 58 09 |RC).X.Xc|lean:.X.|
|00000690| 2f 62 69 6e 2f 72 6d 20 | 2d 66 20 2a 2e 6f 20 63 |/bin/rm |-f *.o c|
|000006a0| 6f 72 65 0a 58 0a 58 70 | 72 69 6e 74 3a 09 4d 61 |ore.X.Xp|rint:.Ma|
|000006b0| 6b 65 66 69 6c 65 20 24 | 28 53 52 43 29 0a 58 09 |kefile $|(SRC).X.|
|000006c0| 70 72 20 24 3f 20 7c 20 | 24 28 4c 50 29 0a 58 09 |pr $? | |$(LP).X.|
|000006d0| 74 6f 75 63 68 20 70 72 | 69 6e 74 0a 53 48 41 52 |touch pr|int.SHAR|
|000006e0| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 34 33 35 |_EOF.if |test 435|
|000006f0| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00000700| 4d 61 6b 65 66 69 6c 65 | 27 60 22 0a 74 68 65 6e |Makefile|'`".then|
|00000710| 0a 09 65 63 68 6f 20 73 | 68 61 72 3a 20 65 72 72 |..echo s|har: err|
|00000720| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|00000730| 22 27 4d 61 6b 65 66 69 | 6c 65 27 22 20 27 28 73 |"'Makefi|le'" '(s|
|00000740| 68 6f 75 6c 64 20 68 61 | 76 65 20 62 65 65 6e 20 |hould ha|ve been |
|00000750| 34 33 35 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |435 char|acters)'|
|00000760| 0a 66 69 0a 66 69 20 23 | 20 65 6e 64 20 6f 66 20 |.fi.fi #| end of |
|00000770| 6f 76 65 72 77 72 69 74 | 69 6e 67 20 63 68 65 63 |overwrit|ing chec|
|00000780| 6b 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 65 78 74 |k.echo s|har: ext|
|00000790| 72 61 63 74 69 6e 67 20 | 22 27 52 45 41 44 4d 45 |racting |"'README|
|000007a0| 27 22 20 27 28 31 35 31 | 39 20 63 68 61 72 61 63 |'" '(151|9 charac|
|000007b0| 74 65 72 73 29 27 0a 69 | 66 20 74 65 73 74 20 2d |ters)'.i|f test -|
|000007c0| 66 20 27 52 45 41 44 4d | 45 27 0a 74 68 65 6e 0a |f 'READM|E'.then.|
|000007d0| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 77 69 6c 6c |.echo sh|ar: will|
|000007e0| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|000007f0| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 22 27 |existing| file "'|
|00000800| 52 45 41 44 4d 45 27 22 | 0a 65 6c 73 65 0a 73 65 |README'"|.else.se|
|00000810| 64 20 27 73 2f 5e 58 2f | 2f 27 20 3c 3c 20 5c 53 |d 's/^X/|/' << \S|
|00000820| 48 41 52 5f 45 4f 46 20 | 3e 20 27 52 45 41 44 4d |HAR_EOF |> 'READM|
|00000830| 45 27 0a 58 54 68 65 20 | 73 74 61 6e 64 61 72 64 |E'.XThe |standard|
|00000840| 20 6c 70 28 31 29 20 73 | 70 6f 6f 6c 65 72 20 69 | lp(1) s|pooler i|
|00000850| 6e 20 53 79 73 74 65 6d | 20 56 20 75 73 65 73 20 |n System| V uses |
|00000860| 61 20 76 61 72 69 65 74 | 79 20 6f 66 0a 58 6c 6f |a variet|y of.Xlo|
|00000870| 63 6b 66 69 6c 65 73 20 | 69 6e 20 70 72 6f 63 65 |ckfiles |in proce|
|00000880| 73 73 69 6e 67 20 61 20 | 6a 6f 62 2e 20 20 54 68 |ssing a |job.  Th|
|00000890| 69 73 20 6c 65 61 76 65 | 73 20 61 20 77 69 6e 64 |is leave|s a wind|
|000008a0| 6f 77 20 6f 66 0a 58 76 | 75 6c 6e 65 72 61 62 69 |ow of.Xv|ulnerabi|
|000008b0| 6c 69 74 79 20 69 66 20 | 74 77 6f 20 6a 6f 62 73 |lity if |two jobs|
|000008c0| 20 61 72 65 20 72 65 63 | 65 69 76 65 64 20 6e 65 | are rec|eived ne|
|000008d0| 61 72 6c 79 20 73 69 6d | 75 6c 74 61 6e 65 6f 75 |arly sim|ultaneou|
|000008e0| 73 6c 79 3a 0a 58 0a 58 | 09 6c 70 20 6a 6f 62 20 |sly:.X.X|.lp job |
|000008f0| 31 20 63 68 65 63 6b 73 | 20 74 6f 20 73 65 65 20 |1 checks| to see |
|00000900| 69 66 20 74 68 65 72 65 | 20 69 73 20 61 20 6c 6f |if there| is a lo|
|00000910| 63 6b 66 69 6c 65 2c 0a | 58 09 09 66 69 6e 64 73 |ckfile,.|X..finds|
|00000920| 20 74 68 65 72 65 20 69 | 73 6e 27 74 2e 0a 58 09 | there i|sn't..X.|
|00000930| 6c 70 20 6a 6f 62 20 32 | 20 63 68 65 63 6b 73 20 |lp job 2| checks |
|00000940| 74 6f 20 73 65 65 20 69 | 66 20 74 68 65 72 65 20 |to see i|f there |
|00000950| 69 73 20 61 20 6c 6f 63 | 6b 66 69 6c 65 2c 0a 58 |is a loc|kfile,.X|
|00000960| 09 09 66 69 6e 64 73 20 | 74 68 65 72 65 20 69 73 |..finds |there is|
|00000970| 6e 27 74 0a 58 09 6c 70 | 20 6a 6f 62 20 31 20 65 |n't.X.lp| job 1 e|
|00000980| 73 74 61 62 6c 69 73 68 | 65 73 20 74 68 65 20 6c |stablish|es the l|
|00000990| 6f 63 6b 66 69 6c 65 0a | 58 09 6c 70 20 6a 6f 62 |ockfile.|X.lp job|
|000009a0| 20 32 20 74 72 69 65 73 | 20 74 6f 20 65 73 74 61 | 2 tries| to esta|
|000009b0| 62 6c 69 73 68 20 74 68 | 65 20 6c 6f 63 6b 66 69 |blish th|e lockfi|
|000009c0| 6c 65 20 61 6e 64 20 66 | 61 69 6c 73 2e 0a 58 0a |le and f|ails..X.|
|000009d0| 58 57 68 65 6e 20 74 68 | 69 73 20 68 61 70 70 65 |XWhen th|is happe|
|000009e0| 6e 73 2c 20 74 68 65 20 | 73 70 6f 6f 6c 65 72 20 |ns, the |spooler |
|000009f0| 63 72 6f 61 6b 73 2e 20 | 20 4f 66 74 65 6e 20 74 |croaks. | Often t|
|00000a00| 68 65 20 73 79 6d 70 74 | 6f 6d 20 69 73 0a 58 74 |he sympt|om is.Xt|
|00000a10| 68 61 74 20 6a 6f 62 73 | 20 73 74 61 72 74 20 70 |hat jobs| start p|
|00000a20| 69 6c 69 6e 67 20 75 70 | 20 66 6f 72 20 70 72 69 |iling up| for pri|
|00000a30| 6e 74 69 6e 67 20 62 75 | 74 20 6e 6f 6e 65 20 65 |nting bu|t none e|
|00000a40| 76 65 72 20 61 72 65 2c | 0a 58 73 6f 6d 65 74 69 |ver are,|.Xsometi|
|00000a50| 6d 65 73 20 69 74 20 69 | 73 20 6d 6f 72 65 20 67 |mes it i|s more g|
|00000a60| 6f 72 79 20 74 68 61 6e | 20 74 68 61 74 2e 20 20 |ory than| that.  |
|00000a70| 54 68 65 20 66 69 78 20 | 69 73 20 73 6f 6d 65 74 |The fix |is somet|
|00000a80| 69 6d 65 73 20 0a 58 74 | 6f 20 64 69 73 61 62 6c |imes .Xt|o disabl|
|00000a90| 65 28 31 29 20 74 68 65 | 20 70 72 69 6e 74 65 72 |e(1) the| printer|
|00000aa0| 20 61 6e 64 20 74 68 65 | 6e 20 65 6e 61 62 6c 65 | and the|n enable|
|00000ab0| 28 31 29 20 69 74 2e 20 | 20 53 6f 6d 65 74 69 6d |(1) it. | Sometim|
|00000ac0| 65 73 20 0a 58 74 68 65 | 20 6f 6e 6c 79 20 66 69 |es .Xthe| only fi|
|00000ad0| 78 20 69 73 20 74 6f 20 | 63 61 6e 63 65 6c 28 31 |x is to |cancel(1|
|00000ae0| 29 20 74 68 65 20 70 65 | 6e 64 69 6e 67 20 6a 6f |) the pe|nding jo|
|00000af0| 62 73 2e 0a 58 0a 58 54 | 68 69 73 20 73 6d 61 6c |bs..X.XT|his smal|
|00000b00| 6c 20 70 72 6f 67 72 61 | 6d 20 69 73 20 61 6e 6f |l progra|m is ano|
|00000b10| 74 68 65 72 20 66 69 78 | 2e 20 20 49 74 20 6d 6f |ther fix|.  It mo|
|00000b20| 76 65 73 20 2f 75 73 72 | 2f 62 69 6e 2f 6c 70 20 |ves /usr|/bin/lp |
|00000b30| 74 6f 0a 58 2f 75 73 72 | 2f 62 69 6e 2f 72 65 61 |to.X/usr|/bin/rea|
|00000b40| 6c 5f 6c 70 2c 20 61 6e | 64 20 73 75 62 73 69 74 |l_lp, an|d subsit|
|00000b50| 75 74 65 73 20 74 68 69 | 73 20 70 72 6f 67 72 61 |utes thi|s progra|
|00000b60| 6d 20 61 73 20 2f 75 73 | 72 2f 62 69 6e 2f 6c 70 |m as /us|r/bin/lp|
|00000b70| 2e 0a 58 54 68 75 73 2c | 20 79 6f 75 20 6d 75 73 |..XThus,| you mus|
|00000b80| 74 20 62 65 20 72 6f 6f | 74 20 74 6f 20 69 6e 73 |t be roo|t to ins|
|00000b90| 74 61 6c 6c 20 74 68 65 | 20 70 72 6f 67 72 61 6d |tall the| program|
|00000ba0| 2e 0a 58 0a 58 45 73 73 | 65 6e 74 69 61 6c 6c 79 |..X.XEss|entially|
|00000bb0| 20 61 6c 6c 20 74 68 69 | 73 20 70 72 6f 67 72 61 | all thi|s progra|
|00000bc0| 6d 20 64 6f 65 73 20 69 | 73 20 74 68 72 6f 77 20 |m does i|s throw |
|00000bd0| 75 70 20 61 20 73 65 6d | 61 70 68 6f 72 65 2c 0a |up a sem|aphore,.|
|00000be0| 58 65 78 65 63 73 20 72 | 65 61 6c 5f 6c 70 2c 20 |Xexecs r|eal_lp, |
|00000bf0| 61 6e 64 20 6c 6f 77 65 | 72 73 20 74 68 65 20 73 |and lowe|rs the s|
|00000c00| 65 6d 61 70 68 6f 72 65 | 2e 0a 58 0a 58 57 65 20 |emaphore|..X.XWe |
|00000c10| 68 61 76 65 20 62 65 65 | 6e 20 72 75 6e 6e 69 6e |have bee|n runnin|
|00000c20| 67 20 74 68 69 73 20 66 | 6f 72 20 74 77 6f 20 6d |g this f|or two m|
|00000c30| 6f 6e 74 68 73 20 77 69 | 74 68 6f 75 74 20 61 6e |onths wi|thout an|
|00000c40| 79 20 66 61 69 6c 75 72 | 65 73 0a 58 6f 72 20 70 |y failur|es.Xor p|
|00000c50| 72 6f 62 6c 65 6d 73 20 | 6f 6e 20 61 6e 20 48 50 |roblems |on an HP|
|00000c60| 39 30 30 30 20 53 65 72 | 69 65 73 20 35 30 30 20 |9000 Ser|ies 500 |
|00000c70| 72 75 6e 6e 69 6e 67 20 | 52 65 6c 65 61 73 65 20 |running |Release |
|00000c80| 35 2e 31 31 20 6f 66 0a | 58 48 50 2d 55 58 20 28 |5.11 of.|XHP-UX (|
|00000c90| 53 79 73 74 65 6d 20 56 | 2e 32 29 2e 20 20 42 65 |System V|.2).  Be|
|00000ca0| 63 61 75 73 65 20 6f 75 | 72 20 61 70 70 6c 69 63 |cause ou|r applic|
|00000cb0| 61 74 69 6f 6e 20 69 6e | 76 6f 6c 76 65 73 20 75 |ation in|volves u|
|00000cc0| 70 20 74 6f 0a 58 32 30 | 30 20 6f 6e 65 2d 70 61 |p to.X20|0 one-pa|
|00000cd0| 67 65 20 70 72 69 6e 74 | 73 20 70 65 72 20 64 61 |ge print|s per da|
|00000ce0| 79 20 66 72 6f 6d 20 32 | 30 20 73 63 61 74 74 65 |y from 2|0 scatte|
|00000cf0| 72 65 64 20 75 73 65 72 | 73 2c 20 70 72 69 6f 72 |red user|s, prior|
|00000d00| 20 74 6f 20 0a 58 69 74 | 73 20 69 6e 73 74 61 6c | to .Xit|s instal|
|00000d10| 6c 61 74 69 6f 6e 20 6f | 75 72 20 73 70 6f 6f 6c |lation o|ur spool|
|00000d20| 65 72 20 77 61 73 20 68 | 61 6e 67 69 6e 67 20 65 |er was h|anging e|
|00000d30| 76 65 72 79 20 63 6f 75 | 70 6c 65 20 6f 66 20 64 |very cou|ple of d|
|00000d40| 61 79 73 20 0a 58 6f 72 | 20 73 6f 20 61 76 65 72 |ays .Xor| so aver|
|00000d50| 61 67 65 20 77 69 74 68 | 20 70 65 61 6b 73 20 6f |age with| peaks o|
|00000d60| 66 20 32 20 6f 72 20 33 | 20 68 61 6e 67 73 20 61 |f 2 or 3| hangs a|
|00000d70| 20 64 61 79 2e 0a 58 0a | 58 59 6f 75 20 6d 61 79 | day..X.|XYou may|
|00000d80| 20 77 61 6e 74 20 74 6f | 20 63 68 65 63 6b 20 69 | want to| check i|
|00000d90| 70 63 73 28 31 29 20 61 | 6e 64 20 69 70 63 72 6d |pcs(1) a|nd ipcrm|
|00000da0| 28 31 29 20 69 66 20 79 | 6f 75 20 61 72 65 20 75 |(1) if y|ou are u|
|00000db0| 6e 66 61 6d 69 6c 69 61 | 72 0a 58 77 69 74 68 20 |nfamilia|r.Xwith |
|00000dc0| 74 68 65 20 53 79 73 74 | 65 6d 20 56 20 73 65 6d |the Syst|em V sem|
|00000dd0| 61 70 68 6f 72 65 20 66 | 61 63 69 6c 69 74 79 2e |aphore f|acility.|
|00000de0| 0a 58 2d 2d 0a 58 20 20 | 20 20 44 61 76 69 64 20 |.X--.X  |  David |
|00000df0| 48 61 72 72 69 73 6f 6e | 2c 20 44 65 70 74 2e 20 |Harrison|, Dept. |
|00000e00| 6f 66 20 50 68 79 73 69 | 63 73 2c 20 55 6e 69 76 |of Physi|cs, Univ|
|00000e10| 2e 20 6f 66 20 54 6f 72 | 6f 6e 74 6f 0a 58 20 20 |. of Tor|onto.X  |
|00000e20| 20 20 7b 69 68 6e 70 34 | 2c 75 74 7a 6f 6f 7d 21 |  {ihnp4|,utzoo}!|
|00000e30| 75 74 67 70 75 21 75 74 | 66 79 7a 78 21 68 61 72 |utgpu!ut|fyzx!har|
|00000e40| 72 69 73 6f 6e 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |rison.SH|AR_EOF.i|
|00000e50| 66 20 74 65 73 74 20 31 | 35 31 39 20 2d 6e 65 20 |f test 1|519 -ne |
|00000e60| 22 60 77 63 20 2d 63 20 | 3c 20 27 52 45 41 44 4d |"`wc -c |< 'READM|
|00000e70| 45 27 60 22 0a 74 68 65 | 6e 0a 09 65 63 68 6f 20 |E'`".the|n..echo |
|00000e80| 73 68 61 72 3a 20 65 72 | 72 6f 72 20 74 72 61 6e |shar: er|ror tran|
|00000e90| 73 6d 69 74 74 69 6e 67 | 20 22 27 52 45 41 44 4d |smitting| "'READM|
|00000ea0| 45 27 22 20 27 28 73 68 | 6f 75 6c 64 20 68 61 76 |E'" '(sh|ould hav|
|00000eb0| 65 20 62 65 65 6e 20 31 | 35 31 39 20 63 68 61 72 |e been 1|519 char|
|00000ec0| 61 63 74 65 72 73 29 27 | 0a 66 69 0a 66 69 20 23 |acters)'|.fi.fi #|
|00000ed0| 20 65 6e 64 20 6f 66 20 | 6f 76 65 72 77 72 69 74 | end of |overwrit|
|00000ee0| 69 6e 67 20 63 68 65 63 | 6b 0a 65 63 68 6f 20 73 |ing chec|k.echo s|
|00000ef0| 68 61 72 3a 20 65 78 74 | 72 61 63 74 69 6e 67 20 |har: ext|racting |
|00000f00| 22 27 6c 70 2e 63 27 22 | 20 27 28 32 33 32 34 20 |"'lp.c'"| '(2324 |
|00000f10| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 69 66 20 |characte|rs)'.if |
|00000f20| 74 65 73 74 20 2d 66 20 | 27 6c 70 2e 63 27 0a 74 |test -f |'lp.c'.t|
|00000f30| 68 65 6e 0a 09 65 63 68 | 6f 20 73 68 61 72 3a 20 |hen..ech|o shar: |
|00000f40| 77 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |will not| over-wr|
|00000f50| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00000f60| 65 20 22 27 6c 70 2e 63 | 27 22 0a 65 6c 73 65 0a |e "'lp.c|'".else.|
|00000f70| 73 65 64 20 27 73 2f 5e | 58 2f 2f 27 20 3c 3c 20 |sed 's/^|X//' << |
|00000f80| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 6c 70 2e |\SHAR_EO|F > 'lp.|
|00000f90| 63 27 0a 58 23 69 66 6e | 64 65 66 20 4c 49 4e 54 |c'.X#ifn|def LINT|
|00000fa0| 0a 58 73 74 61 74 69 63 | 20 63 68 61 72 20 53 63 |.Xstatic| char Sc|
|00000fb0| 63 73 49 64 5b 5d 20 3d | 20 22 40 28 23 29 6c 70 |csId[] =| "@(#)lp|
|00000fc0| 2e 63 09 31 2e 32 20 55 | 20 6f 66 20 54 20 50 68 |.c.1.2 U| of T Ph|
|00000fd0| 79 73 69 63 73 20 31 32 | 2f 31 36 2f 38 37 22 3b |ysics 12|/16/87";|
|00000fe0| 0a 58 23 65 6e 64 69 66 | 0a 58 0a 58 2f 2a 0a 58 |.X#endif|.X.X/*.X|
|00000ff0| 20 2a 20 54 68 69 73 20 | 69 73 20 61 6e 20 6f 6e | * This |is an on|
|00001000| 69 6f 6e 73 6b 69 6e 20 | 61 72 6f 75 6e 64 20 74 |ionskin |around t|
|00001010| 68 65 20 6c 70 20 73 70 | 6f 6f 6c 65 72 2e 0a 58 |he lp sp|ooler..X|
|00001020| 20 2a 20 54 68 65 20 70 | 72 6f 62 6c 65 6d 20 69 | * The p|roblem i|
|00001030| 73 20 74 68 61 74 20 74 | 68 65 20 73 74 61 6e 64 |s that t|he stand|
|00001040| 61 72 64 20 6c 70 28 31 | 29 20 75 73 65 73 20 6c |ard lp(1|) uses l|
|00001050| 6f 63 6b 66 69 6c 65 73 | 2c 20 77 69 74 68 0a 58 |ockfiles|, with.X|
|00001060| 20 2a 20 74 68 65 20 77 | 65 6c 6c 2d 6b 6e 6f 77 | * the w|ell-know|
|00001070| 6e 20 77 69 6e 64 6f 77 | 20 6f 66 20 76 75 6c 6e |n window| of vuln|
|00001080| 65 72 61 62 69 6c 69 74 | 79 20 62 65 74 77 65 65 |erabilit|y betwee|
|00001090| 6e 20 74 65 73 74 69 6e | 67 20 66 6f 72 0a 58 20 |n testin|g for.X |
|000010a0| 2a 20 74 68 65 20 65 78 | 69 73 74 65 6e 63 65 20 |* the ex|istence |
|000010b0| 6f 66 20 74 68 65 20 66 | 69 6c 65 20 61 6e 64 20 |of the f|ile and |
|000010c0| 74 72 79 69 6e 67 20 74 | 6f 20 63 72 65 61 74 65 |trying t|o create|
|000010d0| 20 69 74 2e 0a 58 20 2a | 20 54 68 75 73 2c 20 77 | it..X *| Thus, w|
|000010e0| 65 20 68 61 76 65 20 6d | 6f 76 65 64 20 74 68 65 |e have m|oved the|
|000010f0| 20 73 74 61 6e 64 61 72 | 64 20 6c 70 20 63 6f 6d | standar|d lp com|
|00001100| 6d 61 6e 64 20 74 6f 20 | 22 72 65 61 6c 5f 6c 70 |mand to |"real_lp|
|00001110| 22 2c 0a 58 20 2a 20 61 | 6e 64 20 74 68 69 73 20 |",.X * a|nd this |
|00001120| 70 72 6f 67 72 61 6d 20 | 62 65 63 6f 6d 65 73 20 |program |becomes |
|00001130| 22 6c 70 22 2e 0a 58 20 | 2a 20 49 74 20 75 73 65 |"lp"..X |* It use|
|00001140| 73 20 61 20 73 65 6d 61 | 70 68 6f 72 65 20 74 6f |s a sema|phore to|
|00001150| 20 6c 6f 63 6b 20 61 6e | 64 20 75 6e 6c 6f 63 6b | lock an|d unlock|
|00001160| 20 6a 6f 62 73 20 73 65 | 6e 74 20 74 6f 20 6c 70 | jobs se|nt to lp|
|00001170| 2e 0a 58 20 2a 09 09 44 | 61 76 69 64 20 48 61 72 |..X *..D|avid Har|
|00001180| 72 69 73 6f 6e 20 2d 20 | 44 65 63 2f 38 37 0a 58 |rison - |Dec/87.X|
|00001190| 20 2a 2f 0a 58 0a 58 23 | 69 6e 63 6c 75 64 65 20 | */.X.X#|include |
|000011a0| 3c 73 74 64 69 6f 2e 68 | 3e 0a 58 23 69 6e 63 6c |<stdio.h|>.X#incl|
|000011b0| 75 64 65 20 3c 73 69 67 | 6e 61 6c 2e 68 3e 0a 58 |ude <sig|nal.h>.X|
|000011c0| 0a 58 63 68 61 72 20 2a | 72 65 61 6c 5f 6c 70 5f |.Xchar *|real_lp_|
|000011d0| 63 6d 64 20 3d 20 22 72 | 65 61 6c 5f 6c 70 22 3b |cmd = "r|eal_lp";|
|000011e0| 0a 58 0a 58 63 68 61 72 | 20 2a 70 72 6f 67 6e 61 |.X.Xchar| *progna|
|000011f0| 6d 65 3b 0a 58 0a 58 6d | 61 69 6e 28 61 72 67 63 |me;.X.Xm|ain(argc|
|00001200| 2c 20 61 72 67 76 29 0a | 58 69 6e 74 20 61 72 67 |, argv).|Xint arg|
|00001210| 63 3b 0a 58 63 68 61 72 | 20 2a 61 72 67 76 5b 5d |c;.Xchar| *argv[]|
|00001220| 3b 0a 58 7b 0a 58 09 76 | 6f 69 64 20 5f 65 78 69 |;.X{.X.v|oid _exi|
|00001230| 74 28 29 2c 20 70 65 72 | 72 6f 72 28 29 3b 0a 58 |t(), per|ror();.X|
|00001240| 09 63 68 61 72 20 2a 65 | 6d 61 6c 6c 6f 63 28 29 |.char *e|malloc()|
|00001250| 3b 0a 58 09 63 68 61 72 | 20 2a 73 74 72 63 70 79 |;.X.char| *strcpy|
|00001260| 28 29 2c 20 2a 73 74 72 | 63 61 74 28 29 3b 0a 58 |(), *str|cat();.X|
|00001270| 09 63 68 61 72 20 2a 2a | 65 78 65 63 5f 61 72 67 |.char **|exec_arg|
|00001280| 76 3b 0a 58 09 69 6e 74 | 20 70 69 64 2c 20 77 2c |v;.X.int| pid, w,|
|00001290| 20 73 74 61 74 75 73 3b | 0a 58 09 69 6e 74 20 28 | status;|.X.int (|
|000012a0| 2a 69 73 74 61 74 29 28 | 29 2c 20 28 2a 71 73 74 |*istat)(|), (*qst|
|000012b0| 61 74 29 28 29 3b 0a 58 | 09 69 6e 74 20 69 3b 0a |at)();.X|.int i;.|
|000012c0| 58 0a 58 09 70 72 6f 67 | 6e 61 6d 65 20 3d 20 61 |X.X.prog|name = a|
|000012d0| 72 67 76 5b 30 5d 3b 0a | 58 0a 58 09 2f 2a 0a 58 |rgv[0];.|X.X./*.X|
|000012e0| 09 20 2a 20 70 75 74 20 | 61 72 67 75 6d 65 6e 74 |. * put |argument|
|000012f0| 73 20 66 72 6f 6d 20 61 | 72 67 76 20 69 6e 74 6f |s from a|rgv into|
|00001300| 20 65 78 65 63 5f 61 72 | 67 76 2c 20 74 65 72 6d | exec_ar|gv, term|
|00001310| 69 6e 61 74 69 6e 67 0a | 58 09 20 2a 20 77 69 74 |inating.|X. * wit|
|00001320| 68 20 61 20 6e 75 6c 6c | 2e 0a 58 09 20 2a 0a 58 |h a null|..X. *.X|
|00001330| 09 20 2a 20 46 69 72 73 | 74 20 6d 61 6c 6c 6f 63 |. * Firs|t malloc|
|00001340| 20 74 68 65 20 61 72 72 | 61 79 20 73 69 7a 65 20 | the arr|ay size |
|00001350| 6e 65 65 64 65 64 20 28 | 20 77 69 74 68 20 6f 6e |needed (| with on|
|00001360| 65 20 66 6f 72 20 74 68 | 65 20 4e 55 4c 4c 0a 58 |e for th|e NULL.X|
|00001370| 09 20 2a 20 61 6e 64 20 | 74 68 65 20 65 6e 64 29 |. * and |the end)|
|00001380| 2e 0a 58 09 20 2a 2f 0a | 58 09 65 78 65 63 5f 61 |..X. */.|X.exec_a|
|00001390| 72 67 76 20 3d 20 0a 58 | 09 20 20 20 20 28 63 68 |rgv = .X|.    (ch|
|000013a0| 61 72 20 2a 2a 29 20 65 | 6d 61 6c 6c 6f 63 28 20 |ar **) e|malloc( |
|000013b0| 28 75 6e 73 69 67 6e 65 | 64 29 20 28 28 61 72 67 |(unsigne|d) ((arg|
|000013c0| 63 20 2b 20 31 29 20 2a | 20 73 69 7a 65 6f 66 20 |c + 1) *| sizeof |
|000013d0| 28 63 68 61 72 20 2a 29 | 20 29 29 3b 0a 58 09 2f |(char *)| ));.X./|
|000013e0| 2a 0a 58 09 20 2a 20 50 | 75 74 20 72 65 61 6c 5f |*.X. * P|ut real_|
|000013f0| 6c 70 5f 63 6d 64 20 69 | 6e 20 61 72 67 76 5b 30 |lp_cmd i|n argv[0|
|00001400| 5d 0a 58 09 20 2a 2f 0a | 58 09 65 78 65 63 5f 61 |].X. */.|X.exec_a|
|00001410| 72 67 76 5b 30 5d 20 3d | 20 65 6d 61 6c 6c 6f 63 |rgv[0] =| emalloc|
|00001420| 28 20 28 75 6e 73 69 67 | 6e 65 64 29 20 28 73 74 |( (unsig|ned) (st|
|00001430| 72 6c 65 6e 28 72 65 61 | 6c 5f 6c 70 5f 63 6d 64 |rlen(rea|l_lp_cmd|
|00001440| 29 20 2b 20 31 29 20 29 | 3b 0a 58 09 28 76 6f 69 |) + 1) )|;.X.(voi|
|00001450| 64 29 20 73 74 72 63 70 | 79 28 65 78 65 63 5f 61 |d) strcp|y(exec_a|
|00001460| 72 67 76 5b 30 5d 2c 20 | 72 65 61 6c 5f 6c 70 5f |rgv[0], |real_lp_|
|00001470| 63 6d 64 29 3b 0a 58 09 | 2f 2a 0a 58 09 20 2a 20 |cmd);.X.|/*.X. * |
|00001480| 4e 6f 77 20 74 68 65 20 | 6f 74 68 65 72 20 61 72 |Now the |other ar|
|00001490| 67 65 6d 65 6e 74 73 0a | 58 09 20 2a 2f 0a 58 09 |gements.|X. */.X.|
|000014a0| 69 66 28 20 61 72 67 63 | 20 3e 20 31 29 20 7b 0a |if( argc| > 1) {.|
|000014b0| 58 09 09 66 6f 72 28 69 | 20 3d 20 31 3b 20 69 20 |X..for(i| = 1; i |
|000014c0| 3c 20 61 72 67 63 3b 20 | 69 2b 2b 29 20 7b 0a 58 |< argc; |i++) {.X|
|000014d0| 09 09 20 20 20 20 65 78 | 65 63 5f 61 72 67 76 5b |..    ex|ec_argv[|
|000014e0| 69 5d 20 3d 20 65 6d 61 | 6c 6c 6f 63 28 20 28 75 |i] = ema|lloc( (u|
|000014f0| 6e 73 69 67 6e 65 64 29 | 20 28 73 74 72 6c 65 6e |nsigned)| (strlen|
|00001500| 28 61 72 67 76 5b 69 5d | 29 20 2b 20 31 20 29 29 |(argv[i]|) + 1 ))|
|00001510| 3b 0a 58 09 09 20 20 20 | 20 28 76 6f 69 64 29 20 |;.X..   | (void) |
|00001520| 73 74 72 63 70 79 28 65 | 78 65 63 5f 61 72 67 76 |strcpy(e|xec_argv|
|00001530| 5b 69 5d 2c 20 61 72 67 | 76 5b 69 5d 29 3b 0a 58 |[i], arg|v[i]);.X|
|00001540| 09 09 7d 0a 58 09 7d 0a | 58 09 2f 2a 0a 58 09 20 |..}.X.}.|X./*.X. |
|00001550| 2a 20 54 65 72 6d 69 6e | 61 74 65 20 77 69 74 68 |* Termin|ate with|
|00001560| 20 61 20 4e 55 4c 4c 0a | 58 09 20 2a 2f 0a 58 09 | a NULL.|X. */.X.|
|00001570| 65 78 65 63 5f 61 72 67 | 76 5b 61 72 67 63 5d 20 |exec_arg|v[argc] |
|00001580| 3d 20 4e 55 4c 4c 3b 0a | 58 0a 58 09 6c 6f 63 6b |= NULL;.|X.X.lock|
|00001590| 70 72 6f 63 28 29 3b 0a | 58 0a 58 09 73 77 69 74 |proc();.|X.X.swit|
|000015a0| 63 68 28 20 28 70 69 64 | 20 3d 20 66 6f 72 6b 28 |ch( (pid| = fork(|
|000015b0| 29 29 20 29 20 7b 0a 58 | 0a 58 09 09 63 61 73 65 |)) ) {.X|.X..case|
|000015c0| 20 2d 31 3a 0a 58 09 09 | 09 75 6e 6c 6f 63 6b 70 | -1:.X..|.unlockp|
|000015d0| 72 6f 63 28 29 3b 0a 58 | 09 09 09 53 79 73 5f 45 |roc();.X|...Sys_E|
|000015e0| 72 72 6f 72 28 22 43 61 | 6e 27 74 20 66 6f 72 6b |rror("Ca|n't fork|
|000015f0| 5c 6e 22 29 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b |\n");.X.|..break;|
|00001600| 0a 58 0a 58 09 09 63 61 | 73 65 20 30 3a 0a 58 09 |.X.X..ca|se 0:.X.|
|00001610| 09 09 65 78 65 63 76 70 | 28 20 72 65 61 6c 5f 6c |..execvp|( real_l|
|00001620| 70 5f 63 6d 64 20 2c 20 | 65 78 65 63 5f 61 72 67 |p_cmd , |exec_arg|
|00001630| 76 20 29 3b 0a 58 09 09 | 09 75 6e 6c 6f 63 6b 70 |v );.X..|.unlockp|
|00001640| 72 6f 63 28 29 3b 0a 58 | 09 09 09 66 70 72 69 6e |roc();.X|...fprin|
|00001650| 74 66 28 73 74 64 65 72 | 72 2c 22 25 73 3a 20 63 |tf(stder|r,"%s: c|
|00001660| 61 6e 27 74 20 65 78 65 | 63 20 25 73 5c 6e 22 2c |an't exe|c %s\n",|
|00001670| 20 0a 58 09 09 09 09 70 | 72 6f 67 6e 61 6d 65 2c | .X....p|rogname,|
|00001680| 20 72 65 61 6c 5f 6c 70 | 5f 63 6d 64 20 29 3b 0a | real_lp|_cmd );.|
|00001690| 58 09 09 09 70 65 72 72 | 6f 72 28 22 65 78 65 63 |X...perr|or("exec|
|000016a0| 22 29 3b 0a 58 09 09 09 | 5f 65 78 69 74 28 31 32 |");.X...|_exit(12|
|000016b0| 37 29 3b 0a 58 0a 58 09 | 09 64 65 66 61 75 6c 74 |7);.X.X.|.default|
|000016c0| 3a 0a 58 09 09 09 62 72 | 65 61 6b 3b 0a 58 09 09 |:.X...br|eak;.X..|
|000016d0| 09 0a 58 09 7d 0a 58 0a | 58 09 2f 2a 0a 58 09 20 |..X.}.X.|X./*.X. |
|000016e0| 2a 20 54 72 61 70 20 73 | 69 67 6e 61 6c 73 20 61 |* Trap s|ignals a|
|000016f0| 6e 64 20 77 61 69 74 20 | 66 6f 72 20 63 68 69 6c |nd wait |for chil|
|00001700| 64 20 74 6f 20 66 69 6e | 69 73 68 2e 0a 58 09 20 |d to fin|ish..X. |
|00001710| 2a 2f 0a 58 09 69 73 74 | 61 74 20 3d 20 73 69 67 |*/.X.ist|at = sig|
|00001720| 6e 61 6c 28 53 49 47 49 | 4e 54 2c 20 53 49 47 5f |nal(SIGI|NT, SIG_|
|00001730| 49 47 4e 29 3b 0a 58 09 | 71 73 74 61 74 20 3d 20 |IGN);.X.|qstat = |
|00001740| 73 69 67 6e 61 6c 28 53 | 49 47 51 55 49 54 2c 20 |signal(S|IGQUIT, |
|00001750| 53 49 47 5f 49 47 4e 29 | 3b 0a 58 09 77 68 69 6c |SIG_IGN)|;.X.whil|
|00001760| 65 28 20 28 77 20 3d 20 | 77 61 69 74 28 26 73 74 |e( (w = |wait(&st|
|00001770| 61 74 75 73 29 29 20 21 | 3d 20 70 69 64 20 26 26 |atus)) !|= pid &&|
|00001780| 20 77 20 21 3d 20 2d 31 | 29 0a 58 09 09 3b 0a 58 | w != -1|).X..;.X|
|00001790| 09 69 66 28 20 77 20 3d | 3d 20 2d 31 29 0a 58 09 |.if( w =|= -1).X.|
|000017a0| 09 73 74 61 74 75 73 20 | 3d 20 2d 31 3b 0a 58 09 |.status |= -1;.X.|
|000017b0| 73 69 67 6e 61 6c 28 53 | 49 47 49 4e 54 2c 20 69 |signal(S|IGINT, i|
|000017c0| 73 74 61 74 29 3b 0a 58 | 09 73 69 67 6e 61 6c 28 |stat);.X|.signal(|
|000017d0| 53 49 47 51 55 49 54 2c | 20 71 73 74 61 74 29 3b |SIGQUIT,| qstat);|
|000017e0| 0a 58 0a 58 09 75 6e 6c | 6f 63 6b 70 72 6f 63 28 |.X.X.unl|ockproc(|
|000017f0| 29 3b 0a 58 09 09 09 0a | 58 09 72 65 74 75 72 6e |);.X....|X.return|
|00001800| 20 73 74 61 74 75 73 3b | 0a 58 0a 58 7d 0a 58 0a | status;|.X.X}.X.|
|00001810| 58 63 68 61 72 20 2a 0a | 58 65 6d 61 6c 6c 6f 63 |Xchar *.|Xemalloc|
|00001820| 28 6e 29 0a 58 75 6e 73 | 69 67 6e 65 64 20 6e 3b |(n).Xuns|igned n;|
|00001830| 0a 58 7b 0a 58 09 63 68 | 61 72 20 2a 70 2c 20 2a |.X{.X.ch|ar *p, *|
|00001840| 6d 61 6c 6c 6f 63 28 29 | 3b 0a 58 0a 58 09 70 20 |malloc()|;.X.X.p |
|00001850| 3d 20 6d 61 6c 6c 6f 63 | 28 6e 29 3b 0a 58 09 69 |= malloc|(n);.X.i|
|00001860| 66 20 28 20 70 20 3d 3d | 20 30 29 0a 58 09 09 53 |f ( p ==| 0).X..S|
|00001870| 79 73 5f 45 72 72 6f 72 | 28 22 4f 75 74 20 6f 66 |ys_Error|("Out of|
|00001880| 20 6d 65 6d 6f 72 79 22 | 29 3b 0a 58 09 72 65 74 | memory"|);.X.ret|
|00001890| 75 72 6e 20 70 3b 0a 58 | 7d 0a 58 0a 58 53 79 73 |urn p;.X|}.X.XSys|
|000018a0| 5f 45 72 72 6f 72 28 73 | 29 0a 58 63 68 61 72 20 |_Error(s|).Xchar |
|000018b0| 2a 73 3b 0a 58 7b 0a 58 | 09 76 6f 69 64 20 65 78 |*s;.X{.X|.void ex|
|000018c0| 69 74 28 29 2c 20 70 65 | 72 72 6f 72 28 29 3b 0a |it(), pe|rror();.|
|000018d0| 58 0a 58 09 66 70 72 69 | 6e 74 66 28 73 74 64 65 |X.X.fpri|ntf(stde|
|000018e0| 72 72 2c 22 25 73 3a 20 | 25 73 5c 6e 22 2c 70 72 |rr,"%s: |%s\n",pr|
|000018f0| 6f 67 6e 61 6d 65 2c 20 | 73 29 3b 0a 58 09 70 65 |ogname, |s);.X.pe|
|00001900| 72 72 6f 72 28 22 74 65 | 72 6d 69 6e 61 74 69 6e |rror("te|rminatin|
|00001910| 67 22 29 3b 0a 58 09 65 | 78 69 74 28 31 29 3b 0a |g");.X.e|xit(1);.|
|00001920| 58 0a 58 7d 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |X.X}.SHA|R_EOF.if|
|00001930| 20 74 65 73 74 20 32 33 | 32 34 20 2d 6e 65 20 22 | test 23|24 -ne "|
|00001940| 60 77 63 20 2d 63 20 3c | 20 27 6c 70 2e 63 27 60 |`wc -c <| 'lp.c'`|
|00001950| 22 0a 74 68 65 6e 0a 09 | 65 63 68 6f 20 73 68 61 |".then..|echo sha|
|00001960| 72 3a 20 65 72 72 6f 72 | 20 74 72 61 6e 73 6d 69 |r: error| transmi|
|00001970| 74 74 69 6e 67 20 22 27 | 6c 70 2e 63 27 22 20 27 |tting "'|lp.c'" '|
|00001980| 28 73 68 6f 75 6c 64 20 | 68 61 76 65 20 62 65 65 |(should |have bee|
|00001990| 6e 20 32 33 32 34 20 63 | 68 61 72 61 63 74 65 72 |n 2324 c|haracter|
|000019a0| 73 29 27 0a 66 69 0a 66 | 69 20 23 20 65 6e 64 20 |s)'.fi.f|i # end |
|000019b0| 6f 66 20 6f 76 65 72 77 | 72 69 74 69 6e 67 20 63 |of overw|riting c|
|000019c0| 68 65 63 6b 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |heck.ech|o shar: |
|000019d0| 65 78 74 72 61 63 74 69 | 6e 67 20 22 27 6c 6f 63 |extracti|ng "'loc|
|000019e0| 6b 2e 63 27 22 20 27 28 | 32 37 37 36 20 63 68 61 |k.c'" '(|2776 cha|
|000019f0| 72 61 63 74 65 72 73 29 | 27 0a 69 66 20 74 65 73 |racters)|'.if tes|
|00001a00| 74 20 2d 66 20 27 6c 6f | 63 6b 2e 63 27 0a 74 68 |t -f 'lo|ck.c'.th|
|00001a10| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 77 |en..echo| shar: w|
|00001a20| 69 6c 6c 20 6e 6f 74 20 | 6f 76 65 72 2d 77 72 69 |ill not |over-wri|
|00001a30| 74 65 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |te exist|ing file|
|00001a40| 20 22 27 6c 6f 63 6b 2e | 63 27 22 0a 65 6c 73 65 | "'lock.|c'".else|
|00001a50| 0a 73 65 64 20 27 73 2f | 5e 58 2f 2f 27 20 3c 3c |.sed 's/|^X//' <<|
|00001a60| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 6c 6f | \SHAR_E|OF > 'lo|
|00001a70| 63 6b 2e 63 27 0a 58 23 | 69 66 6e 64 65 66 20 4c |ck.c'.X#|ifndef L|
|00001a80| 49 4e 54 0a 58 73 74 61 | 74 69 63 20 63 68 61 72 |INT.Xsta|tic char|
|00001a90| 20 53 63 63 73 49 64 5b | 5d 20 3d 20 22 40 28 23 | SccsId[|] = "@(#|
|00001aa0| 29 6c 6f 63 6b 2e 63 09 | 31 2e 31 20 55 20 6f 66 |)lock.c.|1.1 U of|
|00001ab0| 20 54 20 50 68 79 73 69 | 63 73 20 31 32 2f 31 35 | T Physi|cs 12/15|
|00001ac0| 2f 38 37 22 3b 0a 58 23 | 65 6e 64 69 66 0a 58 0a |/87";.X#|endif.X.|
|00001ad0| 58 2f 2a 0a 58 20 2a 20 | 53 74 61 6e 64 61 72 64 |X/*.X * |Standard|
|00001ae0| 20 6c 70 20 63 72 65 61 | 74 65 73 20 6c 6f 63 6b | lp crea|tes lock|
|00001af0| 66 69 6c 65 73 20 74 6f | 20 73 75 73 70 65 6e 64 |files to| suspend|
|00001b00| 20 61 20 73 65 63 6f 6e | 64 20 72 65 71 75 65 73 | a secon|d reques|
|00001b10| 74 2e 0a 58 20 2a 20 54 | 68 69 73 20 6c 65 61 76 |t..X * T|his leav|
|00001b20| 65 73 20 61 20 73 6d 61 | 6c 6c 20 77 69 6e 64 6f |es a sma|ll windo|
|00001b30| 77 20 6f 66 20 76 75 6c | 6e 65 72 61 62 69 6c 69 |w of vul|nerabili|
|00001b40| 74 79 20 69 66 20 32 20 | 75 73 65 72 73 0a 58 20 |ty if 2 |users.X |
|00001b50| 2a 20 61 72 65 20 75 73 | 69 6e 67 20 74 68 65 20 |* are us|ing the |
|00001b60| 70 72 6f 67 72 61 6d 20 | 61 74 20 6f 6e 65 20 74 |program |at one t|
|00001b70| 69 6d 65 2e 0a 58 20 2a | 0a 58 20 2a 20 54 68 69 |ime..X *|.X * Thi|
|00001b80| 73 20 66 69 6c 65 20 63 | 6f 6e 74 61 69 6e 73 3a |s file c|ontains:|
|00001b90| 0a 58 20 2a 09 6c 6f 63 | 6b 70 72 6f 63 28 29 20 |.X *.loc|kproc() |
|00001ba0| 2d 20 77 68 69 63 68 20 | 6c 6f 63 6b 73 20 73 6f |- which |locks so|
|00001bb0| 20 6f 74 68 65 72 20 75 | 73 65 72 20 63 61 6e 20 | other u|ser can |
|00001bc0| 75 73 65 0a 58 20 2a 09 | 09 09 74 68 65 20 70 72 |use.X *.|..the pr|
|00001bd0| 6f 67 72 61 6d 2e 0a 58 | 20 2a 09 75 6e 6c 6f 63 |ogram..X| *.unloc|
|00001be0| 6b 70 72 6f 63 28 29 20 | 2d 20 77 68 69 63 68 20 |kproc() |- which |
|00001bf0| 75 6e 6c 6f 63 6b 73 20 | 66 6f 72 20 6f 74 68 65 |unlocks |for othe|
|00001c00| 72 20 75 73 65 72 73 2e | 0a 58 20 2a 0a 58 20 2a |r users.|.X *.X *|
|00001c10| 20 49 74 20 75 73 65 73 | 20 74 68 65 20 73 65 6d | It uses| the sem|
|00001c20| 61 70 68 6f 72 65 20 66 | 61 63 69 6c 69 74 79 20 |aphore f|acility |
|00001c30| 61 6e 64 20 69 73 20 68 | 69 67 68 6c 79 20 73 79 |and is h|ighly sy|
|00001c40| 73 74 65 6d 20 64 65 70 | 65 6e 64 65 6e 74 2e 0a |stem dep|endent..|
|00001c50| 58 20 2a 2f 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |X */.X.X|#include|
|00001c60| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 23 69 6e 63 | <stdio.|h>.X#inc|
|00001c70| 6c 75 64 65 20 3c 73 79 | 73 2f 74 79 70 65 73 2e |lude <sy|s/types.|
|00001c80| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |h>.X#inc|lude <sy|
|00001c90| 73 2f 69 70 63 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |s/ipc.h>|.X#inclu|
|00001ca0| 64 65 20 3c 73 79 73 2f | 73 65 6d 2e 68 3e 0a 58 |de <sys/|sem.h>.X|
|00001cb0| 23 69 6e 63 6c 75 64 65 | 20 3c 65 72 72 6e 6f 2e |#include| <errno.|
|00001cc0| 68 3e 0a 58 0a 58 2f 2a | 0a 58 20 2a 20 54 68 65 |h>.X.X/*|.X * The|
|00001cd0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 61 72 65 20 74 | followi|ng are t|
|00001ce0| 68 65 20 77 61 79 20 74 | 6f 20 67 65 74 20 61 20 |he way t|o get a |
|00001cf0| 6b 65 79 20 6f 75 74 20 | 6f 66 20 66 74 6f 6b 28 |key out |of ftok(|
|00001d00| 29 0a 58 20 2a 2f 0a 58 | 23 64 65 66 69 6e 65 20 |).X */.X|#define |
|00001d10| 50 41 54 48 20 09 22 2f | 75 73 72 2f 62 69 6e 2f |PATH ."/|usr/bin/|
|00001d20| 72 65 61 6c 5f 6c 70 22 | 0a 58 23 64 65 66 69 6e |real_lp"|.X#defin|
|00001d30| 65 20 49 44 09 27 61 27 | 0a 58 0a 58 23 64 65 66 |e ID.'a'|.X.X#def|
|00001d40| 69 6e 65 20 55 4e 4c 4f | 43 4b 09 28 31 29 0a 58 |ine UNLO|CK.(1).X|
|00001d50| 23 64 65 66 69 6e 65 20 | 4c 4f 43 4b 09 28 2d 31 |#define |LOCK.(-1|
|00001d60| 29 09 2f 2a 20 69 6d 70 | 6f 73 73 69 62 6c 65 2c |)./* imp|ossible,|
|00001d70| 20 73 6f 20 77 69 6c 6c | 20 6c 6f 63 6b 20 2a 2f | so will| lock */|
|00001d80| 0a 58 0a 58 23 64 65 66 | 69 6e 65 20 4d 4f 44 45 |.X.X#def|ine MODE|
|00001d90| 09 28 30 36 36 36 29 20 | 20 2f 2a 20 72 77 20 62 |.(0666) | /* rw b|
|00001da0| 79 20 74 68 65 20 77 6f | 72 6c 64 20 2a 2f 0a 58 |y the wo|rld */.X|
|00001db0| 0a 58 2f 2a 0a 58 20 2a | 20 49 66 20 74 68 65 20 |.X/*.X *| If the |
|00001dc0| 6f 77 6e 65 72 20 72 65 | 6d 6f 76 65 73 20 74 68 |owner re|moves th|
|00001dd0| 65 20 66 61 63 69 6c 69 | 74 79 20 77 68 69 6c 65 |e facili|ty while|
|00001de0| 20 61 20 32 6e 64 20 70 | 72 6f 63 65 73 73 20 69 | a 2nd p|rocess i|
|00001df0| 73 20 0a 58 20 2a 20 77 | 61 69 74 69 6e 67 20 74 |s .X * w|aiting t|
|00001e00| 6f 20 6c 6f 63 6b 20 69 | 74 2c 20 74 68 65 20 73 |o lock i|t, the s|
|00001e10| 65 63 6f 6e 64 20 70 72 | 6f 63 65 73 73 20 77 69 |econd pr|ocess wi|
|00001e20| 6c 6c 20 72 65 63 65 69 | 76 65 20 61 6e 0a 58 20 |ll recei|ve an.X |
|00001e30| 2a 20 65 72 72 6f 72 20 | 66 72 6f 6d 20 73 65 6d |* error |from sem|
|00001e40| 6f 70 28 32 29 2e 20 20 | 54 68 75 73 2c 20 77 65 |op(2).  |Thus, we|
|00001e50| 20 74 72 79 20 54 52 49 | 45 53 20 74 69 6d 65 73 | try TRI|ES times|
|00001e60| 20 74 6f 20 6c 6f 63 6b | 0a 58 20 2a 20 74 68 65 | to lock|.X * the|
|00001e70| 20 70 72 6f 63 65 73 73 | 2e 0a 58 20 2a 2f 0a 58 | process|..X */.X|
|00001e80| 23 64 65 66 69 6e 65 20 | 54 52 49 45 53 09 35 09 |#define |TRIES.5.|
|00001e90| 0a 58 0a 58 23 64 65 66 | 69 6e 65 20 59 45 53 09 |.X.X#def|ine YES.|
|00001ea0| 31 0a 58 23 64 65 66 69 | 6e 65 20 4e 4f 09 30 0a |1.X#defi|ne NO.0.|
|00001eb0| 58 0a 58 73 74 61 74 69 | 63 20 69 6e 74 20 73 69 |X.Xstati|c int si|
|00001ec0| 64 3b 09 09 2f 2a 20 73 | 65 6d 61 70 68 6f 72 65 |d;../* s|emaphore|
|00001ed0| 20 69 64 20 6e 75 6d 62 | 65 72 20 2a 2f 0a 58 73 | id numb|er */.Xs|
|00001ee0| 74 61 74 69 63 20 73 68 | 6f 72 74 20 63 72 65 61 |tatic sh|ort crea|
|00001ef0| 74 6f 72 3b 09 2f 2a 20 | 3d 3d 20 59 45 53 20 69 |tor;./* |== YES i|
|00001f00| 66 20 74 68 69 73 20 70 | 72 6f 63 65 73 73 20 63 |f this p|rocess c|
|00001f10| 72 65 61 74 65 64 20 2a | 2f 0a 58 0a 58 65 78 74 |reated *|/.X.Xext|
|00001f20| 65 72 6e 20 63 68 61 72 | 20 2a 70 72 6f 67 6e 61 |ern char| *progna|
|00001f30| 6d 65 3b 0a 58 0a 58 6c | 6f 63 6b 70 72 6f 63 28 |me;.X.Xl|ockproc(|
|00001f40| 29 0a 58 7b 0a 58 09 69 | 6e 74 20 73 65 6d 5f 66 |).X{.X.i|nt sem_f|
|00001f50| 6c 67 2c 20 6e 75 6d 62 | 61 64 3b 0a 58 09 6b 65 |lg, numb|ad;.X.ke|
|00001f60| 79 5f 74 20 6b 65 79 2c | 20 66 74 6f 6b 28 29 3b |y_t key,| ftok();|
|00001f70| 0a 58 09 73 74 72 75 63 | 74 20 73 65 6d 62 75 66 |.X.struc|t sembuf|
|00001f80| 20 73 62 3b 0a 58 0a 58 | 09 6e 75 6d 62 61 64 20 | sb;.X.X|.numbad |
|00001f90| 3d 20 30 3b 0a 58 0a 58 | 72 65 74 72 79 3a 0a 58 |= 0;.X.X|retry:.X|
|00001fa0| 0a 58 09 69 66 28 28 6b | 65 79 20 3d 20 66 74 6f |.X.if((k|ey = fto|
|00001fb0| 6b 28 50 41 54 48 2c 49 | 44 29 29 20 3d 3d 20 2d |k(PATH,I|D)) == -|
|00001fc0| 31 29 20 0a 58 09 09 4c | 6f 63 6b 5f 45 72 72 6f |1) .X..L|ock_Erro|
|00001fd0| 72 28 22 43 61 6e 6e 6f | 74 20 67 65 74 20 69 70 |r("Canno|t get ip|
|00001fe0| 63 20 6b 65 79 22 29 3b | 0a 58 0a 58 0a 58 09 65 |c key");|.X.X.X.e|
|00001ff0| 72 72 6e 6f 20 3d 20 30 | 3b 0a 58 09 63 72 65 61 |rrno = 0|;.X.crea|
|00002000| 74 6f 72 20 3d 20 4e 4f | 3b 0a 58 0a 58 09 69 66 |tor = NO|;.X.X.if|
|00002010| 28 6e 75 6d 62 61 64 20 | 3e 3d 20 54 52 49 45 53 |(numbad |>= TRIES|
|00002020| 29 20 7b 0a 58 09 09 69 | 66 28 63 72 65 61 74 6f |) {.X..i|f(creato|
|00002030| 72 20 3d 3d 20 59 45 53 | 29 0a 58 09 09 09 73 65 |r == YES|).X...se|
|00002040| 6d 63 74 6c 28 73 69 64 | 2c 20 49 50 43 5f 52 4d |mctl(sid|, IPC_RM|
|00002050| 49 44 2c 20 30 29 3b 0a | 58 09 09 4c 6f 63 6b 5f |ID, 0);.|X..Lock_|
|00002060| 45 72 72 6f 72 28 22 4c | 6f 63 6b 20 65 72 72 6f |Error("L|ock erro|
|00002070| 72 22 29 3b 0a 58 09 7d | 0a 58 0a 58 09 73 65 6d |r");.X.}|.X.X.sem|
|00002080| 5f 66 6c 67 20 3d 20 4d | 4f 44 45 20 7c 20 49 50 |_flg = M|ODE | IP|
|00002090| 43 5f 43 52 45 41 54 20 | 7c 20 49 50 43 5f 45 58 |C_CREAT || IPC_EX|
|000020a0| 43 4c 3b 0a 58 0a 58 09 | 73 69 64 20 3d 20 73 65 |CL;.X.X.|sid = se|
|000020b0| 6d 67 65 74 28 6b 65 79 | 2c 20 31 2c 20 73 65 6d |mget(key|, 1, sem|
|000020c0| 5f 66 6c 67 29 3b 0a 58 | 09 69 66 28 73 69 64 20 |_flg);.X|.if(sid |
|000020d0| 3d 3d 20 2d 31 20 26 26 | 20 65 72 72 6e 6f 20 3d |== -1 &&| errno =|
|000020e0| 3d 20 45 45 58 49 53 54 | 29 20 7b 0a 58 09 09 2f |= EEXIST|) {.X../|
|000020f0| 2a 0a 58 09 09 20 2a 20 | 49 6e 20 75 73 65 20 62 |*.X.. * |In use b|
|00002100| 79 20 61 6e 6f 74 68 65 | 72 20 75 73 65 72 2e 0a |y anothe|r user..|
|00002110| 58 09 09 20 2a 2f 0a 58 | 09 09 73 65 6d 5f 66 6c |X.. */.X|..sem_fl|
|00002120| 67 20 3d 20 4d 4f 44 45 | 3b 0a 58 09 09 28 76 6f |g = MODE|;.X..(vo|
|00002130| 69 64 29 20 66 66 6c 75 | 73 68 28 73 74 64 6f 75 |id) fflu|sh(stdou|
|00002140| 74 29 3b 0a 58 09 09 73 | 69 64 20 3d 20 73 65 6d |t);.X..s|id = sem|
|00002150| 67 65 74 28 6b 65 79 2c | 20 31 2c 20 73 65 6d 5f |get(key,| 1, sem_|
|00002160| 66 6c 67 29 3b 0a 58 09 | 09 2f 2a 20 69 74 20 77 |flg);.X.|./* it w|
|00002170| 69 6c 6c 20 67 65 74 20 | 68 65 72 65 2c 20 62 75 |ill get |here, bu|
|00002180| 74 20 74 68 65 6e 20 62 | 6c 6f 63 6b 20 2a 2f 0a |t then b|lock */.|
|00002190| 58 09 7d 20 65 6c 73 65 | 20 7b 0a 58 09 09 63 72 |X.} else| {.X..cr|
|000021a0| 65 61 74 6f 72 20 3d 20 | 59 45 53 3b 0a 58 09 09 |eator = |YES;.X..|
|000021b0| 69 66 28 73 65 6d 63 74 | 6c 28 73 69 64 2c 20 30 |if(semct|l(sid, 0|
|000021c0| 2c 20 53 45 54 56 41 4c | 2c 20 55 4e 4c 4f 43 4b |, SETVAL|, UNLOCK|
|000021d0| 29 20 3d 3d 20 2d 31 29 | 20 7b 0a 58 09 09 09 73 |) == -1)| {.X...s|
|000021e0| 65 6d 63 74 6c 28 73 69 | 64 2c 20 30 2c 20 49 50 |emctl(si|d, 0, IP|
|000021f0| 43 5f 52 4d 49 44 2c 20 | 30 29 3b 0a 58 09 09 09 |C_RMID, |0);.X...|
|00002200| 4c 6f 63 6b 5f 45 72 72 | 6f 72 28 22 43 61 6e 6e |Lock_Err|or("Cann|
|00002210| 6f 74 20 63 72 65 61 74 | 65 20 73 65 6d 61 70 68 |ot creat|e semaph|
|00002220| 6f 72 65 22 29 3b 0a 58 | 09 09 7d 0a 58 09 7d 0a |ore");.X|..}.X.}.|
|00002230| 58 0a 58 09 73 62 2e 73 | 65 6d 5f 6e 75 6d 20 3d |X.X.sb.s|em_num =|
|00002240| 20 30 3b 09 09 2f 2a 20 | 31 73 74 20 73 65 6d 61 | 0;../* |1st sema|
|00002250| 70 68 6f 72 65 20 2a 2f | 0a 58 09 73 62 2e 73 65 |phore */|.X.sb.se|
|00002260| 6d 5f 6f 70 20 3d 20 4c | 4f 43 4b 3b 09 2f 2a 20 |m_op = L|OCK;./* |
|00002270| 77 65 20 61 72 65 20 6c | 6f 63 6b 69 6e 67 20 74 |we are l|ocking t|
|00002280| 68 65 20 73 65 6d 61 70 | 68 6f 72 65 20 2a 2f 0a |he semap|hore */.|
|00002290| 58 09 73 62 2e 73 65 6d | 5f 66 6c 67 20 3d 20 53 |X.sb.sem|_flg = S|
|000022a0| 45 4d 5f 55 4e 44 4f 3b | 09 2f 2a 20 61 75 74 6f |EM_UNDO;|./* auto|
|000022b0| 20 72 65 76 65 72 73 65 | 20 2a 2f 0a 58 0a 58 09 | reverse| */.X.X.|
|000022c0| 69 66 20 28 73 65 6d 6f | 70 28 73 69 64 2c 20 26 |if (semo|p(sid, &|
|000022d0| 73 62 2c 20 31 29 20 3d | 3d 20 2d 31 29 20 7b 0a |sb, 1) =|= -1) {.|
|000022e0| 58 09 09 69 66 28 20 65 | 72 72 6e 6f 20 3d 3d 20 |X..if( e|rrno == |
|000022f0| 45 49 4e 54 52 20 7c 7c | 20 65 72 72 6e 6f 20 3d |EINTR ||| errno =|
|00002300| 3d 20 45 49 44 52 4d 29 | 20 7b 0a 58 09 09 09 6e |= EIDRM)| {.X...n|
|00002310| 75 6d 62 61 64 2b 2b 3b | 0a 58 09 09 09 67 6f 74 |umbad++;|.X...got|
|00002320| 6f 20 72 65 74 72 79 3b | 0a 58 09 09 7d 20 65 6c |o retry;|.X..} el|
|00002330| 73 65 20 7b 0a 58 09 09 | 09 4c 6f 63 6b 5f 45 72 |se {.X..|.Lock_Er|
|00002340| 72 6f 72 28 22 43 61 6e | 6e 6f 74 20 73 65 6d 6f |ror("Can|not semo|
|00002350| 70 28 29 22 29 3b 0a 58 | 09 09 7d 0a 58 09 7d 0a |p()");.X|..}.X.}.|
|00002360| 58 7d 0a 58 0a 58 75 6e | 6c 6f 63 6b 70 72 6f 63 |X}.X.Xun|lockproc|
|00002370| 28 29 0a 58 7b 0a 58 09 | 73 74 72 75 63 74 20 73 |().X{.X.|struct s|
|00002380| 65 6d 62 75 66 20 73 62 | 3b 0a 58 0a 58 09 69 66 |embuf sb|;.X.X.if|
|00002390| 28 63 72 65 61 74 6f 72 | 20 3d 3d 20 59 45 53 29 |(creator| == YES)|
|000023a0| 20 7b 0a 58 09 09 69 66 | 28 73 65 6d 63 74 6c 28 | {.X..if|(semctl(|
|000023b0| 73 69 64 2c 20 49 50 43 | 5f 52 4d 49 44 2c 20 30 |sid, IPC|_RMID, 0|
|000023c0| 29 20 21 3d 20 30 29 20 | 7b 0a 58 09 09 09 4c 6f |) != 0) |{.X...Lo|
|000023d0| 63 6b 5f 45 72 72 6f 72 | 28 22 43 61 6e 6e 6f 74 |ck_Error|("Cannot|
|000023e0| 20 72 65 6d 6f 76 65 20 | 6c 6f 63 6b 22 29 3b 0a | remove |lock");.|
|000023f0| 58 09 09 7d 0a 58 09 7d | 20 65 6c 73 65 20 7b 0a |X..}.X.}| else {.|
|00002400| 58 09 09 73 62 2e 73 65 | 6d 5f 6e 75 6d 20 3d 20 |X..sb.se|m_num = |
|00002410| 30 3b 0a 58 09 09 73 62 | 2e 73 65 6d 5f 6f 70 20 |0;.X..sb|.sem_op |
|00002420| 3d 20 55 4e 4c 4f 43 4b | 3b 0a 58 09 09 73 62 2e |= UNLOCK|;.X..sb.|
|00002430| 73 65 6d 5f 66 6c 67 20 | 3d 20 53 45 4d 5f 55 4e |sem_flg |= SEM_UN|
|00002440| 44 4f 3b 0a 58 0a 58 09 | 09 69 66 28 73 65 6d 6f |DO;.X.X.|.if(semo|
|00002450| 70 28 73 69 64 2c 20 26 | 73 62 2c 20 31 29 20 3d |p(sid, &|sb, 1) =|
|00002460| 3d 20 2d 31 29 0a 58 09 | 09 09 4c 6f 63 6b 5f 45 |= -1).X.|..Lock_E|
|00002470| 72 72 6f 72 28 22 43 61 | 6e 6e 6f 74 20 75 6e 6c |rror("Ca|nnot unl|
|00002480| 6f 63 6b 22 29 3b 0a 58 | 09 7d 0a 58 7d 0a 58 0a |ock");.X|.}.X}.X.|
|00002490| 58 4c 6f 63 6b 5f 45 72 | 72 6f 72 28 73 29 0a 58 |XLock_Er|ror(s).X|
|000024a0| 63 68 61 72 20 2a 73 3b | 0a 58 7b 0a 58 09 76 6f |char *s;|.X{.X.vo|
|000024b0| 69 64 20 65 78 69 74 28 | 29 3b 0a 58 09 65 78 74 |id exit(|);.X.ext|
|000024c0| 65 72 6e 20 63 68 61 72 | 20 2a 70 72 6f 67 6e 61 |ern char| *progna|
|000024d0| 6d 65 3b 0a 58 0a 58 09 | 66 70 72 69 6e 74 66 28 |me;.X.X.|fprintf(|
|000024e0| 73 74 64 65 72 72 2c 22 | 25 73 3a 20 70 6c 65 61 |stderr,"|%s: plea|
|000024f0| 73 65 20 6e 6f 74 69 66 | 79 20 79 6f 75 72 20 73 |se notif|y your s|
|00002500| 79 73 74 65 6d 20 61 64 | 6d 69 6e 69 73 74 72 61 |ystem ad|ministra|
|00002510| 74 6f 72 5c 6e 22 2c 0a | 58 09 09 70 72 6f 67 6e |tor\n",.|X..progn|
|00002520| 61 6d 65 29 3b 0a 58 09 | 66 70 72 69 6e 74 66 28 |ame);.X.|fprintf(|
|00002530| 73 74 64 65 72 72 2c 22 | 74 68 61 74 20 79 6f 75 |stderr,"|that you|
|00002540| 20 72 65 63 65 69 76 65 | 64 20 74 68 65 20 66 6f | receive|d the fo|
|00002550| 6c 6c 6f 77 69 6e 67 20 | 65 72 72 6f 72 20 6d 65 |llowing |error me|
|00002560| 73 73 61 67 65 3a 5c 6e | 22 29 3b 0a 58 09 66 70 |ssage:\n|");.X.fp|
|00002570| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 22 20 2a |rintf(st|derr," *|
|00002580| 2a 2a 2a 2a 20 25 73 20 | 2a 2a 2a 2a 2a 5c 6e 22 |**** %s |*****\n"|
|00002590| 2c 20 73 29 3b 0a 58 09 | 66 70 72 69 6e 74 66 28 |, s);.X.|fprintf(|
|000025a0| 73 74 64 65 72 72 2c 22 | 59 6f 75 72 20 70 72 69 |stderr,"|Your pri|
|000025b0| 6e 74 20 6a 6f 62 20 68 | 61 73 20 61 62 6f 72 74 |nt job h|as abort|
|000025c0| 65 64 2e 5c 6e 22 29 3b | 0a 58 09 65 78 69 74 28 |ed.\n");|.X.exit(|
|000025d0| 31 29 3b 0a 58 7d 0a 53 | 48 41 52 5f 45 4f 46 0a |1);.X}.S|HAR_EOF.|
|000025e0| 69 66 20 74 65 73 74 20 | 32 37 37 36 20 2d 6e 65 |if test |2776 -ne|
|000025f0| 20 22 60 77 63 20 2d 63 | 20 3c 20 27 6c 6f 63 6b | "`wc -c| < 'lock|
|00002600| 2e 63 27 60 22 0a 74 68 | 65 6e 0a 09 65 63 68 6f |.c'`".th|en..echo|
|00002610| 20 73 68 61 72 3a 20 65 | 72 72 6f 72 20 74 72 61 | shar: e|rror tra|
|00002620| 6e 73 6d 69 74 74 69 6e | 67 20 22 27 6c 6f 63 6b |nsmittin|g "'lock|
|00002630| 2e 63 27 22 20 27 28 73 | 68 6f 75 6c 64 20 68 61 |.c'" '(s|hould ha|
|00002640| 76 65 20 62 65 65 6e 20 | 32 37 37 36 20 63 68 61 |ve been |2776 cha|
|00002650| 72 61 63 74 65 72 73 29 | 27 0a 66 69 0a 66 69 20 |racters)|'.fi.fi |
|00002660| 23 20 65 6e 64 20 6f 66 | 20 6f 76 65 72 77 72 69 |# end of| overwri|
|00002670| 74 69 6e 67 20 63 68 65 | 63 6b 0a 23 09 45 6e 64 |ting che|ck.#.End|
|00002680| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00002690| 65 0a 65 78 69 74 20 30 | 0a                      |e.exit 0|.       |
+--------+-------------------------+-------------------------+--------+--------+