home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume06 / lookup.cpp < prev    next >
SHell self-extracting ARchive  |  1991-08-27  |  10.6 KB

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: SHell self-extracting ARchive (archive/shar).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert SHell self-extracting ARchive (archive/shar) magic Supported
100% dexvert Internet Message Format (text/imf) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file ASCII text default
100% TrID E-Mail message (Var. 2) default
100% checkBytes Printable ASCII default
100% perlTextCheck Likely Text (Perl) default
100% siegfried fmt/329 Shell Archive Format default
100% detectItEasy Format: plain text[LF] default (weak)
100% xdgMime application/mbox default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 64 65 63 | 77 72 6c 21 77 79 73 65 |From dec|wrl!wyse|
|00000010| 21 75 75 6e 65 74 21 61 | 6c 6c 62 65 72 79 20 46 |!uunet!a|llbery F|
|00000020| 72 69 20 4d 61 72 20 32 | 34 20 32 32 3a 32 33 3a |ri Mar 2|4 22:23:|
|00000030| 32 32 20 50 53 54 20 31 | 39 38 39 0a 41 72 74 69 |22 PST 1|989.Arti|
|00000040| 63 6c 65 20 38 31 32 20 | 6f 66 20 63 6f 6d 70 2e |cle 812 |of comp.|
|00000050| 73 6f 75 72 63 65 73 2e | 6d 69 73 63 3a 0a 50 61 |sources.|misc:.Pa|
|00000060| 74 68 3a 20 64 65 63 77 | 72 6c 21 77 79 73 65 21 |th: decw|rl!wyse!|
|00000070| 75 75 6e 65 74 21 61 6c | 6c 62 65 72 79 0a 46 72 |uunet!al|lbery.Fr|
|00000080| 6f 6d 3a 20 61 6c 6c 62 | 65 72 79 40 75 75 6e 65 |om: allb|ery@uune|
|00000090| 74 2e 55 55 2e 4e 45 54 | 20 28 42 72 61 6e 64 6f |t.UU.NET| (Brando|
|000000a0| 6e 20 53 2e 20 41 6c 6c | 62 65 72 79 20 2d 20 63 |n S. All|bery - c|
|000000b0| 6f 6d 70 2e 73 6f 75 72 | 63 65 73 2e 6d 69 73 63 |omp.sour|ces.misc|
|000000c0| 29 0a 4e 65 77 73 67 72 | 6f 75 70 73 3a 20 63 6f |).Newsgr|oups: co|
|000000d0| 6d 70 2e 73 6f 75 72 63 | 65 73 2e 6d 69 73 63 0a |mp.sourc|es.misc.|
|000000e0| 53 75 62 6a 65 63 74 3a | 20 76 30 36 69 30 34 33 |Subject:| v06i043|
|000000f0| 3a 20 6c 6f 6f 6b 75 70 | 20 2d 2d 20 6c 6f 6f 6b |: lookup| -- look|
|00000100| 20 75 70 20 63 6f 6d 6d | 61 6e 64 73 20 69 6e 20 | up comm|ands in |
|00000110| 74 61 62 6c 65 0a 4b 65 | 79 77 6f 72 64 73 3a 20 |table.Ke|ywords: |
|00000120| 63 2b 2b 2c 20 6c 6f 6f | 6b 75 70 20 74 61 62 6c |c++, loo|kup tabl|
|00000130| 65 2c 20 6c 69 6e 65 61 | 72 20 61 6e 64 20 62 69 |e, linea|r and bi|
|00000140| 6e 61 72 79 20 73 65 61 | 72 63 68 0a 4d 65 73 73 |nary sea|rch.Mess|
|00000150| 61 67 65 2d 49 44 3a 20 | 3c 35 30 33 33 36 40 75 |age-ID: |<50336@u|
|00000160| 75 6e 65 74 2e 55 55 2e | 4e 45 54 3e 0a 44 61 74 |unet.UU.|NET>.Dat|
|00000170| 65 3a 20 34 20 4d 61 72 | 20 38 39 20 32 31 3a 32 |e: 4 Mar| 89 21:2|
|00000180| 30 3a 32 31 20 47 4d 54 | 0a 53 65 6e 64 65 72 3a |0:21 GMT|.Sender:|
|00000190| 20 61 6c 6c 62 65 72 79 | 40 75 75 6e 65 74 2e 55 | allbery|@uunet.U|
|000001a0| 55 2e 4e 45 54 0a 52 65 | 70 6c 79 2d 54 6f 3a 20 |U.NET.Re|ply-To: |
|000001b0| 67 65 61 63 21 72 61 65 | 20 28 52 65 69 64 20 45 |geac!rae| (Reid E|
|000001c0| 6c 6c 69 73 29 0a 4f 72 | 67 61 6e 69 7a 61 74 69 |llis).Or|ganizati|
|000001d0| 6f 6e 3a 20 54 27 6e 69 | 72 20 53 6f 66 74 77 61 |on: T'ni|r Softwa|
|000001e0| 72 65 0a 4c 69 6e 65 73 | 3a 20 33 38 39 0a 41 70 |re.Lines|: 389.Ap|
|000001f0| 70 72 6f 76 65 64 3a 20 | 61 6c 6c 62 65 72 79 40 |proved: |allbery@|
|00000200| 75 75 6e 65 74 2e 55 55 | 2e 4e 45 54 20 28 42 72 |uunet.UU|.NET (Br|
|00000210| 61 6e 64 6f 6e 20 53 2e | 20 41 6c 6c 62 65 72 79 |andon S.| Allbery|
|00000220| 20 2d 20 63 6f 6d 70 2e | 73 6f 75 72 63 65 73 2e | - comp.|sources.|
|00000230| 6d 69 73 63 29 0a 0a 50 | 6f 73 74 69 6e 67 2d 6e |misc)..P|osting-n|
|00000240| 75 6d 62 65 72 3a 20 56 | 6f 6c 75 6d 65 20 36 2c |umber: V|olume 6,|
|00000250| 20 49 73 73 75 65 20 34 | 33 0a 53 75 62 6d 69 74 | Issue 4|3.Submit|
|00000260| 74 65 64 2d 62 79 3a 20 | 72 61 65 40 62 2e 55 55 |ted-by: |rae@b.UU|
|00000270| 43 50 20 28 52 65 69 64 | 20 45 6c 6c 69 73 29 0a |CP (Reid| Ellis).|
|00000280| 41 72 63 68 69 76 65 2d | 6e 61 6d 65 3a 20 6c 6f |Archive-|name: lo|
|00000290| 6f 6b 75 70 2e 63 2b 2b | 0a 0a 0a 54 68 65 20 66 |okup.c++|...The f|
|000002a0| 6f 6c 6c 6f 77 69 6e 67 | 20 73 68 61 72 20 69 6d |ollowing| shar im|
|000002b0| 70 6c 65 6d 65 6e 74 73 | 20 61 20 6c 6f 6f 6b 75 |plements| a looku|
|000002c0| 70 20 74 61 62 6c 65 20 | 69 6e 20 43 2b 2b 2e 20 |p table |in C++. |
|000002d0| 20 54 77 6f 20 61 6c 74 | 65 72 6e 61 74 65 0a 61 | Two alt|ernate.a|
|000002e0| 6c 67 6f 72 69 74 68 6d | 73 20 61 72 65 20 70 72 |lgorithm|s are pr|
|000002f0| 65 73 65 6e 74 65 64 2c | 20 62 69 6e 61 72 79 20 |esented,| binary |
|00000300| 61 6e 64 20 6c 69 6e 65 | 61 72 20 73 65 61 72 63 |and line|ar searc|
|00000310| 68 2c 20 69 6e 20 74 68 | 65 20 66 69 6c 65 73 20 |h, in th|e files |
|00000320| 6c 6f 6f 6b 75 70 2e 63 | 0a 61 6e 64 20 6c 6f 6f |lookup.c|.and loo|
|00000330| 6b 75 70 32 2e 63 2c 20 | 72 65 73 70 65 63 74 69 |kup2.c, |respecti|
|00000340| 76 65 6c 79 2e 20 20 53 | 65 65 20 74 68 65 20 52 |vely. S|ee the R|
|00000350| 45 41 44 4d 45 20 66 69 | 6c 65 20 66 6f 72 20 6d |EADME fi|le for m|
|00000360| 6f 72 65 20 64 65 74 61 | 69 6c 73 2e 20 20 44 6f |ore deta|ils. Do|
|00000370| 6e 27 74 0a 77 6f 72 72 | 79 20 2d 2d 20 74 68 65 |n't.worr|y -- the|
|00000380| 72 65 27 73 20 61 6e 20 | 22 65 78 69 74 22 20 62 |re's an |"exit" b|
|00000390| 65 66 6f 72 65 20 6d 79 | 20 2e 73 69 67 6e 61 74 |efore my| .signat|
|000003a0| 75 72 65 2e 0a 0a 09 09 | 09 09 09 52 65 69 64 0a |ure.....|...Reid.|
|000003b0| 0a 23 21 20 2f 62 69 6e | 2f 73 68 0a 23 20 54 68 |.#! /bin|/sh.# Th|
|000003c0| 69 73 20 69 73 20 61 20 | 73 68 65 6c 6c 20 61 72 |is is a |shell ar|
|000003d0| 63 68 69 76 65 2e 20 20 | 52 65 6d 6f 76 65 20 61 |chive. |Remove a|
|000003e0| 6e 79 74 68 69 6e 67 20 | 62 65 66 6f 72 65 20 74 |nything |before t|
|000003f0| 68 69 73 20 6c 69 6e 65 | 2c 20 74 68 65 6e 20 75 |his line|, then u|
|00000400| 6e 70 61 63 6b 0a 23 20 | 69 74 20 62 79 20 73 61 |npack.# |it by sa|
|00000410| 76 69 6e 67 20 69 74 20 | 69 6e 74 6f 20 61 20 66 |ving it |into a f|
|00000420| 69 6c 65 20 61 6e 64 20 | 74 79 70 69 6e 67 20 22 |ile and |typing "|
|00000430| 73 68 20 66 69 6c 65 22 | 2e 20 20 54 6f 20 6f 76 |sh file"|. To ov|
|00000440| 65 72 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |erwrite |existing|
|00000450| 0a 23 20 66 69 6c 65 73 | 2c 20 74 79 70 65 20 22 |.# files|, type "|
|00000460| 73 68 20 66 69 6c 65 20 | 2d 63 22 2e 20 20 59 6f |sh file |-c". Yo|
|00000470| 75 20 63 61 6e 20 61 6c | 73 6f 20 66 65 65 64 20 |u can al|so feed |
|00000480| 74 68 69 73 20 61 73 20 | 73 74 61 6e 64 61 72 64 |this as |standard|
|00000490| 20 69 6e 70 75 74 20 76 | 69 61 0a 23 20 75 6e 73 | input v|ia.# uns|
|000004a0| 68 61 72 2c 20 6f 72 20 | 62 79 20 74 79 70 69 6e |har, or |by typin|
|000004b0| 67 20 22 73 68 20 3c 66 | 69 6c 65 22 2c 20 65 2e |g "sh <f|ile", e.|
|000004c0| 67 2e 2e 20 20 49 66 20 | 74 68 69 73 20 61 72 63 |g.. If |this arc|
|000004d0| 68 69 76 65 20 69 73 20 | 63 6f 6d 70 6c 65 74 65 |hive is |complete|
|000004e0| 2c 20 79 6f 75 0a 23 20 | 77 69 6c 6c 20 73 65 65 |, you.# |will see|
|000004f0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 6d | the fol|lowing m|
|00000500| 65 73 73 61 67 65 20 61 | 74 20 74 68 65 20 65 6e |essage a|t the en|
|00000510| 64 3a 0a 23 09 09 22 45 | 6e 64 20 6f 66 20 73 68 |d:.#.."E|nd of sh|
|00000520| 65 6c 6c 20 61 72 63 68 | 69 76 65 2e 22 0a 23 20 |ell arch|ive.".# |
|00000530| 43 6f 6e 74 65 6e 74 73 | 3a 20 20 4d 61 6b 65 66 |Contents|: Makef|
|00000540| 69 6c 65 20 52 45 41 44 | 4d 45 20 6c 6f 6f 6b 75 |ile READ|ME looku|
|00000550| 70 2e 63 20 6c 6f 6f 6b | 75 70 2e 68 20 6c 6f 6f |p.c look|up.h loo|
|00000560| 6b 75 70 32 2e 63 20 74 | 65 73 74 2e 63 0a 23 20 |kup2.c t|est.c.# |
|00000570| 20 20 74 65 73 74 63 6d | 64 2e 63 20 74 65 73 74 | testcm|d.c test|
|00000580| 68 65 6c 70 2e 63 0a 23 | 20 57 72 61 70 70 65 64 |help.c.#| Wrapped|
|00000590| 20 62 79 20 72 61 65 40 | 67 65 61 63 6c 69 62 20 | by rae@|geaclib |
|000005a0| 6f 6e 20 54 75 65 20 46 | 65 62 20 20 37 20 30 35 |on Tue F|eb 7 05|
|000005b0| 3a 33 37 3a 34 35 20 31 | 39 38 39 0a 50 41 54 48 |:37:45 1|989.PATH|
|000005c0| 3d 2f 62 69 6e 3a 2f 75 | 73 72 2f 62 69 6e 3a 2f |=/bin:/u|sr/bin:/|
|000005d0| 75 73 72 2f 75 63 62 20 | 3b 20 65 78 70 6f 72 74 |usr/ucb |; export|
|000005e0| 20 50 41 54 48 0a 69 66 | 20 74 65 73 74 20 2d 66 | PATH.if| test -f|
|000005f0| 20 4d 61 6b 65 66 69 6c | 65 20 2d 61 20 22 24 7b | Makefil|e -a "${|
|00000600| 31 7d 22 20 21 3d 20 22 | 2d 63 22 20 3b 20 74 68 |1}" != "|-c" ; th|
|00000610| 65 6e 20 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |en . ec|ho shar:|
|00000620| 20 57 69 6c 6c 20 6e 6f | 74 20 6f 76 65 72 2d 77 | Will no|t over-w|
|00000630| 72 69 74 65 20 65 78 69 | 73 74 69 6e 67 20 66 69 |rite exi|sting fi|
|00000640| 6c 65 20 5c 22 4d 61 6b | 65 66 69 6c 65 5c 22 0a |le \"Mak|efile\".|
|00000650| 65 6c 73 65 0a 65 63 68 | 6f 20 73 68 61 72 3a 20 |else.ech|o shar: |
|00000660| 45 78 74 72 61 63 74 69 | 6e 67 20 5c 22 4d 61 6b |Extracti|ng \"Mak|
|00000670| 65 66 69 6c 65 5c 22 20 | 5c 28 34 31 39 20 63 68 |efile\" |\(419 ch|
|00000680| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000690| 73 2f 5e 58 2f 2f 22 20 | 3e 4d 61 6b 65 66 69 6c |s/^X//" |>Makefil|
|000006a0| 65 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 4d 61 6b 65 |e <<'END|_OF_Make|
|000006b0| 66 69 6c 65 27 0a 58 43 | 43 20 3d 20 43 43 20 2d |file'.XC|C = CC -|
|000006c0| 63 20 2d 49 2f 75 73 72 | 2f 69 6e 63 6c 75 64 65 |c -I/usr|/include|
|000006d0| 2f 43 43 0a 58 4c 44 20 | 3d 20 43 43 0a 58 0a 58 |/CC.XLD |= CC.X.X|
|000006e0| 2e 63 2e 6f 3a 0a 58 09 | 24 28 43 43 29 20 24 28 |.c.o:.X.|$(CC) $(|
|000006f0| 43 46 4c 41 47 53 29 20 | 24 3c 0a 58 0a 58 23 20 |CFLAGS) |$<.X.X# |
|00000700| 6c 6f 6f 6b 75 70 32 20 | 64 6f 65 73 20 61 20 6c |lookup2 |does a l|
|00000710| 69 6e 65 61 72 20 73 65 | 61 72 63 68 20 2d 2d 20 |inear se|arch -- |
|00000720| 67 6f 6f 64 20 66 6f 72 | 20 75 6e 73 6f 72 74 65 |good for| unsorte|
|00000730| 64 20 74 61 62 6c 65 0a | 58 23 20 6c 6f 6f 6b 75 |d table.|X# looku|
|00000740| 70 20 20 64 6f 65 73 20 | 61 20 62 69 6e 61 72 79 |p does |a binary|
|00000750| 20 73 65 61 72 63 68 20 | 2d 2d 20 67 6f 6f 64 20 | search |-- good |
|00000760| 66 6f 72 20 61 20 73 6f | 72 74 65 64 20 74 61 62 |for a so|rted tab|
|00000770| 6c 65 0a 58 4f 42 4a 20 | 3d 20 74 65 73 74 2e 6f |le.XOBJ |= test.o|
|00000780| 20 6c 6f 6f 6b 75 70 32 | 2e 6f 20 74 65 73 74 63 | lookup2|.o testc|
|00000790| 6d 64 2e 6f 20 74 65 73 | 74 68 65 6c 70 2e 6f 0a |md.o tes|thelp.o.|
|000007a0| 58 23 4f 42 4a 20 3d 20 | 74 65 73 74 2e 6f 20 6c |X#OBJ = |test.o l|
|000007b0| 6f 6f 6b 75 70 2e 6f 20 | 74 65 73 74 63 6d 64 2e |ookup.o |testcmd.|
|000007c0| 6f 20 74 65 73 74 68 65 | 6c 70 2e 6f 0a 58 54 41 |o testhe|lp.o.XTA|
|000007d0| 52 47 20 3d 20 74 74 0a | 58 0a 58 24 28 54 41 52 |RG = tt.|X.X$(TAR|
|000007e0| 47 29 3a 20 24 28 4f 42 | 4a 29 0a 58 09 24 28 4c |G): $(OB|J).X.$(L|
|000007f0| 44 29 20 2d 6f 20 24 28 | 54 41 52 47 29 20 24 28 |D) -o $(|TARG) $(|
|00000800| 4f 42 4a 29 20 24 28 4c | 44 46 4c 41 47 53 29 0a |OBJ) $(L|DFLAGS).|
|00000810| 58 09 40 73 74 72 69 70 | 20 24 28 54 41 52 47 29 |X.@strip| $(TARG)|
|00000820| 0a 58 0a 58 6c 6f 6f 6b | 75 70 2e 6f 20 6c 6f 6f |.X.Xlook|up.o loo|
|00000830| 6b 75 70 32 2e 6f 20 3a | 20 6c 6f 6f 6b 75 70 2e |kup2.o :| lookup.|
|00000840| 68 0a 58 74 65 73 74 2e | 6f 20 3a 20 6c 6f 6f 6b |h.Xtest.|o : look|
|00000850| 75 70 2e 68 0a 58 74 65 | 73 74 68 65 6c 70 2e 6f |up.h.Xte|sthelp.o|
|00000860| 20 3a 20 6c 6f 6f 6b 75 | 70 2e 68 0a 45 4e 44 5f | : looku|p.h.END_|
|00000870| 4f 46 5f 4d 61 6b 65 66 | 69 6c 65 0a 69 66 20 74 |OF_Makef|ile.if t|
|00000880| 65 73 74 20 34 31 39 20 | 2d 6e 65 20 60 77 63 20 |est 419 |-ne `wc |
|00000890| 2d 63 20 3c 4d 61 6b 65 | 66 69 6c 65 60 3b 20 74 |-c <Make|file`; t|
|000008a0| 68 65 6e 0a 20 20 20 20 | 65 63 68 6f 20 73 68 61 |hen. |echo sha|
|000008b0| 72 3a 20 5c 22 4d 61 6b | 65 66 69 6c 65 5c 22 20 |r: \"Mak|efile\" |
|000008c0| 75 6e 70 61 63 6b 65 64 | 20 77 69 74 68 20 77 72 |unpacked| with wr|
|000008d0| 6f 6e 67 20 73 69 7a 65 | 21 0a 66 69 0a 23 20 65 |ong size|!.fi.# e|
|000008e0| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|000008f0| 67 20 63 68 65 63 6b 0a | 66 69 0a 69 66 20 74 65 |g check.|fi.if te|
|00000900| 73 74 20 2d 66 20 52 45 | 41 44 4d 45 20 2d 61 20 |st -f RE|ADME -a |
|00000910| 22 24 7b 31 7d 22 20 21 | 3d 20 22 2d 63 22 20 3b |"${1}" !|= "-c" ;|
|00000920| 20 74 68 65 6e 20 0a 20 | 20 65 63 68 6f 20 73 68 | then . | echo sh|
|00000930| 61 72 3a 20 57 69 6c 6c | 20 6e 6f 74 20 6f 76 65 |ar: Will| not ove|
|00000940| 72 2d 77 72 69 74 65 20 | 65 78 69 73 74 69 6e 67 |r-write |existing|
|00000950| 20 66 69 6c 65 20 5c 22 | 52 45 41 44 4d 45 5c 22 | file \"|README\"|
|00000960| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 73 68 61 72 3a |.else.ec|ho shar:|
|00000970| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 52 45 | Extract|ing \"RE|
|00000980| 41 44 4d 45 5c 22 20 5c | 28 32 38 32 37 20 63 68 |ADME\" \|(2827 ch|
|00000990| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|000009a0| 73 2f 5e 58 2f 2f 22 20 | 3e 52 45 41 44 4d 45 20 |s/^X//" |>README |
|000009b0| 3c 3c 27 45 4e 44 5f 4f | 46 5f 52 45 41 44 4d 45 |<<'END_O|F_README|
|000009c0| 27 0a 58 44 45 53 43 52 | 49 50 54 49 4f 4e 0a 58 |'.XDESCR|IPTION.X|
|000009d0| 0a 58 55 73 69 6e 67 20 | 74 68 65 20 66 69 6c 65 |.XUsing |the file|
|000009e0| 73 20 6c 6f 6f 6b 75 70 | 2e 63 20 5b 6f 72 20 6c |s lookup|.c [or l|
|000009f0| 6f 6f 6b 75 70 32 2e 63 | 5d 20 61 6e 64 20 6c 6f |ookup2.c|] and lo|
|00000a00| 6f 6b 75 70 2e 68 2c 20 | 79 6f 75 20 63 61 6e 20 |okup.h, |you can |
|00000a10| 65 61 73 69 6c 79 20 6d | 61 69 6e 74 61 69 6e 0a |easily m|aintain.|
|00000a20| 58 61 20 63 6f 6d 6d 61 | 6e 64 20 6c 6f 6f 6b 75 |Xa comma|nd looku|
|00000a30| 70 20 74 61 62 6c 65 2e | 20 20 54 68 65 20 74 61 |p table.| The ta|
|00000a40| 62 6c 65 20 6d 75 73 74 | 20 62 65 20 6f 66 20 74 |ble must| be of t|
|00000a50| 79 70 65 20 22 65 6e 74 | 72 79 20 2a 22 2c 20 61 |ype "ent|ry *", a|
|00000a60| 6e 64 20 79 6f 75 20 63 | 61 6e 20 73 65 65 0a 58 |nd you c|an see.X|
|00000a70| 69 6e 20 74 68 65 20 65 | 78 61 6d 70 6c 65 20 63 |in the e|xample c|
|00000a80| 6f 64 65 20 5b 74 65 73 | 74 2e 63 2c 20 74 65 73 |ode [tes|t.c, tes|
|00000a90| 74 63 6d 64 2e 63 2c 20 | 74 65 73 74 68 65 6c 70 |tcmd.c, |testhelp|
|00000aa0| 2e 63 5d 20 74 68 61 74 | 20 49 20 75 73 65 64 20 |.c] that| I used |
|00000ab0| 61 6e 20 61 67 67 72 65 | 61 67 61 74 65 0a 58 61 |an aggre|agate.Xa|
|00000ac0| 72 72 61 79 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |rray of |the form|
|00000ad0| 3a 0a 58 0a 58 65 6e 74 | 72 79 20 6c 69 73 74 5b |:.X.Xent|ry list[|
|00000ae0| 5d 20 3d 20 7b 20 2e 2e | 2e 20 7d 3b 0a 58 0a 58 |] = { ..|. };.X.X|
|00000af0| 54 68 65 20 66 69 72 73 | 74 20 22 65 6e 74 72 79 |The firs|t "entry|
|00000b00| 22 20 69 6e 20 74 68 65 | 20 6c 69 73 74 20 6d 75 |" in the| list mu|
|00000b10| 73 74 20 68 61 76 65 20 | 61 20 63 6f 75 6e 74 20 |st have |a count |
|00000b20| 61 6e 64 20 61 20 70 6f | 69 6e 74 65 72 20 74 6f |and a po|inter to|
|00000b30| 20 61 6e 20 65 72 72 6f | 72 0a 58 66 75 6e 63 74 | an erro|r.Xfunct|
|00000b40| 69 6f 6e 2e 20 20 49 66 | 20 79 6f 75 20 68 61 76 |ion. If| you hav|
|00000b50| 65 20 6e 6f 20 65 72 72 | 6f 72 20 66 75 6e 63 74 |e no err|or funct|
|00000b60| 69 6f 6e 2c 20 63 72 65 | 61 74 65 20 61 20 6e 75 |ion, cre|ate a nu|
|00000b70| 6c 6c 20 66 75 6e 63 74 | 69 6f 6e 2c 20 77 68 69 |ll funct|ion, whi|
|00000b80| 63 68 0a 58 64 6f 65 73 | 20 6e 6f 74 68 69 6e 67 |ch.Xdoes| nothing|
|00000b90| 2c 20 61 6e 64 20 75 73 | 65 20 61 20 70 6f 69 6e |, and us|e a poin|
|00000ba0| 74 65 72 20 74 6f 20 69 | 74 2e 20 20 53 69 6e 63 |ter to i|t. Sinc|
|00000bb0| 65 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 63 63 |e the nu|mber occ|
|00000bc0| 75 70 69 65 73 20 74 68 | 65 0a 58 70 6f 73 69 74 |upies th|e.Xposit|
|00000bd0| 69 6f 6e 20 6f 66 20 61 | 20 63 68 61 72 2a 2c 20 |ion of a| char*, |
|00000be0| 79 6f 75 20 68 61 76 65 | 20 74 6f 20 63 61 73 74 |you have| to cast|
|00000bf0| 20 69 74 20 74 6f 20 73 | 75 63 68 2e 20 20 69 2e | it to s|uch. i.|
|00000c00| 65 2e 2c 20 69 66 20 79 | 6f 75 20 68 61 76 65 0a |e., if y|ou have.|
|00000c10| 58 23 64 65 66 69 6e 65 | 27 64 20 4e 55 4d 20 74 |X#define|'d NUM t|
|00000c20| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |o the nu|mber of |
|00000c30| 65 6c 65 6d 65 6e 74 73 | 2c 20 79 6f 75 20 77 6f |elements|, you wo|
|00000c40| 75 6c 64 20 73 61 79 0a | 58 0a 58 65 6e 74 72 79 |uld say.|X.Xentry|
|00000c50| 20 6c 69 73 74 5b 5d 20 | 3d 20 7b 0a 58 20 20 28 | list[] |= {.X (|
|00000c60| 63 68 61 72 20 2a 29 4e | 55 4d 2c 20 26 65 72 72 |char *)N|UM, &err|
|00000c70| 2c 0a 58 20 20 2e 2e 2e | 0a 58 20 20 7d 3b 0a 58 |,.X ...|.X };.X|
|00000c80| 0a 58 77 68 65 72 65 20 | 65 72 72 20 69 73 20 74 |.Xwhere |err is t|
|00000c90| 68 65 20 65 72 72 6f 72 | 2d 68 61 6e 64 6c 69 6e |he error|-handlin|
|00000ca0| 67 20 66 75 6e 63 74 69 | 6f 6e 2e 20 20 65 72 72 |g functi|on. err|
|00000cb0| 20 77 6f 75 6c 64 20 62 | 65 20 63 61 6c 6c 65 64 | would b|e called|
|00000cc0| 20 77 68 65 6e 20 61 20 | 73 74 72 69 6e 67 0a 58 | when a |string.X|
|00000cd0| 6e 6f 74 20 69 6e 20 74 | 68 65 20 6c 69 73 74 20 |not in t|he list |
|00000ce0| 69 73 20 72 65 66 65 72 | 65 6e 63 65 64 2e 0a 58 |is refer|enced..X|
|00000cf0| 0a 58 4e 6f 77 2c 20 74 | 68 65 20 6c 69 73 74 20 |.XNow, t|he list |
|00000d00| 69 73 20 6e 6f 74 20 74 | 68 65 20 6f 62 6a 65 63 |is not t|he objec|
|00000d10| 74 20 74 68 61 74 20 64 | 6f 65 73 20 74 68 65 20 |t that d|oes the |
|00000d20| 77 6f 72 6b 2e 20 20 41 | 6e 6f 74 68 65 72 20 6f |work. A|nother o|
|00000d30| 62 6a 65 63 74 2c 20 6f | 66 20 63 6c 61 73 73 0a |bject, o|f class.|
|00000d40| 58 22 6c 6f 6f 6b 75 70 | 22 20 69 73 20 69 6e 69 |X"lookup|" is ini|
|00000d50| 74 69 61 6c 69 7a 65 64 | 20 77 69 74 68 20 61 20 |tialized| with a |
|00000d60| 70 6f 69 6e 74 65 72 20 | 74 6f 20 61 6e 20 22 65 |pointer |to an "e|
|00000d70| 6e 74 72 79 20 2a 22 2e | 20 20 65 2e 67 2e 2c 20 |ntry *".| e.g., |
|00000d80| 67 69 76 65 6e 20 74 68 | 65 0a 58 61 62 6f 76 65 |given th|e.Xabove|
|00000d90| 20 65 78 61 6d 70 6c 65 | 2c 20 79 6f 75 20 63 6f | example|, you co|
|00000da0| 75 6c 64 20 73 61 79 3a | 0a 58 0a 58 6c 6f 6f 6b |uld say:|.X.Xlook|
|00000db0| 75 70 20 63 6d 64 28 6c | 69 73 74 29 3b 0a 58 0a |up cmd(l|ist);.X.|
|00000dc0| 58 54 68 65 72 65 61 66 | 74 65 72 2c 20 74 6f 20 |XThereaf|ter, to |
|00000dd0| 72 65 74 72 69 65 76 65 | 20 74 68 65 20 66 75 6e |retrieve| the fun|
|00000de0| 63 74 69 6f 6e 20 70 6f | 69 6e 74 65 72 20 64 65 |ction po|inter de|
|00000df0| 73 69 72 65 64 2c 20 79 | 6f 75 20 73 69 6d 70 6c |sired, y|ou simpl|
|00000e00| 79 20 72 65 66 65 72 65 | 6e 63 65 0a 58 22 63 6d |y refere|nce.X"cm|
|00000e10| 64 22 20 77 69 74 68 20 | 61 20 73 74 72 69 6e 67 |d" with |a string|
|00000e20| 3a 0a 58 0a 58 69 6e 74 | 20 28 2a 70 72 6f 63 29 |:.X.Xint| (*proc)|
|00000e30| 28 63 6f 6e 73 74 20 63 | 68 61 72 20 2a 29 3b 0a |(const c|har *);.|
|00000e40| 58 70 72 6f 63 3d 63 6d | 64 5b 22 71 75 65 72 79 |Xproc=cm|d["query|
|00000e50| 22 5d 3b 0a 58 0a 58 54 | 68 69 73 20 77 6f 75 6c |"];.X.XT|his woul|
|00000e60| 64 20 63 61 75 73 65 20 | 22 70 72 6f 63 22 20 74 |d cause |"proc" t|
|00000e70| 6f 20 70 6f 69 6e 74 20 | 74 6f 20 74 68 65 20 66 |o point |to the f|
|00000e80| 75 6e 63 74 69 6f 6e 20 | 61 73 73 6f 63 69 61 74 |unction |associat|
|00000e90| 65 64 20 77 69 74 68 20 | 74 68 65 0a 58 77 6f 72 |ed with |the.Xwor|
|00000ea0| 64 20 22 71 75 65 72 79 | 22 2c 20 69 66 20 61 6e |d "query|", if an|
|00000eb0| 79 3b 20 6f 74 68 65 72 | 77 69 73 65 2c 20 69 74 |y; other|wise, it|
|00000ec0| 20 77 6f 75 6c 64 20 70 | 6f 69 6e 74 20 74 6f 20 | would p|oint to |
|00000ed0| 74 68 65 20 65 72 72 6f | 72 20 66 75 6e 63 74 69 |the erro|r functi|
|00000ee0| 6f 6e 2c 0a 58 77 68 69 | 63 68 20 77 65 20 64 65 |on,.Xwhi|ch we de|
|00000ef0| 73 69 67 6e 61 74 65 64 | 20 61 62 6f 76 65 20 74 |signated| above t|
|00000f00| 6f 20 62 65 20 22 65 72 | 72 22 2e 20 20 4e 6f 77 |o be "er|r". Now|
|00000f10| 20 79 6f 75 20 63 61 6e | 20 68 61 70 70 69 6c 79 | you can| happily|
|00000f20| 20 64 65 72 65 66 65 72 | 65 6e 63 65 20 74 68 65 | derefer|ence the|
|00000f30| 0a 58 70 6f 69 6e 74 65 | 72 20 61 6e 64 20 70 61 |.Xpointe|r and pa|
|00000f40| 73 73 20 69 74 20 61 20 | 22 63 6f 6e 73 74 20 63 |ss it a |"const c|
|00000f50| 68 61 72 20 2a 22 3a 0a | 58 0a 58 70 72 6f 63 28 |har *":.|X.Xproc(|
|00000f60| 22 74 65 73 74 69 6e 67 | 22 29 3b 0a 58 0a 58 4e |"testing|");.X.XN|
|00000f70| 6f 77 20 6e 6f 74 65 20 | 74 68 61 74 20 79 6f 75 |ow note |that you|
|00000f80| 20 63 61 6e 20 64 6f 20 | 62 6f 74 68 20 6f 66 20 | can do |both of |
|00000f90| 74 68 65 73 65 20 61 74 | 20 6f 6e 63 65 3a 0a 58 |these at| once:.X|
|00000fa0| 0a 58 63 6d 64 5b 22 71 | 75 65 72 79 22 5d 28 22 |.Xcmd["q|uery"]("|
|00000fb0| 54 65 73 74 69 6e 67 22 | 29 3b 0a 58 0a 58 49 73 |Testing"|);.X.XIs|
|00000fc0| 6e 27 74 20 74 68 61 74 | 20 73 70 65 63 69 61 6c |n't that| special|
|00000fd0| 3f 0a 58 0a 58 54 68 65 | 20 6f 6e 6c 79 20 64 69 |?.X.XThe| only di|
|00000fe0| 66 66 65 72 65 6e 63 65 | 20 62 65 74 77 65 65 6e |fference| between|
|00000ff0| 20 6c 6f 6f 6b 75 70 2e | 63 20 61 6e 64 20 6c 6f | lookup.|c and lo|
|00001000| 6f 6b 75 70 32 2e 63 20 | 69 73 20 74 68 65 20 69 |okup2.c |is the i|
|00001010| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 2e 0a 58 |mplement|ation..X|
|00001020| 45 61 63 68 20 67 69 76 | 65 73 20 79 6f 75 20 61 |Each giv|es you a|
|00001030| 6e 20 61 64 76 61 6e 74 | 61 67 65 2e 20 20 49 66 |n advant|age. If|
|00001040| 20 79 6f 75 72 20 6c 69 | 73 74 20 6f 66 20 6e 61 | your li|st of na|
|00001050| 6d 65 73 20 69 73 20 73 | 6f 72 74 65 64 2c 20 75 |mes is s|orted, u|
|00001060| 73 65 0a 58 6c 6f 6f 6b | 75 70 2e 63 20 73 69 6e |se.Xlook|up.c sin|
|00001070| 63 65 20 69 74 20 75 73 | 65 73 20 61 20 62 69 6e |ce it us|es a bin|
|00001080| 61 72 79 20 73 65 61 72 | 63 68 2e 20 20 4f 62 76 |ary sear|ch. Obv|
|00001090| 69 6f 75 73 6c 79 2c 20 | 69 66 20 74 68 65 79 20 |iously, |if they |
|000010a0| 61 72 65 20 6e 6f 74 0a | 58 69 6e 20 61 6e 79 20 |are not.|Xin any |
|000010b0| 6f 72 64 65 72 2c 20 61 | 20 62 69 6e 61 72 79 20 |order, a| binary |
|000010c0| 73 65 61 72 63 68 20 77 | 69 6c 6c 20 6e 6f 74 20 |search w|ill not |
|000010d0| 77 6f 72 6b 2c 20 73 6f | 20 6c 6f 6f 6b 75 70 32 |work, so| lookup2|
|000010e0| 2e 63 20 6a 75 73 74 20 | 64 6f 65 73 0a 58 61 20 |.c just |does.Xa |
|000010f0| 6c 69 6e 65 61 72 20 73 | 65 61 72 63 68 2e 20 20 |linear s|earch. |
|00001100| 54 68 69 73 20 69 73 20 | 74 68 65 20 6f 6e 6c 79 |This is |the only|
|00001110| 20 64 69 66 66 65 72 65 | 6e 63 65 20 62 65 74 77 | differe|nce betw|
|00001120| 65 65 6e 20 74 68 65 20 | 74 77 6f 2e 0a 58 0a 58 |een the |two..X.X|
|00001130| 0a 58 41 52 47 55 4d 45 | 4e 54 20 54 59 50 45 0a |.XARGUME|NT TYPE.|
|00001140| 58 0a 58 41 6c 6c 20 6f | 66 20 74 68 65 20 66 75 |X.XAll o|f the fu|
|00001150| 6e 63 74 69 6f 6e 20 70 | 6f 69 6e 74 65 72 73 20 |nction p|ointers |
|00001160| 69 6e 20 74 68 65 20 22 | 65 6e 74 72 79 22 20 6c |in the "|entry" l|
|00001170| 69 73 74 20 6d 75 73 74 | 20 74 61 6b 65 20 74 68 |ist must| take th|
|00001180| 65 20 73 61 6d 65 0a 58 | 61 72 67 75 6d 65 6e 74 |e same.X|argument|
|00001190| 5b 73 5d 2c 20 69 66 20 | 61 6e 79 2c 20 61 6e 64 |[s], if |any, and|
|000011a0| 20 72 65 74 75 72 6e 20 | 74 68 65 20 73 61 6d 65 | return |the same|
|000011b0| 20 76 61 6c 75 65 20 74 | 79 70 65 2e 20 20 49 20 | value t|ype. I |
|000011c0| 68 61 76 65 6e 27 74 20 | 62 75 69 6c 74 0a 58 61 |haven't |built.Xa|
|000011d0| 6e 79 20 65 6c 65 67 61 | 6e 74 20 6d 61 63 72 6f |ny elega|nt macro|
|000011e0| 73 2c 20 62 75 74 20 74 | 68 65 72 65 20 61 72 65 |s, but t|here are|
|000011f0| 20 23 64 65 66 69 6e 65 | 73 20 69 6e 20 22 6c 6f | #define|s in "lo|
|00001200| 6f 6b 75 70 2e 68 22 20 | 74 6f 20 68 61 6e 64 6c |okup.h" |to handl|
|00001210| 65 20 62 6f 74 68 0a 58 | 6f 66 20 74 68 65 73 65 |e both.X|of these|
|00001220| 20 70 72 6f 62 6c 65 6d | 73 20 69 6e 20 61 20 6c | problem|s in a l|
|00001230| 65 73 73 20 74 68 61 6e | 20 65 6c 65 67 61 6e 74 |ess than| elegant|
|00001240| 20 6d 61 6e 6e 65 72 2e | 0a 58 0a 58 54 68 65 20 | manner.|.X.XThe |
|00001250| 74 77 6f 20 6d 61 63 72 | 6f 73 20 41 52 47 5f 54 |two macr|os ARG_T|
|00001260| 59 50 45 20 61 6e 64 20 | 52 45 54 5f 54 59 50 45 |YPE and |RET_TYPE|
|00001270| 20 64 65 66 69 6e 65 20 | 74 68 65 20 61 72 67 75 | define |the argu|
|00001280| 6d 65 6e 74 20 74 79 70 | 65 20 61 6e 64 20 76 61 |ment typ|e and va|
|00001290| 6c 75 65 0a 58 76 61 6c | 75 65 20 72 65 74 75 72 |lue.Xval|ue retur|
|000012a0| 6e 65 64 20 62 79 20 74 | 68 65 20 66 75 6e 63 74 |ned by t|he funct|
|000012b0| 69 6f 6e 20 70 6f 69 6e | 74 65 72 73 2e 20 20 4a |ion poin|ters. J|
|000012c0| 75 73 74 20 63 68 61 6e | 67 65 20 74 68 65 73 65 |ust chan|ge these|
|000012d0| 20 74 6f 20 68 61 6e 64 | 6c 65 20 77 68 61 74 65 | to hand|le whate|
|000012e0| 76 65 72 0a 58 74 79 70 | 65 73 20 79 6f 75 20 6c |ver.Xtyp|es you l|
|000012f0| 69 6b 65 2e 0a 58 0a 58 | 0a 58 43 41 56 45 41 54 |ike..X.X|.XCAVEAT|
|00001300| 53 0a 58 0a 58 54 68 69 | 73 20 69 73 20 6f 6e 65 |S.X.XThi|s is one|
|00001310| 20 6f 66 20 6d 79 20 66 | 69 72 73 74 20 61 74 74 | of my f|irst att|
|00001320| 65 6d 70 74 73 20 61 74 | 20 43 2b 2b 3b 20 20 49 |empts at| C++; I|
|00001330| 20 68 6f 70 65 20 79 6f | 75 20 66 69 6e 64 20 69 | hope yo|u find i|
|00001340| 74 20 75 73 65 66 75 6c | 2e 20 20 49 66 0a 58 79 |t useful|. If.Xy|
|00001350| 6f 75 20 6d 61 6b 65 20 | 61 6e 79 20 6d 61 6a 6f |ou make |any majo|
|00001360| 72 20 6d 6f 64 69 66 69 | 63 61 74 69 6f 6e 73 2c |r modifi|cations,|
|00001370| 20 6f 72 20 65 76 65 6e | 20 6d 6f 72 65 20 69 6d | or even| more im|
|00001380| 70 6f 72 74 61 6e 74 6c | 79 2c 20 69 66 20 79 6f |portantl|y, if yo|
|00001390| 75 20 66 69 6e 64 20 61 | 6e 79 0a 58 62 75 67 73 |u find a|ny.Xbugs|
|000013a0| 2c 20 70 6c 65 61 73 65 | 20 6c 65 74 20 6d 65 20 |, please| let me |
|000013b0| 6b 6e 6f 77 20 73 6f 20 | 49 20 63 61 6e 20 66 69 |know so |I can fi|
|000013c0| 78 20 6d 79 20 73 6f 75 | 72 63 65 20 61 6e 64 20 |x my sou|rce and |
|000013d0| 70 6f 73 74 20 74 68 65 | 20 70 61 74 63 68 65 73 |post the| patches|
|000013e0| 20 66 6f 72 0a 58 6f 6e | 65 20 61 6e 64 20 61 6c | for.Xon|e and al|
|000013f0| 6c 2e 0a 58 0a 58 0a 58 | 43 4f 50 59 52 49 47 48 |l..X.X.X|COPYRIGH|
|00001400| 54 0a 58 0a 58 49 20 74 | 68 65 20 61 75 74 68 6f |T.X.XI t|he autho|
|00001410| 72 20 68 65 72 65 62 79 | 20 70 6c 61 63 65 20 74 |r hereby| place t|
|00001420| 68 69 73 20 63 6f 64 65 | 20 69 6e 20 74 68 65 20 |his code| in the |
|00001430| 70 75 62 6c 69 63 20 64 | 6f 6d 61 69 6e 2e 20 20 |public d|omain. |
|00001440| 4d 61 6b 65 20 65 6e 6f | 75 67 68 0a 58 6d 6f 6e |Make eno|ugh.Xmon|
|00001450| 65 79 20 74 6f 20 62 75 | 79 20 43 61 6e 61 64 61 |ey to bu|y Canada|
|00001460| 20 61 6e 64 20 68 69 72 | 65 20 6d 65 20 61 73 20 | and hir|e me as |
|00001470| 50 72 69 6d 65 20 4d 69 | 6e 69 73 74 65 72 21 0a |Prime Mi|nister!.|
|00001480| 58 0a 58 0a 58 41 55 54 | 48 4f 52 0a 58 0a 58 52 |X.X.XAUT|HOR.X.XR|
|00001490| 65 69 64 20 45 6c 6c 69 | 73 0a 58 31 37 36 20 42 |eid Elli|s.X176 B|
|000014a0| 72 6f 6f 6b 62 61 6e 6b | 73 20 44 72 69 76 65 0a |rookbank|s Drive.|
|000014b0| 58 44 6f 6e 20 4d 69 6c | 6c 73 2c 20 4f 6e 74 61 |XDon Mil|ls, Onta|
|000014c0| 72 69 6f 0a 58 4d 33 41 | 20 32 54 35 0a 58 43 41 |rio.XM3A| 2T5.XCA|
|000014d0| 4e 41 44 41 0a 58 2b 31 | 20 34 31 36 20 34 34 36 |NADA.X+1| 416 446|
|000014e0| 20 31 36 34 34 0a 58 72 | 61 65 40 67 65 61 63 6c | 1644.Xr|ae@geacl|
|000014f0| 69 62 2e 75 75 63 70 20 | 69 66 20 79 6f 75 27 72 |ib.uucp |if you'r|
|00001500| 65 20 6c 75 63 6b 79 2c | 20 6f 72 20 65 6c 73 65 |e lucky,| or else|
|00001510| 20 67 65 61 63 6c 69 62 | 21 72 61 65 40 67 65 61 | geaclib|!rae@gea|
|00001520| 63 2e 75 75 63 70 0a 45 | 4e 44 5f 4f 46 5f 52 45 |c.uucp.E|ND_OF_RE|
|00001530| 41 44 4d 45 0a 69 66 20 | 74 65 73 74 20 32 38 32 |ADME.if |test 282|
|00001540| 37 20 2d 6e 65 20 60 77 | 63 20 2d 63 20 3c 52 45 |7 -ne `w|c -c <RE|
|00001550| 41 44 4d 45 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |ADME`; t|hen. |
|00001560| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 52 45 41 |echo sha|r: \"REA|
|00001570| 44 4d 45 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |DME\" un|packed w|
|00001580| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00001590| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|000015a0| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|000015b0| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 6c 6f 6f 6b |.if test| -f look|
|000015c0| 75 70 2e 63 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |up.c -a |"${1}" !|
|000015d0| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|000015e0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|000015f0| 20 6e 6f 74 20 6f 76 65 | 72 2d 77 72 69 74 65 20 | not ove|r-write |
|00001600| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 20 5c 22 |existing| file \"|
|00001610| 6c 6f 6f 6b 75 70 2e 63 | 5c 22 0a 65 6c 73 65 0a |lookup.c|\".else.|
|00001620| 65 63 68 6f 20 73 68 61 | 72 3a 20 45 78 74 72 61 |echo sha|r: Extra|
|00001630| 63 74 69 6e 67 20 5c 22 | 6c 6f 6f 6b 75 70 2e 63 |cting \"|lookup.c|
|00001640| 5c 22 20 5c 28 36 35 32 | 20 63 68 61 72 61 63 74 |\" \(652| charact|
|00001650| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|00001660| 2f 22 20 3e 6c 6f 6f 6b | 75 70 2e 63 20 3c 3c 27 |/" >look|up.c <<'|
|00001670| 45 4e 44 5f 4f 46 5f 6c | 6f 6f 6b 75 70 2e 63 27 |END_OF_l|ookup.c'|
|00001680| 0a 58 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 72 65 |.X#inclu|de <stre|
|00001690| 61 6d 2e 68 3e 0a 58 23 | 69 6e 63 6c 75 64 65 20 |am.h>.X#|include |
|000016a0| 3c 73 74 72 69 6e 67 2e | 68 3e 0a 58 23 69 6e 63 |<string.|h>.X#inc|
|000016b0| 6c 75 64 65 20 22 6c 6f | 6f 6b 75 70 2e 68 22 0a |lude "lo|okup.h".|
|000016c0| 58 0a 58 70 72 6f 63 20 | 6c 6f 6f 6b 75 70 3a 3a |X.Xproc |lookup::|
|000016d0| 6f 70 65 72 61 74 6f 72 | 5b 5d 28 63 6f 6e 73 74 |operator|[](const|
|000016e0| 20 63 68 61 72 20 2a 73 | 74 72 29 0a 58 20 20 7b | char *s|tr).X {|
|000016f0| 0a 58 20 20 69 6e 74 20 | 6e 3b 0a 58 20 20 65 6e |.X int |n;.X en|
|00001700| 74 72 79 0a 58 20 20 20 | 20 2a 75 70 70 65 72 20 |try.X | *upper |
|00001710| 3d 20 74 61 62 6c 65 20 | 2b 20 6d 61 78 20 2d 20 |= table |+ max - |
|00001720| 31 2c 0a 58 20 20 20 20 | 2a 6c 6f 77 65 72 20 3d |1,.X |*lower =|
|00001730| 20 74 61 62 6c 65 2c 0a | 58 20 20 20 20 2a 6d 69 | table,.|X *mi|
|00001740| 64 20 3d 20 6c 6f 77 65 | 72 20 2b 20 28 75 70 70 |d = lowe|r + (upp|
|00001750| 65 72 2d 6c 6f 77 65 72 | 29 2f 32 3b 0a 58 0a 58 |er-lower|)/2;.X.X|
|00001760| 20 66 6f 72 28 6e 3d 31 | 3b 20 6e 20 26 26 20 75 | for(n=1|; n && u|
|00001770| 70 70 65 72 20 2d 20 6c | 6f 77 65 72 20 3e 20 31 |pper - l|ower > 1|
|00001780| 3b 20 29 0a 58 20 20 20 | 20 7b 0a 58 20 20 20 20 |; ).X | {.X |
|00001790| 6e 20 3d 20 73 74 72 63 | 6d 70 28 73 74 72 2c 20 |n = strc|mp(str, |
|000017a0| 6d 69 64 2d 3e 6e 61 6d | 65 29 3b 0a 58 20 20 20 |mid->nam|e);.X |
|000017b0| 20 69 66 28 6e 20 3d 3d | 20 30 29 0a 58 20 20 20 | if(n ==| 0).X |
|000017c0| 20 20 20 75 70 70 65 72 | 20 3d 20 6c 6f 77 65 72 | upper| = lower|
|000017d0| 20 3d 20 6d 69 64 3b 0a | 58 20 20 20 20 65 6c 73 | = mid;.|X els|
|000017e0| 65 0a 58 20 20 20 20 20 | 20 7b 0a 58 20 20 20 20 |e.X | {.X |
|000017f0| 20 20 69 66 28 6e 20 3c | 20 30 29 20 75 70 70 65 | if(n <| 0) uppe|
|00001800| 72 20 3d 20 6d 69 64 3b | 0a 58 20 20 20 20 20 20 |r = mid;|.X |
|00001810| 65 6c 73 65 20 20 20 20 | 20 20 6c 6f 77 65 72 20 |else | lower |
|00001820| 3d 20 6d 69 64 3b 0a 58 | 20 20 20 20 20 20 6d 69 |= mid;.X| mi|
|00001830| 64 20 3d 20 6c 6f 77 65 | 72 20 2b 20 28 75 70 70 |d = lowe|r + (upp|
|00001840| 65 72 20 2d 20 6c 6f 77 | 65 72 29 2f 32 3b 0a 58 |er - low|er)/2;.X|
|00001850| 20 20 20 20 20 20 7d 0a | 58 20 20 20 20 7d 0a 58 | }.|X }.X|
|00001860| 0a 58 20 20 69 66 28 6e | 20 3c 20 30 29 20 6e 20 |.X if(n| < 0) n |
|00001870| 3d 20 73 74 72 63 6d 70 | 28 73 74 72 2c 20 6d 69 |= strcmp|(str, mi|
|00001880| 64 2d 3e 6e 61 6d 65 29 | 3b 0a 58 20 20 65 6c 73 |d->name)|;.X els|
|00001890| 65 20 69 66 28 6e 20 3e | 20 30 29 0a 58 20 20 20 |e if(n >| 0).X |
|000018a0| 20 7b 0a 58 20 20 20 20 | 6d 69 64 20 3d 20 75 70 | {.X |mid = up|
|000018b0| 70 65 72 3b 0a 58 20 20 | 20 20 6e 20 3d 20 73 74 |per;.X | n = st|
|000018c0| 72 63 6d 70 28 73 74 72 | 2c 20 6d 69 64 2d 3e 6e |rcmp(str|, mid->n|
|000018d0| 61 6d 65 29 3b 0a 58 20 | 20 20 20 7d 0a 58 0a 58 |ame);.X | }.X.X|
|000018e0| 20 20 69 66 28 6e 29 20 | 72 65 74 75 72 6e 20 64 | if(n) |return d|
|000018f0| 66 6c 74 3b 20 20 20 2f | 2f 20 6e 6f 74 20 69 6e |flt; /|/ not in|
|00001900| 20 74 61 62 6c 65 0a 58 | 20 20 65 6c 73 65 20 20 | table.X| else |
|00001910| 72 65 74 75 72 6e 20 6d | 69 64 2d 3e 66 3b 20 2f |return m|id->f; /|
|00001920| 2f 20 66 6f 75 6e 64 20 | 69 74 0a 58 20 20 7d 0a |/ found |it.X }.|
|00001930| 45 4e 44 5f 4f 46 5f 6c | 6f 6f 6b 75 70 2e 63 0a |END_OF_l|ookup.c.|
|00001940| 69 66 20 74 65 73 74 20 | 36 35 32 20 2d 6e 65 20 |if test |652 -ne |
|00001950| 60 77 63 20 2d 63 20 3c | 6c 6f 6f 6b 75 70 2e 63 |`wc -c <|lookup.c|
|00001960| 60 3b 20 74 68 65 6e 0a | 20 20 20 20 65 63 68 6f |`; then.| echo|
|00001970| 20 73 68 61 72 3a 20 5c | 22 6c 6f 6f 6b 75 70 2e | shar: \|"lookup.|
|00001980| 63 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |c\" unpa|cked wit|
|00001990| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 66 69 |h wrong |size!.fi|
|000019a0| 0a 23 20 65 6e 64 20 6f | 66 20 6f 76 65 72 77 72 |.# end o|f overwr|
|000019b0| 69 74 69 6e 67 20 63 68 | 65 63 6b 0a 66 69 0a 69 |iting ch|eck.fi.i|
|000019c0| 66 20 74 65 73 74 20 2d | 66 20 6c 6f 6f 6b 75 70 |f test -|f lookup|
|000019d0| 2e 68 20 2d 61 20 22 24 | 7b 31 7d 22 20 21 3d 20 |.h -a "$|{1}" != |
|000019e0| 22 2d 63 22 20 3b 20 74 | 68 65 6e 20 0a 20 20 65 |"-c" ; t|hen . e|
|000019f0| 63 68 6f 20 73 68 61 72 | 3a 20 57 69 6c 6c 20 6e |cho shar|: Will n|
|00001a00| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|00001a10| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 5c 22 6c 6f |isting f|ile \"lo|
|00001a20| 6f 6b 75 70 2e 68 5c 22 | 0a 65 6c 73 65 0a 65 63 |okup.h\"|.else.ec|
|00001a30| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|00001a40| 69 6e 67 20 5c 22 6c 6f | 6f 6b 75 70 2e 68 5c 22 |ing \"lo|okup.h\"|
|00001a50| 20 5c 28 33 39 32 20 63 | 68 61 72 61 63 74 65 72 | \(392 c|haracter|
|00001a60| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00001a70| 20 3e 6c 6f 6f 6b 75 70 | 2e 68 20 3c 3c 27 45 4e | >lookup|.h <<'EN|
|00001a80| 44 5f 4f 46 5f 6c 6f 6f | 6b 75 70 2e 68 27 0a 58 |D_OF_loo|kup.h'.X|
|00001a90| 23 69 66 6e 64 65 66 20 | 4c 4f 4f 4b 55 50 48 0a |#ifndef |LOOKUPH.|
|00001aa0| 58 23 64 65 66 69 6e 65 | 20 4c 4f 4f 4b 55 50 48 |X#define| LOOKUPH|
|00001ab0| 0a 58 0a 58 23 64 65 66 | 69 6e 65 20 41 52 47 5f |.X.X#def|ine ARG_|
|00001ac0| 54 59 50 45 20 63 6f 6e | 73 74 20 63 68 61 72 20 |TYPE con|st char |
|00001ad0| 2a 0a 58 23 64 65 66 69 | 6e 65 20 52 45 54 5f 54 |*.X#defi|ne RET_T|
|00001ae0| 59 50 45 20 69 6e 74 0a | 58 0a 58 74 79 70 65 64 |YPE int.|X.Xtyped|
|00001af0| 65 66 20 52 45 54 5f 54 | 59 50 45 20 28 2a 70 72 |ef RET_T|YPE (*pr|
|00001b00| 6f 63 29 28 41 52 47 5f | 54 59 50 45 29 3b 0a 58 |oc)(ARG_|TYPE);.X|
|00001b10| 0a 58 73 74 72 75 63 74 | 20 65 6e 74 72 79 20 7b |.Xstruct| entry {|
|00001b20| 0a 58 09 63 6f 6e 73 74 | 20 63 68 61 72 20 2a 6e |.X.const| char *n|
|00001b30| 61 6d 65 3b 0a 58 09 70 | 72 6f 63 20 66 3b 0a 58 |ame;.X.p|roc f;.X|
|00001b40| 09 7d 3b 0a 58 0a 58 63 | 6c 61 73 73 20 6c 6f 6f |.};.X.Xc|lass loo|
|00001b50| 6b 75 70 20 7b 0a 58 09 | 65 6e 74 72 79 20 2a 74 |kup {.X.|entry *t|
|00001b60| 61 62 6c 65 3b 0a 58 09 | 70 72 6f 63 20 64 66 6c |able;.X.|proc dfl|
|00001b70| 74 3b 0a 58 09 69 6e 74 | 20 6d 61 78 3b 0a 58 70 |t;.X.int| max;.Xp|
|00001b80| 75 62 6c 69 63 3a 0a 58 | 09 6c 6f 6f 6b 75 70 28 |ublic:.X|.lookup(|
|00001b90| 65 6e 74 72 79 20 2a 74 | 29 20 7b 0a 58 09 09 64 |entry *t|) {.X..d|
|00001ba0| 66 6c 74 20 3d 20 74 2d | 3e 66 3b 0a 58 09 09 6d |flt = t-|>f;.X..m|
|00001bb0| 61 78 20 3d 20 69 6e 74 | 28 74 2d 3e 6e 61 6d 65 |ax = int|(t->name|
|00001bc0| 29 3b 0a 58 09 09 74 61 | 62 6c 65 20 3d 20 74 20 |);.X..ta|ble = t |
|00001bd0| 2b 20 31 3b 0a 58 09 09 | 7d 0a 58 09 2f 2f 20 54 |+ 1;.X..|}.X.// T|
|00001be0| 68 69 73 20 72 65 61 6c | 6c 79 20 64 6f 65 73 20 |his real|ly does |
|00001bf0| 74 61 6b 65 20 61 20 63 | 6f 6e 73 74 20 63 68 61 |take a c|onst cha|
|00001c00| 72 20 2a 0a 58 09 70 72 | 6f 63 20 6f 70 65 72 61 |r *.X.pr|oc opera|
|00001c10| 74 6f 72 5b 5d 28 63 6f | 6e 73 74 20 63 68 61 72 |tor[](co|nst char|
|00001c20| 20 2a 29 3b 0a 58 09 7d | 3b 0a 58 23 65 6e 64 69 | *);.X.}|;.X#endi|
|00001c30| 66 0a 45 4e 44 5f 4f 46 | 5f 6c 6f 6f 6b 75 70 2e |f.END_OF|_lookup.|
|00001c40| 68 0a 69 66 20 74 65 73 | 74 20 33 39 32 20 2d 6e |h.if tes|t 392 -n|
|00001c50| 65 20 60 77 63 20 2d 63 | 20 3c 6c 6f 6f 6b 75 70 |e `wc -c| <lookup|
|00001c60| 2e 68 60 3b 20 74 68 65 | 6e 0a 20 20 20 20 65 63 |.h`; the|n. ec|
|00001c70| 68 6f 20 73 68 61 72 3a | 20 5c 22 6c 6f 6f 6b 75 |ho shar:| \"looku|
|00001c80| 70 2e 68 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |p.h\" un|packed w|
|00001c90| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00001ca0| 66 69 0a 23 20 65 6e 64 | 20 6f 66 20 6f 76 65 72 |fi.# end| of over|
|00001cb0| 77 72 69 74 69 6e 67 20 | 63 68 65 63 6b 0a 66 69 |writing |check.fi|
|00001cc0| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 6c 6f 6f 6b |.if test| -f look|
|00001cd0| 75 70 32 2e 63 20 2d 61 | 20 22 24 7b 31 7d 22 20 |up2.c -a| "${1}" |
|00001ce0| 21 3d 20 22 2d 63 22 20 | 3b 20 74 68 65 6e 20 0a |!= "-c" |; then .|
|00001cf0| 20 20 65 63 68 6f 20 73 | 68 61 72 3a 20 57 69 6c | echo s|har: Wil|
|00001d00| 6c 20 6e 6f 74 20 6f 76 | 65 72 2d 77 72 69 74 65 |l not ov|er-write|
|00001d10| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00001d20| 22 6c 6f 6f 6b 75 70 32 | 2e 63 5c 22 0a 65 6c 73 |"lookup2|.c\".els|
|00001d30| 65 0a 65 63 68 6f 20 73 | 68 61 72 3a 20 45 78 74 |e.echo s|har: Ext|
|00001d40| 72 61 63 74 69 6e 67 20 | 5c 22 6c 6f 6f 6b 75 70 |racting |\"lookup|
|00001d50| 32 2e 63 5c 22 20 5c 28 | 32 36 33 20 63 68 61 72 |2.c\" \(|263 char|
|00001d60| 61 63 74 65 72 73 5c 29 | 0a 73 65 64 20 22 73 2f |acters\)|.sed "s/|
|00001d70| 5e 58 2f 2f 22 20 3e 6c | 6f 6f 6b 75 70 32 2e 63 |^X//" >l|ookup2.c|
|00001d80| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 6c 6f 6f 6b 75 | <<'END_|OF_looku|
|00001d90| 70 32 2e 63 27 0a 58 23 | 69 6e 63 6c 75 64 65 20 |p2.c'.X#|include |
|00001da0| 3c 73 74 72 65 61 6d 2e | 68 3e 0a 58 23 69 6e 63 |<stream.|h>.X#inc|
|00001db0| 6c 75 64 65 20 3c 73 74 | 72 69 6e 67 2e 68 3e 0a |lude <st|ring.h>.|
|00001dc0| 58 23 69 6e 63 6c 75 64 | 65 20 22 6c 6f 6f 6b 75 |X#includ|e "looku|
|00001dd0| 70 2e 68 22 0a 58 0a 58 | 70 72 6f 63 20 6c 6f 6f |p.h".X.X|proc loo|
|00001de0| 6b 75 70 3a 3a 6f 70 65 | 72 61 74 6f 72 5b 5d 28 |kup::ope|rator[](|
|00001df0| 63 6f 6e 73 74 20 63 68 | 61 72 20 2a 73 74 72 29 |const ch|ar *str)|
|00001e00| 0a 58 20 20 7b 0a 58 20 | 20 65 6e 74 72 79 20 2a |.X {.X | entry *|
|00001e10| 74 3d 74 61 62 6c 65 3b | 0a 58 0a 58 20 20 66 6f |t=table;|.X.X fo|
|00001e20| 72 28 3b 20 74 2d 74 61 | 62 6c 65 20 3c 20 6d 61 |r(; t-ta|ble < ma|
|00001e30| 78 3b 20 74 2b 2b 29 0a | 58 20 20 20 20 69 66 28 |x; t++).|X if(|
|00001e40| 21 73 74 72 63 6d 70 28 | 74 2d 3e 6e 61 6d 65 2c |!strcmp(|t->name,|
|00001e50| 20 73 74 72 29 29 0a 58 | 20 20 20 20 20 20 62 72 | str)).X| br|
|00001e60| 65 61 6b 3b 0a 58 0a 58 | 20 20 69 66 28 74 2d 74 |eak;.X.X| if(t-t|
|00001e70| 61 62 6c 65 3c 6d 61 78 | 29 20 72 65 74 75 72 6e |able<max|) return|
|00001e80| 20 74 2d 3e 66 3b 0a 58 | 20 20 65 6c 73 65 20 20 | t->f;.X| else |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 72 65 74 75 72 6e | | return|
|00001ea0| 20 64 66 6c 74 3b 0a 58 | 20 20 7d 0a 45 4e 44 5f | dflt;.X| }.END_|
|00001eb0| 4f 46 5f 6c 6f 6f 6b 75 | 70 32 2e 63 0a 69 66 20 |OF_looku|p2.c.if |
|00001ec0| 74 65 73 74 20 32 36 33 | 20 2d 6e 65 20 60 77 63 |test 263| -ne `wc|
|00001ed0| 20 2d 63 20 3c 6c 6f 6f | 6b 75 70 32 2e 63 60 3b | -c <loo|kup2.c`;|
|00001ee0| 20 74 68 65 6e 0a 20 20 | 20 20 65 63 68 6f 20 73 | then. | echo s|
|00001ef0| 68 61 72 3a 20 5c 22 6c | 6f 6f 6b 75 70 32 2e 63 |har: \"l|ookup2.c|
|00001f00| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|00001f10| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 66 69 0a | wrong s|ize!.fi.|
|00001f20| 23 20 65 6e 64 20 6f 66 | 20 6f 76 65 72 77 72 69 |# end of| overwri|
|00001f30| 74 69 6e 67 20 63 68 65 | 63 6b 0a 66 69 0a 69 66 |ting che|ck.fi.if|
|00001f40| 20 74 65 73 74 20 2d 66 | 20 74 65 73 74 2e 63 20 | test -f| test.c |
|00001f50| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|00001f60| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| . echo|
|00001f70| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|00001f80| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00001f90| 69 6e 67 20 66 69 6c 65 | 20 5c 22 74 65 73 74 2e |ing file| \"test.|
|00001fa0| 63 5c 22 0a 65 6c 73 65 | 0a 65 63 68 6f 20 73 68 |c\".else|.echo sh|
|00001fb0| 61 72 3a 20 45 78 74 72 | 61 63 74 69 6e 67 20 5c |ar: Extr|acting \|
|00001fc0| 22 74 65 73 74 2e 63 5c | 22 20 5c 28 38 38 32 20 |"test.c\|" \(882 |
|00001fd0| 63 68 61 72 61 63 74 65 | 72 73 5c 29 0a 73 65 64 |characte|rs\).sed|
|00001fe0| 20 22 73 2f 5e 58 2f 2f | 22 20 3e 74 65 73 74 2e | "s/^X//|" >test.|
|00001ff0| 63 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 74 65 73 74 |c <<'END|_OF_test|
|00002000| 2e 63 27 0a 58 23 69 6e | 63 6c 75 64 65 20 3c 73 |.c'.X#in|clude <s|
|00002010| 74 72 65 61 6d 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |tream.h>|.X#inclu|
|00002020| 64 65 20 3c 73 74 72 69 | 6e 67 2e 68 3e 0a 58 23 |de <stri|ng.h>.X#|
|00002030| 69 6e 63 6c 75 64 65 20 | 22 6c 6f 6f 6b 75 70 2e |include |"lookup.|
|00002040| 68 22 0a 58 0a 58 65 78 | 74 65 72 6e 20 52 45 54 |h".X.Xex|tern RET|
|00002050| 5f 54 59 50 45 0a 58 09 | 61 28 41 52 47 5f 54 59 |_TYPE.X.|a(ARG_TY|
|00002060| 50 45 29 2c 0a 58 09 62 | 28 41 52 47 5f 54 59 50 |PE),.X.b|(ARG_TYP|
|00002070| 45 29 2c 0a 58 09 63 28 | 41 52 47 5f 54 59 50 45 |E),.X.c(|ARG_TYPE|
|00002080| 29 2c 0a 58 09 68 65 6c | 70 28 41 52 47 5f 54 59 |),.X.hel|p(ARG_TY|
|00002090| 50 45 29 2c 0a 58 09 6f | 6f 70 73 28 41 52 47 5f |PE),.X.o|ops(ARG_|
|000020a0| 54 59 50 45 29 3b 0a 58 | 0a 58 65 6e 74 72 79 20 |TYPE);.X|.Xentry |
|000020b0| 6c 69 73 74 5b 5d 20 3d | 20 7b 0a 58 20 20 28 63 |list[] =| {.X (c|
|000020c0| 68 61 72 20 2a 29 34 2c | 20 26 6f 6f 70 73 2c 0a |har *)4,| &oops,.|
|000020d0| 58 20 20 22 61 63 6d 64 | 22 2c 20 26 61 2c 0a 58 |X "acmd|", &a,.X|
|000020e0| 20 20 22 62 63 6d 64 22 | 2c 20 26 62 2c 0a 58 20 | "bcmd"|, &b,.X |
|000020f0| 20 22 63 22 2c 20 26 63 | 2c 0a 58 20 20 22 68 65 | "c", &c|,.X "he|
|00002100| 6c 70 22 2c 20 26 68 65 | 6c 70 2c 0a 58 20 20 7d |lp", &he|lp,.X }|
|00002110| 3b 0a 58 0a 58 69 6e 74 | 20 6d 61 69 6e 28 69 6e |;.X.Xint| main(in|
|00002120| 74 20 61 72 67 63 2c 20 | 63 68 61 72 20 2a 61 72 |t argc, |char *ar|
|00002130| 67 76 5b 5d 29 0a 58 20 | 20 7b 0a 58 20 20 63 68 |gv[]).X | {.X ch|
|00002140| 61 72 20 2a 70 72 6f 67 | 6e 61 6d 65 20 3d 20 61 |ar *prog|name = a|
|00002150| 72 67 76 5b 30 5d 3b 0a | 58 20 20 6c 6f 6f 6b 75 |rgv[0];.|X looku|
|00002160| 70 20 63 6f 6d 6d 61 6e | 64 28 6c 69 73 74 29 3b |p comman|d(list);|
|00002170| 0a 58 20 20 63 68 61 72 | 20 77 6f 72 64 5b 32 30 |.X char| word[20|
|00002180| 30 5d 3b 20 2f 2f 20 6f | 66 20 74 79 70 65 20 41 |0]; // o|f type A|
|00002190| 52 47 5f 54 59 50 45 0a | 58 20 20 69 6e 74 20 69 |RG_TYPE.|X int i|
|000021a0| 3b 0a 58 0a 58 20 20 61 | 72 67 63 2d 2d 3b 20 2f |;.X.X a|rgc--; /|
|000021b0| 2f 20 74 6f 20 73 68 75 | 74 20 75 70 20 43 43 0a |/ to shu|t up CC.|
|000021c0| 58 0a 58 20 20 77 68 69 | 6c 65 28 63 6f 75 74 20 |X.X whi|le(cout |
|000021d0| 3c 3c 20 22 25 20 22 2c | 20 63 69 6e 20 3e 3e 20 |<< "% ",| cin >> |
|000021e0| 77 6f 72 64 20 26 26 20 | 73 74 72 63 6d 70 28 77 |word && |strcmp(w|
|000021f0| 6f 72 64 2c 20 22 71 75 | 69 74 22 29 29 0a 58 20 |ord, "qu|it")).X |
|00002200| 20 20 20 7b 0a 58 0a 58 | 20 20 20 20 2f 2f 20 4e | {.X.X| // N|
|00002210| 6f 74 65 20 74 68 61 74 | 20 69 6e 20 74 68 65 20 |ote that| in the |
|00002220| 6e 65 78 74 20 73 74 61 | 74 65 6d 65 6e 74 2c 20 |next sta|tement, |
|00002230| 77 65 20 61 72 65 20 69 | 6e 0a 58 20 20 20 20 2f |we are i|n.X /|
|00002240| 2f 20 66 61 63 74 20 73 | 61 79 69 6e 67 20 63 6f |/ fact s|aying co|
|00002250| 6d 6d 61 6e 64 5b 63 6f | 6e 73 74 20 63 68 61 72 |mmand[co|nst char|
|00002260| 20 2a 5d 28 41 52 47 5f | 54 59 50 45 29 0a 58 20 | *](ARG_|TYPE).X |
|00002270| 20 20 20 2f 2f 20 49 6e | 20 74 68 69 73 20 63 61 | // In| this ca|
|00002280| 73 65 2c 20 41 52 47 5f | 54 59 50 45 20 2a 69 73 |se, ARG_|TYPE *is|
|00002290| 2a 20 63 6f 6e 73 74 20 | 63 68 61 72 20 2a 2c 20 |* const |char *, |
|000022a0| 73 6f 20 77 65 20 0a 58 | 20 20 20 20 2f 2f 20 61 |so we .X| // a|
|000022b0| 72 65 20 6a 75 73 74 20 | 70 61 73 73 69 6e 67 20 |re just |passing |
|000022c0| 74 68 65 20 73 61 6d 65 | 20 74 68 69 6e 67 20 74 |the same| thing t|
|000022d0| 6f 20 62 6f 74 68 20 5b | 5d 20 61 6e 64 20 28 29 |o both [|] and ()|
|000022e0| 2e 0a 58 0a 58 20 20 20 | 20 69 66 28 69 20 3d 20 |..X.X | if(i = |
|000022f0| 63 6f 6d 6d 61 6e 64 5b | 77 6f 72 64 5d 28 77 6f |command[|word](wo|
|00002300| 72 64 29 29 0a 58 20 20 | 20 20 20 20 7b 0a 58 20 |rd)).X | {.X |
|00002310| 20 20 20 20 20 2f 2f 20 | 74 68 65 20 66 75 6e 63 | // |the func|
|00002320| 74 69 6f 6e 20 72 65 74 | 75 72 6e 65 64 20 61 20 |tion ret|urned a |
|00002330| 6e 6f 6e 2d 7a 65 72 6f | 20 72 65 73 75 6c 74 0a |non-zero| result.|
|00002340| 58 20 20 20 20 20 20 63 | 65 72 72 20 3c 3c 20 66 |X c|err << f|
|00002350| 6f 72 6d 28 22 25 73 3a | 20 25 73 20 72 65 74 75 |orm("%s:| %s retu|
|00002360| 72 6e 65 64 20 25 64 5c | 6e 22 2c 20 70 72 6f 67 |rned %d\|n", prog|
|00002370| 6e 61 6d 65 2c 20 77 6f | 72 64 2c 20 69 29 3b 0a |name, wo|rd, i);.|
|00002380| 58 20 20 20 20 20 20 7d | 0a 58 20 20 20 20 7d 0a |X }|.X }.|
|00002390| 58 20 20 72 65 74 75 72 | 6e 20 30 3b 0a 58 20 20 |X retur|n 0;.X |
|000023a0| 7d 0a 45 4e 44 5f 4f 46 | 5f 74 65 73 74 2e 63 0a |}.END_OF|_test.c.|
|000023b0| 69 66 20 74 65 73 74 20 | 38 38 32 20 2d 6e 65 20 |if test |882 -ne |
|000023c0| 60 77 63 20 2d 63 20 3c | 74 65 73 74 2e 63 60 3b |`wc -c <|test.c`;|
|000023d0| 20 74 68 65 6e 0a 20 20 | 20 20 65 63 68 6f 20 73 | then. | echo s|
|000023e0| 68 61 72 3a 20 5c 22 74 | 65 73 74 2e 63 5c 22 20 |har: \"t|est.c\" |
|000023f0| 75 6e 70 61 63 6b 65 64 | 20 77 69 74 68 20 77 72 |unpacked| with wr|
|00002400| 6f 6e 67 20 73 69 7a 65 | 21 0a 66 69 0a 23 20 65 |ong size|!.fi.# e|
|00002410| 6e 64 20 6f 66 20 6f 76 | 65 72 77 72 69 74 69 6e |nd of ov|erwritin|
|00002420| 67 20 63 68 65 63 6b 0a | 66 69 0a 69 66 20 74 65 |g check.|fi.if te|
|00002430| 73 74 20 2d 66 20 74 65 | 73 74 63 6d 64 2e 63 20 |st -f te|stcmd.c |
|00002440| 2d 61 20 22 24 7b 31 7d | 22 20 21 3d 20 22 2d 63 |-a "${1}|" != "-c|
|00002450| 22 20 3b 20 74 68 65 6e | 20 0a 20 20 65 63 68 6f |" ; then| . echo|
|00002460| 20 73 68 61 72 3a 20 57 | 69 6c 6c 20 6e 6f 74 20 | shar: W|ill not |
|00002470| 6f 76 65 72 2d 77 72 69 | 74 65 20 65 78 69 73 74 |over-wri|te exist|
|00002480| 69 6e 67 20 66 69 6c 65 | 20 5c 22 74 65 73 74 63 |ing file| \"testc|
|00002490| 6d 64 2e 63 5c 22 0a 65 | 6c 73 65 0a 65 63 68 6f |md.c\".e|lse.echo|
|000024a0| 20 73 68 61 72 3a 20 45 | 78 74 72 61 63 74 69 6e | shar: E|xtractin|
|000024b0| 67 20 5c 22 74 65 73 74 | 63 6d 64 2e 63 5c 22 20 |g \"test|cmd.c\" |
|000024c0| 5c 28 33 32 38 20 63 68 | 61 72 61 63 74 65 72 73 |\(328 ch|aracters|
|000024d0| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|000024e0| 3e 74 65 73 74 63 6d 64 | 2e 63 20 3c 3c 27 45 4e |>testcmd|.c <<'EN|
|000024f0| 44 5f 4f 46 5f 74 65 73 | 74 63 6d 64 2e 63 27 0a |D_OF_tes|tcmd.c'.|
|00002500| 58 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 72 65 61 |X#includ|e <strea|
|00002510| 6d 2e 68 3e 0a 58 0a 58 | 69 6e 74 20 61 28 63 6f |m.h>.X.X|int a(co|
|00002520| 6e 73 74 20 63 68 61 72 | 20 2a 73 29 0a 58 20 20 |nst char| *s).X |
|00002530| 7b 0a 58 20 20 63 6f 75 | 74 20 3c 3c 20 66 6f 72 |{.X cou|t << for|
|00002540| 6d 28 22 61 3a 20 25 73 | 5c 6e 22 2c 20 73 29 3b |m("a: %s|\n", s);|
|00002550| 0a 58 20 20 72 65 74 75 | 72 6e 20 30 3b 0a 58 20 |.X retu|rn 0;.X |
|00002560| 20 7d 0a 58 0a 58 69 6e | 74 20 62 28 63 6f 6e 73 | }.X.Xin|t b(cons|
|00002570| 74 20 63 68 61 72 20 2a | 73 29 0a 58 20 20 7b 0a |t char *|s).X {.|
|00002580| 58 20 20 63 6f 75 74 20 | 3c 3c 20 66 6f 72 6d 28 |X cout |<< form(|
|00002590| 22 62 3a 20 25 73 5c 6e | 22 2c 20 73 29 3b 0a 58 |"b: %s\n|", s);.X|
|000025a0| 20 20 72 65 74 75 72 6e | 20 30 3b 0a 58 20 20 7d | return| 0;.X }|
|000025b0| 0a 58 0a 58 69 6e 74 20 | 63 28 63 6f 6e 73 74 20 |.X.Xint |c(const |
|000025c0| 63 68 61 72 20 2a 73 29 | 0a 58 20 20 7b 0a 58 20 |char *s)|.X {.X |
|000025d0| 20 63 6f 75 74 20 3c 3c | 20 66 6f 72 6d 28 22 63 | cout <<| form("c|
|000025e0| 3a 20 25 73 5c 6e 22 2c | 20 73 29 3b 0a 58 20 20 |: %s\n",| s);.X |
|000025f0| 72 65 74 75 72 6e 20 30 | 3b 0a 58 20 20 7d 0a 58 |return 0|;.X }.X|
|00002600| 0a 58 69 6e 74 20 6f 6f | 70 73 28 63 6f 6e 73 74 |.Xint oo|ps(const|
|00002610| 20 63 68 61 72 20 2a 73 | 29 0a 58 20 20 7b 0a 58 | char *s|).X {.X|
|00002620| 20 20 63 6f 75 74 20 3c | 3c 20 66 6f 72 6d 28 22 | cout <|< form("|
|00002630| 63 6f 6d 6d 61 6e 64 20 | 25 73 20 75 6e 61 76 61 |command |%s unava|
|00002640| 69 6c 61 62 6c 65 5c 6e | 22 2c 20 73 29 3b 0a 58 |ilable\n|", s);.X|
|00002650| 20 20 72 65 74 75 72 6e | 20 30 3b 0a 58 20 20 7d | return| 0;.X }|
|00002660| 0a 45 4e 44 5f 4f 46 5f | 74 65 73 74 63 6d 64 2e |.END_OF_|testcmd.|
|00002670| 63 0a 69 66 20 74 65 73 | 74 20 33 32 38 20 2d 6e |c.if tes|t 328 -n|
|00002680| 65 20 60 77 63 20 2d 63 | 20 3c 74 65 73 74 63 6d |e `wc -c| <testcm|
|00002690| 64 2e 63 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |d.c`; th|en. e|
|000026a0| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 74 65 73 74 |cho shar|: \"test|
|000026b0| 63 6d 64 2e 63 5c 22 20 | 75 6e 70 61 63 6b 65 64 |cmd.c\" |unpacked|
|000026c0| 20 77 69 74 68 20 77 72 | 6f 6e 67 20 73 69 7a 65 | with wr|ong size|
|000026d0| 21 0a 66 69 0a 23 20 65 | 6e 64 20 6f 66 20 6f 76 |!.fi.# e|nd of ov|
|000026e0| 65 72 77 72 69 74 69 6e | 67 20 63 68 65 63 6b 0a |erwritin|g check.|
|000026f0| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 74 65 |fi.if te|st -f te|
|00002700| 73 74 68 65 6c 70 2e 63 | 20 2d 61 20 22 24 7b 31 |sthelp.c| -a "${1|
|00002710| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00002720| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n . ech|o shar: |
|00002730| 57 69 6c 6c 20 6e 6f 74 | 20 6f 76 65 72 2d 77 72 |Will not| over-wr|
|00002740| 69 74 65 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ite exis|ting fil|
|00002750| 65 20 5c 22 74 65 73 74 | 68 65 6c 70 2e 63 5c 22 |e \"test|help.c\"|
|00002760| 0a 65 6c 73 65 0a 65 63 | 68 6f 20 73 68 61 72 3a |.else.ec|ho shar:|
|00002770| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 74 65 | Extract|ing \"te|
|00002780| 73 74 68 65 6c 70 2e 63 | 5c 22 20 5c 28 33 34 31 |sthelp.c|\" \(341|
|00002790| 20 63 68 61 72 61 63 74 | 65 72 73 5c 29 0a 73 65 | charact|ers\).se|
|000027a0| 64 20 22 73 2f 5e 58 2f | 2f 22 20 3e 74 65 73 74 |d "s/^X/|/" >test|
|000027b0| 68 65 6c 70 2e 63 20 3c | 3c 27 45 4e 44 5f 4f 46 |help.c <|<'END_OF|
|000027c0| 5f 74 65 73 74 68 65 6c | 70 2e 63 27 0a 58 23 69 |_testhel|p.c'.X#i|
|000027d0| 6e 63 6c 75 64 65 20 3c | 73 74 72 65 61 6d 2e 68 |nclude <|stream.h|
|000027e0| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 22 6c 6f 6f |>.X#incl|ude "loo|
|000027f0| 6b 75 70 2e 68 22 0a 58 | 0a 58 65 78 74 65 72 6e |kup.h".X|.Xextern|
|00002800| 20 65 6e 74 72 79 20 6c | 69 73 74 5b 5d 3b 0a 58 | entry l|ist[];.X|
|00002810| 0a 58 69 6e 74 20 68 65 | 6c 70 28 63 6f 6e 73 74 |.Xint he|lp(const|
|00002820| 20 63 68 61 72 20 2a 73 | 29 0a 58 20 20 7b 0a 58 | char *s|).X {.X|
|00002830| 20 20 65 6e 74 72 79 20 | 2a 74 20 3d 20 6c 69 73 | entry |*t = lis|
|00002840| 74 3b 0a 58 0a 58 20 20 | 28 76 6f 69 64 29 20 73 |t;.X.X |(void) s|
|00002850| 3b 20 2f 2f 20 22 75 73 | 65 22 20 73 20 73 6f 20 |; // "us|e" s so |
|00002860| 74 68 61 74 20 43 43 20 | 77 6f 6e 27 74 20 63 6f |that CC |won't co|
|00002870| 6d 70 6c 61 69 6e 0a 58 | 20 20 63 6f 75 74 20 3c |mplain.X| cout <|
|00002880| 3c 20 22 41 76 61 69 6c | 61 62 6c 65 20 63 6f 6d |< "Avail|able com|
|00002890| 6d 61 6e 64 73 3a 5c 6e | 5c 6e 22 3b 0a 58 20 20 |mands:\n|\n";.X |
|000028a0| 63 6f 75 74 20 3c 3c 20 | 22 71 75 69 74 5c 74 22 |cout << |"quit\t"|
|000028b0| 3b 0a 58 0a 58 20 20 66 | 6f 72 28 69 6e 74 20 6d |;.X.X f|or(int m|
|000028c0| 61 78 3d 31 2b 69 6e 74 | 28 28 74 2b 2b 29 2d 3e |ax=1+int|((t++)->|
|000028d0| 6e 61 6d 65 29 3b 20 74 | 2d 6c 69 73 74 20 3c 20 |name); t|-list < |
|000028e0| 6d 61 78 3b 20 74 2b 2b | 29 0a 58 20 20 20 20 63 |max; t++|).X c|
|000028f0| 6f 75 74 20 3c 3c 20 66 | 6f 72 6d 28 22 25 73 5c |out << f|orm("%s\|
|00002900| 74 22 2c 20 74 2d 3e 6e | 61 6d 65 29 3b 0a 58 0a |t", t->n|ame);.X.|
|00002910| 58 20 20 63 6f 75 74 2e | 70 75 74 28 27 5c 6e 27 |X cout.|put('\n'|
|00002920| 29 3b 0a 58 20 20 72 65 | 74 75 72 6e 20 30 3b 0a |);.X re|turn 0;.|
|00002930| 58 20 20 7d 0a 45 4e 44 | 5f 4f 46 5f 74 65 73 74 |X }.END|_OF_test|
|00002940| 68 65 6c 70 2e 63 0a 69 | 66 20 74 65 73 74 20 33 |help.c.i|f test 3|
|00002950| 34 31 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 74 |41 -ne `|wc -c <t|
|00002960| 65 73 74 68 65 6c 70 2e | 63 60 3b 20 74 68 65 6e |esthelp.|c`; then|
|00002970| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |. ech|o shar: |
|00002980| 5c 22 74 65 73 74 68 65 | 6c 70 2e 63 5c 22 20 75 |\"testhe|lp.c\" u|
|00002990| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|000029a0| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|000029b0| 64 20 6f 66 20 6f 76 65 | 72 77 72 69 74 69 6e 67 |d of ove|rwriting|
|000029c0| 20 63 68 65 63 6b 0a 66 | 69 0a 65 63 68 6f 20 73 | check.f|i.echo s|
|000029d0| 68 61 72 3a 20 45 6e 64 | 20 6f 66 20 73 68 65 6c |har: End| of shel|
|000029e0| 6c 20 61 72 63 68 69 76 | 65 2e 0a 65 78 69 74 20 |l archiv|e..exit |
|000029f0| 30 0a 2d 2d 20 0a 52 65 | 69 64 20 45 6c 6c 69 73 |0.-- .Re|id Ellis|
|00002a00| 2c 20 67 65 61 63 6c 69 | 62 21 72 61 65 40 67 65 |, geacli|b!rae@ge|
|00002a10| 61 63 2e 75 75 63 70 2c | 20 72 61 65 40 67 65 61 |ac.uucp,| rae@gea|
|00002a20| 63 6c 69 62 2e 75 75 63 | 70 20 5b 69 66 20 79 6f |clib.uuc|p [if yo|
|00002a30| 75 27 72 65 20 6c 75 63 | 6b 79 5d 0a 0a 0a |u're luc|ky]... |
+--------+-------------------------+-------------------------+--------+--------+