/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3105

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 61 6c 74 2e |Newsgrou|ps: alt.|
|00000010| 73 6f 75 72 63 65 73 0a | 46 72 6f 6d 3a 20 70 65 |sources.|From: pe|
|00000020| 6c 74 7a 40 63 65 72 6c | 2e 75 69 75 63 2e 65 64 |ltz@cerl|.uiuc.ed|
|00000030| 75 20 28 53 74 65 76 65 | 20 50 65 6c 74 7a 29 0a |u (Steve| Peltz).|
|00000040| 53 75 62 6a 65 63 74 3a | 20 52 65 3a 20 69 73 20 |Subject:| Re: is |
|00000050| 74 68 65 72 65 20 61 20 | 63 20 70 72 6f 67 72 61 |there a |c progra|
|00000060| 6d 20 77 68 69 63 68 20 | 6f 75 74 70 75 74 73 20 |m which |outputs |
|00000070| 69 74 73 65 6c 66 3f 0a | 4d 65 73 73 61 67 65 2d |itself?.|Message-|
|00000080| 49 44 3a 20 3c 31 39 39 | 31 4d 61 72 32 31 2e 31 |ID: <199|1Mar21.1|
|00000090| 39 30 39 30 37 2e 39 37 | 38 39 40 75 78 31 2e 63 |90907.97|89@ux1.c|
|000000a0| 73 6f 2e 75 69 75 63 2e | 65 64 75 3e 0a 44 61 74 |so.uiuc.|edu>.Dat|
|000000b0| 65 3a 20 54 68 75 2c 20 | 32 31 20 4d 61 72 20 31 |e: Thu, |21 Mar 1|
|000000c0| 39 39 31 20 31 39 3a 30 | 39 3a 30 37 20 47 4d 54 |991 19:0|9:07 GMT|
|000000d0| 0a 0a 49 6e 20 61 72 74 | 69 63 6c 65 20 3c 31 39 |..In art|icle <19|
|000000e0| 39 31 4d 61 72 31 39 2e | 31 36 35 38 33 39 2e 31 |91Mar19.|165839.1|
|000000f0| 35 33 30 38 40 69 73 63 | 2e 72 69 74 2e 65 64 75 |5308@isc|.rit.edu|
|00000100| 3e 20 72 78 67 33 33 32 | 31 40 69 73 63 2e 72 69 |> rxg332|1@isc.ri|
|00000110| 74 2e 65 64 75 20 28 52 | 2e 58 2e 20 47 65 74 74 |t.edu (R|.X. Gett|
|00000120| 65 72 20 29 20 77 72 69 | 74 65 73 3a 0a 3e 68 69 |er ) wri|tes:.>hi|
|00000130| 2c 0a 3e 09 49 20 61 6d | 20 6c 6f 6f 6b 69 6e 67 |,.>.I am| looking|
|00000140| 20 66 6f 72 20 61 20 63 | 20 70 72 6f 67 72 61 6d | for a c| program|
|00000150| 20 77 68 69 63 68 20 6f | 75 74 70 75 74 73 20 69 | which o|utputs i|
|00000160| 74 73 65 6c 66 2e 20 48 | 61 73 20 61 6e 79 6f 6e |tself. H|as anyon|
|00000170| 65 0a 3e 73 65 65 6e 20 | 6f 6e 65 20 6f 72 20 68 |e.>seen |one or h|
|00000180| 65 61 72 64 20 6f 66 20 | 6f 6e 65 3f 20 28 4e 6f |eard of |one? (No|
|00000190| 2c 20 69 74 20 63 61 6e | 6e 6f 74 20 72 65 61 64 |, it can|not read|
|000001a0| 20 69 74 73 20 6f 77 6e | 20 73 6f 75 72 63 65 20 | its own| source |
|000001b0| 63 6f 64 65 2e 29 0a 0a | 57 65 6c 6c 2c 20 6f 66 |code.)..|Well, of|
|000001c0| 20 63 6f 75 72 73 65 20 | 74 68 65 72 65 20 69 73 | course |there is|
|000001d0| 2e 20 54 68 65 72 65 27 | 73 20 61 20 77 68 6f 6c |. There'|s a whol|
|000001e0| 65 20 73 74 72 69 6e 67 | 20 6f 66 20 74 68 65 6d |e string| of them|
|000001f0| 20 69 6e 20 74 68 69 73 | 20 67 72 6f 75 70 20 61 | in this| group a|
|00000200| 6c 72 65 61 64 79 0a 6f | 66 20 76 61 72 69 6f 75 |lready.o|f variou|
|00000210| 73 20 66 6c 61 76 6f 72 | 73 2e 0a 0a 48 65 72 65 |s flavor|s...Here|
|00000220| 27 73 20 61 20 76 65 72 | 73 69 6f 6e 20 77 68 69 |'s a ver|sion whi|
|00000230| 63 68 20 64 6f 65 73 6e | 27 74 20 75 73 65 20 65 |ch doesn|'t use e|
|00000240| 78 63 65 73 73 69 76 65 | 6c 79 20 63 75 74 65 20 |xcessive|ly cute |
|00000250| 74 72 69 63 6b 73 2c 20 | 61 73 73 75 6d 65 20 74 |tricks, |assume t|
|00000260| 68 61 74 0a 63 65 72 74 | 61 69 6e 20 63 68 61 72 |hat.cert|ain char|
|00000270| 61 63 74 65 72 73 20 68 | 61 76 65 20 66 69 78 65 |acters h|ave fixe|
|00000280| 64 20 6e 75 6d 65 72 69 | 63 20 76 61 6c 75 65 73 |d numeri|c values|
|00000290| 2c 20 6f 72 20 73 75 63 | 68 2e 20 20 49 6e 20 6f |, or suc|h.  In o|
|000002a0| 74 68 65 72 20 77 6f 72 | 64 73 2c 0a 69 74 20 69 |ther wor|ds,.it i|
|000002b0| 73 20 61 6e 20 48 4f 4e | 45 53 54 20 73 65 6c 66 |s an HON|EST self|
|000002c0| 2d 70 72 69 6e 74 69 6e | 67 20 70 72 6f 67 72 61 |-printin|g progra|
|000002d0| 6d 2e 20 20 49 74 20 69 | 73 20 61 6c 73 6f 20 61 |m.  It i|s also a|
|000002e0| 20 73 65 6c 66 2d 73 74 | 61 72 74 65 72 2c 20 69 | self-st|arter, i|
|000002f0| 6e 0a 74 68 61 74 20 74 | 68 65 72 65 20 61 72 65 |n.that t|here are|
|00000300| 20 72 65 61 6c 6c 79 20 | 74 77 6f 20 70 72 6f 67 | really |two prog|
|00000310| 72 61 6d 73 20 69 6e 76 | 6f 6c 76 65 64 2e 20 54 |rams inv|olved. T|
|00000320| 68 65 20 66 69 72 73 74 | 20 6f 6e 65 20 77 72 69 |he first| one wri|
|00000330| 74 65 73 20 74 68 65 0a | 73 65 63 6f 6e 64 20 6f |tes the.|second o|
|00000340| 6e 65 2c 20 62 61 73 65 | 64 20 6f 6e 20 61 20 73 |ne, base|d on a s|
|00000350| 68 65 6c 6c 2c 20 77 68 | 69 63 68 20 69 73 20 74 |hell, wh|ich is t|
|00000360| 68 65 20 61 63 74 75 61 | 6c 20 73 65 6c 66 2d 70 |he actua|l self-p|
|00000370| 72 69 6e 74 69 6e 67 0a | 70 72 6f 67 72 61 6d 2e |rinting.|program.|
|00000380| 0a 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |..#! /bi|n/sh.# T|
|00000390| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|000003a0| 72 63 68 69 76 65 2e 20 | 20 52 65 6d 6f 76 65 20 |rchive. | Remove |
|000003b0| 61 6e 79 74 68 69 6e 67 | 20 62 65 66 6f 72 65 20 |anything| before |
|000003c0| 74 68 69 73 20 6c 69 6e | 65 2c 20 74 68 65 6e 20 |this lin|e, then |
|000003d0| 75 6e 70 61 63 6b 0a 23 | 20 69 74 20 62 79 20 73 |unpack.#| it by s|
|000003e0| 61 76 69 6e 67 20 69 74 | 20 69 6e 74 6f 20 61 20 |aving it| into a |
|000003f0| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|00000400| 22 73 68 20 66 69 6c 65 | 22 2e 20 20 54 6f 20 6f |"sh file|".  To o|
|00000410| 76 65 72 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |verwrite| existin|
|00000420| 67 0a 23 20 66 69 6c 65 | 73 2c 20 74 79 70 65 20 |g.# file|s, type |
|00000430| 22 73 68 20 66 69 6c 65 | 20 2d 63 22 2e 20 20 59 |"sh file| -c".  Y|
|00000440| 6f 75 20 63 61 6e 20 61 | 6c 73 6f 20 66 65 65 64 |ou can a|lso feed|
|00000450| 20 74 68 69 73 20 61 73 | 20 73 74 61 6e 64 61 72 | this as| standar|
|00000460| 64 20 69 6e 70 75 74 20 | 76 69 61 0a 23 20 75 6e |d input |via.# un|
|00000470| 73 68 61 72 2c 20 6f 72 | 20 62 79 20 74 79 70 69 |shar, or| by typi|
|00000480| 6e 67 20 22 73 68 20 3c | 66 69 6c 65 22 2c 20 65 |ng "sh <|file", e|
|00000490| 2e 67 2e 2e 20 20 49 66 | 20 74 68 69 73 20 61 72 |.g..  If| this ar|
|000004a0| 63 68 69 76 65 20 69 73 | 20 63 6f 6d 70 6c 65 74 |chive is| complet|
|000004b0| 65 2c 20 79 6f 75 0a 23 | 20 77 69 6c 6c 20 73 65 |e, you.#| will se|
|000004c0| 65 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e the fo|llowing |
|000004d0| 6d 65 73 73 61 67 65 20 | 61 74 20 74 68 65 20 65 |message |at the e|
|000004e0| 6e 64 3a 0a 23 09 09 22 | 45 6e 64 20 6f 66 20 73 |nd:.#.."|End of s|
|000004f0| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 22 0a 23 |hell arc|hive.".#|
|00000500| 20 43 6f 6e 74 65 6e 74 | 73 3a 20 20 4d 61 6b 65 | Content|s:  Make|
|00000510| 66 69 6c 65 20 6d 61 6b | 65 73 65 6c 66 2e 63 20 |file mak|eself.c |
|00000520| 73 65 6c 66 73 74 61 72 | 74 2e 63 0a 23 20 57 72 |selfstar|t.c.# Wr|
|00000530| 61 70 70 65 64 20 62 79 | 20 70 65 6c 74 7a 40 75 |apped by| peltz@u|
|00000540| 69 6e 6f 76 61 20 6f 6e | 20 54 68 75 20 4d 61 72 |inova on| Thu Mar|
|00000550| 20 32 31 20 31 30 3a 31 | 35 3a 32 36 20 31 39 39 | 21 10:1|5:26 199|
|00000560| 31 0a 50 41 54 48 3d 2f | 62 69 6e 3a 2f 75 73 72 |1.PATH=/|bin:/usr|
|00000570| 2f 62 69 6e 3a 2f 75 73 | 72 2f 75 63 62 20 3b 20 |/bin:/us|r/ucb ; |
|00000580| 65 78 70 6f 72 74 20 50 | 41 54 48 0a 69 66 20 74 |export P|ATH.if t|
|00000590| 65 73 74 20 2d 66 20 27 | 4d 61 6b 65 66 69 6c 65 |est -f '|Makefile|
|000005a0| 27 20 2d 61 20 22 24 7b | 31 7d 22 20 21 3d 20 22 |' -a "${|1}" != "|
|000005b0| 2d 63 22 20 3b 20 74 68 | 65 6e 20 0a 20 20 65 63 |-c" ; th|en .  ec|
|000005c0| 68 6f 20 73 68 61 72 3a | 20 57 69 6c 6c 20 6e 6f |ho shar:| Will no|
|000005d0| 74 20 63 6c 6f 62 62 65 | 72 20 65 78 69 73 74 69 |t clobbe|r existi|
|000005e0| 6e 67 20 66 69 6c 65 20 | 5c 22 27 4d 61 6b 65 66 |ng file |\"'Makef|
|000005f0| 69 6c 65 27 5c 22 0a 65 | 6c 73 65 0a 65 63 68 6f |ile'\".e|lse.echo|
|00000600| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|00000610| 67 20 5c 22 27 4d 61 6b | 65 66 69 6c 65 27 5c 22 |g \"'Mak|efile'\"|
|00000620| 20 5c 28 31 34 34 20 63 | 68 61 72 61 63 74 65 72 | \(144 c|haracter|
|00000630| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00000640| 20 3e 27 4d 61 6b 65 66 | 69 6c 65 27 20 3c 3c 27 | >'Makef|ile' <<'|
|00000650| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 27 0a 58 73 65 |END_OF_F|ILE'.Xse|
|00000660| 6c 66 3a 09 6d 61 6b 65 | 73 65 6c 66 20 73 65 6c |lf:.make|self sel|
|00000670| 66 73 74 61 72 74 2e 63 | 0a 58 09 2e 2f 6d 61 6b |fstart.c|.X../mak|
|00000680| 65 73 65 6c 66 20 3c 20 | 73 65 6c 66 73 74 61 72 |eself < |selfstar|
|00000690| 74 2e 63 20 3e 20 73 65 | 6c 66 2e 63 0a 58 09 63 |t.c > se|lf.c.X.c|
|000006a0| 61 74 20 73 65 6c 66 73 | 74 61 72 74 2e 63 20 3e |at selfs|tart.c >|
|000006b0| 3e 20 73 65 6c 66 2e 63 | 0a 58 09 63 63 20 2d 6f |> self.c|.X.cc -o|
|000006c0| 20 73 65 6c 66 20 73 65 | 6c 66 2e 63 0a 58 0a 58 | self se|lf.c.X.X|
|000006d0| 63 6c 65 61 6e 3a 0a 58 | 09 72 6d 20 2d 66 20 6d |clean:.X|.rm -f m|
|000006e0| 61 6b 65 73 65 6c 66 20 | 73 65 6c 66 20 73 65 6c |akeself |self sel|
|000006f0| 66 2e 63 0a 45 4e 44 5f | 4f 46 5f 46 49 4c 45 0a |f.c.END_|OF_FILE.|
|00000700| 69 66 20 74 65 73 74 20 | 31 34 34 20 2d 6e 65 20 |if test |144 -ne |
|00000710| 60 77 63 20 2d 63 20 3c | 27 4d 61 6b 65 66 69 6c |`wc -c <|'Makefil|
|00000720| 65 27 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |e'`; the|n.    ec|
|00000730| 68 6f 20 73 68 61 72 3a | 20 5c 22 27 4d 61 6b 65 |ho shar:| \"'Make|
|00000740| 66 69 6c 65 27 5c 22 20 | 75 6e 70 61 63 6b 65 64 |file'\" |unpacked|
|00000750| 20 77 69 74 68 20 77 72 | 6f 6e 67 20 73 69 7a 65 | with wr|ong size|
|00000760| 21 0a 66 69 0a 23 20 65 | 6e 64 20 6f 66 20 27 4d |!.fi.# e|nd of 'M|
|00000770| 61 6b 65 66 69 6c 65 27 | 0a 66 69 0a 69 66 20 74 |akefile'|.fi.if t|
|00000780| 65 73 74 20 2d 66 20 27 | 6d 61 6b 65 73 65 6c 66 |est -f '|makeself|
|00000790| 2e 63 27 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |.c' -a "|${1}" !=|
|000007a0| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then .  |
|000007b0| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|000007c0| 6e 6f 74 20 63 6c 6f 62 | 62 65 72 20 65 78 69 73 |not clob|ber exis|
|000007d0| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 27 6d 61 6b |ting fil|e \"'mak|
|000007e0| 65 73 65 6c 66 2e 63 27 | 5c 22 0a 65 6c 73 65 0a |eself.c'|\".else.|
|000007f0| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|00000800| 63 74 69 6e 67 20 5c 22 | 27 6d 61 6b 65 73 65 6c |cting \"|'makesel|
|00000810| 66 2e 63 27 5c 22 20 5c | 28 32 39 31 20 63 68 61 |f.c'\" \|(291 cha|
|00000820| 72 61 63 74 65 72 73 5c | 29 0a 73 65 64 20 22 73 |racters\|).sed "s|
|00000830| 2f 5e 58 2f 2f 22 20 3e | 27 6d 61 6b 65 73 65 6c |/^X//" >|'makesel|
|00000840| 66 2e 63 27 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 46 |f.c' <<'|END_OF_F|
|00000850| 49 4c 45 27 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |ILE'.X#i|nclude <|
|00000860| 73 74 64 69 6f 2e 68 3e | 0a 58 0a 58 69 6e 74 09 |stdio.h>|.X.Xint.|
|00000870| 6d 61 69 6e 28 61 72 67 | 63 2c 20 61 72 67 76 29 |main(arg|c, argv)|
|00000880| 0a 58 09 69 6e 74 09 61 | 72 67 63 3b 0a 58 09 63 |.X.int.a|rgc;.X.c|
|00000890| 68 61 72 09 2a 2a 61 72 | 67 76 3b 0a 58 7b 0a 58 |har.**ar|gv;.X{.X|
|000008a0| 09 63 68 61 72 09 70 5b | 38 30 5d 3b 0a 58 09 63 |.char.p[|80];.X.c|
|000008b0| 68 61 72 09 2a 63 3b 0a | 58 09 70 75 74 73 28 22 |har.*c;.|X.puts("|
|000008c0| 63 68 61 72 09 2a 73 5b | 5d 20 3d 20 7b 22 29 3b |char.*s[|] = {");|
|000008d0| 0a 58 09 77 68 69 6c 65 | 20 28 63 20 3d 20 67 65 |.X.while| (c = ge|
|000008e0| 74 73 28 70 29 29 20 7b | 0a 58 09 09 70 75 74 63 |ts(p)) {|.X..putc|
|000008f0| 68 61 72 28 27 22 27 29 | 3b 0a 58 09 09 77 68 69 |har('"')|;.X..whi|
|00000900| 6c 65 20 28 2a 63 29 20 | 7b 0a 58 09 09 09 69 66 |le (*c) |{.X...if|
|00000910| 20 28 28 2a 63 20 3d 3d | 20 27 22 27 29 20 7c 7c | ((*c ==| '"') |||
|00000920| 20 28 2a 63 20 3d 3d 20 | 27 5c 5c 27 29 29 0a 58 | (*c == |'\\')).X|
|00000930| 09 09 09 09 70 75 74 63 | 68 61 72 28 27 5c 5c 27 |....putc|har('\\'|
|00000940| 29 3b 0a 58 09 09 09 70 | 75 74 63 68 61 72 28 2a |);.X...p|utchar(*|
|00000950| 63 2b 2b 29 3b 0a 58 09 | 09 7d 0a 58 09 09 70 75 |c++);.X.|.}.X..pu|
|00000960| 74 73 28 22 5c 22 2c 22 | 29 3b 0a 58 09 7d 0a 58 |ts("\","|);.X.}.X|
|00000970| 09 70 75 74 73 28 22 30 | 7d 3b 22 29 3b 0a 58 09 |.puts("0|};");.X.|
|00000980| 70 75 74 73 28 22 22 29 | 3b 0a 58 7d 0a 45 4e 44 |puts("")|;.X}.END|
|00000990| 5f 4f 46 5f 46 49 4c 45 | 0a 69 66 20 74 65 73 74 |_OF_FILE|.if test|
|000009a0| 20 32 39 31 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 | 291 -ne| `wc -c |
|000009b0| 3c 27 6d 61 6b 65 73 65 | 6c 66 2e 63 27 60 3b 20 |<'makese|lf.c'`; |
|000009c0| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then.   | echo sh|
|000009d0| 61 72 3a 20 5c 22 27 6d | 61 6b 65 73 65 6c 66 2e |ar: \"'m|akeself.|
|000009e0| 63 27 5c 22 20 75 6e 70 | 61 63 6b 65 64 20 77 69 |c'\" unp|acked wi|
|000009f0| 74 68 20 77 72 6f 6e 67 | 20 73 69 7a 65 21 0a 66 |th wrong| size!.f|
|00000a00| 69 0a 23 20 65 6e 64 20 | 6f 66 20 27 6d 61 6b 65 |i.# end |of 'make|
|00000a10| 73 65 6c 66 2e 63 27 0a | 66 69 0a 69 66 20 74 65 |self.c'.|fi.if te|
|00000a20| 73 74 20 2d 66 20 27 73 | 65 6c 66 73 74 61 72 74 |st -f 's|elfstart|
|00000a30| 2e 63 27 20 2d 61 20 22 | 24 7b 31 7d 22 20 21 3d |.c' -a "|${1}" !=|
|00000a40| 20 22 2d 63 22 20 3b 20 | 74 68 65 6e 20 0a 20 20 | "-c" ; |then .  |
|00000a50| 65 63 68 6f 20 73 68 61 | 72 3a 20 57 69 6c 6c 20 |echo sha|r: Will |
|00000a60| 6e 6f 74 20 63 6c 6f 62 | 62 65 72 20 65 78 69 73 |not clob|ber exis|
|00000a70| 74 69 6e 67 20 66 69 6c | 65 20 5c 22 27 73 65 6c |ting fil|e \"'sel|
|00000a80| 66 73 74 61 72 74 2e 63 | 27 5c 22 0a 65 6c 73 65 |fstart.c|'\".else|
|00000a90| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|00000aa0| 61 63 74 69 6e 67 20 5c | 22 27 73 65 6c 66 73 74 |acting \|"'selfst|
|00000ab0| 61 72 74 2e 63 27 5c 22 | 20 5c 28 33 35 39 20 63 |art.c'\"| \(359 c|
|00000ac0| 68 61 72 61 63 74 65 72 | 73 5c 29 0a 73 65 64 20 |haracter|s\).sed |
|00000ad0| 22 73 2f 5e 58 2f 2f 22 | 20 3e 27 73 65 6c 66 73 |"s/^X//"| >'selfs|
|00000ae0| 74 61 72 74 2e 63 27 20 | 3c 3c 27 45 4e 44 5f 4f |tart.c' |<<'END_O|
|00000af0| 46 5f 46 49 4c 45 27 0a | 58 69 6e 74 09 6d 61 69 |F_FILE'.|Xint.mai|
|00000b00| 6e 28 61 72 67 63 2c 20 | 61 72 67 76 29 0a 58 09 |n(argc, |argv).X.|
|00000b10| 69 6e 74 09 61 72 67 63 | 3b 0a 58 09 63 68 61 72 |int.argc|;.X.char|
|00000b20| 09 2a 2a 61 72 67 76 3b | 0a 58 7b 0a 58 09 63 68 |.**argv;|.X{.X.ch|
|00000b30| 61 72 09 2a 2a 70 3b 0a | 58 09 63 68 61 72 09 2a |ar.**p;.|X.char.*|
|00000b40| 63 3b 0a 58 09 70 75 74 | 73 28 22 63 68 61 72 09 |c;.X.put|s("char.|
|00000b50| 2a 73 5b 5d 20 3d 20 7b | 22 29 3b 0a 58 09 70 20 |*s[] = {|");.X.p |
|00000b60| 3d 20 73 3b 0a 58 09 77 | 68 69 6c 65 20 28 63 20 |= s;.X.w|hile (c |
|00000b70| 3d 20 2a 70 2b 2b 29 20 | 7b 0a 58 09 09 70 75 74 |= *p++) |{.X..put|
|00000b80| 63 68 61 72 28 27 22 27 | 29 3b 0a 58 09 09 77 68 |char('"'|);.X..wh|
|00000b90| 69 6c 65 20 28 2a 63 29 | 20 7b 0a 58 09 09 09 69 |ile (*c)| {.X...i|
|00000ba0| 66 20 28 28 2a 63 20 3d | 3d 20 27 22 27 29 20 7c |f ((*c =|= '"') ||
|00000bb0| 7c 20 28 2a 63 20 3d 3d | 20 27 5c 5c 27 29 29 0a || (*c ==| '\\')).|
|00000bc0| 58 09 09 09 09 70 75 74 | 63 68 61 72 28 27 5c 5c |X....put|char('\\|
|00000bd0| 27 29 3b 0a 58 09 09 09 | 70 75 74 63 68 61 72 28 |');.X...|putchar(|
|00000be0| 2a 63 2b 2b 29 3b 0a 58 | 09 09 7d 0a 58 09 09 70 |*c++);.X|..}.X..p|
|00000bf0| 75 74 73 28 22 5c 22 2c | 22 29 3b 0a 58 09 7d 0a |uts("\",|");.X.}.|
|00000c00| 58 09 70 75 74 73 28 22 | 30 7d 3b 22 29 3b 0a 58 |X.puts("|0};");.X|
|00000c10| 09 70 75 74 73 28 22 22 | 29 3b 0a 58 09 70 20 3d |.puts(""|);.X.p =|
|00000c20| 20 73 3b 0a 58 09 77 68 | 69 6c 65 20 28 63 20 3d | s;.X.wh|ile (c =|
|00000c30| 20 2a 70 2b 2b 29 20 7b | 0a 58 09 09 77 68 69 6c | *p++) {|.X..whil|
|00000c40| 65 20 28 2a 63 29 20 7b | 0a 58 09 09 09 70 75 74 |e (*c) {|.X...put|
|00000c50| 63 68 61 72 28 2a 63 2b | 2b 29 3b 0a 58 09 09 7d |char(*c+|+);.X..}|
|00000c60| 0a 58 09 09 70 75 74 63 | 68 61 72 28 27 5c 6e 27 |.X..putc|har('\n'|
|00000c70| 29 3b 0a 58 09 7d 0a 58 | 7d 0a 45 4e 44 5f 4f 46 |);.X.}.X|}.END_OF|
|00000c80| 5f 46 49 4c 45 0a 69 66 | 20 74 65 73 74 20 33 35 |_FILE.if| test 35|
|00000c90| 39 20 2d 6e 65 20 60 77 | 63 20 2d 63 20 3c 27 73 |9 -ne `w|c -c <'s|
|00000ca0| 65 6c 66 73 74 61 72 74 | 2e 63 27 60 3b 20 74 68 |elfstart|.c'`; th|
|00000cb0| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en.    e|cho shar|
|00000cc0| 3a 20 5c 22 27 73 65 6c | 66 73 74 61 72 74 2e 63 |: \"'sel|fstart.c|
|00000cd0| 27 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |'\" unpa|cked wit|
|00000ce0| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|00000cf0| 0a 23 20 65 6e 64 20 6f | 66 20 27 73 65 6c 66 73 |.# end o|f 'selfs|
|00000d00| 74 61 72 74 2e 63 27 0a | 66 69 0a 65 63 68 6f 20 |tart.c'.|fi.echo |
|00000d10| 73 68 61 72 3a 20 45 6e | 64 20 6f 66 20 73 68 65 |shar: En|d of she|
|00000d20| 6c 6c 20 61 72 63 68 69 | 76 65 2e 0a 65 78 69 74 |ll archi|ve..exit|
|00000d30| 20 30 0a 2d 2d 0a 53 74 | 65 76 65 20 50 65 6c 74 | 0.--.St|eve Pelt|
|00000d40| 7a 0a 49 6e 74 65 72 6e | 65 74 3a 20 70 65 6c 74 |z.Intern|et: pelt|
|00000d50| 7a 40 63 65 72 6c 2e 75 | 69 75 63 2e 65 64 75 09 |z@cerl.u|iuc.edu.|
|00000d60| 50 4c 41 54 4f 2f 4e 6f | 76 61 4e 45 54 3a 20 70 |PLATO/No|vaNET: p|
|00000d70| 65 6c 74 7a 2f 73 2f 63 | 65 72 6c 0a             |eltz/s/c|erl.    |
+--------+-------------------------+-------------------------+--------+--------+