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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 74 63 | 68 72 69 73 74 40 63 6f |From: tc|hrist@co|
|00000010| 6e 76 65 78 2e 43 4f 4d | 20 28 54 6f 6d 20 43 68 |nvex.COM| (Tom Ch|
|00000020| 72 69 73 74 69 61 6e 73 | 65 6e 29 0a 4e 65 77 73 |ristians|en).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 42 53 44 20 66 6d 74 | 28 31 29 20 66 6f 72 20 | BSD fmt|(1) for |
|00000060| 53 59 53 56 2f 58 45 4e | 49 58 0a 4d 65 73 73 61 |SYSV/XEN|IX.Messa|
|00000070| 67 65 2d 49 44 3a 20 3c | 31 30 30 39 31 31 40 63 |ge-ID: <|100911@c|
|00000080| 6f 6e 76 65 78 2e 63 6f | 6e 76 65 78 2e 63 6f 6d |onvex.co|nvex.com|
|00000090| 3e 0a 44 61 74 65 3a 20 | 32 38 20 4d 61 72 20 39 |>.Date: |28 Mar 9|
|000000a0| 30 20 31 34 3a 30 36 3a | 35 33 20 47 4d 54 0a 0a |0 14:06:|53 GMT..|
|000000b0| 49 6e 20 61 72 74 69 63 | 6c 65 20 3c 31 34 31 38 |In artic|le <1418|
|000000c0| 40 6b 68 69 6a 6f 6c 2e | 55 55 43 50 3e 20 65 72 |@khijol.|UUCP> er|
|000000d0| 63 40 6b 68 69 6a 6f 6c | 2e 55 55 43 50 20 28 45 |c@khijol|.UUCP (E|
|000000e0| 64 20 43 61 72 70 2c 20 | 61 6b 61 20 4d 72 2e 20 |d Carp, |aka Mr. |
|000000f0| 45 64 20 74 68 65 20 74 | 61 6c 6b 69 6e 67 20 68 |Ed the t|alking h|
|00000100| 6f 72 73 65 2e 2e 2e 29 | 20 77 72 69 74 65 73 3a |orse...)| writes:|
|00000110| 0a 0a 3e 2a 20 66 6d 74 | 20 2d 20 72 75 6e 20 74 |..>* fmt| - run t|
|00000120| 68 72 6f 75 67 68 20 6e | 72 6f 66 66 20 77 69 74 |hrough n|roff wit|
|00000130| 68 20 2e 62 72 2c 20 2e | 73 70 2c 20 61 6e 64 20 |h .br, .|sp, and |
|00000140| 2e 6e 61 20 6f 6e 2c 20 | 74 68 65 6e 20 63 68 6f |.na on, |then cho|
|00000150| 70 20 6f 66 66 20 74 68 | 65 0a 3e 2a 20 65 78 63 |p off th|e.>* exc|
|00000160| 65 73 73 20 66 61 74 2e | 20 20 51 75 69 63 6b 20 |ess fat.|  Quick |
|00000170| 61 6e 64 20 64 69 72 74 | 79 20 42 53 44 20 66 6d |and dirt|y BSD fm|
|00000180| 74 28 31 29 20 66 6f 72 | 20 53 59 53 56 2f 58 45 |t(1) for| SYSV/XE|
|00000190| 4e 49 58 2e 0a 3e 2a 0a | 3e 2a 20 57 61 72 6e 69 |NIX..>*.|>* Warni|
|000001a0| 6e 67 3a 20 20 6f 76 65 | 72 2d 77 72 69 74 65 73 |ng:  ove|r-writes|
|000001b0| 20 69 6e 70 75 74 20 66 | 69 6c 65 21 0a 0a 41 52 | input f|ile!..AR|
|000001c0| 47 48 21 20 20 54 68 65 | 20 68 6f 74 74 65 73 74 |GH!  The| hottest|
|000001d0| 20 70 69 74 73 20 6f 66 | 20 48 65 6c 6c 20 6d 75 | pits of| Hell mu|
|000001e0| 73 74 20 73 75 72 65 6c | 79 20 62 65 20 72 65 73 |st surel|y be res|
|000001f0| 65 72 76 65 64 20 66 6f | 72 20 74 68 6f 73 65 20 |erved fo|r those |
|00000200| 0a 70 72 6f 67 72 61 6d | 73 20 74 68 61 74 20 6f |.program|s that o|
|00000210| 76 65 72 77 72 69 74 65 | 20 74 68 65 69 72 20 69 |verwrite| their i|
|00000220| 6e 70 75 74 20 66 69 6c | 65 73 21 20 20 49 74 20 |nput fil|es!  It |
|00000230| 72 75 6e 73 20 63 6f 75 | 6e 74 65 72 20 74 68 65 |runs cou|nter the|
|00000240| 0a 65 6e 74 69 72 65 20 | 55 4e 49 58 20 70 68 69 |.entire |UNIX phi|
|00000250| 6c 6f 73 6f 70 68 79 2e | 20 20 48 65 72 65 20 69 |losophy.|  Here i|
|00000260| 73 20 61 20 76 65 72 73 | 69 6f 6e 20 74 68 61 74 |s a vers|ion that|
|00000270| 20 64 6f 65 73 6e 27 74 | 20 64 6f 20 74 68 69 73 | doesn't| do this|
|00000280| 2e 0a 49 27 76 65 20 63 | 68 6f 73 65 6e 20 74 6f |..I've c|hosen to|
|00000290| 20 69 6d 69 74 61 74 65 | 20 74 68 65 20 6f 72 69 | imitate| the ori|
|000002a0| 67 69 6e 61 6c 20 70 6f | 73 74 69 6e 67 20 72 61 |ginal po|sting ra|
|000002b0| 74 68 65 72 20 74 68 61 | 6e 20 66 6d 74 28 31 29 |ther tha|n fmt(1)|
|000002c0| 2e 20 20 0a 49 74 20 64 | 6f 65 73 6e 27 74 20 64 |.  .It d|oesn't d|
|000002d0| 6f 20 74 68 65 20 68 79 | 70 68 65 6e 61 74 69 6f |o the hy|phenatio|
|000002e0| 6e 2c 20 62 75 74 20 74 | 68 61 74 27 73 20 6f 6b |n, but t|hat's ok|
|000002f0| 3a 20 69 74 20 64 6f 65 | 73 20 75 6e 68 79 70 68 |: it doe|s unhyph|
|00000300| 65 6e 61 74 69 6f 6e 2c | 0a 61 6e 64 20 69 74 27 |enation,|.and it'|
|00000310| 6c 6c 20 73 74 69 6c 6c | 20 62 72 65 61 6b 20 61 |ll still| break a|
|00000320| 74 20 65 78 69 73 74 69 | 6e 67 20 64 61 73 68 2d |t existi|ng dash-|
|00000330| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 77 6f 72 64 73 |containi|ng words|
|00000340| 2c 20 6c 69 6b 65 20 74 | 68 61 74 20 6f 6e 65 2e |, like t|hat one.|
|00000350| 0a 0a 54 68 69 73 20 76 | 65 72 73 69 6f 6e 20 77 |..This v|ersion w|
|00000360| 69 6c 6c 20 62 65 20 61 | 20 6c 6f 74 20 71 75 69 |ill be a| lot qui|
|00000370| 63 6b 65 72 20 74 68 61 | 6e 20 74 68 65 20 6f 72 |cker tha|n the or|
|00000380| 69 67 69 6e 61 6c 20 70 | 6f 73 74 69 6e 67 2c 20 |iginal p|osting, |
|00000390| 62 65 63 61 75 73 65 0a | 6e 72 6f 66 66 20 69 73 |because.|nroff is|
|000003a0| 20 61 20 64 6f 67 2c 20 | 61 6e 64 20 49 20 75 73 | a dog, |and I us|
|000003b0| 65 20 6e 6f 20 6f 74 68 | 65 72 20 65 78 65 63 73 |e no oth|er execs|
|000003c0| 2e 0a 0a 2d 2d 74 6f 6d | 0a 0a 23 21 20 2f 62 69 |...--tom|..#! /bi|
|000003d0| 6e 2f 73 68 0a 23 20 54 | 68 69 73 20 69 73 20 61 |n/sh.# T|his is a|
|000003e0| 20 73 68 65 6c 6c 20 61 | 72 63 68 69 76 65 2c 20 | shell a|rchive, |
|000003f0| 6d 65 61 6e 69 6e 67 3a | 0a 23 20 31 2e 20 52 65 |meaning:|.# 1. Re|
|00000400| 6d 6f 76 65 20 65 76 65 | 72 79 74 68 69 6e 67 20 |move eve|rything |
|00000410| 61 62 6f 76 65 20 74 68 | 65 20 23 21 20 2f 62 69 |above th|e #! /bi|
|00000420| 6e 2f 73 68 20 6c 69 6e | 65 2e 0a 23 20 32 2e 20 |n/sh lin|e..# 2. |
|00000430| 53 61 76 65 20 74 68 65 | 20 72 65 73 75 6c 74 69 |Save the| resulti|
|00000440| 6e 67 20 74 65 78 74 20 | 69 6e 20 61 20 66 69 6c |ng text |in a fil|
|00000450| 65 2e 0a 23 20 33 2e 20 | 45 78 65 63 75 74 65 20 |e..# 3. |Execute |
|00000460| 74 68 65 20 66 69 6c 65 | 20 77 69 74 68 20 2f 62 |the file| with /b|
|00000470| 69 6e 2f 73 68 20 28 6e | 6f 74 20 63 73 68 29 20 |in/sh (n|ot csh) |
|00000480| 74 6f 20 63 72 65 61 74 | 65 3a 0a 23 09 66 6d 74 |to creat|e:.#.fmt|
|00000490| 2e 70 6c 0a 23 20 54 68 | 69 73 20 61 72 63 68 69 |.pl.# Th|is archi|
|000004a0| 76 65 20 63 72 65 61 74 | 65 64 3a 20 57 65 64 20 |ve creat|ed: Wed |
|000004b0| 4d 61 72 20 32 38 20 30 | 38 3a 30 34 3a 34 37 20 |Mar 28 0|8:04:47 |
|000004c0| 31 39 39 30 0a 65 78 70 | 6f 72 74 20 50 41 54 48 |1990.exp|ort PATH|
|000004d0| 3b 20 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |; PATH=/|bin:/usr|
|000004e0| 2f 62 69 6e 3a 24 50 41 | 54 48 0a 65 63 68 6f 20 |/bin:$PA|TH.echo |
|000004f0| 73 68 61 72 3a 20 22 65 | 78 74 72 61 63 74 69 6e |shar: "e|xtractin|
|00000500| 67 20 27 66 6d 74 2e 70 | 6c 27 22 20 27 28 34 31 |g 'fmt.p|l'" '(41|
|00000510| 30 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 69 |0 charac|ters)'.i|
|00000520| 66 20 74 65 73 74 20 2d | 66 20 27 66 6d 74 2e 70 |f test -|f 'fmt.p|
|00000530| 6c 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |l'.then.|.echo sh|
|00000540| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|00000550| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|00000560| 67 20 66 69 6c 65 20 27 | 66 6d 74 2e 70 6c 27 22 |g file '|fmt.pl'"|
|00000570| 0a 65 6c 73 65 0a 73 65 | 64 20 27 73 2f 5e 09 58 |.else.se|d 's/^.X|
|00000580| 2f 2f 27 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |//' << \|SHAR_EOF|
|00000590| 20 3e 20 27 66 6d 74 2e | 70 6c 27 0a 09 58 23 21 | > 'fmt.|pl'..X#!|
|000005a0| 2f 75 73 72 2f 62 69 6e | 2f 70 65 72 6c 0a 09 58 |/usr/bin|/perl..X|
|000005b0| 0a 09 58 77 68 69 6c 65 | 20 28 3c 3e 29 20 7b 0a |..Xwhile| (<>) {.|
|000005c0| 09 58 20 20 20 20 69 66 | 20 28 2f 5e 5c 6e 24 2f |.X    if| (/^\n$/|
|000005d0| 29 20 7b 0a 09 58 09 26 | 66 6c 75 73 68 20 69 66 |) {..X.&|flush if|
|000005e0| 20 24 6c 69 6e 65 3b 0a | 09 58 09 70 72 69 6e 74 | $line;.|.X.print|
|000005f0| 20 22 5c 6e 22 3b 0a 09 | 58 20 20 20 20 7d 20 65 | "\n";..|X    } e|
|00000600| 6c 73 69 66 20 28 2f 5e | 3e 2f 29 20 7b 0a 09 58 |lsif (/^|>/) {..X|
|00000610| 09 70 72 69 6e 74 3b 0a | 09 58 20 20 20 20 7d 20 |.print;.|.X    } |
|00000620| 65 6c 73 65 20 7b 0a 09 | 58 09 24 6c 69 6e 65 20 |else {..|X.$line |
|00000630| 2e 3d 20 24 5f 3b 0a 09 | 58 20 20 20 20 7d 20 0a |.= $_;..|X    } .|
|00000640| 09 58 7d 20 0a 09 58 26 | 66 6c 75 73 68 20 69 66 |.X} ..X&|flush if|
|00000650| 20 24 6c 69 6e 65 3b 0a | 09 58 65 78 69 74 20 30 | $line;.|.Xexit 0|
|00000660| 3b 0a 09 58 0a 09 58 0a | 09 58 73 75 62 20 66 6c |;..X..X.|.Xsub fl|
|00000670| 75 73 68 20 7b 0a 09 58 | 20 20 20 20 24 5f 20 3d |ush {..X|    $_ =|
|00000680| 20 24 6c 69 6e 65 3b 0a | 09 58 20 20 20 20 24 6c | $line;.|.X    $l|
|00000690| 69 6e 65 20 3d 20 27 27 | 3b 0a 09 58 20 20 20 20 |ine = ''|;..X    |
|000006a0| 73 2f 5e 5c 73 2b 2f 2f | 3b 0a 09 58 20 20 20 20 |s/^\s+//|;..X    |
|000006b0| 73 2f 5c 73 2b 24 2f 2f | 3b 0a 09 58 20 20 20 20 |s/\s+$//|;..X    |
|000006c0| 73 2f 5c 73 2b 2f 20 2f | 67 3b 0a 09 58 20 20 20 |s/\s+/ /|g;..X   |
|000006d0| 20 73 2f 28 5c 77 29 2d | 20 2f 24 31 2f 67 3b 09 | s/(\w)-| /$1/g;.|
|000006e0| 23 20 75 6e 68 79 70 68 | 65 6e 61 74 65 0a 09 58 |# unhyph|enate..X|
|000006f0| 20 20 20 20 77 72 69 74 | 65 3b 0a 09 58 7d 20 0a |    writ|e;..X} .|
|00000700| 09 58 0a 09 58 66 6f 72 | 6d 61 74 20 53 54 44 4f |.X..Xfor|mat STDO|
|00000710| 55 54 20 3d 0a 09 58 5e | 3c 3c 3c 3c 3c 3c 3c 3c |UT =..X^|<<<<<<<<|
|00000720| 3c 3c 3c 3c 3c 3c 3c 3c | 3c 3c 3c 3c 3c 3c 3c 3c |<<<<<<<<|<<<<<<<<|
|00000730| 3c 3c 3c 3c 3c 3c 3c 3c | 3c 3c 3c 3c 3c 3c 3c 3c |<<<<<<<<|<<<<<<<<|
|00000740| 3c 3c 3c 3c 3c 3c 3c 3c | 3c 3c 3c 3c 3c 3c 3c 3c |<<<<<<<<|<<<<<<<<|
|00000750| 3c 3c 3c 3c 3c 3c 3c 3c | 3c 3c 3c 3c 3c 3c 3c 3c |<<<<<<<<|<<<<<<<<|
|00000760| 3c 3c 3c 3c 3c 20 7e 7e | 0a 09 58 24 5f 0a 09 58 |<<<<< ~~|..X$_..X|
|00000770| 2e 0a 53 48 41 52 5f 45 | 4f 46 0a 69 66 20 74 65 |..SHAR_E|OF.if te|
|00000780| 73 74 20 34 31 30 20 2d | 6e 65 20 22 60 77 63 20 |st 410 -|ne "`wc |
|00000790| 2d 63 20 3c 20 27 66 6d | 74 2e 70 6c 27 60 22 0a |-c < 'fm|t.pl'`".|
|000007a0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|000007b0| 20 22 65 72 72 6f 72 20 | 74 72 61 6e 73 6d 69 74 | "error |transmit|
|000007c0| 74 69 6e 67 20 27 66 6d | 74 2e 70 6c 27 22 20 27 |ting 'fm|t.pl'" '|
|000007d0| 28 73 68 6f 75 6c 64 20 | 68 61 76 65 20 62 65 65 |(should |have bee|
|000007e0| 6e 20 34 31 30 20 63 68 | 61 72 61 63 74 65 72 73 |n 410 ch|aracters|
|000007f0| 29 27 0a 66 69 0a 63 68 | 6d 6f 64 20 37 37 35 20 |)'.fi.ch|mod 775 |
|00000800| 27 66 6d 74 2e 70 6c 27 | 0a 66 69 0a 65 78 69 74 |'fmt.pl'|.fi.exit|
|00000810| 20 30 0a 23 09 45 6e 64 | 20 6f 66 20 73 68 65 6c | 0.#.End| of shel|
|00000820| 6c 20 61 72 63 68 69 76 | 65 0a 2d 2d 0a 0a 20 20 |l archiv|e.--..  |
|00000830| 20 20 54 6f 6d 20 43 68 | 72 69 73 74 69 61 6e 73 |  Tom Ch|ristians|
|00000840| 65 6e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |en      |        |
|00000850| 20 20 20 20 20 20 20 20 | 20 7b 75 75 6e 65 74 2c |        | {uunet,|
|00000860| 75 69 75 63 64 63 73 2c | 73 75 6e 7d 21 63 6f 6e |uiucdcs,|sun}!con|
|00000870| 76 65 78 21 74 63 68 72 | 69 73 74 20 0a 20 20 20 |vex!tchr|ist .   |
|00000880| 20 43 6f 6e 76 65 78 20 | 43 6f 6d 70 75 74 65 72 | Convex |Computer|
|00000890| 20 43 6f 72 70 6f 72 61 | 74 69 6f 6e 20 20 20 20 | Corpora|tion    |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008b0| 20 20 20 20 20 20 20 20 | 74 63 68 72 69 73 74 40 |        |tchrist@|
|000008c0| 63 6f 6e 76 65 78 2e 43 | 4f 4d 0a 09 09 20 22 45 |convex.C|OM... "E|
|000008d0| 4d 41 43 53 20 62 65 6c | 6f 6e 67 73 20 69 6e 20 |MACS bel|ongs in |
|000008e0| 3c 73 79 73 2f 65 72 72 | 6e 6f 2e 68 3e 3a 20 45 |<sys/err|no.h>: E|
|000008f0| 64 69 74 6f 72 20 74 6f | 6f 20 62 69 67 21 22 0a |ditor to|o big!".|
+--------+-------------------------+-------------------------+--------+--------+