/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1694

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 62 6f | 67 61 74 6b 6f 40 6c 7a |From: bo|gatko@lz|
|00000010| 67 61 2e 41 54 54 2e 43 | 4f 4d 20 28 47 65 6f 72 |ga.ATT.C|OM (Geor|
|00000020| 67 65 20 42 6f 67 61 74 | 6b 6f 29 0a 4e 65 77 73 |ge Bogat|ko).News|
|00000030| 67 72 6f 75 70 73 3a 20 | 61 6c 74 2e 73 6f 75 72 |groups: |alt.sour|
|00000040| 63 65 73 0a 53 75 62 6a | 65 63 74 3a 20 52 65 3a |ces.Subj|ect: Re:|
|00000050| 20 72 65 64 69 72 65 63 | 74 69 6e 67 20 73 74 61 | redirec|ting sta|
|00000060| 6e 64 61 72 64 20 69 2f | 6f 20 66 72 6f 6d 20 61 |ndard i/|o from a|
|00000070| 6e 64 20 65 78 65 63 27 | 65 64 20 70 72 6f 67 72 |nd exec'|ed progr|
|00000080| 61 6d 6d 65 0a 4d 65 73 | 73 61 67 65 2d 49 44 3a |amme.Mes|sage-ID:|
|00000090| 20 3c 32 30 30 39 40 6c | 7a 67 61 2e 41 54 54 2e | <2009@l|zga.ATT.|
|000000a0| 43 4f 4d 3e 0a 44 61 74 | 65 3a 20 31 35 20 41 75 |COM>.Dat|e: 15 Au|
|000000b0| 67 20 39 30 20 31 32 3a | 34 35 3a 31 39 20 47 4d |g 90 12:|45:19 GM|
|000000c0| 54 0a 0a 0a 48 49 3a 0a | 09 54 68 69 73 20 70 6f |T...HI:.|.This po|
|000000d0| 73 74 69 6e 67 20 69 73 | 20 69 6e 20 72 65 73 70 |sting is| in resp|
|000000e0| 6f 6e 73 65 20 74 6f 3a | 0a 22 6d 69 63 68 61 65 |onse to:|."michae|
|000000f0| 6c 40 66 65 32 6f 33 2e | 55 55 43 50 20 28 4d 69 |l@fe2o3.|UUCP (Mi|
|00000100| 63 68 61 65 6c 20 4b 61 | 74 7a 6d 61 6e 6e 20 40 |chael Ka|tzmann @|
|00000110| 20 52 75 73 74 79 27 73 | 20 42 53 44 20 6d 61 63 | Rusty's| BSD mac|
|00000120| 68 69 6e 65 20 61 74 20 | 68 6f 6d 65 29 22 0a 66 |hine at |home)".f|
|00000130| 6f 75 6e 64 20 69 6e 20 | 63 6f 6d 70 2e 75 6e 69 |ound in |comp.uni|
|00000140| 78 2e 71 75 65 73 74 69 | 6f 6e 73 0a 0a 49 20 68 |x.questi|ons..I h|
|00000150| 61 76 65 20 61 20 74 61 | 73 6b 20 74 68 61 74 20 |ave a ta|sk that |
|00000160| 72 65 71 75 69 72 65 73 | 20 74 68 65 20 61 62 69 |requires| the abi|
|00000170| 6c 69 74 79 20 74 6f 20 | 66 6f 72 6b 20 6f 66 66 |lity to |fork off|
|00000180| 20 61 6e 6f 74 68 65 72 | 20 70 72 6f 67 72 61 6d | another| program|
|00000190| 6d 65 20 62 75 74 0a 74 | 6f 20 73 75 70 70 6c 79 |me but.t|o supply|
|000001a0| 20 69 74 27 73 20 73 74 | 61 6e 64 61 72 64 20 69 | it's st|andard i|
|000001b0| 6e 70 75 74 20 61 6e 64 | 20 6f 75 74 70 75 74 2e |nput and| output.|
|000001c0| 20 0a 09 09 2e 0a 09 09 | 2e 0a 09 09 2e 0a 48 6f | .......|......Ho|
|000001d0| 77 65 76 65 72 20 74 68 | 65 72 65 20 64 6f 65 73 |wever th|ere does|
|000001e0| 6e 27 74 20 73 65 65 6d | 20 74 6f 20 62 65 20 61 |n't seem| to be a|
|000001f0| 6e 79 20 77 61 79 20 74 | 6f 20 75 73 65 20 70 6f |ny way t|o use po|
|00000200| 70 65 6e 28 29 20 74 6f | 20 64 6f 20 62 6f 74 68 |pen() to| do both|
|00000210| 0a 73 69 6d 69 6c 74 61 | 6e 65 6f 75 73 6c 79 2e |.similta|neously.|
|00000220| 0a 0a 57 68 61 74 20 69 | 73 20 74 68 65 20 75 73 |..What i|s the us|
|00000230| 75 61 6c 20 77 61 79 20 | 74 6f 20 74 6f 20 74 68 |ual way |to to th|
|00000240| 69 73 3f 0a 0a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |is?..***|*******.|
|00000250| 0a 48 65 72 65 20 69 73 | 20 68 6f 77 20 49 20 64 |.Here is| how I d|
|00000260| 69 64 20 69 74 2e 0a 0a | 2a 2a 2a 2a 2a 2a 2a 2a |id it...|********|
|00000270| 2a 2a 20 43 55 54 20 48 | 45 52 45 20 2a 2a 2a 2a |** CUT H|ERE ****|
|00000280| 2a 2a 2a 2a 2a 2a 20 43 | 55 54 20 48 45 52 45 20 |****** C|UT HERE |
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 43 55 54 20 48 |********|** CUT H|
|000002a0| 45 52 45 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 43 |ERE ****|****** C|
|000002b0| 55 54 20 48 45 52 45 0a | 0a 23 21 20 2f 62 69 6e |UT HERE.|.#! /bin|
|000002c0| 2f 73 68 0a 23 20 54 68 | 69 73 20 69 73 20 61 20 |/sh.# Th|is is a |
|000002d0| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2c 20 6d |shell ar|chive, m|
|000002e0| 65 61 6e 69 6e 67 3a 0a | 23 20 31 2e 20 52 65 6d |eaning:.|# 1. Rem|
|000002f0| 6f 76 65 20 65 76 65 72 | 79 74 68 69 6e 67 20 61 |ove ever|ything a|
|00000300| 62 6f 76 65 20 74 68 65 | 20 23 21 20 2f 62 69 6e |bove the| #! /bin|
|00000310| 2f 73 68 20 6c 69 6e 65 | 2e 0a 23 20 32 2e 20 53 |/sh line|..# 2. S|
|00000320| 61 76 65 20 74 68 65 20 | 72 65 73 75 6c 74 69 6e |ave the |resultin|
|00000330| 67 20 74 65 78 74 20 69 | 6e 20 61 20 66 69 6c 65 |g text i|n a file|
|00000340| 2e 0a 23 20 33 2e 20 45 | 78 65 63 75 74 65 20 74 |..# 3. E|xecute t|
|00000350| 68 65 20 66 69 6c 65 20 | 77 69 74 68 20 2f 62 69 |he file |with /bi|
|00000360| 6e 2f 73 68 20 28 6e 6f | 74 20 63 73 68 29 20 74 |n/sh (no|t csh) t|
|00000370| 6f 20 63 72 65 61 74 65 | 3a 0a 23 09 6d 61 6b 65 |o create|:.#.make|
|00000380| 66 69 6c 65 0a 23 09 66 | 63 6f 70 79 2e 63 0a 23 |file.#.f|copy.c.#|
|00000390| 09 66 70 69 70 65 2e 63 | 0a 23 09 66 70 69 70 65 |.fpipe.c|.#.fpipe|
|000003a0| 2e 68 0a 23 09 6d 61 69 | 6e 2e 63 0a 23 09 74 73 |.h.#.mai|n.c.#.ts|
|000003b0| 74 2e 63 0a 23 20 54 68 | 69 73 20 61 72 63 68 69 |t.c.# Th|is archi|
|000003c0| 76 65 20 63 72 65 61 74 | 65 64 3a 20 54 75 65 20 |ve creat|ed: Tue |
|000003d0| 46 65 62 20 32 37 20 31 | 33 3a 34 34 3a 31 34 20 |Feb 27 1|3:44:14 |
|000003e0| 31 39 39 30 0a 65 78 70 | 6f 72 74 20 50 41 54 48 |1990.exp|ort PATH|
|000003f0| 3b 20 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |; PATH=/|bin:/usr|
|00000400| 2f 62 69 6e 3a 24 50 41 | 54 48 0a 69 66 20 74 65 |/bin:$PA|TH.if te|
|00000410| 73 74 20 2d 66 20 27 6d | 61 6b 65 66 69 6c 65 27 |st -f 'm|akefile'|
|00000420| 0a 74 68 65 6e 0a 20 20 | 20 20 20 20 20 65 63 68 |.then.  |     ech|
|00000430| 6f 20 73 68 61 72 3a 20 | 22 77 69 6c 6c 20 6e 6f |o shar: |"will no|
|00000440| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00000450| 73 74 69 6e 67 20 66 69 | 6c 65 20 27 6d 61 6b 65 |sting fi|le 'make|
|00000460| 66 69 6c 65 27 22 0a 65 | 6c 73 65 0a 63 61 74 20 |file'".e|lse.cat |
|00000470| 3c 3c 20 5c 53 48 41 52 | 5f 45 4f 46 20 3e 20 27 |<< \SHAR|_EOF > '|
|00000480| 6d 61 6b 65 66 69 6c 65 | 27 0a 43 46 4c 41 47 53 |makefile|'.CFLAGS|
|00000490| 3d 2d 49 2e 0a 0a 4c 49 | 42 53 3d 0a 0a 4f 42 4a |=-I...LI|BS=..OBJ|
|000004a0| 53 3d 5c 0a 6d 61 69 6e | 2e 6f 20 5c 0a 66 70 69 |S=\.main|.o \.fpi|
|000004b0| 70 65 2e 6f 20 5c 0a 66 | 63 6f 70 79 2e 6f 0a 0a |pe.o \.f|copy.o..|
|000004c0| 4f 55 54 50 55 54 3d 5c | 0a 6d 61 69 6e 0a 0a 24 |OUTPUT=\|.main..$|
|000004d0| 28 4f 55 54 50 55 54 29 | 3a 09 24 28 4f 42 4a 53 |(OUTPUT)|:.$(OBJS|
|000004e0| 29 0a 09 63 63 20 2d 6f | 20 24 28 4f 55 54 50 55 |)..cc -o| $(OUTPU|
|000004f0| 54 29 20 24 28 4f 42 4a | 53 29 20 24 28 4c 49 42 |T) $(OBJ|S) $(LIB|
|00000500| 53 29 0a 53 48 41 52 5f | 45 4f 46 0a 66 69 0a 69 |S).SHAR_|EOF.fi.i|
|00000510| 66 20 74 65 73 74 20 2d | 66 20 27 66 63 6f 70 79 |f test -|f 'fcopy|
|00000520| 2e 63 27 0a 74 68 65 6e | 0a 20 20 20 20 20 20 20 |.c'.then|.       |
|00000530| 65 63 68 6f 20 73 68 61 | 72 3a 20 22 77 69 6c 6c |echo sha|r: "will|
|00000540| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00000550| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 27 66 |existing| file 'f|
|00000560| 63 6f 70 79 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |copy.c'"|.else.ca|
|00000570| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00000580| 20 27 66 63 6f 70 79 2e | 63 27 0a 2f 2a 2a 2a 2a | 'fcopy.|c'./****|
|00000590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 20 20 20 20 |********|**.*    |
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 20 20 20 20 20 20 | 20 2a 0a 2a 20 20 20 20 |        | *.*    |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 66 63 |        |      fc|
|00000650| 6f 70 79 2e 63 20 20 20 | 20 20 20 20 20 20 20 20 |opy.c   |        |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000670| 20 20 20 20 20 20 20 20 | 20 2a 0a 2a 20 20 20 20 |        | *.*    |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006c0| 20 20 20 20 20 20 20 20 | 20 2a 0a 2a 2a 2a 2a 2a |        | *.*****|
|000006d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0a 0a 2f 2a 2d 2d |********|*/../*--|
|00000720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 20 20 49 4e 49 54 49 41 |--------|  INITIA|
|00000740| 4c 20 43 4f 44 49 4e 47 | 20 44 41 54 45 20 2d 2d |L CODING| DATE --|
|00000750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0a 54 68 75 20 |--------|---.Thu |
|00000770| 4e 6f 76 20 31 30 20 31 | 30 3a 35 36 3a 33 37 20 |Nov 10 1|0:56:37 |
|00000780| 45 53 54 20 31 39 38 38 | 20 62 79 20 47 65 6f 72 |EST 1988| by Geor|
|00000790| 67 65 20 4d 2e 20 42 6f | 67 61 74 6b 6f 0a 0a 2d |ge M. Bo|gatko..-|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|000007c0| 20 48 45 41 44 45 52 20 | 46 49 4c 45 53 20 20 2d | HEADER |FILES  -|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0a 23 |--------|----*/.#|
|000007f0| 69 6e 63 6c 75 64 65 20 | 3c 73 74 64 69 6f 2e 68 |include |<stdio.h|
|00000800| 3e 0a 23 69 6e 63 6c 75 | 64 65 20 3c 66 70 69 70 |>.#inclu|de <fpip|
|00000810| 65 2e 68 3e 0a 23 69 6e | 63 6c 75 64 65 20 3c 66 |e.h>.#in|clude <f|
|00000820| 63 6e 74 6c 2e 68 3e 0a | 0a 2f 2a 2d 2d 2d 2d 2d |cntl.h>.|./*-----|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 54 |--------|-----  T|
|00000840| 59 50 45 44 45 46 27 53 | 2c 20 44 45 46 49 4e 45 |YPEDEF'S|, DEFINE|
|00000850| 53 2c 20 53 54 52 55 43 | 54 55 52 45 20 44 45 46 |S, STRUC|TURE DEF|
|00000860| 27 53 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |'S  ----|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2a 2f | 0a 0a 2f 2a 2d 2d 2d 2d |------*/|../*----|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 20 49 4d |--------|----  IM|
|00000890| 50 4f 52 54 45 44 20 47 | 4c 4f 42 41 4c 20 56 41 |PORTED G|LOBAL VA|
|000008a0| 52 49 41 42 4c 45 2f 46 | 55 4e 43 54 49 4f 4e 20 |RIABLE/F|UNCTION |
|000008b0| 44 45 46 27 53 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |DEF'S  -|--------|
|000008c0| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0a 65 78 74 65 72 6e |-------*|/.extern|
|000008d0| 20 63 68 61 72 20 2a 66 | 67 65 74 73 28 29 3b 0a | char *f|gets();.|
|000008e0| 0a 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|000008f0| 2d 2d 2d 20 20 45 58 50 | 4f 52 54 45 44 20 47 4c |---  EXP|ORTED GL|
|00000900| 4f 42 41 4c 20 56 41 52 | 49 41 42 4c 45 2f 46 55 |OBAL VAR|IABLE/FU|
|00000910| 4e 43 54 49 4f 4e 20 44 | 45 46 27 53 20 20 2d 2d |NCTION D|EF'S  --|
|00000920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 2f |--------|------*/|
|00000930| 0a 0a 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |../*----|--------|
|00000940| 2d 2d 2d 2d 20 20 49 4e | 54 45 52 4e 41 4c 20 47 |----  IN|TERNAL G|
|00000950| 4c 4f 42 41 4c 20 56 41 | 52 49 41 42 4c 45 2f 46 |LOBAL VA|RIABLE/F|
|00000960| 55 4e 43 54 49 4f 4e 20 | 44 45 46 27 53 20 20 2d |UNCTION |DEF'S  -|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2a |--------|-------*|
|00000980| 2f 0a 23 69 64 65 6e 74 | 20 22 25 57 25 20 25 47 |/.#ident| "%W% %G|
|00000990| 25 20 2d 20 47 65 6f 72 | 67 65 20 4d 2e 20 42 6f |% - Geor|ge M. Bo|
|000009a0| 67 61 74 6b 6f 20 2d 22 | 0a 0a 2f 2a 2d 2d 2d 2d |gatko -"|../*----|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 0a 53 59 4e 4f 50 |--------|-..SYNOP|
|00000a00| 53 49 53 3a 0a 09 66 63 | 6f 70 79 28 69 6e 5f 66 |SIS:..fc|opy(in_f|
|00000a10| 64 2c 20 6f 75 74 5f 66 | 6e 61 6d 65 2c 20 66 6c |d, out_f|name, fl|
|00000a20| 61 67 29 0a 0a 44 45 53 | 43 52 49 50 54 49 4f 4e |ag)..DES|CRIPTION|
|00000a30| 3a 0a 09 46 43 4f 50 59 | 20 63 6f 70 69 65 73 20 |:..FCOPY| copies |
|00000a40| 6c 69 6e 65 73 20 66 72 | 6f 6d 20 61 6e 20 49 4e |lines fr|om an IN|
|00000a50| 5f 46 44 20 28 6d 61 79 | 62 65 20 61 20 70 69 70 |_FD (may|be a pip|
|00000a60| 65 29 20 74 6f 20 61 20 | 73 74 61 6e 64 61 72 64 |e) to a |standard|
|00000a70| 0a 09 66 69 6c 65 2e 20 | 20 54 68 65 20 61 72 67 |..file. | The arg|
|00000a80| 75 6d 65 6e 74 73 20 61 | 72 65 3a 0a 0a 09 69 6e |uments a|re:...in|
|00000a90| 5f 66 64 20 2d 20 61 20 | 27 46 49 4c 45 20 2a 27 |_fd - a |'FILE *'|
|00000aa0| 20 74 79 70 65 20 66 69 | 6c 65 20 64 65 73 63 72 | type fi|le descr|
|00000ab0| 69 70 74 6f 72 0a 0a 09 | 6f 75 74 5f 66 6e 61 6d |iptor...|out_fnam|
|00000ac0| 65 20 2d 20 54 68 65 20 | 66 69 6c 65 20 79 6f 75 |e - The |file you|
|00000ad0| 20 77 61 6e 74 20 74 6f | 20 77 72 69 74 65 20 74 | want to| write t|
|00000ae0| 6f 0a 0a 09 66 6c 61 67 | 20 2d 20 57 68 65 74 68 |o...flag| - Wheth|
|00000af0| 65 72 20 79 6f 75 72 20 | 77 61 6e 74 20 74 68 65 |er your |want the|
|00000b00| 20 52 45 41 44 20 74 6f | 20 62 65 20 42 4c 4f 43 | READ to| be BLOC|
|00000b10| 4b 20 6f 72 20 4e 4f 4e | 5f 42 4c 4f 43 4b 0a 0a |K or NON|_BLOCK..|
|00000b20| 09 09 77 69 74 68 20 42 | 4c 4f 43 4b 2c 20 74 68 |..with B|LOCK, th|
|00000b30| 65 20 66 67 65 74 73 20 | 77 69 6c 6c 20 62 6c 6f |e fgets |will blo|
|00000b40| 63 6b 20 28 69 6e 20 74 | 68 65 20 63 61 73 65 20 |ck (in t|he case |
|00000b50| 6f 66 20 70 69 70 65 73 | 2c 0a 09 09 09 61 20 62 |of pipes|,....a b|
|00000b60| 6c 6f 63 6b 20 6f 63 63 | 75 72 73 20 69 66 20 74 |lock occ|urs if t|
|00000b70| 68 65 72 65 20 69 73 20 | 6e 6f 74 68 69 6e 67 20 |here is |nothing |
|00000b80| 69 6e 20 74 68 65 20 70 | 69 70 65 0a 09 09 09 74 |in the p|ipe....t|
|00000b90| 6f 20 72 65 61 64 2e 0a | 0a 09 09 77 69 74 68 20 |o read..|...with |
|00000ba0| 4e 4f 4e 5f 42 4c 4f 43 | 4b 2c 20 74 68 65 20 66 |NON_BLOC|K, the f|
|00000bb0| 69 72 73 74 20 52 45 41 | 44 20 69 73 20 42 4c 4f |irst REA|D is BLO|
|00000bc0| 43 4b 45 44 2c 20 28 74 | 6f 20 61 6c 6c 6f 77 0a |CKED, (t|o allow.|
|00000bd0| 09 09 09 70 69 70 65 20 | 73 79 6e 63 68 72 6f 6e |...pipe |synchron|
|00000be0| 69 7a 61 74 69 6f 6e 29 | 20 61 6e 64 20 73 75 62 |ization)| and sub|
|00000bf0| 73 65 71 75 65 6e 74 20 | 72 65 61 64 73 20 61 72 |sequent |reads ar|
|00000c00| 65 0a 09 09 09 4e 4f 4e | 5f 42 4c 4f 43 4b 2e 0a |e....NON|_BLOCK..|
|00000c10| 0a 52 45 54 55 52 4e 3a | 0a 09 30 20 6f 6e 20 73 |.RETURN:|..0 on s|
|00000c20| 75 63 63 65 73 73 0a 09 | 2d 31 20 6f 6e 20 65 72 |uccess..|-1 on er|
|00000c30| 72 6f 72 20 20 28 75 73 | 65 20 70 65 72 72 6f 72 |ror  (us|e perror|
|00000c40| 28 29 29 0a 0a 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |())..===|========|
|00000c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c90| 3d 3d 2a 2f 0a 0a 69 6e | 74 20 66 63 6f 70 79 28 |==*/..in|t fcopy(|
|00000ca0| 69 6e 5f 66 70 2c 20 6f | 75 74 6e 61 6d 65 2c 20 |in_fp, o|utname, |
|00000cb0| 62 6c 6f 63 6b 66 6c 61 | 67 29 0a 46 49 4c 45 20 |blockfla|g).FILE |
|00000cc0| 2a 69 6e 5f 66 70 3b 0a | 63 68 61 72 20 2a 6f 75 |*in_fp;.|char *ou|
|00000cd0| 74 6e 61 6d 65 3b 0a 69 | 6e 74 20 62 6c 6f 63 6b |tname;.i|nt block|
|00000ce0| 66 6c 61 67 3b 0a 7b 0a | 46 49 4c 45 20 2a 6f 75 |flag;.{.|FILE *ou|
|00000cf0| 74 5f 66 70 3b 0a 63 68 | 61 72 20 62 75 66 5b 42 |t_fp;.ch|ar buf[B|
|00000d00| 55 46 53 49 5a 5d 3b 0a | 65 6e 75 6d 20 7b 66 69 |UFSIZ];.|enum {fi|
|00000d10| 72 73 74 2c 20 6e 65 78 | 74 7d 20 74 69 6d 65 20 |rst, nex|t} time |
|00000d20| 3d 20 66 69 72 73 74 3b | 0a 0a 09 69 66 28 20 28 |= first;|...if( (|
|00000d30| 6f 75 74 5f 66 70 20 3d | 20 66 6f 70 65 6e 28 6f |out_fp =| fopen(o|
|00000d40| 75 74 6e 61 6d 65 2c 20 | 22 77 22 29 29 20 3d 3d |utname, |"w")) ==|
|00000d50| 20 28 46 49 4c 45 20 2a | 29 4e 55 4c 4c 20 29 0a | (FILE *|)NULL ).|
|00000d60| 09 09 72 65 74 75 72 6e | 20 2d 31 3b 0a 0a 09 77 |..return| -1;...w|
|00000d70| 68 69 6c 65 28 20 66 67 | 65 74 73 28 62 75 66 2c |hile( fg|ets(buf,|
|00000d80| 20 42 55 46 53 49 5a 2c | 20 69 6e 5f 66 70 29 20 | BUFSIZ,| in_fp) |
|00000d90| 21 3d 20 28 63 68 61 72 | 20 2a 29 4e 55 4c 4c 20 |!= (char| *)NULL |
|00000da0| 29 0a 09 7b 0a 09 09 69 | 66 28 20 74 69 6d 65 20 |)..{...i|f( time |
|00000db0| 3d 3d 20 66 69 72 73 74 | 20 29 0a 09 09 7b 0a 09 |== first| )...{..|
|00000dc0| 09 09 69 66 28 20 62 6c | 6f 63 6b 66 6c 61 67 20 |..if( bl|ockflag |
|00000dd0| 3d 3d 20 4e 4f 5f 42 4c | 4f 43 4b 20 29 0a 09 09 |== NO_BL|OCK )...|
|00000de0| 09 7b 0a 09 09 09 09 69 | 66 28 66 63 6e 74 6c 28 |.{.....i|f(fcntl(|
|00000df0| 20 66 69 6c 65 6e 6f 28 | 69 6e 5f 66 70 29 2c 20 | fileno(|in_fp), |
|00000e00| 46 5f 53 45 54 46 4c 2c | 20 4f 5f 4e 44 45 4c 41 |F_SETFL,| O_NDELA|
|00000e10| 59 20 29 20 3d 3d 20 2d | 31 20 29 0a 09 09 09 09 |Y ) == -|1 ).....|
|00000e20| 7b 0a 09 09 09 09 09 70 | 65 72 72 6f 72 28 22 22 |{......p|error(""|
|00000e30| 29 3b 0a 09 09 09 09 09 | 66 63 6c 6f 73 65 28 6f |);......|fclose(o|
|00000e40| 75 74 5f 66 70 29 3b 0a | 09 09 09 09 09 72 65 74 |ut_fp);.|.....ret|
|00000e50| 75 72 6e 20 2d 31 3b 0a | 09 09 09 09 7d 0a 09 09 |urn -1;.|....}...|
|00000e60| 09 7d 0a 09 09 09 74 69 | 6d 65 20 3d 20 6e 65 78 |.}....ti|me = nex|
|00000e70| 74 3b 0a 09 09 7d 0a 09 | 09 66 70 75 74 73 28 62 |t;...}..|.fputs(b|
|00000e80| 75 66 2c 20 6f 75 74 5f | 66 70 29 3b 0a 09 7d 0a |uf, out_|fp);..}.|
|00000e90| 09 66 63 6c 6f 73 65 28 | 6f 75 74 5f 66 70 29 3b |.fclose(|out_fp);|
|00000ea0| 0a 09 72 65 74 75 72 6e | 20 30 3b 0a 7d 0a 53 48 |..return| 0;.}.SH|
|00000eb0| 41 52 5f 45 4f 46 0a 66 | 69 0a 69 66 20 74 65 73 |AR_EOF.f|i.if tes|
|00000ec0| 74 20 2d 66 20 27 66 70 | 69 70 65 2e 63 27 0a 74 |t -f 'fp|ipe.c'.t|
|00000ed0| 68 65 6e 0a 20 20 20 20 | 20 20 20 65 63 68 6f 20 |hen.    |   echo |
|00000ee0| 73 68 61 72 3a 20 22 77 | 69 6c 6c 20 6e 6f 74 20 |shar: "w|ill not |
|00000ef0| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00000f00| 69 6e 67 20 66 69 6c 65 | 20 27 66 70 69 70 65 2e |ing file| 'fpipe.|
|00000f10| 63 27 22 0a 65 6c 73 65 | 0a 63 61 74 20 3c 3c 20 |c'".else|.cat << |
|00000f20| 5c 53 48 41 52 5f 45 4f | 46 20 3e 20 27 66 70 69 |\SHAR_EO|F > 'fpi|
|00000f30| 70 65 2e 63 27 0a 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |pe.c'./*|********|
|00000f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f80| 2a 2a 2a 2a 2a 0a 2a 20 | 20 20 20 20 20 20 20 20 |*****.* |        |
|00000f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fd0| 20 20 20 20 2a 0a 2a 20 | 20 20 20 20 20 20 20 20 |    *.* |        |
|00000fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 66 70 69 70 65 2e 63 |        | fpipe.c|
|00001000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001020| 20 20 20 20 2a 0a 2a 20 | 20 20 20 20 20 20 20 20 |    *.* |        |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001070| 20 20 20 20 2a 0a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |    *.**|********|
|00001080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010c0| 2a 2a 2a 2a 2f 0a 0a 2f | 2a 2d 2d 2d 2d 2d 2d 2d |****/../|*-------|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010e0| 2d 2d 2d 20 20 49 4e 49 | 54 49 41 4c 20 43 4f 44 |---  INI|TIAL COD|
|000010f0| 49 4e 47 20 44 41 54 45 | 20 2d 2d 2d 2d 2d 2d 2d |ING DATE| -------|
|00001100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001110| 2d 2d 2d 2d 2d 2d 0a 54 | 68 75 20 4e 6f 76 20 31 |------.T|hu Nov 1|
|00001120| 30 20 31 30 3a 33 30 3a | 32 32 20 45 53 54 20 31 |0 10:30:|22 EST 1|
|00001130| 39 38 38 20 62 79 20 47 | 65 6f 72 67 65 20 4d 2e |988 by G|eorge M.|
|00001140| 20 42 6f 67 61 74 6b 6f | 0a 0a 2d 2d 2d 2d 2d 2d | Bogatko|..------|
|00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 20 48 45 41 44 |--------|--  HEAD|
|00001170| 45 52 20 46 49 4c 45 53 | 20 20 2d 2d 2d 2d 2d 2d |ER FILES|  ------|
|00001180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001190| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0a 23 69 6e 63 6c 75 |-------*|/.#inclu|
|000011a0| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 23 69 6e |de <stdi|o.h>.#in|
|000011b0| 63 6c 75 64 65 20 3c 66 | 70 69 70 65 2e 68 3e 0a |clude <f|pipe.h>.|
|000011c0| 23 69 6e 63 6c 75 64 65 | 20 3c 66 63 6e 74 6c 2e |#include| <fcntl.|
|000011d0| 68 3e 0a 23 69 6e 63 6c | 75 64 65 20 3c 76 61 72 |h>.#incl|ude <var|
|000011e0| 61 72 67 73 2e 68 3e 0a | 0a 2f 2a 2d 2d 2d 2d 2d |args.h>.|./*-----|
|000011f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 54 |--------|-----  T|
|00001200| 59 50 45 44 45 46 27 53 | 2c 20 44 45 46 49 4e 45 |YPEDEF'S|, DEFINE|
|00001210| 53 2c 20 53 54 52 55 43 | 54 55 52 45 20 44 45 46 |S, STRUC|TURE DEF|
|00001220| 27 53 20 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |'S  ----|--------|
|00001230| 2d 2d 2d 2d 2d 2d 2a 2f | 0a 0a 2f 2a 2d 2d 2d 2d |------*/|../*----|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 20 49 4d |--------|----  IM|
|00001250| 50 4f 52 54 45 44 20 47 | 4c 4f 42 41 4c 20 56 41 |PORTED G|LOBAL VA|
|00001260| 52 49 41 42 4c 45 2f 46 | 55 4e 43 54 49 4f 4e 20 |RIABLE/F|UNCTION |
|00001270| 44 45 46 27 53 20 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |DEF'S  -|--------|
|00001280| 2d 2d 2d 2d 2d 2d 2d 2a | 2f 0a 0a 2f 2a 2d 2d 2d |-------*|/../*---|
|00001290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 45 |--------|-----  E|
|000012a0| 58 50 4f 52 54 45 44 20 | 47 4c 4f 42 41 4c 20 56 |XPORTED |GLOBAL V|
|000012b0| 41 52 49 41 42 4c 45 2f | 46 55 4e 43 54 49 4f 4e |ARIABLE/|FUNCTION|
|000012c0| 20 44 45 46 27 53 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | DEF'S  |--------|
|000012d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2a 2f 0a 0a 2f 2a 2d 2d |--------|*/../*--|
|000012e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 20 |--------|------  |
|000012f0| 49 4e 54 45 52 4e 41 4c | 20 47 4c 4f 42 41 4c 20 |INTERNAL| GLOBAL |
|00001300| 56 41 52 49 41 42 4c 45 | 2f 46 55 4e 43 54 49 4f |VARIABLE|/FUNCTIO|
|00001310| 4e 20 44 45 46 27 53 20 | 20 2d 2d 2d 2d 2d 2d 2d |N DEF'S | -------|
|00001320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0a 23 69 64 65 |--------|-*/.#ide|
|00001330| 6e 74 20 22 25 57 25 20 | 25 47 25 20 2d 20 47 65 |nt "%W% |%G% - Ge|
|00001340| 6f 72 67 65 20 4d 2e 20 | 42 6f 67 61 74 6b 6f 20 |orge M. |Bogatko |
|00001350| 2d 22 0a 0a 2f 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |-"../*--|--------|
|00001360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 0a 0a 53 59 4e | 4f 50 53 49 53 3a 0a 09 |---..SYN|OPSIS:..|
|000013b0| 69 6e 74 20 66 70 69 70 | 65 28 66 6c 61 67 2c 20 |int fpip|e(flag, |
|000013c0| 61 72 67 5f 61 72 72 61 | 79 2c 20 70 72 6f 67 72 |arg_arra|y, progr|
|000013d0| 61 6d 2c 20 61 72 67 31 | 2c 20 61 72 67 32 2c 20 |am, arg1|, arg2, |
|000013e0| 2e 2e 2e 20 61 72 67 6e | 2c 20 30 20 29 3b 0a 0a |... argn|, 0 );..|
|000013f0| 44 45 53 43 52 49 50 54 | 49 4f 4e 3a 0a 09 46 50 |DESCRIPT|ION:..FP|
|00001400| 49 50 45 20 63 72 65 61 | 74 65 73 20 61 20 74 77 |IPE crea|tes a tw|
|00001410| 6f 20 77 61 79 20 70 69 | 70 65 20 62 65 74 77 65 |o way pi|pe betwe|
|00001420| 65 6e 20 61 20 63 61 6c | 6c 69 6e 67 20 70 72 6f |en a cal|ling pro|
|00001430| 63 65 73 73 20 61 6e 64 | 0a 09 61 20 63 68 69 6c |cess and|..a chil|
|00001440| 64 20 70 72 6f 63 65 73 | 73 2e 20 20 0a 09 54 68 |d proces|s.  ..Th|
|00001450| 61 74 20 63 68 69 6c 64 | 20 70 72 6f 63 65 73 73 |at child| process|
|00001460| 20 73 68 6f 75 6c 64 20 | 65 78 70 65 63 74 20 74 | should |expect t|
|00001470| 6f 20 72 65 61 64 20 66 | 72 6f 6d 20 53 54 41 4e |o read f|rom STAN|
|00001480| 44 41 52 44 20 49 4e 0a | 09 61 6e 64 20 77 72 69 |DARD IN.|.and wri|
|00001490| 74 65 20 74 6f 20 53 54 | 41 4e 44 41 52 44 20 4f |te to ST|ANDARD O|
|000014a0| 55 54 2e 0a 0a 09 54 68 | 65 20 61 72 67 75 6d 65 |UT....Th|e argume|
|000014b0| 6e 74 73 20 61 72 65 3a | 0a 0a 09 09 66 6c 61 67 |nts are:|....flag|
|000014c0| 20 2d 20 6f 6e 65 20 6f | 66 20 53 54 44 5f 45 52 | - one o|f STD_ER|
|000014d0| 52 5f 53 43 52 20 6f 72 | 20 53 54 44 5f 45 52 52 |R_SCR or| STD_ERR|
|000014e0| 5f 4e 55 4c 2e 20 20 53 | 54 44 5f 45 52 52 5f 53 |_NUL.  S|TD_ERR_S|
|000014f0| 43 52 20 77 69 6c 6c 0a | 09 09 09 70 75 74 20 53 |CR will.|...put S|
|00001500| 54 41 4e 44 41 52 44 20 | 45 52 52 20 74 6f 20 74 |TANDARD |ERR to t|
|00001510| 68 65 20 73 63 72 65 65 | 6e 2c 20 20 53 54 44 5f |he scree|n,  STD_|
|00001520| 45 52 52 5f 4e 55 4c 20 | 77 69 6c 6c 0a 09 09 09 |ERR_NUL |will....|
|00001530| 70 75 74 20 53 54 41 4e | 44 41 52 44 20 45 52 52 |put STAN|DARD ERR|
|00001540| 20 74 6f 20 22 2f 64 65 | 76 2f 6e 75 6c 6c 22 0a | to "/de|v/null".|
|00001550| 0a 09 09 61 72 67 5f 61 | 72 72 61 79 20 2d 20 61 |...arg_a|rray - a|
|00001560| 6e 20 61 72 72 61 79 20 | 6f 66 20 32 20 27 46 49 |n array |of 2 'FI|
|00001570| 4c 45 20 2a 27 20 74 79 | 70 65 20 70 6f 69 6e 74 |LE *' ty|pe point|
|00001580| 65 72 73 0a 09 09 09 45 | 58 3a 20 20 46 49 4c 45 |ers....E|X:  FILE|
|00001590| 20 2a 61 72 67 5f 61 72 | 72 61 79 5b 32 5d 3b 0a | *arg_ar|ray[2];.|
|000015a0| 09 09 09 57 68 65 6e 20 | 74 68 65 20 66 75 6e 63 |...When |the func|
|000015b0| 74 69 6f 6e 20 72 65 74 | 75 72 6e 73 2c 0a 09 09 |tion ret|urns,...|
|000015c0| 09 09 0a 09 09 09 09 61 | 72 67 5f 61 72 72 61 79 |.......a|rg_array|
|000015d0| 5b 30 5d 20 77 69 6c 6c | 20 63 6f 6e 74 61 69 6e |[0] will| contain|
|000015e0| 20 74 68 65 20 52 45 41 | 44 49 4e 47 20 65 6e 64 | the REA|DING end|
|000015f0| 20 6f 66 20 74 68 65 0a | 09 09 09 09 09 70 69 70 | of the.|.....pip|
|00001600| 65 20 63 6f 6e 6e 65 63 | 74 65 64 20 74 6f 20 74 |e connec|ted to t|
|00001610| 68 65 20 70 72 6f 63 65 | 73 73 27 73 0a 09 09 09 |he proce|ss's....|
|00001620| 09 09 73 74 61 6e 64 61 | 72 64 20 6f 75 74 70 75 |..standa|rd outpu|
|00001630| 74 2c 20 61 6e 64 0a 0a | 09 09 09 09 61 72 67 5f |t, and..|....arg_|
|00001640| 61 72 72 61 79 5b 31 5d | 20 77 69 6c 6c 20 63 6f |array[1]| will co|
|00001650| 6e 74 61 69 6e 20 74 68 | 65 20 57 52 49 54 49 4e |ntain th|e WRITIN|
|00001660| 47 20 65 6e 64 20 6f 66 | 20 74 68 65 0a 09 09 09 |G end of| the....|
|00001670| 09 09 70 69 70 65 20 63 | 6f 6e 6e 65 63 74 65 64 |..pipe c|onnected|
|00001680| 20 74 6f 20 74 68 65 20 | 70 72 6f 63 65 73 73 27 | to the |process'|
|00001690| 73 0a 09 09 09 09 09 73 | 74 61 6e 64 61 72 64 20 |s......s|tandard |
|000016a0| 69 6e 70 75 74 2e 0a 0a | 09 09 70 72 6f 67 72 61 |input...|..progra|
|000016b0| 6d 20 2d 20 74 68 65 20 | 66 75 6c 6c 20 70 61 74 |m - the |full pat|
|000016c0| 68 20 6f 66 20 74 68 65 | 20 70 72 6f 67 72 61 6d |h of the| program|
|000016d0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 69 6e 76 | you wan|t to inv|
|000016e0| 6f 6b 65 2e 0a 0a 09 09 | 61 72 67 31 20 2e 2e 2e |oke.....|arg1 ...|
|000016f0| 20 61 72 67 4e 20 2d 20 | 61 6c 6c 20 74 68 65 20 | argN - |all the |
|00001700| 61 72 67 75 6d 65 6e 74 | 73 20 74 6f 20 79 6f 75 |argument|s to you|
|00001710| 72 20 70 72 6f 67 72 61 | 6d 0a 0a 09 09 30 20 2d |r progra|m....0 -|
|00001720| 20 74 68 65 20 74 65 72 | 6d 69 6e 61 74 69 6f 6e | the ter|mination|
|00001730| 20 70 6f 69 6e 74 20 6f | 66 20 74 68 65 20 61 72 | point o|f the ar|
|00001740| 67 31 20 2e 2e 2e 20 61 | 72 67 4e 20 73 65 71 75 |g1 ... a|rgN sequ|
|00001750| 65 6e 63 65 2e 0a 0a 52 | 45 54 55 52 4e 3a 0a 09 |ence...R|ETURN:..|
|00001760| 74 68 65 20 50 52 4f 43 | 45 53 53 20 49 44 20 6f |the PROC|ESS ID o|
|00001770| 66 20 74 68 65 20 63 72 | 65 61 74 65 64 20 63 68 |f the cr|eated ch|
|00001780| 69 6c 64 20 6f 6e 20 73 | 75 63 63 65 73 73 2c 0a |ild on s|uccess,.|
|00001790| 09 2d 31 20 6f 6e 20 61 | 6e 79 20 65 72 72 6f 72 |.-1 on a|ny error|
|000017a0| 20 28 75 73 65 20 22 70 | 65 72 72 6f 72 28 29 22 | (use "p|error()"|
|000017b0| 20 74 6f 20 66 69 6e 64 | 20 6f 75 74 20 77 68 61 | to find| out wha|
|000017c0| 74 20 68 61 70 70 65 6e | 65 64 29 2e 0a 0a 43 41 |t happen|ed)...CA|
|000017d0| 56 45 41 54 53 3a 0a 09 | 54 68 65 20 4c 41 53 54 |VEATS:..|The LAST|
|000017e0| 20 61 72 67 75 6d 65 6e | 74 20 4d 55 53 54 20 62 | argumen|t MUST b|
|000017f0| 65 20 30 0a 0a 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |e 0..===|========|
|00001800| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001830| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001840| 3d 3d 2a 2f 0a 0a 69 6e | 74 20 66 70 69 70 65 28 |==*/..in|t fpipe(|
|00001850| 66 6c 61 67 2c 20 61 72 | 67 5f 61 72 72 61 79 2c |flag, ar|g_array,|
|00001860| 20 76 61 5f 61 6c 69 73 | 74 29 0a 69 6e 74 20 66 | va_alis|t).int f|
|00001870| 6c 61 67 3b 0a 46 49 4c | 45 20 2a 61 72 67 5f 61 |lag;.FIL|E *arg_a|
|00001880| 72 72 61 79 5b 5d 3b 0a | 76 61 5f 64 63 6c 0a 7b |rray[];.|va_dcl.{|
|00001890| 0a 09 63 68 61 72 20 2a | 2a 61 72 67 73 3b 0a 09 |..char *|*args;..|
|000018a0| 69 6e 74 20 69 6e 5f 70 | 66 64 5b 32 5d 3b 0a 09 |int in_p|fd[2];..|
|000018b0| 69 6e 74 20 6f 75 74 5f | 70 66 64 5b 32 5d 3b 0a |int out_|pfd[2];.|
|000018c0| 09 46 49 4c 45 20 2a 72 | 65 61 64 5f 66 70 2c 20 |.FILE *r|ead_fp, |
|000018d0| 2a 77 72 69 74 65 5f 66 | 70 3b 0a 09 63 68 61 72 |*write_f|p;..char|
|000018e0| 20 2a 66 69 6c 65 3b 0a | 09 69 6e 74 20 69 3b 0a | *file;.|.int i;.|
|000018f0| 09 69 6e 74 20 70 72 6f | 63 5f 69 64 20 3d 20 30 |.int pro|c_id = 0|
|00001900| 3b 0a 0a 09 69 66 28 20 | 70 69 70 65 28 69 6e 5f |;...if( |pipe(in_|
|00001910| 70 66 64 29 20 3d 3d 20 | 28 2d 31 29 20 29 0a 09 |pfd) == |(-1) )..|
|00001920| 09 72 65 74 75 72 6e 28 | 2d 31 29 3b 0a 09 69 66 |.return(|-1);..if|
|00001930| 28 20 70 69 70 65 28 6f | 75 74 5f 70 66 64 29 20 |( pipe(o|ut_pfd) |
|00001940| 3d 3d 20 28 2d 31 29 20 | 29 0a 09 09 72 65 74 75 |== (-1) |)...retu|
|00001950| 72 6e 28 2d 31 29 3b 0a | 0a 09 61 72 67 73 20 3d |rn(-1);.|..args =|
|00001960| 20 28 63 68 61 72 20 2a | 2a 29 26 76 61 5f 61 6c | (char *|*)&va_al|
|00001970| 69 73 74 3b 20 2f 2a 20 | 77 6f 6e 27 74 20 77 6f |ist; /* |won't wo|
|00001980| 72 6b 20 6f 6e 20 50 79 | 72 61 6d 69 64 20 2a 2f |rk on Py|ramid */|
|00001990| 0a 0a 09 73 77 69 74 63 | 68 28 20 70 72 6f 63 5f |...switc|h( proc_|
|000019a0| 69 64 20 3d 20 66 6f 72 | 6b 28 29 20 29 0a 09 7b |id = for|k() )..{|
|000019b0| 0a 09 63 61 73 65 20 2d | 31 3a 0a 09 09 72 65 74 |..case -|1:...ret|
|000019c0| 75 72 6e 28 2d 31 29 3b | 0a 0a 09 63 61 73 65 20 |urn(-1);|...case |
|000019d0| 30 3a 0a 09 09 63 6c 6f | 73 65 28 30 29 3b 0a 09 |0:...clo|se(0);..|
|000019e0| 09 64 75 70 28 6f 75 74 | 5f 70 66 64 5b 30 5d 29 |.dup(out|_pfd[0])|
|000019f0| 3b 0a 09 09 63 6c 6f 73 | 65 28 31 29 3b 0a 09 09 |;...clos|e(1);...|
|00001a00| 64 75 70 28 69 6e 5f 70 | 66 64 5b 31 5d 29 3b 0a |dup(in_p|fd[1]);.|
|00001a10| 09 09 69 66 28 20 66 6c | 61 67 20 3d 3d 20 53 54 |..if( fl|ag == ST|
|00001a20| 44 5f 45 52 52 5f 4e 55 | 4c 20 29 0a 09 09 7b 0a |D_ERR_NU|L )...{.|
|00001a30| 09 09 09 63 6c 6f 73 65 | 28 32 29 3b 0a 09 09 09 |...close|(2);....|
|00001a40| 69 66 28 6f 70 65 6e 28 | 22 2f 64 65 76 2f 6e 75 |if(open(|"/dev/nu|
|00001a50| 6c 6c 22 2c 20 4f 5f 57 | 52 4f 4e 4c 59 29 20 3d |ll", O_W|RONLY) =|
|00001a60| 3d 20 2d 31 29 0a 09 09 | 09 09 72 65 74 75 72 6e |= -1)...|..return|
|00001a70| 28 2d 31 29 3b 0a 09 09 | 7d 0a 09 09 63 6c 6f 73 |(-1);...|}...clos|
|00001a80| 65 28 69 6e 5f 70 66 64 | 5b 30 5d 29 3b 0a 09 09 |e(in_pfd|[0]);...|
|00001a90| 63 6c 6f 73 65 28 69 6e | 5f 70 66 64 5b 31 5d 29 |close(in|_pfd[1])|
|00001aa0| 3b 0a 09 09 63 6c 6f 73 | 65 28 6f 75 74 5f 70 66 |;...clos|e(out_pf|
|00001ab0| 64 5b 30 5d 29 3b 0a 09 | 09 63 6c 6f 73 65 28 6f |d[0]);..|.close(o|
|00001ac0| 75 74 5f 70 66 64 5b 31 | 5d 29 3b 0a 09 09 65 78 |ut_pfd[1|]);...ex|
|00001ad0| 65 63 76 28 61 72 67 73 | 5b 30 5d 2c 20 61 72 67 |ecv(args|[0], arg|
|00001ae0| 73 29 3b 0a 09 09 72 65 | 74 75 72 6e 28 2d 31 29 |s);...re|turn(-1)|
|00001af0| 3b 0a 0a 09 64 65 66 61 | 75 6c 74 3a 0a 09 09 63 |;...defa|ult:...c|
|00001b00| 6c 6f 73 65 28 69 6e 5f | 70 66 64 5b 31 5d 29 3b |lose(in_|pfd[1]);|
|00001b10| 0a 09 09 63 6c 6f 73 65 | 28 6f 75 74 5f 70 66 64 |...close|(out_pfd|
|00001b20| 5b 30 5d 29 3b 0a 0a 09 | 09 69 66 28 20 28 72 65 |[0]);...|.if( (re|
|00001b30| 61 64 5f 66 70 20 3d 20 | 66 64 6f 70 65 6e 28 20 |ad_fp = |fdopen( |
|00001b40| 69 6e 5f 70 66 64 5b 30 | 5d 2c 20 22 72 22 20 29 |in_pfd[0|], "r" )|
|00001b50| 29 20 3d 3d 20 28 46 49 | 4c 45 20 2a 29 4e 55 4c |) == (FI|LE *)NUL|
|00001b60| 4c 20 29 0a 09 09 09 72 | 65 74 75 72 6e 28 2d 31 |L )....r|eturn(-1|
|00001b70| 29 3b 0a 09 09 69 66 28 | 20 28 77 72 69 74 65 5f |);...if(| (write_|
|00001b80| 66 70 20 3d 20 66 64 6f | 70 65 6e 28 20 6f 75 74 |fp = fdo|pen( out|
|00001b90| 5f 70 66 64 5b 31 5d 2c | 20 22 77 22 20 29 29 20 |_pfd[1],| "w" )) |
|00001ba0| 3d 3d 20 28 46 49 4c 45 | 20 2a 29 4e 55 4c 4c 20 |== (FILE| *)NULL |
|00001bb0| 29 0a 09 09 09 72 65 74 | 75 72 6e 28 2d 31 29 3b |)....ret|urn(-1);|
|00001bc0| 0a 0a 09 09 61 72 67 5f | 61 72 72 61 79 5b 30 5d |....arg_|array[0]|
|00001bd0| 20 3d 20 72 65 61 64 5f | 66 70 3b 0a 09 09 61 72 | = read_|fp;...ar|
|00001be0| 67 5f 61 72 72 61 79 5b | 31 5d 20 3d 20 77 72 69 |g_array[|1] = wri|
|00001bf0| 74 65 5f 66 70 3b 0a 0a | 09 09 72 65 74 75 72 6e |te_fp;..|..return|
|00001c00| 28 70 72 6f 63 5f 69 64 | 29 3b 0a 09 7d 0a 7d 0a |(proc_id|);..}.}.|
|00001c10| 53 48 41 52 5f 45 4f 46 | 0a 66 69 0a 69 66 20 74 |SHAR_EOF|.fi.if t|
|00001c20| 65 73 74 20 2d 66 20 27 | 66 70 69 70 65 2e 68 27 |est -f '|fpipe.h'|
|00001c30| 0a 74 68 65 6e 0a 20 20 | 20 20 20 20 20 65 63 68 |.then.  |     ech|
|00001c40| 6f 20 73 68 61 72 3a 20 | 22 77 69 6c 6c 20 6e 6f |o shar: |"will no|
|00001c50| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00001c60| 73 74 69 6e 67 20 66 69 | 6c 65 20 27 66 70 69 70 |sting fi|le 'fpip|
|00001c70| 65 2e 68 27 22 0a 65 6c | 73 65 0a 63 61 74 20 3c |e.h'".el|se.cat <|
|00001c80| 3c 20 5c 53 48 41 52 5f | 45 4f 46 20 3e 20 27 66 |< \SHAR_|EOF > 'f|
|00001c90| 70 69 70 65 2e 68 27 0a | 2f 2a 2a 2a 2a 2a 2a 2a |pipe.h'.|/*******|
|00001ca0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ce0| 2a 2a 2a 2a 2a 2a 2a 0a | 2a 20 20 20 20 20 20 20 |*******.|*       |
|00001cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d30| 20 20 20 20 20 20 2a 0a | 2a 20 20 20 20 20 20 20 |      *.|*       |
|00001d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d50| 20 20 20 20 20 20 20 20 | 20 20 20 66 70 69 70 65 |        |   fpipe|
|00001d60| 2e 68 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.h      |        |
|00001d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d80| 20 20 20 20 20 20 2a 0a | 2a 20 20 20 20 20 20 20 |      *.|*       |
|00001d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001dd0| 20 20 20 20 20 20 2a 0a | 2a 2a 2a 2a 2a 2a 2a 2a |      *.|********|
|00001de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e20| 2a 2a 2a 2a 2a 2a 2f 0a | 0a 2f 2a 2d 2d 2d 2d 2d |******/.|./*-----|
|00001e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e40| 2d 2d 2d 2d 2d 20 20 49 | 4e 49 54 49 41 4c 20 43 |-----  I|NITIAL C|
|00001e50| 4f 44 49 4e 47 20 44 41 | 54 45 20 2d 2d 2d 2d 2d |ODING DA|TE -----|
|00001e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e70| 2d 2d 2d 2d 2d 2d 2d 2d | 0a 54 68 75 20 4e 6f 76 |--------|.Thu Nov|
|00001e80| 20 31 30 20 31 31 3a 30 | 31 3a 33 32 20 45 53 54 | 10 11:0|1:32 EST|
|00001e90| 20 31 39 38 38 20 62 79 | 20 47 65 6f 72 67 65 20 | 1988 by| George |
|00001ea0| 4d 2e 20 42 6f 67 61 74 | 6b 6f 0a 0a 2d 2d 2d 2d |M. Bogat|ko..----|
|00001eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 20 48 45 |--------|----  HE|
|00001ed0| 41 44 45 52 20 46 49 4c | 45 53 20 20 2d 2d 2d 2d |ADER FIL|ES  ----|
|00001ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0a 0a 2f 2a 2d |--------|-*/../*-|
|00001f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f10| 2d 20 20 54 59 50 45 44 | 45 46 27 53 2c 20 44 45 |-  TYPED|EF'S, DE|
|00001f20| 46 49 4e 45 53 2c 20 53 | 54 52 55 43 54 55 52 45 |FINES, S|TRUCTURE|
|00001f30| 20 44 45 46 27 53 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d | DEF'S  |--------|
|00001f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0a 23 64 65 |--------|--*/.#de|
|00001f50| 66 69 6e 65 20 53 54 44 | 5f 45 52 52 5f 53 43 52 |fine STD|_ERR_SCR|
|00001f60| 20 30 0a 23 64 65 66 69 | 6e 65 20 53 54 44 5f 45 | 0.#defi|ne STD_E|
|00001f70| 52 52 5f 4e 55 4c 20 31 | 0a 23 64 65 66 69 6e 65 |RR_NUL 1|.#define|
|00001f80| 20 4e 4f 5f 42 4c 4f 43 | 4b 20 30 0a 23 64 65 66 | NO_BLOC|K 0.#def|
|00001f90| 69 6e 65 20 42 4c 4f 43 | 4b 20 31 0a 0a 23 69 64 |ine BLOC|K 1..#id|
|00001fa0| 65 6e 74 20 22 25 57 25 | 20 25 47 25 20 2d 20 47 |ent "%W%| %G% - G|
|00001fb0| 65 6f 72 67 65 20 4d 2e | 20 42 6f 67 61 74 6b 6f |eorge M.| Bogatko|
|00001fc0| 20 2d 22 0a 0a 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -"../*-|--------|
|00001fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002010| 2d 2d 2d 2d 0a 0a 53 59 | 4e 4f 50 53 49 53 3a 0a |----..SY|NOPSIS:.|
|00002020| 09 23 69 6e 63 6c 75 64 | 65 20 3c 66 70 69 70 65 |.#includ|e <fpipe|
|00002030| 2e 68 3e 0a 0a 44 45 53 | 43 52 49 50 54 49 4f 4e |.h>..DES|CRIPTION|
|00002040| 3a 0a 09 54 68 69 73 20 | 69 6e 63 6c 75 64 65 73 |:..This |includes|
|00002050| 20 23 64 65 66 69 6e 65 | 27 73 20 75 73 65 64 20 | #define|'s used |
|00002060| 62 79 0a 0a 09 09 46 43 | 4f 50 59 20 61 6e 64 20 |by....FC|OPY and |
|00002070| 46 50 49 50 45 0a 0a 43 | 41 56 45 41 54 53 3a 0a |FPIPE..C|AVEATS:.|
|00002080| 0a 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.=======|========|
|00002090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 2a 2f |========|======*/|
|000020d0| 0a 53 48 41 52 5f 45 4f | 46 0a 66 69 0a 69 66 20 |.SHAR_EO|F.fi.if |
|000020e0| 74 65 73 74 20 2d 66 20 | 27 6d 61 69 6e 2e 63 27 |test -f |'main.c'|
|000020f0| 0a 74 68 65 6e 0a 20 20 | 20 20 20 20 20 65 63 68 |.then.  |     ech|
|00002100| 6f 20 73 68 61 72 3a 20 | 22 77 69 6c 6c 20 6e 6f |o shar: |"will no|
|00002110| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00002120| 73 74 69 6e 67 20 66 69 | 6c 65 20 27 6d 61 69 6e |sting fi|le 'main|
|00002130| 2e 63 27 22 0a 65 6c 73 | 65 0a 63 61 74 20 3c 3c |.c'".els|e.cat <<|
|00002140| 20 5c 53 48 41 52 5f 45 | 4f 46 20 3e 20 27 6d 61 | \SHAR_E|OF > 'ma|
|00002150| 69 6e 2e 63 27 0a 23 69 | 6e 63 6c 75 64 65 20 3c |in.c'.#i|nclude <|
|00002160| 73 74 64 69 6f 2e 68 3e | 0a 23 69 6e 63 6c 75 64 |stdio.h>|.#includ|
|00002170| 65 20 3c 66 63 6e 74 6c | 2e 68 3e 0a 23 69 6e 63 |e <fcntl|.h>.#inc|
|00002180| 6c 75 64 65 20 3c 66 70 | 69 70 65 2e 68 3e 0a 23 |lude <fp|ipe.h>.#|
|00002190| 69 6e 63 6c 75 64 65 20 | 3c 73 69 67 6e 61 6c 2e |include |<signal.|
|000021a0| 68 3e 0a 0a 23 64 65 66 | 69 6e 65 20 52 45 41 44 |h>..#def|ine READ|
|000021b0| 5f 45 4e 44 20 30 0a 23 | 64 65 66 69 6e 65 20 57 |_END 0.#|define W|
|000021c0| 52 49 54 45 5f 45 4e 44 | 20 31 0a 65 78 74 65 72 |RITE_END| 1.exter|
|000021d0| 6e 20 69 6e 74 20 66 70 | 69 70 65 28 29 3b 0a 65 |n int fp|ipe();.e|
|000021e0| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 66 67 65 74 |xtern ch|ar *fget|
|000021f0| 73 28 29 3b 0a 0a 63 68 | 61 72 20 62 75 66 5b 42 |s();..ch|ar buf[B|
|00002200| 55 46 53 49 5a 5d 3b 0a | 0a 6d 61 69 6e 28 29 0a |UFSIZ];.|.main().|
|00002210| 7b 0a 46 49 4c 45 20 2a | 61 72 67 73 5b 32 5d 3b |{.FILE *|args[2];|
|00002220| 0a 65 6e 75 6d 20 7b 66 | 69 72 73 74 2c 20 6e 65 |.enum {f|irst, ne|
|00002230| 78 74 7d 20 74 69 6d 65 | 20 3d 20 66 69 72 73 74 |xt} time| = first|
|00002240| 3b 0a 69 6e 74 20 70 69 | 64 3b 0a 0a 2f 2a 09 69 |;.int pi|d;../*.i|
|00002250| 66 28 20 28 70 69 64 20 | 3d 20 66 70 69 70 65 28 |f( (pid |= fpipe(|
|00002260| 53 54 44 5f 45 52 52 5f | 53 43 52 2c 20 61 72 67 |STD_ERR_|SCR, arg|
|00002270| 73 2c 20 22 2e 2f 74 73 | 74 22 2c 30 29 29 20 3d |s, "./ts|t",0)) =|
|00002280| 3d 20 2d 31 20 29 20 20 | 2a 2f 0a 0a 09 69 66 28 |= -1 )  |*/...if(|
|00002290| 20 28 70 69 64 20 3d 20 | 66 70 69 70 65 28 53 54 | (pid = |fpipe(ST|
|000022a0| 44 5f 45 52 52 5f 4e 55 | 4c 2c 20 61 72 67 73 2c |D_ERR_NU|L, args,|
|000022b0| 20 22 2f 75 73 72 2f 62 | 69 6e 2f 6d 61 69 6c 78 | "/usr/b|in/mailx|
|000022c0| 22 2c 20 22 2d 75 22 2c | 20 22 67 62 22 2c 20 22 |", "-u",| "gb", "|
|000022d0| 2d 66 22 2c 22 24 48 4f | 4d 45 2f 6d 62 6f 78 22 |-f","$HO|ME/mbox"|
|000022e0| 2c 30 29 29 20 3d 3d 20 | 2d 31 20 29 20 0a 0a 09 |,0)) == |-1 ) ...|
|000022f0| 7b 0a 09 09 70 75 74 73 | 28 22 41 41 52 52 52 52 |{...puts|("AARRRR|
|00002300| 52 47 47 47 47 21 21 21 | 21 22 29 3b 0a 09 09 65 |RGGGG!!!|!");...e|
|00002310| 78 69 74 28 2d 31 29 3b | 0a 09 7d 0a 0a 09 66 6f |xit(-1);|..}...fo|
|00002320| 72 28 3b 3b 29 0a 09 7b | 0a 09 09 66 63 6f 70 79 |r(;;)..{|...fcopy|
|00002330| 28 61 72 67 73 5b 52 45 | 41 44 5f 45 4e 44 5d 2c |(args[RE|AD_END],|
|00002340| 20 22 2f 64 65 76 2f 74 | 74 79 22 2c 20 4e 4f 5f | "/dev/t|ty", NO_|
|00002350| 42 4c 4f 43 4b 29 3b 0a | 09 09 70 72 69 6e 74 66 |BLOCK);.|..printf|
|00002360| 28 22 65 6e 74 65 72 20 | 63 6f 6d 6d 61 6e 64 5c |("enter |command\|
|00002370| 6e 22 29 3b 0a 09 09 67 | 65 74 73 28 62 75 66 29 |n");...g|ets(buf)|
|00002380| 3b 0a 09 09 69 66 28 20 | 2a 62 75 66 20 3d 3d 20 |;...if( |*buf == |
|00002390| 32 37 20 29 0a 09 09 09 | 62 72 65 61 6b 3b 0a 09 |27 )....|break;..|
|000023a0| 09 66 70 72 69 6e 74 66 | 28 61 72 67 73 5b 57 52 |.fprintf|(args[WR|
|000023b0| 49 54 45 5f 45 4e 44 5d | 2c 20 22 25 73 5c 6e 22 |ITE_END]|, "%s\n"|
|000023c0| 2c 20 62 75 66 29 3b 0a | 09 09 66 66 6c 75 73 68 |, buf);.|..fflush|
|000023d0| 28 61 72 67 73 5b 57 52 | 49 54 45 5f 45 4e 44 5d |(args[WR|ITE_END]|
|000023e0| 29 3b 0a 09 7d 0a 2f 2a | 0a 20 2a 20 63 6c 6f 73 |);..}./*|. * clos|
|000023f0| 69 6e 67 20 74 68 65 20 | 66 69 6c 65 20 70 6f 69 |ing the |file poi|
|00002400| 6e 74 65 72 73 20 61 6c | 73 6f 20 73 65 6e 64 73 |nters al|so sends|
|00002410| 20 27 43 54 52 4c 2d 44 | 27 20 28 45 4f 46 29 20 | 'CTRL-D|' (EOF) |
|00002420| 74 6f 20 74 68 65 20 63 | 68 69 6c 64 0a 20 2a 20 |to the c|hild. * |
|00002430| 70 72 6f 63 65 73 73 2e | 20 20 20 49 6e 20 74 68 |process.|   In th|
|00002440| 65 20 63 61 73 65 20 6f | 66 20 27 6d 61 69 6c 78 |e case o|f 'mailx|
|00002450| 27 20 74 68 69 73 20 77 | 69 6c 6c 20 6b 69 6c 6c |' this w|ill kill|
|00002460| 20 69 74 2e 0a 20 2a 2f | 0a 09 66 63 6f 70 79 28 | it.. */|..fcopy(|
|00002470| 61 72 67 73 5b 52 45 41 | 44 5f 45 4e 44 5d 2c 20 |args[REA|D_END], |
|00002480| 22 2f 64 65 76 2f 74 74 | 79 22 2c 20 4e 4f 5f 42 |"/dev/tt|y", NO_B|
|00002490| 4c 4f 43 4b 29 3b 0a 09 | 66 63 6c 6f 73 65 28 61 |LOCK);..|fclose(a|
|000024a0| 72 67 73 5b 52 45 41 44 | 5f 45 4e 44 5d 29 3b 0a |rgs[READ|_END]);.|
|000024b0| 09 66 63 6c 6f 73 65 28 | 61 72 67 73 5b 57 52 49 |.fclose(|args[WRI|
|000024c0| 54 45 5f 45 4e 44 5d 29 | 3b 0a 09 72 65 74 75 72 |TE_END])|;..retur|
|000024d0| 6e 20 30 3b 0a 7d 0a 53 | 48 41 52 5f 45 4f 46 0a |n 0;.}.S|HAR_EOF.|
|000024e0| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 74 |fi.if te|st -f 't|
|000024f0| 73 74 2e 63 27 0a 74 68 | 65 6e 0a 20 20 20 20 20 |st.c'.th|en.     |
|00002500| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 22 77 69 |  echo s|har: "wi|
|00002510| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|00002520| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|00002530| 27 74 73 74 2e 63 27 22 | 0a 65 6c 73 65 0a 63 61 |'tst.c'"|.else.ca|
|00002540| 74 20 3c 3c 20 5c 53 48 | 41 52 5f 45 4f 46 20 3e |t << \SH|AR_EOF >|
|00002550| 20 27 74 73 74 2e 63 27 | 0a 23 69 6e 63 6c 75 64 | 'tst.c'|.#includ|
|00002560| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 6d 61 69 6e |e <stdio|.h>.main|
|00002570| 28 29 0a 7b 0a 09 66 70 | 72 69 6e 74 66 28 73 74 |().{..fp|rintf(st|
|00002580| 64 6f 75 74 2c 20 22 54 | 48 49 53 20 54 4f 20 53 |dout, "T|HIS TO S|
|00002590| 54 41 4e 44 41 52 44 20 | 4f 55 54 5c 6e 22 29 3b |TANDARD |OUT\n");|
|000025a0| 0a 09 66 70 72 69 6e 74 | 66 28 73 74 64 65 72 72 |..fprint|f(stderr|
|000025b0| 2c 20 22 54 48 49 53 20 | 54 4f 20 53 54 41 4e 44 |, "THIS |TO STAND|
|000025c0| 41 52 44 20 45 52 52 5c | 6e 22 29 3b 0a 7d 0a 53 |ARD ERR\|n");.}.S|
|000025d0| 48 41 52 5f 45 4f 46 0a | 66 69 0a 65 78 69 74 20 |HAR_EOF.|fi.exit |
|000025e0| 30 0a 23 09 45 6e 64 20 | 6f 66 20 73 68 65 6c 6c |0.#.End |of shell|
|000025f0| 20 61 72 63 68 69 76 65 | 0a                      | archive|.       |
+--------+-------------------------+-------------------------+--------+--------+