/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / jove.pch / patch1

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 31 31 69 30 38 |Subject:|  v11i08|
|00000010| 31 3a 20 20 4d 69 73 73 | 69 6e 67 20 66 69 6c 65 |1:  Miss|ing file|
|00000020| 20 66 72 6f 6d 20 4a 6f | 76 65 20 75 70 64 61 74 | from Jo|ve updat|
|00000030| 65 2c 20 50 61 74 63 68 | 31 0a 4e 65 77 73 67 72 |e, Patch|1.Newsgr|
|00000040| 6f 75 70 73 3a 20 63 6f | 6d 70 2e 73 6f 75 72 63 |oups: co|mp.sourc|
|00000050| 65 73 2e 75 6e 69 78 2c | 63 6f 6d 70 2e 73 6f 75 |es.unix,|comp.sou|
|00000060| 72 63 65 73 2e 62 75 67 | 73 0a 53 65 6e 64 65 72 |rces.bug|s.Sender|
|00000070| 3a 20 73 6f 75 72 63 65 | 73 0a 41 70 70 72 6f 76 |: source|s.Approv|
|00000080| 65 64 3a 20 72 73 40 75 | 75 6e 65 74 2e 55 55 2e |ed: rs@u|unet.UU.|
|00000090| 4e 45 54 0a 0a 53 75 62 | 6d 69 74 74 65 64 2d 62 |NET..Sub|mitted-b|
|000000a0| 79 3a 20 6a 70 61 79 6e | 65 40 63 73 2e 72 6f 63 |y: jpayn|e@cs.roc|
|000000b0| 68 65 73 74 65 72 2e 65 | 64 75 0a 50 6f 73 74 69 |hester.e|du.Posti|
|000000c0| 6e 67 2d 6e 75 6d 62 65 | 72 3a 20 56 6f 6c 75 6d |ng-numbe|r: Volum|
|000000d0| 65 20 31 31 2c 20 49 73 | 73 75 65 20 38 31 0a 41 |e 11, Is|sue 81.A|
|000000e0| 72 63 68 69 76 65 2d 6e | 61 6d 65 3a 20 6a 6f 76 |rchive-n|ame: jov|
|000000f0| 65 2e 70 63 68 2f 70 61 | 74 63 68 31 0a 0a 5b 20 |e.pch/pa|tch1..[ |
|00000100| 20 57 65 20 6c 65 74 20 | 74 68 69 73 20 6f 6e 65 | We let |this one|
|00000110| 20 73 6c 69 70 20 62 79 | 2e 20 20 53 6f 72 72 79 | slip by|.  Sorry|
|00000120| 2c 20 66 6f 6c 6b 73 2e | 20 20 2d 2d 72 24 20 20 |, folks.|  --r$  |
|00000130| 5d 0a 23 21 20 2f 62 69 | 6e 2f 73 68 0a 23 20 54 |].#! /bi|n/sh.# T|
|00000140| 68 69 73 20 69 73 20 61 | 20 73 68 65 6c 6c 20 61 |his is a| shell a|
|00000150| 72 63 68 69 76 65 2e 20 | 20 52 65 6d 6f 76 65 20 |rchive. | Remove |
|00000160| 61 6e 79 74 68 69 6e 67 | 20 62 65 66 6f 72 65 20 |anything| before |
|00000170| 74 68 69 73 20 6c 69 6e | 65 2c 20 74 68 65 6e 20 |this lin|e, then |
|00000180| 75 6e 70 61 63 6b 0a 23 | 20 69 74 20 62 79 20 73 |unpack.#| it by s|
|00000190| 61 76 69 6e 67 20 69 74 | 20 69 6e 74 6f 20 61 20 |aving it| into a |
|000001a0| 66 69 6c 65 20 61 6e 64 | 20 74 79 70 69 6e 67 20 |file and| typing |
|000001b0| 22 73 68 20 66 69 6c 65 | 22 2e 20 20 54 6f 20 6f |"sh file|".  To o|
|000001c0| 76 65 72 77 72 69 74 65 | 20 65 78 69 73 74 69 6e |verwrite| existin|
|000001d0| 67 0a 23 20 66 69 6c 65 | 73 2c 20 74 79 70 65 20 |g.# file|s, type |
|000001e0| 22 73 68 20 66 69 6c 65 | 20 2d 63 22 2e 20 20 59 |"sh file| -c".  Y|
|000001f0| 6f 75 20 63 61 6e 20 61 | 6c 73 6f 20 66 65 65 64 |ou can a|lso feed|
|00000200| 20 74 68 69 73 20 61 73 | 20 73 74 61 6e 64 61 72 | this as| standar|
|00000210| 64 20 69 6e 70 75 74 20 | 76 69 61 0a 23 20 75 6e |d input |via.# un|
|00000220| 73 68 61 72 2c 20 6f 72 | 20 62 79 20 74 79 70 69 |shar, or| by typi|
|00000230| 6e 67 20 22 73 68 20 3c | 66 69 6c 65 22 2c 20 65 |ng "sh <|file", e|
|00000240| 2e 67 2e 2e 20 20 49 66 | 20 74 68 69 73 20 61 72 |.g..  If| this ar|
|00000250| 63 68 69 76 65 20 69 73 | 20 63 6f 6d 70 6c 65 74 |chive is| complet|
|00000260| 65 2c 20 79 6f 75 0a 23 | 20 77 69 6c 6c 20 73 65 |e, you.#| will se|
|00000270| 65 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |e the fo|llowing |
|00000280| 6d 65 73 73 61 67 65 20 | 61 74 20 74 68 65 20 65 |message |at the e|
|00000290| 6e 64 3a 0a 23 09 09 22 | 45 6e 64 20 6f 66 20 73 |nd:.#.."|End of s|
|000002a0| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 2e 22 0a 23 |hell arc|hive.".#|
|000002b0| 20 43 6f 6e 74 65 6e 74 | 73 3a 20 20 61 72 67 63 | Content|s:  argc|
|000002c0| 6f 75 6e 74 2e 63 0a 50 | 41 54 48 3d 2f 62 69 6e |ount.c.P|ATH=/bin|
|000002d0| 3a 2f 75 73 72 2f 62 69 | 6e 3a 2f 75 73 72 2f 75 |:/usr/bi|n:/usr/u|
|000002e0| 63 62 20 3b 20 65 78 70 | 6f 72 74 20 50 41 54 48 |cb ; exp|ort PATH|
|000002f0| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 61 72 67 63 |.if test| -f argc|
|00000300| 6f 75 6e 74 2e 63 20 2d | 61 20 22 24 7b 31 7d 22 |ount.c -|a "${1}"|
|00000310| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|00000320| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |.  echo |shar: Wi|
|00000330| 6c 6c 20 6e 6f 74 20 6f | 76 65 72 2d 77 72 69 74 |ll not o|ver-writ|
|00000340| 65 20 65 78 69 73 74 69 | 6e 67 20 66 69 6c 65 20 |e existi|ng file |
|00000350| 5c 22 61 72 67 63 6f 75 | 6e 74 2e 63 5c 22 0a 65 |\"argcou|nt.c\".e|
|00000360| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|00000370| 78 74 72 61 63 74 69 6e | 67 20 5c 22 61 72 67 63 |xtractin|g \"argc|
|00000380| 6f 75 6e 74 2e 63 5c 22 | 20 5c 28 33 33 36 37 20 |ount.c\"| \(3367 |
|00000390| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|000003a0| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 61 72 67 63 6f | "s/^X//|" >argco|
|000003b0| 75 6e 74 2e 63 20 3c 3c | 27 45 4e 44 5f 4f 46 5f |unt.c <<|'END_OF_|
|000003c0| 61 72 67 63 6f 75 6e 74 | 2e 63 27 0a 58 2f 2a 2a |argcount|.c'.X/**|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000410| 2a 2a 2a 2a 2a 2a 0a 58 | 20 2a 20 54 68 69 73 20 |******.X| * This |
|00000420| 70 72 6f 67 72 61 6d 20 | 69 73 20 43 6f 70 79 72 |program |is Copyr|
|00000430| 69 67 68 74 20 28 43 29 | 20 31 39 38 36 20 62 79 |ight (C)| 1986 by|
|00000440| 20 4a 6f 6e 61 74 68 61 | 6e 20 50 61 79 6e 65 2e | Jonatha|n Payne.|
|00000450| 20 20 4a 4f 56 45 20 69 | 73 20 20 20 20 20 20 20 |  JOVE i|s       |
|00000460| 2a 0a 58 20 2a 20 70 72 | 6f 76 69 64 65 64 20 74 |*.X * pr|ovided t|
|00000470| 6f 20 79 6f 75 20 77 69 | 74 68 6f 75 74 20 63 68 |o you wi|thout ch|
|00000480| 61 72 67 65 2c 20 61 6e | 64 20 77 69 74 68 20 6e |arge, an|d with n|
|00000490| 6f 20 77 61 72 72 61 6e | 74 79 2e 20 20 59 6f 75 |o warran|ty.  You|
|000004a0| 20 6d 61 79 20 67 69 76 | 65 20 20 2a 0a 58 20 2a | may giv|e  *.X *|
|000004b0| 20 61 77 61 79 20 63 6f | 70 69 65 73 20 6f 66 20 | away co|pies of |
|000004c0| 4a 4f 56 45 2c 20 69 6e | 63 6c 75 64 69 6e 67 20 |JOVE, in|cluding |
|000004d0| 73 6f 75 72 63 65 73 2c | 20 70 72 6f 76 69 64 65 |sources,| provide|
|000004e0| 64 20 74 68 61 74 20 74 | 68 69 73 20 6e 6f 74 69 |d that t|his noti|
|000004f0| 63 65 20 69 73 20 2a 0a | 58 20 2a 20 69 6e 63 6c |ce is *.|X * incl|
|00000500| 75 64 65 64 20 69 6e 20 | 61 6c 6c 20 74 68 65 20 |uded in |all the |
|00000510| 66 69 6c 65 73 2e 20 20 | 20 20 20 20 20 20 20 20 |files.  |        |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000540| 20 2a 0a 58 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *.X ***|********|
|00000550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0a 58 |********|*****/.X|
|00000590| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 6a 6f 76 65 |.X#inclu|de "jove|
|000005a0| 2e 68 22 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 63 |.h".X#in|clude <c|
|000005b0| 74 79 70 65 2e 68 3e 0a | 58 0a 58 70 72 69 76 61 |type.h>.|X.Xpriva|
|000005c0| 74 65 20 69 6e 74 09 61 | 72 67 5f 73 75 70 70 6c |te int.a|rg_suppl|
|000005d0| 69 65 64 5f 70 2c 0a 58 | 09 09 61 72 67 5f 63 6f |ied_p,.X|..arg_co|
|000005e0| 75 6e 74 3b 0a 58 0a 58 | 61 72 67 5f 74 79 70 65 |unt;.X.X|arg_type|
|000005f0| 28 29 0a 58 7b 0a 58 09 | 72 65 74 75 72 6e 20 61 |().X{.X.|return a|
|00000600| 72 67 5f 73 75 70 70 6c | 69 65 64 5f 70 3b 0a 58 |rg_suppl|ied_p;.X|
|00000610| 7d 0a 58 0a 58 73 65 74 | 5f 69 73 5f 61 6e 5f 61 |}.X.Xset|_is_an_a|
|00000620| 72 67 28 74 68 65 72 65 | 5f 69 73 29 0a 58 7b 0a |rg(there|_is).X{.|
|00000630| 58 09 61 72 67 5f 73 75 | 70 70 6c 69 65 64 5f 70 |X.arg_su|pplied_p|
|00000640| 20 3d 20 74 68 65 72 65 | 5f 69 73 3b 0a 58 7d 0a | = there|_is;.X}.|
|00000650| 58 0a 58 73 65 74 5f 61 | 72 67 5f 76 61 6c 75 65 |X.Xset_a|rg_value|
|00000660| 28 6e 29 0a 58 7b 0a 58 | 09 61 72 67 5f 73 75 70 |(n).X{.X|.arg_sup|
|00000670| 70 6c 69 65 64 5f 70 20 | 3d 20 59 45 53 3b 0a 58 |plied_p |= YES;.X|
|00000680| 09 61 72 67 5f 63 6f 75 | 6e 74 20 3d 20 6e 3b 0a |.arg_cou|nt = n;.|
|00000690| 58 7d 0a 58 0a 58 6e 65 | 67 61 74 65 5f 61 72 67 |X}.X.Xne|gate_arg|
|000006a0| 5f 76 61 6c 75 65 28 29 | 0a 58 7b 0a 58 09 61 72 |_value()|.X{.X.ar|
|000006b0| 67 5f 63 6f 75 6e 74 20 | 3d 20 2d 61 72 67 5f 63 |g_count |= -arg_c|
|000006c0| 6f 75 6e 74 3b 0a 58 7d | 0a 58 0a 58 63 6c 72 5f |ount;.X}|.X.Xclr_|
|000006d0| 61 72 67 5f 76 61 6c 75 | 65 28 29 0a 58 7b 0a 58 |arg_valu|e().X{.X|
|000006e0| 09 61 72 67 5f 73 75 70 | 70 6c 69 65 64 5f 70 20 |.arg_sup|plied_p |
|000006f0| 3d 20 4e 4f 3b 0a 58 09 | 61 72 67 5f 63 6f 75 6e |= NO;.X.|arg_coun|
|00000700| 74 20 3d 20 31 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |t = 1;.X|}.X.X/* |
|00000710| 72 65 74 75 72 6e 20 77 | 68 65 74 68 65 72 20 74 |return w|hether t|
|00000720| 68 65 72 65 20 69 73 20 | 63 75 72 72 65 6e 74 6c |here is |currentl|
|00000730| 79 20 61 20 6e 75 6d 65 | 72 69 63 20 61 72 67 75 |y a nume|ric argu|
|00000740| 6d 65 6e 74 20 2a 2f 0a | 58 69 73 5f 61 6e 5f 61 |ment */.|Xis_an_a|
|00000750| 72 67 28 29 0a 58 7b 0a | 58 09 72 65 74 75 72 6e |rg().X{.|X.return|
|00000760| 20 28 61 72 67 5f 73 75 | 70 70 6c 69 65 64 5f 70 | (arg_su|pplied_p|
|00000770| 20 21 3d 20 4e 4f 29 3b | 0a 58 7d 0a 58 0a 58 2f | != NO);|.X}.X.X/|
|00000780| 2a 20 72 65 74 75 72 6e | 20 74 68 65 20 6e 75 6d |* return| the num|
|00000790| 65 72 69 63 20 61 72 67 | 75 6d 65 6e 74 20 2a 2f |eric arg|ument */|
|000007a0| 0a 58 61 72 67 5f 76 61 | 6c 75 65 28 29 0a 58 7b |.Xarg_va|lue().X{|
|000007b0| 0a 58 09 72 65 74 75 72 | 6e 20 61 72 67 5f 63 6f |.X.retur|n arg_co|
|000007c0| 75 6e 74 3b 0a 58 7d 0a | 58 0a 58 2f 2a 20 63 61 |unt;.X}.|X.X/* ca|
|000007d0| 6c 6c 65 64 20 62 79 20 | 43 2d 55 20 74 6f 20 67 |lled by |C-U to g|
|000007e0| 61 74 68 65 72 20 61 20 | 6e 75 6d 65 72 69 63 20 |ather a |numeric |
|000007f0| 61 72 67 75 6d 65 6e 74 | 2c 20 65 69 74 68 65 72 |argument|, either|
|00000800| 20 43 2d 55 27 73 20 6f | 72 20 64 69 67 69 74 73 | C-U's o|r digits|
|00000810| 2c 0a 58 20 20 20 62 75 | 74 20 6e 6f 74 20 62 6f |,.X   bu|t not bo|
|00000820| 74 68 20 2a 2f 0a 58 54 | 69 6d 65 73 46 6f 75 72 |th */.XT|imesFour|
|00000830| 28 29 0a 58 7b 0a 58 09 | 71 75 61 64 5f 6e 75 6d |().X{.X.|quad_num|
|00000840| 65 72 69 63 5f 61 72 67 | 28 29 3b 0a 58 7d 0a 58 |eric_arg|();.X}.X|
|00000850| 0a 58 2f 2a 20 54 68 69 | 73 20 69 6e 69 74 69 61 |.X/* Thi|s initia|
|00000860| 6c 69 7a 65 73 20 74 68 | 65 20 6e 75 6d 65 72 69 |lizes th|e numeri|
|00000870| 63 20 61 72 67 75 6d 65 | 6e 74 20 74 6f 20 31 20 |c argume|nt to 1 |
|00000880| 61 6e 64 20 73 74 61 72 | 74 73 20 6d 75 6c 74 69 |and star|ts multi|
|00000890| 70 6c 79 69 6e 67 0a 58 | 20 20 20 62 79 20 34 20 |plying.X|   by 4 |
|000008a0| 28 74 68 65 20 6d 61 67 | 69 63 20 6e 75 6d 62 65 |(the mag|ic numbe|
|000008b0| 72 20 53 74 61 6c 6c 6d | 61 6e 20 63 61 6d 65 20 |r Stallm|an came |
|000008c0| 75 70 20 77 69 74 68 29 | 2e 20 20 49 74 20 69 73 |up with)|.  It is|
|000008d0| 20 61 6e 20 65 72 72 6f | 72 20 74 6f 0a 58 20 20 | an erro|r to.X  |
|000008e0| 20 69 6e 76 6f 6b 65 20 | 71 75 61 64 5f 6e 75 6d | invoke |quad_num|
|000008f0| 65 72 69 63 5f 61 72 67 | 28 29 20 69 6e 74 65 72 |eric_arg|() inter|
|00000900| 61 63 74 69 76 65 6c 79 | 20 28 76 69 61 20 54 69 |actively| (via Ti|
|00000910| 6d 65 73 46 6f 75 72 28 | 29 29 2c 20 62 65 63 61 |mesFour(|)), beca|
|00000920| 75 73 65 0a 58 20 20 20 | 69 74 20 75 73 65 73 20 |use.X   |it uses |
|00000930| 74 68 65 20 4c 61 73 74 | 4b 65 79 53 74 72 75 63 |the Last|KeyStruc|
|00000940| 6b 20 76 61 72 69 61 62 | 6c 65 20 74 6f 20 6b 6e |k variab|le to kn|
|00000950| 6f 77 20 77 68 61 74 20 | 63 68 61 72 61 63 74 65 |ow what |characte|
|00000960| 72 20 73 69 67 6e 61 6c | 73 0a 58 20 20 20 74 6f |r signal|s.X   to|
|00000970| 20 6d 75 6c 74 69 70 6c | 79 20 61 67 61 69 6e 20 | multipl|y again |
|00000980| 28 69 6e 20 74 68 65 20 | 6c 6f 6f 70 29 2e 20 2a |(in the |loop). *|
|00000990| 2f 0a 58 70 72 69 76 61 | 74 65 0a 58 71 75 61 64 |/.Xpriva|te.Xquad|
|000009a0| 5f 6e 75 6d 65 72 69 63 | 5f 61 72 67 28 29 0a 58 |_numeric|_arg().X|
|000009b0| 7b 0a 58 09 69 6e 74 09 | 6f 6c 64 63 20 3d 20 4c |{.X.int.|oldc = L|
|000009c0| 61 73 74 4b 65 79 53 74 | 72 75 63 6b 2c 0a 58 09 |astKeySt|ruck,.X.|
|000009d0| 09 6e 65 77 63 2c 0a 58 | 09 09 6e 61 72 67 5f 63 |.newc,.X|..narg_c|
|000009e0| 6f 75 6e 74 2c 0a 58 09 | 09 73 6c 6f 77 3b 0a 58 |ount,.X.|.slow;.X|
|000009f0| 0a 58 09 73 6c 6f 77 20 | 3d 20 30 3b 0a 58 09 61 |.X.slow |= 0;.X.a|
|00000a00| 72 67 5f 73 75 70 70 6c | 69 65 64 5f 70 20 3d 20 |rg_suppl|ied_p = |
|00000a10| 59 45 53 3b 0a 58 09 61 | 72 67 5f 63 6f 75 6e 74 |YES;.X.a|rg_count|
|00000a20| 20 3d 20 31 3b 0a 58 09 | 74 68 69 73 5f 63 6d 64 | = 1;.X.|this_cmd|
|00000a30| 20 3d 20 41 52 47 5f 43 | 4d 44 3b 0a 58 09 64 6f | = ARG_C|MD;.X.do|
|00000a40| 20 7b 0a 58 09 09 69 66 | 20 28 28 6e 61 72 67 5f | {.X..if| ((narg_|
|00000a50| 63 6f 75 6e 74 20 3d 20 | 61 72 67 5f 63 6f 75 6e |count = |arg_coun|
|00000a60| 74 20 2a 20 34 29 20 21 | 3d 20 30 29 0a 58 09 09 |t * 4) !|= 0).X..|
|00000a70| 09 61 72 67 5f 63 6f 75 | 6e 74 20 3d 20 6e 61 72 |.arg_cou|nt = nar|
|00000a80| 67 5f 63 6f 75 6e 74 3b | 0a 58 09 09 69 66 20 28 |g_count;|.X..if (|
|00000a90| 21 73 6c 6f 77 29 0a 58 | 09 09 09 6e 65 77 63 20 |!slow).X|...newc |
|00000aa0| 3d 20 77 61 69 74 63 68 | 61 72 28 26 73 6c 6f 77 |= waitch|ar(&slow|
|00000ab0| 29 3b 0a 58 09 09 65 6c | 73 65 0a 58 09 09 09 6e |);.X..el|se.X...n|
|00000ac0| 65 77 63 20 3d 20 67 65 | 74 63 68 28 29 3b 0a 58 |ewc = ge|tch();.X|
|00000ad0| 09 09 69 66 20 28 69 73 | 64 69 67 69 74 28 6e 65 |..if (is|digit(ne|
|00000ae0| 77 63 29 20 7c 7c 20 6e | 65 77 63 20 3d 3d 20 27 |wc) || n|ewc == '|
|00000af0| 2d 27 29 20 7b 0a 58 09 | 09 20 20 20 20 20 61 72 |-') {.X.|.     ar|
|00000b00| 67 5f 73 75 70 70 6c 69 | 65 64 5f 70 20 3d 20 4e |g_suppli|ed_p = N|
|00000b10| 4f 3b 0a 58 09 09 20 20 | 20 20 20 67 61 74 68 65 |O;.X..  |   gathe|
|00000b20| 72 5f 6e 75 6d 65 72 69 | 63 5f 61 72 67 75 6d 65 |r_numeri|c_argume|
|00000b30| 6e 74 28 6e 65 77 63 29 | 3b 0a 58 09 09 20 20 20 |nt(newc)|;.X..   |
|00000b40| 20 20 72 65 74 75 72 6e | 3b 0a 58 09 09 7d 0a 58 |  return|;.X..}.X|
|00000b50| 09 09 69 66 20 28 73 6c | 6f 77 29 0a 58 09 09 09 |..if (sl|ow).X...|
|00000b60| 6d 65 73 73 61 67 65 28 | 6b 65 79 5f 73 74 72 6f |message(|key_stro|
|00000b70| 6b 65 73 29 3b 0a 58 09 | 7d 20 77 68 69 6c 65 20 |kes);.X.|} while |
|00000b80| 28 6e 65 77 63 20 3d 3d | 20 6f 6c 64 63 29 3b 0a |(newc ==| oldc);.|
|00000b90| 58 09 55 6e 67 65 74 63 | 28 6e 65 77 63 29 3b 0a |X.Ungetc|(newc);.|
|00000ba0| 58 7d 0a 58 0a 58 70 72 | 69 76 61 74 65 0a 58 67 |X}.X.Xpr|ivate.Xg|
|00000bb0| 61 74 68 65 72 5f 6e 75 | 6d 65 72 69 63 5f 61 72 |ather_nu|meric_ar|
|00000bc0| 67 75 6d 65 6e 74 28 63 | 29 0a 58 7b 0a 58 09 69 |gument(c|).X{.X.i|
|00000bd0| 6e 74 09 73 69 67 6e 20 | 3d 20 30 3b 0a 58 09 73 |nt.sign |= 0;.X.s|
|00000be0| 74 61 74 69 63 20 69 6e | 74 09 64 69 67 69 74 65 |tatic in|t.digite|
|00000bf0| 64 3b 0a 58 09 69 6e 74 | 09 73 6c 6f 77 20 3d 20 |d;.X.int|.slow = |
|00000c00| 30 3b 0a 58 0a 58 09 69 | 66 20 28 21 69 73 64 69 |0;.X.X.i|f (!isdi|
|00000c10| 67 69 74 28 63 29 20 26 | 26 20 63 20 21 3d 20 27 |git(c) &|& c != '|
|00000c20| 2d 27 29 0a 58 09 09 63 | 6f 6d 70 6c 61 69 6e 28 |-').X..c|omplain(|
|00000c30| 28 63 68 61 72 20 2a 29 | 20 30 29 3b 0a 58 09 69 |(char *)| 0);.X.i|
|00000c40| 66 20 28 61 72 67 5f 73 | 75 70 70 6c 69 65 64 5f |f (arg_s|upplied_|
|00000c50| 70 20 3d 3d 20 4e 4f 29 | 20 7b 09 2f 2a 20 69 66 |p == NO)| {./* if|
|00000c60| 20 77 65 20 6a 75 73 74 | 20 67 6f 74 20 68 65 72 | we just| got her|
|00000c70| 65 20 2a 2f 0a 58 09 09 | 61 72 67 5f 63 6f 75 6e |e */.X..|arg_coun|
|00000c80| 74 20 3d 20 30 3b 09 2f | 2a 20 73 74 61 72 74 20 |t = 0;./|* start |
|00000c90| 6f 76 65 72 20 2a 2f 0a | 58 09 09 64 69 67 69 74 |over */.|X..digit|
|00000ca0| 65 64 20 3d 20 4e 4f 3b | 0a 58 09 7d 20 65 6c 73 |ed = NO;|.X.} els|
|00000cb0| 65 20 69 66 20 28 61 72 | 67 5f 73 75 70 70 6c 69 |e if (ar|g_suppli|
|00000cc0| 65 64 5f 70 20 3d 3d 20 | 59 45 53 5f 4e 4f 44 49 |ed_p == |YES_NODI|
|00000cd0| 47 49 54 29 20 7b 0a 58 | 09 09 73 69 67 6e 20 3d |GIT) {.X|..sign =|
|00000ce0| 20 28 61 72 67 5f 63 6f | 75 6e 74 20 3c 20 30 29 | (arg_co|unt < 0)|
|00000cf0| 20 3f 20 2d 31 20 3a 20 | 31 3b 0a 58 09 09 61 72 | ? -1 : |1;.X..ar|
|00000d00| 67 5f 63 6f 75 6e 74 20 | 3d 20 30 3b 0a 58 09 7d |g_count |= 0;.X.}|
|00000d10| 0a 58 0a 58 09 69 66 20 | 28 21 73 69 67 6e 29 0a |.X.X.if |(!sign).|
|00000d20| 58 09 09 73 69 67 6e 20 | 3d 20 28 61 72 67 5f 63 |X..sign |= (arg_c|
|00000d30| 6f 75 6e 74 20 3c 20 30 | 29 20 3f 20 2d 31 20 3a |ount < 0|) ? -1 :|
|00000d40| 20 31 3b 0a 58 09 69 66 | 20 28 73 69 67 6e 20 3d | 1;.X.if| (sign =|
|00000d50| 3d 20 2d 31 29 0a 58 09 | 09 61 72 67 5f 63 6f 75 |= -1).X.|.arg_cou|
|00000d60| 6e 74 20 3d 20 2d 61 72 | 67 5f 63 6f 75 6e 74 3b |nt = -ar|g_count;|
|00000d70| 0a 58 09 69 66 20 28 63 | 20 3d 3d 20 27 2d 27 29 |.X.if (c| == '-')|
|00000d80| 20 7b 0a 58 09 09 73 69 | 67 6e 20 3d 20 2d 73 69 | {.X..si|gn = -si|
|00000d90| 67 6e 3b 0a 58 09 09 67 | 6f 74 6f 20 67 6f 72 65 |gn;.X..g|oto gore|
|00000da0| 61 64 3b 0a 58 09 7d 0a | 58 09 66 6f 72 20 28 3b |ad;.X.}.|X.for (;|
|00000db0| 3b 29 20 7b 0a 58 09 09 | 69 66 20 28 73 6c 6f 77 |;) {.X..|if (slow|
|00000dc0| 29 0a 58 09 09 09 6d 65 | 73 73 61 67 65 28 6b 65 |).X...me|ssage(ke|
|00000dd0| 79 5f 73 74 72 6f 6b 65 | 73 29 3b 0a 58 09 09 69 |y_stroke|s);.X..i|
|00000de0| 66 20 28 69 73 64 69 67 | 69 74 28 63 29 29 20 7b |f (isdig|it(c)) {|
|00000df0| 0a 58 09 09 09 61 72 67 | 5f 63 6f 75 6e 74 20 3d |.X...arg|_count =|
|00000e00| 20 28 61 72 67 5f 63 6f | 75 6e 74 20 2a 20 31 30 | (arg_co|unt * 10|
|00000e10| 29 20 2b 20 28 63 20 2d | 20 27 30 27 29 3b 0a 58 |) + (c -| '0');.X|
|00000e20| 09 09 09 64 69 67 69 74 | 65 64 20 3d 20 59 45 53 |...digit|ed = YES|
|00000e30| 3b 0a 58 09 09 7d 20 65 | 6c 73 65 20 7b 0a 58 09 |;.X..} e|lse {.X.|
|00000e40| 09 09 69 66 20 28 64 69 | 67 69 74 65 64 29 0a 58 |..if (di|gited).X|
|00000e50| 09 09 09 09 61 72 67 5f | 73 75 70 70 6c 69 65 64 |....arg_|supplied|
|00000e60| 5f 70 20 3d 20 59 45 53 | 3b 0a 58 09 09 09 65 6c |_p = YES|;.X...el|
|00000e70| 73 65 20 7b 0a 58 09 09 | 09 09 61 72 67 5f 63 6f |se {.X..|..arg_co|
|00000e80| 75 6e 74 20 3d 20 31 3b | 0a 58 09 09 09 09 69 66 |unt = 1;|.X....if|
|00000e90| 20 28 61 72 67 5f 73 75 | 70 70 6c 69 65 64 5f 70 | (arg_su|pplied_p|
|00000ea0| 20 3d 3d 20 4e 4f 29 0a | 58 09 09 09 09 09 61 72 | == NO).|X.....ar|
|00000eb0| 67 5f 73 75 70 70 6c 69 | 65 64 5f 70 20 3d 20 59 |g_suppli|ed_p = Y|
|00000ec0| 45 53 5f 4e 4f 44 49 47 | 49 54 3b 0a 58 09 09 09 |ES_NODIG|IT;.X...|
|00000ed0| 7d 0a 58 09 09 09 61 72 | 67 5f 63 6f 75 6e 74 20 |}.X...ar|g_count |
|00000ee0| 2a 3d 20 73 69 67 6e 3b | 0a 58 09 09 09 74 68 69 |*= sign;|.X...thi|
|00000ef0| 73 5f 63 6d 64 20 3d 20 | 41 52 47 5f 43 4d 44 3b |s_cmd = |ARG_CMD;|
|00000f00| 0a 58 09 09 09 55 6e 67 | 65 74 63 28 63 29 3b 0a |.X...Ung|etc(c);.|
|00000f10| 58 09 09 09 72 65 74 75 | 72 6e 3b 0a 58 09 09 7d |X...retu|rn;.X..}|
|00000f20| 0a 58 67 6f 72 65 61 64 | 3a 09 09 69 66 20 28 21 |.Xgoread|:..if (!|
|00000f30| 73 6c 6f 77 29 0a 58 09 | 09 09 63 20 3d 20 77 61 |slow).X.|..c = wa|
|00000f40| 69 74 63 68 61 72 28 26 | 73 6c 6f 77 29 3b 0a 58 |itchar(&|slow);.X|
|00000f50| 09 09 65 6c 73 65 20 7b | 0a 58 09 09 09 61 64 64 |..else {|.X...add|
|00000f60| 5f 6d 65 73 73 28 4e 75 | 6c 6c 53 74 72 29 3b 0a |_mess(Nu|llStr);.|
|00000f70| 58 09 09 09 63 20 3d 20 | 67 65 74 63 68 28 29 3b |X...c = |getch();|
|00000f80| 0a 58 09 09 7d 0a 58 09 | 7d 0a 58 7d 0a 58 0a 58 |.X..}.X.|}.X}.X.X|
|00000f90| 44 69 67 69 74 28 29 0a | 58 7b 0a 58 09 67 61 74 |Digit().|X{.X.gat|
|00000fa0| 68 65 72 5f 6e 75 6d 65 | 72 69 63 5f 61 72 67 75 |her_nume|ric_argu|
|00000fb0| 6d 65 6e 74 28 4c 61 73 | 74 4b 65 79 53 74 72 75 |ment(Las|tKeyStru|
|00000fc0| 63 6b 29 3b 0a 58 7d 0a | 58 0a 58 44 69 67 69 74 |ck);.X}.|X.XDigit|
|00000fd0| 30 28 29 0a 58 7b 0a 58 | 09 67 61 74 68 65 72 5f |0().X{.X|.gather_|
|00000fe0| 6e 75 6d 65 72 69 63 5f | 61 72 67 75 6d 65 6e 74 |numeric_|argument|
|00000ff0| 28 27 30 27 29 3b 0a 58 | 7d 0a 58 0a 58 44 69 67 |('0');.X|}.X.XDig|
|00001000| 69 74 31 28 29 0a 58 7b | 0a 58 09 67 61 74 68 65 |it1().X{|.X.gathe|
|00001010| 72 5f 6e 75 6d 65 72 69 | 63 5f 61 72 67 75 6d 65 |r_numeri|c_argume|
|00001020| 6e 74 28 27 31 27 29 3b | 0a 58 7d 0a 58 0a 58 44 |nt('1');|.X}.X.XD|
|00001030| 69 67 69 74 32 28 29 0a | 58 7b 0a 58 09 67 61 74 |igit2().|X{.X.gat|
|00001040| 68 65 72 5f 6e 75 6d 65 | 72 69 63 5f 61 72 67 75 |her_nume|ric_argu|
|00001050| 6d 65 6e 74 28 27 32 27 | 29 3b 0a 58 7d 0a 58 0a |ment('2'|);.X}.X.|
|00001060| 58 44 69 67 69 74 33 28 | 29 0a 58 7b 0a 58 09 67 |XDigit3(|).X{.X.g|
|00001070| 61 74 68 65 72 5f 6e 75 | 6d 65 72 69 63 5f 61 72 |ather_nu|meric_ar|
|00001080| 67 75 6d 65 6e 74 28 27 | 33 27 29 3b 0a 58 7d 0a |gument('|3');.X}.|
|00001090| 58 0a 58 44 69 67 69 74 | 34 28 29 0a 58 7b 0a 58 |X.XDigit|4().X{.X|
|000010a0| 09 67 61 74 68 65 72 5f | 6e 75 6d 65 72 69 63 5f |.gather_|numeric_|
|000010b0| 61 72 67 75 6d 65 6e 74 | 28 27 34 27 29 3b 0a 58 |argument|('4');.X|
|000010c0| 7d 0a 58 0a 58 44 69 67 | 69 74 35 28 29 0a 58 7b |}.X.XDig|it5().X{|
|000010d0| 0a 58 09 67 61 74 68 65 | 72 5f 6e 75 6d 65 72 69 |.X.gathe|r_numeri|
|000010e0| 63 5f 61 72 67 75 6d 65 | 6e 74 28 27 35 27 29 3b |c_argume|nt('5');|
|000010f0| 0a 58 7d 0a 58 0a 58 44 | 69 67 69 74 36 28 29 0a |.X}.X.XD|igit6().|
|00001100| 58 7b 0a 58 09 67 61 74 | 68 65 72 5f 6e 75 6d 65 |X{.X.gat|her_nume|
|00001110| 72 69 63 5f 61 72 67 75 | 6d 65 6e 74 28 27 36 27 |ric_argu|ment('6'|
|00001120| 29 3b 0a 58 7d 0a 58 0a | 58 44 69 67 69 74 37 28 |);.X}.X.|XDigit7(|
|00001130| 29 0a 58 7b 0a 58 09 67 | 61 74 68 65 72 5f 6e 75 |).X{.X.g|ather_nu|
|00001140| 6d 65 72 69 63 5f 61 72 | 67 75 6d 65 6e 74 28 27 |meric_ar|gument('|
|00001150| 37 27 29 3b 0a 58 7d 0a | 58 0a 58 44 69 67 69 74 |7');.X}.|X.XDigit|
|00001160| 38 28 29 0a 58 7b 0a 58 | 09 67 61 74 68 65 72 5f |8().X{.X|.gather_|
|00001170| 6e 75 6d 65 72 69 63 5f | 61 72 67 75 6d 65 6e 74 |numeric_|argument|
|00001180| 28 27 38 27 29 3b 0a 58 | 7d 0a 58 0a 58 44 69 67 |('8');.X|}.X.XDig|
|00001190| 69 74 39 28 29 0a 58 7b | 0a 58 09 67 61 74 68 65 |it9().X{|.X.gathe|
|000011a0| 72 5f 6e 75 6d 65 72 69 | 63 5f 61 72 67 75 6d 65 |r_numeri|c_argume|
|000011b0| 6e 74 28 27 39 27 29 3b | 0a 58 7d 0a 45 4e 44 5f |nt('9');|.X}.END_|
|000011c0| 4f 46 5f 61 72 67 63 6f | 75 6e 74 2e 63 0a 69 66 |OF_argco|unt.c.if|
|000011d0| 20 74 65 73 74 20 33 33 | 36 37 20 2d 6e 65 20 60 | test 33|67 -ne `|
|000011e0| 77 63 20 2d 63 20 3c 61 | 72 67 63 6f 75 6e 74 2e |wc -c <a|rgcount.|
|000011f0| 63 60 3b 20 74 68 65 6e | 0a 20 20 20 20 65 63 68 |c`; then|.    ech|
|00001200| 6f 20 73 68 61 72 3a 20 | 5c 22 61 72 67 63 6f 75 |o shar: |\"argcou|
|00001210| 6e 74 2e 63 5c 22 20 75 | 6e 70 61 63 6b 65 64 20 |nt.c\" u|npacked |
|00001220| 77 69 74 68 20 77 72 6f | 6e 67 20 73 69 7a 65 21 |with wro|ng size!|
|00001230| 0a 66 69 0a 23 20 65 6e | 64 20 6f 66 20 6f 76 65 |.fi.# en|d of ove|
|00001240| 72 77 72 69 74 69 6e 67 | 20 63 68 65 63 6b 0a 66 |rwriting| check.f|
|00001250| 69 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 6e 64 |i.echo s|har: End|
|00001260| 20 6f 66 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 | of shel|l archiv|
|00001270| 65 2e 0a 65 78 69 74 20 | 30 0a                   |e..exit |0.      |
+--------+-------------------------+-------------------------+--------+--------+