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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 3a 20 6a 61 | 6b 40 73 61 63 74 6f 68 |From: ja|k@sactoh|
|00000010| 30 2e 55 55 43 50 20 28 | 4a 61 79 20 41 2e 20 4b |0.UUCP (|Jay A. K|
|00000020| 6f 6e 69 67 73 62 65 72 | 67 29 0a 4e 65 77 73 67 |onigsber|g).Newsg|
|00000030| 72 6f 75 70 73 3a 20 61 | 6c 74 2e 73 6f 75 72 63 |roups: a|lt.sourc|
|00000040| 65 73 0a 53 75 62 6a 65 | 63 74 3a 20 73 69 6d 70 |es.Subje|ct: simp|
|00000050| 65 64 20 2d 20 66 69 78 | 20 6d 6f 64 69 66 79 20 |ed - fix| modify |
|00000060| 69 6e 73 65 72 74 20 62 | 75 67 0a 4d 65 73 73 61 |insert b|ug.Messa|
|00000070| 67 65 2d 49 44 3a 20 3c | 33 33 32 37 40 73 61 63 |ge-ID: <|3327@sac|
|00000080| 74 6f 68 30 2e 55 55 43 | 50 3e 0a 44 61 74 65 3a |toh0.UUC|P>.Date:|
|00000090| 20 31 39 20 4a 75 6e 20 | 39 30 20 32 33 3a 31 33 | 19 Jun |90 23:13|
|000000a0| 3a 32 30 20 47 4d 54 0a | 0a 49 66 20 79 6f 75 20 |:20 GMT.|.If you |
|000000b0| 6c 69 6b 65 2c 20 6a 75 | 73 74 20 63 68 61 6e 67 |like, ju|st chang|
|000000c0| 65 20 39 30 20 69 6e 20 | 79 6f 75 72 20 63 6f 70 |e 90 in |your cop|
|000000d0| 79 3a 20 27 3d 27 20 2d | 3e 20 27 3d 3d 27 2e 20 |y: '=' -|> '=='. |
|000000e0| 54 68 61 74 73 20 74 68 | 65 0a 6f 6e 6c 79 20 63 |Thats th|e.only c|
|000000f0| 68 61 6e 67 65 2e 20 28 | 6f 6f 70 73 2e 2e 2e 20 |hange. (|oops... |
|00000100| 49 20 66 69 78 65 64 20 | 74 68 69 73 20 6f 6e 63 |I fixed |this onc|
|00000110| 65 20 61 6c 72 65 61 64 | 79 20 2d 20 68 6f 77 20 |e alread|y - how |
|00000120| 64 69 64 20 69 74 20 72 | 65 61 70 70 65 61 72 3f |did it r|eappear?|
|00000130| 29 0a 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |)..#! /b|in/sh.# |
|00000140| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000150| 61 72 63 68 69 76 65 2c | 20 6d 65 61 6e 69 6e 67 |archive,| meaning|
|00000160| 3a 0a 23 20 31 2e 20 52 | 65 6d 6f 76 65 20 65 76 |:.# 1. R|emove ev|
|00000170| 65 72 79 74 68 69 6e 67 | 20 61 62 6f 76 65 20 74 |erything| above t|
|00000180| 68 65 20 23 21 20 2f 62 | 69 6e 2f 73 68 20 6c 69 |he #! /b|in/sh li|
|00000190| 6e 65 2e 0a 23 20 32 2e | 20 53 61 76 65 20 74 68 |ne..# 2.| Save th|
|000001a0| 65 20 72 65 73 75 6c 74 | 69 6e 67 20 74 65 78 74 |e result|ing text|
|000001b0| 20 69 6e 20 61 20 66 69 | 6c 65 2e 0a 23 20 33 2e | in a fi|le..# 3.|
|000001c0| 20 45 78 65 63 75 74 65 | 20 74 68 65 20 66 69 6c | Execute| the fil|
|000001d0| 65 20 77 69 74 68 20 2f | 62 69 6e 2f 73 68 20 28 |e with /|bin/sh (|
|000001e0| 6e 6f 74 20 63 73 68 29 | 20 74 6f 20 63 72 65 61 |not csh)| to crea|
|000001f0| 74 65 3a 0a 23 09 6d 6f | 64 69 66 79 2e 63 0a 23 |te:.#.mo|dify.c.#|
|00000200| 20 54 68 69 73 20 61 72 | 63 68 69 76 65 20 63 72 | This ar|chive cr|
|00000210| 65 61 74 65 64 3a 20 54 | 75 65 20 4a 75 6e 20 31 |eated: T|ue Jun 1|
|00000220| 39 20 31 36 3a 30 39 3a | 32 34 20 31 39 39 30 0a |9 16:09:|24 1990.|
|00000230| 65 78 70 6f 72 74 20 50 | 41 54 48 3b 20 50 41 54 |export P|ATH; PAT|
|00000240| 48 3d 2f 62 69 6e 3a 2f | 75 73 72 2f 62 69 6e 3a |H=/bin:/|usr/bin:|
|00000250| 24 50 41 54 48 0a 65 63 | 68 6f 20 73 68 61 72 3a |$PATH.ec|ho shar:|
|00000260| 20 22 65 78 74 72 61 63 | 74 69 6e 67 20 27 6d 6f | "extrac|ting 'mo|
|00000270| 64 69 66 79 2e 63 27 22 | 20 27 28 33 36 32 36 20 |dify.c'"| '(3626 |
|00000280| 63 68 61 72 61 63 74 65 | 72 73 29 27 0a 69 66 20 |characte|rs)'.if |
|00000290| 74 65 73 74 20 2d 66 20 | 27 6d 6f 64 69 66 79 2e |test -f |'modify.|
|000002a0| 63 27 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |c'.then.|.echo sh|
|000002b0| 61 72 3a 20 22 77 69 6c | 6c 20 6e 6f 74 20 6f 76 |ar: "wil|l not ov|
|000002c0| 65 72 2d 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |er-write| existin|
|000002d0| 67 20 66 69 6c 65 20 27 | 6d 6f 64 69 66 79 2e 63 |g file '|modify.c|
|000002e0| 27 22 0a 65 6c 73 65 0a | 73 65 64 20 27 73 2f 5e |'".else.|sed 's/^|
|000002f0| 09 58 2f 2f 27 20 3c 3c | 20 5c 53 48 41 52 5f 45 |.X//' <<| \SHAR_E|
|00000300| 4f 46 20 3e 20 27 6d 6f | 64 69 66 79 2e 63 27 0a |OF > 'mo|dify.c'.|
|00000310| 09 58 0a 09 58 2f 2a 0a | 09 58 20 2a 20 43 6f 70 |.X..X/*.|.X * Cop|
|00000320| 79 72 69 67 68 74 20 28 | 43 29 20 31 39 39 30 20 |yright (|C) 1990 |
|00000330| 4a 61 79 20 4b 6f 6e 69 | 67 73 62 65 72 67 20 2d |Jay Koni|gsberg -|
|00000340| 20 73 65 65 20 4d 61 6b | 65 66 69 6c 65 20 66 6f | see Mak|efile fo|
|00000350| 72 20 64 65 74 61 69 6c | 73 0a 09 58 20 2a 20 54 |r detail|s..X * T|
|00000360| 68 69 73 20 69 73 20 46 | 72 65 65 20 53 6f 66 74 |his is F|ree Soft|
|00000370| 77 61 72 65 2c 20 64 69 | 73 74 72 75 62 69 74 65 |ware, di|strubite|
|00000380| 64 20 75 6e 64 65 72 20 | 74 68 65 20 47 4e 55 20 |d under |the GNU |
|00000390| 53 6f 66 74 77 61 72 65 | 20 41 67 67 72 65 6d 65 |Software| Aggreme|
|000003a0| 6e 74 2e 0a 09 58 20 2a | 2f 0a 09 58 0a 09 58 23 |nt...X *|/..X..X#|
|000003b0| 69 6e 63 6c 75 64 65 20 | 22 73 69 6d 70 65 64 2e |include |"simped.|
|000003c0| 68 22 0a 09 58 0a 09 58 | 63 68 61 72 20 2a 2a 6d |h"..X..X|char **m|
|000003d0| 6f 64 69 66 79 28 74 65 | 78 74 2c 20 6c 69 6e 65 |odify(te|xt, line|
|000003e0| 6e 75 6d 29 0a 09 58 63 | 68 61 72 20 2a 2a 74 65 |num)..Xc|har **te|
|000003f0| 78 74 3b 0a 09 58 69 6e | 74 20 20 6c 69 6e 65 6e |xt;..Xin|t  linen|
|00000400| 75 6d 3b 0a 09 58 7b 0a | 09 58 65 78 74 65 72 6e |um;..X{.|.Xextern|
|00000410| 09 63 68 61 72 09 2a 72 | 65 61 6c 6c 6f 63 28 29 |.char.*r|ealloc()|
|00000420| 3b 0a 09 58 0a 09 58 63 | 68 61 72 09 2a 67 65 74 |;..X..Xc|har.*get|
|00000430| 6c 69 6e 65 28 29 3b 0a | 09 58 0a 09 58 69 6e 74 |line();.|.X..Xint|
|00000440| 09 70 72 69 6e 74 66 28 | 29 2c 0a 09 58 09 66 70 |.printf(|),..X.fp|
|00000450| 72 69 6e 74 66 28 29 2c | 0a 09 58 09 66 70 75 74 |rintf(),|..X.fput|
|00000460| 73 28 29 2c 0a 09 58 09 | 70 75 74 73 28 29 2c 0a |s(),..X.|puts(),.|
|00000470| 09 58 09 63 6c 65 61 6e | 75 70 28 29 3b 0a 09 58 |.X.clean|up();..X|
|00000480| 0a 09 58 69 6e 74 09 6d | 6f 64 69 66 79 6c 65 6e |..Xint.m|odifylen|
|00000490| 2c 09 2f 2a 20 6c 65 6e | 67 74 68 20 6f 66 20 74 |,./* len|gth of t|
|000004a0| 68 65 20 6d 6f 64 69 66 | 79 20 64 69 72 65 63 74 |he modif|y direct|
|000004b0| 69 76 65 20 73 74 72 69 | 6e 67 20 2a 2f 0a 09 58 |ive stri|ng */..X|
|000004c0| 09 6d 6f 64 69 66 79 69 | 6e 78 2c 09 2f 2a 20 70 |.modifyi|nx,./* p|
|000004d0| 6f 69 6e 74 65 72 20 69 | 6e 73 69 64 65 20 74 68 |ointer i|nside th|
|000004e0| 65 20 64 69 72 65 63 74 | 69 76 65 20 73 74 72 69 |e direct|ive stri|
|000004f0| 6e 67 20 2a 2f 0a 09 58 | 09 6c 6f 6f 70 69 6e 78 |ng */..X|.loopinx|
|00000500| 2c 09 2f 2a 20 66 6f 72 | 20 69 6e 73 65 72 74 73 |,./* for| inserts|
|00000510| 20 61 6e 64 20 64 65 6c | 65 74 65 73 20 2a 2f 0a | and del|etes */.|
|00000520| 09 58 09 6e 65 77 6c 65 | 6e 2c 09 09 2f 2a 20 6c |.X.newle|n,../* l|
|00000530| 65 6e 67 74 68 20 6f 66 | 20 74 68 65 20 6e 65 77 |ength of| the new|
|00000540| 20 74 65 78 74 20 2a 2f | 0a 09 58 09 6e 65 77 69 | text */|..X.newi|
|00000550| 6e 78 2c 09 09 2f 2a 20 | 69 6e 64 65 78 20 66 6f |nx,../* |index fo|
|00000560| 72 20 6e 65 77 74 65 78 | 74 20 2a 2f 0a 09 58 09 |r newtex|t */..X.|
|00000570| 61 64 6a 75 73 74 3d 30 | 2c 09 2f 2a 20 69 6e 73 |adjust=0|,./* ins|
|00000580| 20 26 20 64 65 6c 20 63 | 68 61 6e 67 65 20 74 65 | & del c|hange te|
|00000590| 78 74 5b 5d 2c 20 73 6f | 20 74 65 78 74 20 72 65 |xt[], so| text re|
|000005a0| 66 20 6d 75 73 74 20 61 | 64 6a 75 73 74 0a 09 58 |f must a|djust..X|
|000005b0| 09 09 09 20 20 20 4e 6f | 74 65 3a 20 61 64 6a 75 |...   No|te: adju|
|000005c0| 73 74 20 6d 61 79 20 62 | 65 20 70 6f 73 69 74 69 |st may b|e positi|
|000005d0| 76 65 20 2a 6f 72 2a 20 | 6e 65 67 69 74 69 76 65 |ve *or* |negitive|
|000005e0| 20 2a 2f 0a 09 58 09 74 | 65 78 74 5f 65 6e 74 65 | */..X.t|ext_ente|
|000005f0| 72 65 64 3d 30 3b 0a 09 | 58 0a 09 58 63 68 61 72 |red=0;..|X..Xchar|
|00000600| 09 6d 6f 64 69 66 79 62 | 75 66 5b 4c 49 4e 45 4c |.modifyb|uf[LINEL|
|00000610| 45 4e 2b 32 5d 2c 09 2f | 2a 20 74 68 65 20 6d 6f |EN+2],./|* the mo|
|00000620| 64 69 66 79 20 64 69 72 | 65 63 74 69 76 65 73 20 |dify dir|ectives |
|00000630| 2a 2f 0a 09 58 09 2a 6e | 65 77 74 65 78 74 3b 09 |*/..X.*n|ewtext;.|
|00000640| 09 2f 2a 20 61 20 70 6f | 69 6e 74 65 72 20 69 6e |./* a po|inter in|
|00000650| 74 6f 20 6d 6f 64 69 66 | 79 62 75 66 20 66 6f 72 |to modif|ybuf for|
|00000660| 20 69 6e 73 65 72 74 73 | 20 2a 2f 0a 09 58 0a 09 | inserts| */..X..|
|00000670| 58 70 72 69 6e 74 66 28 | 22 25 33 64 3e 20 22 2c |Xprintf(|"%3d> ",|
|00000680| 20 6c 69 6e 65 6e 75 6d | 29 3b 0a 09 58 66 70 75 | linenum|);..Xfpu|
|00000690| 74 73 28 74 65 78 74 5b | 6c 69 6e 65 6e 75 6d 2d |ts(text[|linenum-|
|000006a0| 31 5d 2c 20 73 74 64 6f | 75 74 29 3b 0a 09 58 70 |1], stdo|ut);..Xp|
|000006b0| 72 69 6e 74 66 28 22 65 | 64 69 74 3e 22 29 3b 0a |rintf("e|dit>");.|
|000006c0| 09 58 69 66 20 28 67 65 | 74 6c 69 6e 65 28 6d 6f |.Xif (ge|tline(mo|
|000006d0| 64 69 66 79 62 75 66 2c | 20 26 74 65 78 74 5f 65 |difybuf,| &text_e|
|000006e0| 6e 74 65 72 65 64 2c 20 | 73 74 64 69 6e 2c 20 27 |ntered, |stdin, '|
|000006f0| 5c 30 27 2c 20 54 52 55 | 45 29 29 0a 09 58 20 20 |\0', TRU|E))..X  |
|00000700| 20 20 7b 0a 09 58 20 20 | 20 20 70 75 74 73 28 22 |  {..X  |  puts("|
|00000710| 5c 6e 57 61 72 6e 69 6e | 67 3a 20 6d 6f 64 69 66 |\nWarnin|g: modif|
|00000720| 79 20 64 69 72 65 63 74 | 69 76 65 20 6f 76 65 72 |y direct|ive over|
|00000730| 66 6c 6f 77 2c 20 63 6f | 6e 74 69 6e 75 69 6e 67 |flow, co|ntinuing|
|00000740| 22 29 3b 0a 09 58 20 20 | 20 20 7d 0a 09 58 0a 09 |");..X  |  }..X..|
|00000750| 58 2f 2a 20 72 65 6d 6f | 76 65 20 74 68 65 20 74 |X/* remo|ve the t|
|00000760| 72 61 69 6c 69 6e 67 20 | 27 5c 6e 27 20 2a 2f 0a |railing |'\n' */.|
|00000770| 09 58 6d 6f 64 69 66 79 | 6c 65 6e 3d 73 74 72 6c |.Xmodify|len=strl|
|00000780| 65 6e 28 6d 6f 64 69 66 | 79 62 75 66 29 3b 0a 09 |en(modif|ybuf);..|
|00000790| 58 6d 6f 64 69 66 79 62 | 75 66 5b 2d 2d 6d 6f 64 |Xmodifyb|uf[--mod|
|000007a0| 69 66 79 6c 65 6e 5d 3d | 27 5c 30 27 3b 0a 09 58 |ifylen]=|'\0';..X|
|000007b0| 0a 09 58 2f 2a 20 6e 6f | 77 20 70 61 72 73 65 20 |..X/* no|w parse |
|000007c0| 6d 6f 64 69 66 79 27 73 | 20 62 75 66 66 65 72 20 |modify's| buffer |
|000007d0| 66 6f 72 20 74 68 65 20 | 63 68 61 6e 67 65 73 20 |for the |changes |
|000007e0| 74 6f 20 74 65 78 74 5b | 6c 69 6e 65 6e 75 6d 2d |to text[|linenum-|
|000007f0| 31 5d 20 2a 2f 0a 09 58 | 66 6f 72 28 6d 6f 64 69 |1] */..X|for(modi|
|00000800| 66 79 69 6e 78 3d 30 3b | 20 6d 6f 64 69 66 79 69 |fyinx=0;| modifyi|
|00000810| 6e 78 20 3c 20 6d 6f 64 | 69 66 79 6c 65 6e 3b 20 |nx < mod|ifylen; |
|00000820| 2b 2b 6d 6f 64 69 66 79 | 69 6e 78 29 0a 09 58 20 |++modify|inx)..X |
|00000830| 20 20 20 7b 0a 09 58 20 | 20 20 20 69 66 20 28 6d |   {..X |   if (m|
|00000840| 6f 64 69 66 79 62 75 66 | 5b 6d 6f 64 69 66 79 69 |odifybuf|[modifyi|
|00000850| 6e 78 5d 20 3d 3d 20 27 | 20 27 29 0a 09 58 20 20 |nx] == '| ')..X  |
|00000860| 20 20 20 20 20 20 7b 0a | 09 58 20 20 20 20 20 20 |      {.|.X      |
|00000870| 20 20 2f 2a 20 64 6f 20 | 6e 6f 74 68 69 6e 67 20 |  /* do |nothing |
|00000880| 2a 2f 0a 09 58 20 20 20 | 20 20 20 20 20 7d 0a 09 |*/..X   |     }..|
|00000890| 58 2f 2a 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 |X/*    e|lse if (|
|000008a0| 28 6d 6f 64 69 66 79 62 | 75 66 5b 6d 6f 64 69 66 |(modifyb|uf[modif|
|000008b0| 79 69 6e 78 5d 20 3e 3d | 20 27 61 27 20 26 26 20 |yinx] >=| 'a' && |
|000008c0| 6d 6f 64 69 66 79 62 75 | 66 5b 6d 6f 64 69 66 79 |modifybu|f[modify|
|000008d0| 69 6e 78 5d 20 3c 3d 20 | 27 7a 27 20 7c 7c 0a 09 |inx] <= |'z' ||..|
|000008e0| 58 09 20 20 20 20 20 20 | 6d 6f 64 69 66 79 62 75 |X.      |modifybu|
|000008f0| 66 5b 6d 6f 64 69 66 79 | 69 6e 78 5d 20 3e 3d 20 |f[modify|inx] >= |
|00000900| 27 41 27 20 26 26 20 6d | 6f 64 69 66 79 62 75 66 |'A' && m|odifybuf|
|00000910| 5b 6d 6f 64 69 66 79 69 | 6e 78 5d 20 3c 3d 20 27 |[modifyi|nx] <= '|
|00000920| 5a 27 29 26 26 0a 09 58 | 09 20 20 20 20 20 20 6d |Z')&&..X|.      m|
|00000930| 6f 64 69 66 79 69 6e 78 | 2b 61 64 6a 75 73 74 20 |odifyinx|+adjust |
|00000940| 21 3d 20 73 74 72 6c 65 | 6e 28 74 65 78 74 5b 6c |!= strle|n(text[l|
|00000950| 69 6e 65 6e 75 6d 2d 31 | 5d 29 2d 31 29 0a 09 58 |inenum-1|])-1)..X|
|00000960| 09 7b 0a 09 58 09 2a 20 | 72 65 70 6c 61 63 65 20 |.{..X.* |replace |
|00000970| 74 68 61 74 20 63 68 61 | 72 20 69 6e 20 74 65 78 |that cha|r in tex|
|00000980| 74 5b 5d 20 2a 0a 09 58 | 09 74 65 78 74 5b 6c 69 |t[] *..X|.text[li|
|00000990| 6e 65 6e 75 6d 2d 31 5d | 5b 6d 6f 64 69 66 79 69 |nenum-1]|[modifyi|
|000009a0| 6e 78 20 2b 20 61 64 6a | 75 73 74 5d 3d 6d 6f 64 |nx + adj|ust]=mod|
|000009b0| 69 66 79 62 75 66 5b 6d | 6f 64 69 66 79 69 6e 78 |ifybuf[m|odifyinx|
|000009c0| 5d 3b 0a 09 58 09 7d 0a | 09 58 2a 2f 0a 09 58 20 |];..X.}.|.X*/..X |
|000009d0| 20 20 20 65 6c 73 65 20 | 69 66 20 28 6d 6f 64 69 |   else |if (modi|
|000009e0| 66 79 62 75 66 5b 6d 6f | 64 69 66 79 69 6e 78 5d |fybuf[mo|difyinx]|
|000009f0| 20 3d 3d 20 27 26 27 29 | 0a 09 58 09 7b 0a 09 58 | == '&')|..X.{..X|
|00000a00| 09 2f 2a 20 72 65 70 6c | 61 63 65 20 63 68 61 72 |./* repl|ace char|
|00000a10| 20 77 69 74 68 20 61 20 | 73 70 20 2a 2f 0a 09 58 | with a |sp */..X|
|00000a20| 09 74 65 78 74 5b 6c 69 | 6e 65 6e 75 6d 2d 31 5d |.text[li|nenum-1]|
|00000a30| 5b 6d 6f 64 69 66 79 69 | 6e 78 2b 61 64 6a 75 73 |[modifyi|nx+adjus|
|00000a40| 74 5d 3d 27 20 27 3b 0a | 09 58 09 7d 0a 09 58 20 |t]=' ';.|.X.}..X |
|00000a50| 20 20 20 65 6c 73 65 20 | 69 66 20 28 6d 6f 64 69 |   else |if (modi|
|00000a60| 66 79 62 75 66 5b 6d 6f | 64 69 66 79 69 6e 78 5d |fybuf[mo|difyinx]|
|00000a70| 20 3d 3d 20 27 23 27 29 | 0a 09 58 09 7b 0a 09 58 | == '#')|..X.{..X|
|00000a80| 09 69 66 20 28 6d 6f 64 | 69 66 79 69 6e 78 2b 61 |.if (mod|ifyinx+a|
|00000a90| 64 6a 75 73 74 20 21 3d | 20 73 74 72 6c 65 6e 28 |djust !=| strlen(|
|00000aa0| 74 65 78 74 5b 6c 69 6e | 65 6e 75 6d 2d 31 5d 29 |text[lin|enum-1])|
|00000ab0| 2d 31 29 0a 09 58 09 20 | 20 20 20 7b 0a 09 58 09 |-1)..X. |   {..X.|
|00000ac0| 20 20 20 20 2f 2a 20 64 | 65 6c 65 74 65 20 63 68 |    /* d|elete ch|
|00000ad0| 61 72 20 2d 20 72 65 71 | 75 69 72 65 73 20 72 6f |ar - req|uires ro|
|00000ae0| 6c 6c 20 62 61 63 6b 2e | 20 4e 6f 74 65 3a 20 61 |ll back.| Note: a|
|00000af0| 64 6a 75 73 74 20 6d 61 | 79 20 62 65 20 6e 65 67 |djust ma|y be neg|
|00000b00| 69 74 69 76 65 20 2a 2f | 0a 09 58 09 20 20 20 20 |itive */|..X.    |
|00000b10| 66 6f 72 20 28 6c 6f 6f | 70 69 6e 78 3d 6d 6f 64 |for (loo|pinx=mod|
|00000b20| 69 66 79 69 6e 78 2b 61 | 64 6a 75 73 74 3b 20 6c |ifyinx+a|djust; l|
|00000b30| 6f 6f 70 69 6e 78 20 3c | 3d 20 73 74 72 6c 65 6e |oopinx <|= strlen|
|00000b40| 28 74 65 78 74 5b 6c 69 | 6e 65 6e 75 6d 2d 31 5d |(text[li|nenum-1]|
|00000b50| 29 3b 0a 09 58 09 09 2b | 2b 6c 6f 6f 70 69 6e 78 |);..X..+|+loopinx|
|00000b60| 29 0a 09 58 09 09 7b 0a | 09 58 09 09 74 65 78 74 |)..X..{.|.X..text|
|00000b70| 5b 6c 69 6e 65 6e 75 6d | 2d 31 5d 5b 6c 6f 6f 70 |[linenum|-1][loop|
|00000b80| 69 6e 78 5d 3d 74 65 78 | 74 5b 6c 69 6e 65 6e 75 |inx]=tex|t[linenu|
|00000b90| 6d 2d 31 5d 5b 6c 6f 6f | 70 69 6e 78 2b 31 5d 3b |m-1][loo|pinx+1];|
|00000ba0| 0a 09 58 09 09 7d 0a 09 | 58 09 20 20 20 20 2d 2d |..X..}..|X.    --|
|00000bb0| 61 64 6a 75 73 74 3b 0a | 09 58 09 20 20 20 20 7d |adjust;.|.X.    }|
|00000bc0| 0a 09 58 09 7d 0a 09 58 | 20 20 20 20 65 6c 73 65 |..X.}..X|    else|
|00000bd0| 20 69 66 20 28 6d 6f 64 | 69 66 79 62 75 66 5b 6d | if (mod|ifybuf[m|
|00000be0| 6f 64 69 66 79 69 6e 78 | 5d 20 3d 3d 20 27 5e 27 |odifyinx|] == '^'|
|00000bf0| 20 7c 7c 0a 09 58 09 6d | 6f 64 69 66 79 69 6e 78 | ||..X.m|odifyinx|
|00000c00| 2b 61 64 6a 75 73 74 20 | 3d 3d 20 73 74 72 6c 65 |+adjust |== strle|
|00000c10| 6e 28 74 65 78 74 5b 6c | 69 6e 65 6e 75 6d 2d 31 |n(text[l|inenum-1|
|00000c20| 5d 29 2d 31 29 0a 09 58 | 09 7b 0a 09 58 09 2f 2a |])-1)..X|.{..X./*|
|00000c30| 20 69 6e 73 65 72 74 20 | 63 68 61 72 28 73 29 20 | insert |char(s) |
|00000c40| 2d 20 72 65 71 75 69 72 | 65 73 20 61 20 72 6f 6c |- requir|es a rol|
|00000c50| 6c 20 6f 75 74 20 61 6e | 64 20 6d 61 79 62 65 20 |l out an|d maybe |
|00000c60| 61 20 72 65 61 6c 6c 6f | 63 20 2a 2f 0a 09 58 09 |a reallo|c */..X.|
|00000c70| 69 66 20 28 6d 6f 64 69 | 66 79 69 6e 78 2b 61 64 |if (modi|fyinx+ad|
|00000c80| 6a 75 73 74 20 21 3d 20 | 73 74 72 6c 65 6e 28 74 |just != |strlen(t|
|00000c90| 65 78 74 5b 6c 69 6e 65 | 6e 75 6d 2d 31 5d 29 2d |ext[line|num-1])-|
|00000ca0| 31 29 0a 09 58 09 20 20 | 20 20 6e 65 77 74 65 78 |1)..X.  |  newtex|
|00000cb0| 74 3d 28 63 68 61 72 20 | 2a 29 26 6d 6f 64 69 66 |t=(char |*)&modif|
|00000cc0| 79 62 75 66 5b 6d 6f 64 | 69 66 79 69 6e 78 2b 31 |ybuf[mod|ifyinx+1|
|00000cd0| 5d 3b 0a 09 58 09 65 6c | 73 65 0a 09 58 09 20 20 |];..X.el|se..X.  |
|00000ce0| 20 20 7b 0a 09 58 09 20 | 20 20 20 6e 65 77 74 65 |  {..X. |   newte|
|00000cf0| 78 74 3d 28 63 68 61 72 | 20 2a 29 26 6d 6f 64 69 |xt=(char| *)&modi|
|00000d00| 66 79 62 75 66 5b 6d 6f | 64 69 66 79 69 6e 78 5d |fybuf[mo|difyinx]|
|00000d10| 3b 0a 09 58 09 20 20 20 | 20 7d 0a 09 58 09 69 66 |;..X.   | }..X.if|
|00000d20| 20 28 6e 65 77 74 65 78 | 74 5b 30 5d 3d 3d 27 23 | (newtex|t[0]=='#|
|00000d30| 27 29 20 2f 2a 20 69 6e | 73 65 72 74 20 61 20 23 |') /* in|sert a #|
|00000d40| 20 2a 2f 0a 09 58 09 20 | 20 20 20 7b 0a 09 58 09 | */..X. |   {..X.|
|00000d50| 20 20 20 20 6e 65 77 6c | 65 6e 3d 31 3b 0a 09 58 |    newl|en=1;..X|
|00000d60| 09 20 20 20 20 7d 0a 09 | 58 09 65 6c 73 65 0a 09 |.    }..|X.else..|
|00000d70| 58 09 20 20 20 20 7b 0a | 09 58 09 20 20 20 20 66 |X.    {.|.X.    f|
|00000d80| 6f 72 20 28 6e 65 77 6c | 65 6e 3d 30 3b 20 6e 65 |or (newl|en=0; ne|
|00000d90| 77 74 65 78 74 5b 6e 65 | 77 6c 65 6e 5d 20 21 3d |wtext[ne|wlen] !=|
|00000da0| 20 27 23 27 3b 20 2b 2b | 6e 65 77 6c 65 6e 29 0a | '#'; ++|newlen).|
|00000db0| 09 58 09 09 7b 0a 09 58 | 09 09 69 66 20 28 6e 65 |.X..{..X|..if (ne|
|00000dc0| 77 74 65 78 74 5b 6e 65 | 77 6c 65 6e 5d 20 3d 3d |wtext[ne|wlen] ==|
|00000dd0| 20 27 5c 30 27 29 0a 09 | 58 09 09 20 20 20 20 62 | '\0')..|X..    b|
|00000de0| 72 65 61 6b 3b 0a 09 58 | 09 09 7d 0a 09 58 09 20 |reak;..X|..}..X. |
|00000df0| 20 20 20 7d 0a 09 58 09 | 2f 2a 20 63 72 65 61 74 |   }..X.|/* creat|
|00000e00| 65 20 74 68 65 20 73 70 | 61 63 65 20 6e 65 65 64 |e the sp|ace need|
|00000e10| 65 64 20 2a 2f 0a 09 58 | 09 69 66 28 28 74 65 78 |ed */..X|.if((tex|
|00000e20| 74 5b 6c 69 6e 65 6e 75 | 6d 2d 31 5d 3d 72 65 61 |t[linenu|m-1]=rea|
|00000e30| 6c 6c 6f 63 28 74 65 78 | 74 5b 6c 69 6e 65 6e 75 |lloc(tex|t[linenu|
|00000e40| 6d 2d 31 5d 2c 0a 09 58 | 09 20 20 20 20 28 75 6e |m-1],..X|.    (un|
|00000e50| 73 69 67 6e 65 64 20 69 | 6e 74 29 28 73 74 72 6c |signed i|nt)(strl|
|00000e60| 65 6e 28 74 65 78 74 5b | 6c 69 6e 65 6e 75 6d 2d |en(text[|linenum-|
|00000e70| 31 5d 29 2b 6e 65 77 6c | 65 6e 2b 61 64 6a 75 73 |1])+newl|en+adjus|
|00000e80| 74 29 29 29 3d 3d 4e 55 | 4c 4c 29 0a 09 58 09 20 |t)))==NU|LL)..X. |
|00000e90| 20 20 20 7b 0a 09 58 09 | 20 20 20 20 66 70 72 69 |   {..X.|    fpri|
|00000ea0| 6e 74 66 28 73 74 64 65 | 72 72 2c 20 22 72 65 61 |ntf(stde|rr, "rea|
|00000eb0| 6c 6c 6f 63 3a 20 65 72 | 72 6f 72 3d 25 64 5c 6e |lloc: er|ror=%d\n|
|00000ec0| 22 2c 20 65 72 72 6e 6f | 29 3b 0a 09 58 09 20 20 |", errno|);..X.  |
|00000ed0| 20 20 63 6c 65 61 6e 75 | 70 28 32 29 3b 0a 09 58 |  cleanu|p(2);..X|
|00000ee0| 09 20 20 20 20 7d 0a 09 | 58 09 2f 2a 20 64 6f 20 |.    }..|X./* do |
|00000ef0| 74 68 65 20 72 6f 6c 6c | 20 6f 75 74 20 2a 2f 0a |the roll| out */.|
|00000f00| 09 58 09 66 6f 72 20 28 | 6c 6f 6f 70 69 6e 78 3d |.X.for (|loopinx=|
|00000f10| 73 74 72 6c 65 6e 28 74 | 65 78 74 5b 6c 69 6e 65 |strlen(t|ext[line|
|00000f20| 6e 75 6d 2d 31 5d 29 2b | 6e 65 77 6c 65 6e 3b 0a |num-1])+|newlen;.|
|00000f30| 09 58 09 20 20 20 20 6c | 6f 6f 70 69 6e 78 20 3e |.X.    l|oopinx >|
|00000f40| 3d 20 6d 6f 64 69 66 79 | 69 6e 78 2d 31 2b 6e 65 |= modify|inx-1+ne|
|00000f50| 77 6c 65 6e 3b 20 2d 2d | 6c 6f 6f 70 69 6e 78 29 |wlen; --|loopinx)|
|00000f60| 0a 09 58 09 20 20 20 20 | 7b 0a 09 58 09 20 20 20 |..X.    |{..X.   |
|00000f70| 20 74 65 78 74 5b 6c 69 | 6e 65 6e 75 6d 2d 31 5d | text[li|nenum-1]|
|00000f80| 5b 6c 6f 6f 70 69 6e 78 | 5d 3d 74 65 78 74 5b 6c |[loopinx|]=text[l|
|00000f90| 69 6e 65 6e 75 6d 2d 31 | 5d 5b 6c 6f 6f 70 69 6e |inenum-1|][loopin|
|00000fa0| 78 2d 6e 65 77 6c 65 6e | 5d 3b 0a 09 58 09 20 20 |x-newlen|];..X.  |
|00000fb0| 20 20 7d 0a 09 58 09 2f | 2a 20 63 6f 70 79 20 69 |  }..X./|* copy i|
|00000fc0| 6e 20 74 68 65 20 6e 65 | 77 20 74 65 78 74 20 2a |n the ne|w text *|
|00000fd0| 2f 0a 09 58 09 6e 65 77 | 69 6e 78 3d 30 3b 0a 09 |/..X.new|inx=0;..|
|00000fe0| 58 09 66 6f 72 20 28 6c | 6f 6f 70 69 6e 78 3d 6d |X.for (l|oopinx=m|
|00000ff0| 6f 64 69 66 79 69 6e 78 | 2b 61 64 6a 75 73 74 3b |odifyinx|+adjust;|
|00001000| 6c 6f 6f 70 69 6e 78 3c | 6d 6f 64 69 66 79 69 6e |loopinx<|modifyin|
|00001010| 78 2b 61 64 6a 75 73 74 | 2b 6e 65 77 6c 65 6e 3b |x+adjust|+newlen;|
|00001020| 2b 2b 6c 6f 6f 70 69 6e | 78 29 0a 09 58 09 20 20 |++loopin|x)..X.  |
|00001030| 20 20 7b 0a 09 58 09 20 | 20 20 20 74 65 78 74 5b |  {..X. |   text[|
|00001040| 6c 69 6e 65 6e 75 6d 2d | 31 5d 5b 6c 6f 6f 70 69 |linenum-|1][loopi|
|00001050| 6e 78 5d 3d 6e 65 77 74 | 65 78 74 5b 6e 65 77 69 |nx]=newt|ext[newi|
|00001060| 6e 78 2b 2b 5d 3b 0a 09 | 58 09 20 20 20 20 7d 0a |nx++];..|X.    }.|
|00001070| 09 58 09 2f 2a 20 61 64 | 6a 75 73 74 20 74 68 65 |.X./* ad|just the|
|00001080| 20 6d 6f 64 69 66 79 69 | 6e 78 20 70 6f 69 6e 74 | modifyi|nx point|
|00001090| 65 72 20 74 6f 20 73 6b | 69 70 20 69 6e 73 65 72 |er to sk|ip inser|
|000010a0| 74 20 63 6f 6d 6d 61 6e | 64 20 2a 2f 0a 09 58 09 |t comman|d */..X.|
|000010b0| 69 66 20 28 6e 65 77 74 | 65 78 74 5b 30 5d 20 3d |if (newt|ext[0] =|
|000010c0| 3d 20 27 23 27 29 0a 09 | 58 09 20 20 20 20 2b 2b |= '#')..|X.    ++|
|000010d0| 6d 6f 64 69 66 79 69 6e | 78 3b 20 2f 2a 20 73 70 |modifyin|x; /* sp|
|000010e0| 65 63 69 61 6c 20 63 61 | 73 65 2c 20 69 6e 73 65 |ecial ca|se, inse|
|000010f0| 72 74 69 6e 67 20 61 20 | 23 20 2a 2f 0a 09 58 09 |rting a |# */..X.|
|00001100| 65 6c 73 65 0a 09 58 09 | 20 20 20 20 6d 6f 64 69 |else..X.|    modi|
|00001110| 66 79 69 6e 78 20 2b 3d | 20 6e 65 77 6c 65 6e 20 |fyinx +=| newlen |
|00001120| 2b 20 31 3b 20 2f 2a 20 | 6f 6e 65 20 6d 6f 72 65 |+ 1; /* |one more|
|00001130| 20 77 69 6c 6c 20 62 65 | 20 61 64 64 65 64 20 6f | will be| added o|
|00001140| 6e 20 74 68 65 20 66 6f | 72 20 2a 2f 0a 09 58 09 |n the fo|r */..X.|
|00001150| 61 64 6a 75 73 74 20 2b | 3d 20 6e 65 77 6c 65 6e |adjust +|= newlen|
|00001160| 3b 0a 09 58 09 7d 0a 09 | 58 20 20 20 20 65 6c 73 |;..X.}..|X    els|
|00001170| 65 20 2f 2a 20 72 65 70 | 6c 61 63 65 20 74 68 61 |e /* rep|lace tha|
|00001180| 74 20 63 68 61 72 61 63 | 74 65 72 20 64 69 72 65 |t charac|ter dire|
|00001190| 63 74 6c 79 20 69 6e 74 | 6f 20 74 68 65 20 74 65 |ctly int|o the te|
|000011a0| 78 74 20 2a 2f 0a 09 58 | 09 7b 0a 09 58 09 74 65 |xt */..X|.{..X.te|
|000011b0| 78 74 5b 6c 69 6e 65 6e | 75 6d 2d 31 5d 5b 6d 6f |xt[linen|um-1][mo|
|000011c0| 64 69 66 79 69 6e 78 20 | 2b 20 61 64 6a 75 73 74 |difyinx |+ adjust|
|000011d0| 5d 3d 6d 6f 64 69 66 79 | 62 75 66 5b 6d 6f 64 69 |]=modify|buf[modi|
|000011e0| 66 79 69 6e 78 5d 3b 0a | 09 58 09 7d 0a 09 58 20 |fyinx];.|.X.}..X |
|000011f0| 20 20 20 7d 0a 09 58 70 | 72 69 6e 74 66 28 22 5c |   }..Xp|rintf("\|
|00001200| 6e 25 33 64 3e 20 22 2c | 20 6c 69 6e 65 6e 75 6d |n%3d> ",| linenum|
|00001210| 29 3b 0a 09 58 66 70 75 | 74 73 28 74 65 78 74 5b |);..Xfpu|ts(text[|
|00001220| 6c 69 6e 65 6e 75 6d 2d | 31 5d 2c 20 73 74 64 6f |linenum-|1], stdo|
|00001230| 75 74 29 3b 0a 09 58 72 | 65 74 75 72 6e 20 28 74 |ut);..Xr|eturn (t|
|00001240| 65 78 74 29 3b 0a 09 58 | 7d 0a 53 48 41 52 5f 45 |ext);..X|}.SHAR_E|
|00001250| 4f 46 0a 69 66 20 74 65 | 73 74 20 33 36 32 36 20 |OF.if te|st 3626 |
|00001260| 2d 6e 65 20 22 60 77 63 | 20 2d 63 20 3c 20 27 6d |-ne "`wc| -c < 'm|
|00001270| 6f 64 69 66 79 2e 63 27 | 60 22 0a 74 68 65 6e 0a |odify.c'|`".then.|
|00001280| 09 65 63 68 6f 20 73 68 | 61 72 3a 20 22 65 72 72 |.echo sh|ar: "err|
|00001290| 6f 72 20 74 72 61 6e 73 | 6d 69 74 74 69 6e 67 20 |or trans|mitting |
|000012a0| 27 6d 6f 64 69 66 79 2e | 63 27 22 20 27 28 73 68 |'modify.|c'" '(sh|
|000012b0| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 33 |ould hav|e been 3|
|000012c0| 36 32 36 20 63 68 61 72 | 61 63 74 65 72 73 29 27 |626 char|acters)'|
|000012d0| 0a 66 69 0a 66 69 0a 65 | 78 69 74 20 30 0a 23 09 |.fi.fi.e|xit 0.#.|
|000012e0| 45 6e 64 20 6f 66 20 73 | 68 65 6c 6c 20 61 72 63 |End of s|hell arc|
|000012f0| 68 69 76 65 0a 2d 2d 20 | 0a 2d 2d 2d 2d 2d 2d 2d |hive.-- |.-------|
|00001300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001330| 2d 2d 2d 2d 2d 2d 0a 4a | 61 79 20 40 20 53 41 43 |------.J|ay @ SAC|
|00001340| 2d 55 4e 49 58 2c 20 53 | 61 63 72 61 6d 65 6e 74 |-UNIX, S|acrament|
|00001350| 6f 2c 20 43 61 2e 20 20 | 20 55 55 43 50 3d 2e 2e |o, Ca.  | UUCP=..|
|00001360| 2e 70 61 63 62 65 6c 6c | 21 73 61 63 74 6f 68 30 |.pacbell|!sactoh0|
|00001370| 21 6a 61 6b 0a 49 66 20 | 73 6f 6d 65 74 68 69 6e |!jak.If |somethin|
|00001380| 67 20 69 73 20 77 6f 72 | 74 68 20 64 6f 69 6e 67 |g is wor|th doing|
|00001390| 2c 20 69 74 73 20 77 6f | 72 74 68 20 64 6f 69 6e |, its wo|rth doin|
|000013a0| 67 20 63 6f 72 72 65 63 | 74 6c 79 2e 0a          |g correc|tly..   |
+--------+-------------------------+-------------------------+--------+--------+