/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume28 / crc16 / part01

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 6d 69 73 63 0a 46 72 |.sources|.misc.Fr|
|00000020| 6f 6d 3a 20 68 65 6e 64 | 72 69 6b 40 76 65 64 67 |om: hend|rik@vedg|
|00000030| 65 2e 55 55 43 50 20 28 | 48 65 6e 64 72 69 6b 20 |e.UUCP (|Hendrik |
|00000040| 42 6f 6f 6d 29 0a 53 75 | 62 6a 65 63 74 3a 20 20 |Boom).Su|bject:  |
|00000050| 76 32 38 69 31 30 32 3a | 20 20 63 72 63 31 36 20 |v28i102:|  crc16 |
|00000060| 2d 20 47 65 6e 65 72 61 | 74 65 20 31 36 2d 62 69 |- Genera|te 16-bi|
|00000070| 74 20 43 52 43 20 63 68 | 65 63 6b 73 75 6d 73 2c |t CRC ch|ecksums,|
|00000080| 20 50 61 72 74 30 31 2f | 30 31 0a 4d 65 73 73 61 | Part01/|01.Messa|
|00000090| 67 65 2d 49 44 3a 20 3c | 31 39 39 32 4d 61 72 31 |ge-ID: <|1992Mar1|
|000000a0| 34 2e 32 32 33 39 32 39 | 2e 35 31 35 33 40 73 70 |4.223929|.5153@sp|
|000000b0| 61 72 6b 79 2e 69 6d 64 | 2e 73 74 65 72 6c 69 6e |arky.imd|.sterlin|
|000000c0| 67 2e 63 6f 6d 3e 0a 58 | 2d 4d 64 34 2d 53 69 67 |g.com>.X|-Md4-Sig|
|000000d0| 6e 61 74 75 72 65 3a 20 | 31 64 31 66 31 37 34 66 |nature: |1d1f174f|
|000000e0| 30 66 64 34 32 34 33 31 | 32 64 65 38 32 66 31 66 |0fd42431|2de82f1f|
|000000f0| 61 33 65 39 64 35 35 66 | 0a 44 61 74 65 3a 20 53 |a3e9d55f|.Date: S|
|00000100| 61 74 2c 20 31 34 20 4d | 61 72 20 31 39 39 32 20 |at, 14 M|ar 1992 |
|00000110| 32 32 3a 33 39 3a 32 39 | 20 47 4d 54 0a 41 70 70 |22:39:29| GMT.App|
|00000120| 72 6f 76 65 64 3a 20 6b | 65 6e 74 40 73 70 61 72 |roved: k|ent@spar|
|00000130| 6b 79 2e 69 6d 64 2e 73 | 74 65 72 6c 69 6e 67 2e |ky.imd.s|terling.|
|00000140| 63 6f 6d 0a 0a 53 75 62 | 6d 69 74 74 65 64 2d 62 |com..Sub|mitted-b|
|00000150| 79 3a 20 68 65 6e 64 72 | 69 6b 40 76 65 64 67 65 |y: hendr|ik@vedge|
|00000160| 2e 55 55 43 50 20 28 48 | 65 6e 64 72 69 6b 20 42 |.UUCP (H|endrik B|
|00000170| 6f 6f 6d 29 0a 50 6f 73 | 74 69 6e 67 2d 6e 75 6d |oom).Pos|ting-num|
|00000180| 62 65 72 3a 20 56 6f 6c | 75 6d 65 20 32 38 2c 20 |ber: Vol|ume 28, |
|00000190| 49 73 73 75 65 20 31 30 | 32 0a 41 72 63 68 69 76 |Issue 10|2.Archiv|
|000001a0| 65 2d 6e 61 6d 65 3a 20 | 63 72 63 31 36 2f 70 61 |e-name: |crc16/pa|
|000001b0| 72 74 30 31 0a 45 6e 76 | 69 72 6f 6e 6d 65 6e 74 |rt01.Env|ironment|
|000001c0| 3a 20 55 4e 49 58 2c 20 | 41 6d 69 67 61 0a 0a 49 |: UNIX, |Amiga..I|
|000001d0| 20 77 72 6f 74 65 20 74 | 68 69 73 20 61 20 66 65 | wrote t|his a fe|
|000001e0| 77 20 79 65 61 72 73 20 | 61 67 6f 2e 20 49 74 27 |w years |ago. It'|
|000001f0| 73 20 75 73 65 66 75 6c | 20 66 6f 72 20 63 68 65 |s useful| for che|
|00000200| 63 6b 69 6e 67 20 74 68 | 61 74 20 66 69 6c 65 20 |cking th|at file |
|00000210| 74 72 61 6e 73 66 65 72 | 73 0a 77 6f 72 6b 20 70 |transfer|s.work p|
|00000220| 72 6f 70 65 72 6c 79 2e | 0a 0a 48 6f 77 20 74 6f |roperly.|..How to|
|00000230| 20 75 73 65 20 69 74 3f | 0a 53 61 79 0a 09 63 72 | use it?|.Say..cr|
|00000240| 63 20 20 66 69 6c 65 6e | 61 6d 65 73 0a 61 6e 64 |c  filen|ames.and|
|00000250| 20 67 65 74 20 63 72 63 | 20 63 68 65 63 6b 20 76 | get crc| check v|
|00000260| 61 6c 75 65 73 20 66 6f | 72 20 74 68 65 20 66 69 |alues fo|r the fi|
|00000270| 6c 65 73 20 6f 6e 20 73 | 74 61 6e 64 61 72 64 20 |les on s|tandard |
|00000280| 6f 75 74 70 75 74 2c 20 | 69 6e 20 68 65 78 20 61 |output, |in hex a|
|00000290| 6e 64 20 64 65 63 69 6d | 61 6c 2e 0a 0a 49 74 20 |nd decim|al...It |
|000002a0| 75 73 65 73 20 74 68 65 | 20 43 43 49 54 54 20 31 |uses the| CCITT 1|
|000002b0| 36 2d 62 69 74 20 43 52 | 43 20 70 6f 6c 79 6e 6f |6-bit CR|C polyno|
|000002c0| 6d 69 61 6c 2e 0a 0a 09 | 2d 2d 20 68 65 6e 64 72 |mial....|-- hendr|
|000002d0| 69 6b 2e 0a 2d 2d 2d 2d | 0a 23 21 20 2f 62 69 6e |ik..----|.#! /bin|
|000002e0| 2f 73 68 0a 23 20 54 68 | 69 73 20 69 73 20 61 20 |/sh.# Th|is is a |
|000002f0| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 20 20 |shell ar|chive.  |
|00000300| 52 65 6d 6f 76 65 20 61 | 6e 79 74 68 69 6e 67 20 |Remove a|nything |
|00000310| 62 65 66 6f 72 65 20 74 | 68 69 73 20 6c 69 6e 65 |before t|his line|
|00000320| 2c 20 74 68 65 6e 20 66 | 65 65 64 20 69 74 0a 23 |, then f|eed it.#|
|00000330| 20 69 6e 74 6f 20 61 20 | 73 68 65 6c 6c 20 76 69 | into a |shell vi|
|00000340| 61 20 22 73 68 20 66 69 | 6c 65 22 20 6f 72 20 73 |a "sh fi|le" or s|
|00000350| 69 6d 69 6c 61 72 2e 20 | 20 54 6f 20 6f 76 65 72 |imilar. | To over|
|00000360| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00000370| 69 6c 65 73 2c 0a 23 20 | 74 79 70 65 20 22 73 68 |iles,.# |type "sh|
|00000380| 20 66 69 6c 65 20 2d 63 | 22 2e 0a 23 20 54 68 65 | file -c|"..# The|
|00000390| 20 74 6f 6f 6c 20 74 68 | 61 74 20 67 65 6e 65 72 | tool th|at gener|
|000003a0| 61 74 65 64 20 74 68 69 | 73 20 61 70 70 65 61 72 |ated thi|s appear|
|000003b0| 65 64 20 69 6e 20 74 68 | 65 20 63 6f 6d 70 2e 73 |ed in th|e comp.s|
|000003c0| 6f 75 72 63 65 73 2e 75 | 6e 69 78 20 6e 65 77 73 |ources.u|nix news|
|000003d0| 67 72 6f 75 70 3b 0a 23 | 20 73 65 6e 64 20 6d 61 |group;.#| send ma|
|000003e0| 69 6c 20 74 6f 20 63 6f | 6d 70 2d 73 6f 75 72 63 |il to co|mp-sourc|
|000003f0| 65 73 2d 75 6e 69 78 40 | 75 75 6e 65 74 2e 75 75 |es-unix@|uunet.uu|
|00000400| 2e 6e 65 74 20 69 66 20 | 79 6f 75 20 77 61 6e 74 |.net if |you want|
|00000410| 20 74 68 61 74 20 74 6f | 6f 6c 2e 0a 23 20 43 6f | that to|ol..# Co|
|00000420| 6e 74 65 6e 74 73 3a 20 | 20 63 72 63 2e 63 20 63 |ntents: | crc.c c|
|00000430| 72 63 2e 6d 61 6b 65 66 | 69 6c 65 20 6d 61 6b 65 |rc.makef|ile make|
|00000440| 5f 63 72 63 5f 74 61 62 | 2e 63 0a 23 20 57 72 61 |_crc_tab|.c.# Wra|
|00000450| 70 70 65 64 20 62 79 20 | 6b 65 6e 74 40 73 70 61 |pped by |kent@spa|
|00000460| 72 6b 79 20 6f 6e 20 53 | 61 74 20 4d 61 72 20 31 |rky on S|at Mar 1|
|00000470| 34 20 31 36 3a 33 32 3a | 33 35 20 31 39 39 32 0a |4 16:32:|35 1992.|
|00000480| 50 41 54 48 3d 2f 62 69 | 6e 3a 2f 75 73 72 2f 62 |PATH=/bi|n:/usr/b|
|00000490| 69 6e 3a 2f 75 73 72 2f | 75 63 62 20 3b 20 65 78 |in:/usr/|ucb ; ex|
|000004a0| 70 6f 72 74 20 50 41 54 | 48 0a 65 63 68 6f 20 49 |port PAT|H.echo I|
|000004b0| 66 20 74 68 69 73 20 61 | 72 63 68 69 76 65 20 69 |f this a|rchive i|
|000004c0| 73 20 63 6f 6d 70 6c 65 | 74 65 2c 20 79 6f 75 20 |s comple|te, you |
|000004d0| 77 69 6c 6c 20 73 65 65 | 20 74 68 65 20 66 6f 6c |will see| the fol|
|000004e0| 6c 6f 77 69 6e 67 20 6d | 65 73 73 61 67 65 3a 0a |lowing m|essage:.|
|000004f0| 65 63 68 6f 20 27 20 20 | 20 20 20 20 20 20 20 20 |echo '  |        |
|00000500| 22 73 68 61 72 3a 20 45 | 6e 64 20 6f 66 20 61 72 |"shar: E|nd of ar|
|00000510| 63 68 69 76 65 20 31 20 | 28 6f 66 20 31 29 2e 22 |chive 1 |(of 1)."|
|00000520| 27 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 63 72 |'.if tes|t -f 'cr|
|00000530| 63 2e 63 27 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |c.c' -a |"${1}" !|
|00000540| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|00000550| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|00000560| 20 6e 6f 74 20 63 6c 6f | 62 62 65 72 20 65 78 69 | not clo|bber exi|
|00000570| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 27 63 72 |sting fi|le \"'cr|
|00000580| 63 2e 63 27 5c 22 0a 65 | 6c 73 65 0a 20 20 65 63 |c.c'\".e|lse.  ec|
|00000590| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|000005a0| 69 6e 67 20 5c 22 27 63 | 72 63 2e 63 27 5c 22 20 |ing \"'c|rc.c'\" |
|000005b0| 5c 28 31 30 38 37 20 63 | 68 61 72 61 63 74 65 72 |\(1087 c|haracter|
|000005c0| 73 5c 29 0a 20 20 73 65 | 64 20 22 73 2f 5e 58 2f |s\).  se|d "s/^X/|
|000005d0| 2f 22 20 3e 27 63 72 63 | 2e 63 27 20 3c 3c 27 45 |/" >'crc|.c' <<'E|
|000005e0| 4e 44 5f 4f 46 5f 46 49 | 4c 45 27 0a 58 2f 2a 20 |ND_OF_FI|LE'.X/* |
|000005f0| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 72 6f |The foll|owing ro|
|00000600| 75 74 69 6e 65 73 20 63 | 61 6e 20 62 65 20 75 73 |utines c|an be us|
|00000610| 65 64 20 74 6f 20 69 6e | 74 65 72 70 72 65 74 20 |ed to in|terpret |
|00000620| 74 68 65 20 63 72 63 5f | 74 61 62 6c 65 2e 0a 58 |the crc_|table..X|
|00000630| 20 20 46 69 72 73 74 20 | 75 73 65 20 69 6e 69 74 |  First |use init|
|00000640| 5f 63 72 63 3b 20 74 68 | 65 6e 20 61 64 64 5f 63 |_crc; th|en add_c|
|00000650| 72 63 20 66 6f 72 20 65 | 61 63 68 20 63 68 61 72 |rc for e|ach char|
|00000660| 61 63 74 65 72 2c 20 66 | 72 6f 6d 0a 58 20 20 66 |acter, f|rom.X  f|
|00000670| 69 72 73 74 20 74 6f 20 | 6c 61 73 74 3b 20 61 6e |irst to |last; an|
|00000680| 64 20 66 69 6e 61 6c 6c | 79 2c 20 61 73 20 72 65 |d finall|y, as re|
|00000690| 70 6f 72 74 5f 63 72 63 | 20 74 6f 20 79 69 65 6c |port_crc| to yiel|
|000006a0| 64 20 74 68 65 0a 58 20 | 20 72 65 73 75 6c 74 2e |d the.X | result.|
|000006b0| 20 49 74 20 69 73 20 70 | 72 6f 62 61 62 6c 79 20 | It is p|robably |
|000006c0| 6d 75 63 68 20 6d 6f 72 | 65 20 63 6f 6e 76 65 6e |much mor|e conven|
|000006d0| 69 65 6e 74 20 74 6f 20 | 63 6f 64 65 20 74 68 65 |ient to |code the|
|000006e0| 73 65 0a 58 20 20 72 6f | 75 74 69 6e 65 73 20 69 |se.X  ro|utines i|
|000006f0| 6e 6c 69 6e 65 3b 20 74 | 68 69 73 20 66 69 6c 65 |nline; t|his file|
|00000700| 20 73 65 72 76 65 73 20 | 70 72 69 6d 61 72 69 6c | serves |primaril|
|00000710| 79 20 61 73 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |y as doc|umentati|
|00000720| 6f 6e 2e 20 2a 2f 0a 58 | 23 69 6e 63 6c 75 64 65 |on. */.X|#include|
|00000730| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 23 69 6e 63 | <stdio.|h>.X#inc|
|00000740| 6c 75 64 65 20 22 63 72 | 63 5f 74 61 62 2e 68 22 |lude "cr|c_tab.h"|
|00000750| 0a 58 0a 58 73 74 61 74 | 69 63 20 75 6e 73 69 67 |.X.Xstat|ic unsig|
|00000760| 6e 65 64 20 73 68 6f 72 | 74 20 63 72 63 3b 0a 58 |ned shor|t crc;.X|
|00000770| 0a 58 76 6f 69 64 20 69 | 6e 69 74 5f 63 72 63 28 |.Xvoid i|nit_crc(|
|00000780| 29 7b 63 72 63 20 3d 20 | 30 3b 7d 0a 58 0a 58 76 |){crc = |0;}.X.Xv|
|00000790| 6f 69 64 20 61 64 64 5f | 63 72 63 28 63 29 20 75 |oid add_|crc(c) u|
|000007a0| 6e 73 69 67 6e 65 64 20 | 63 68 61 72 20 63 3b 0a |nsigned |char c;.|
|000007b0| 58 20 20 7b 63 72 63 20 | 3d 20 63 72 63 5f 74 61 |X  {crc |= crc_ta|
|000007c0| 62 6c 65 5b 28 63 72 63 | 20 26 20 30 78 30 30 66 |ble[(crc| & 0x00f|
|000007d0| 66 29 20 5e 20 63 5d 20 | 5e 20 28 63 72 63 20 3e |f) ^ c] |^ (crc >|
|000007e0| 3e 20 38 29 3b 0a 58 20 | 20 7d 0a 58 0a 58 75 6e |> 8);.X | }.X.Xun|
|000007f0| 73 69 67 6e 65 64 20 73 | 68 6f 72 74 20 72 65 70 |signed s|hort rep|
|00000800| 6f 72 74 5f 63 72 63 28 | 29 7b 72 65 74 75 72 6e |ort_crc(|){return|
|00000810| 20 63 72 63 3b 7d 0a 58 | 0a 58 76 6f 69 64 20 63 | crc;}.X|.Xvoid c|
|00000820| 72 63 66 69 6c 65 28 6e | 61 6d 65 29 63 68 61 72 |rcfile(n|ame)char|
|00000830| 20 2a 6e 61 6d 65 3b 0a | 58 20 7b 46 49 4c 45 20 | *name;.|X {FILE |
|00000840| 2a 66 3b 20 69 6e 74 20 | 63 3b 20 75 6e 73 69 67 |*f; int |c; unsig|
|00000850| 6e 65 64 20 73 68 6f 72 | 74 20 63 6b 3b 0a 58 20 |ned shor|t ck;.X |
|00000860| 20 70 72 69 6e 74 66 28 | 22 63 72 63 20 25 73 20 | printf(|"crc %s |
|00000870| 22 2c 20 6e 61 6d 65 29 | 3b 0a 58 20 20 66 20 3d |", name)|;.X  f =|
|00000880| 20 66 6f 70 65 6e 28 6e | 61 6d 65 2c 20 22 72 62 | fopen(n|ame, "rb|
|00000890| 22 29 3b 0a 58 20 20 69 | 66 28 21 20 66 29 7b 70 |");.X  i|f(! f){p|
|000008a0| 72 69 6e 74 66 28 22 63 | 61 6e 6e 6f 74 20 66 69 |rintf("c|annot fi|
|000008b0| 6e 64 20 25 73 5c 6e 22 | 2c 20 6e 61 6d 65 29 3b |nd %s\n"|, name);|
|000008c0| 20 72 65 74 75 72 6e 3b | 7d 0a 58 20 20 69 6e 69 | return;|}.X  ini|
|000008d0| 74 5f 63 72 63 28 29 3b | 0a 58 20 20 77 68 69 6c |t_crc();|.X  whil|
|000008e0| 65 28 28 63 20 3d 20 67 | 65 74 63 28 66 29 29 20 |e((c = g|etc(f)) |
|000008f0| 3e 3d 20 30 29 7b 61 64 | 64 5f 63 72 63 28 63 29 |>= 0){ad|d_crc(c)|
|00000900| 3b 7d 0a 58 20 20 63 6b | 20 3d 20 20 72 65 70 6f |;}.X  ck| =  repo|
|00000910| 72 74 5f 63 72 63 28 29 | 3b 0a 58 23 69 66 64 65 |rt_crc()|;.X#ifde|
|00000920| 66 20 41 4d 49 47 41 0a | 58 20 20 70 72 69 6e 74 |f AMIGA.|X  print|
|00000930| 66 28 22 30 78 25 78 20 | 25 64 5c 6e 22 2c 20 63 |f("0x%x |%d\n", c|
|00000940| 6b 2c 20 63 6b 29 3b 0a | 58 23 65 6c 73 65 0a 58 |k, ck);.|X#else.X|
|00000950| 20 20 70 72 69 6e 74 66 | 28 22 25 23 2e 34 78 20 |  printf|("%#.4x |
|00000960| 25 64 5c 6e 22 2c 20 63 | 6b 2c 20 63 6b 29 3b 0a |%d\n", c|k, ck);.|
|00000970| 58 23 65 6e 64 69 66 0a | 58 20 20 66 63 6c 6f 73 |X#endif.|X  fclos|
|00000980| 65 28 66 29 3b 0a 58 20 | 20 72 65 74 75 72 6e 3b |e(f);.X | return;|
|00000990| 0a 58 20 7d 0a 58 0a 58 | 76 6f 69 64 20 6d 61 69 |.X }.X.X|void mai|
|000009a0| 6e 28 61 72 67 63 2c 20 | 61 72 67 76 29 69 6e 74 |n(argc, |argv)int|
|000009b0| 20 61 72 67 63 3b 20 63 | 68 61 72 20 2a 61 72 67 | argc; c|har *arg|
|000009c0| 76 5b 5d 3b 0a 58 20 7b | 69 6e 74 20 69 3b 20 63 |v[];.X {|int i; c|
|000009d0| 68 61 72 20 2a 2a 63 3b | 0a 58 20 20 69 66 28 61 |har **c;|.X  if(a|
|000009e0| 72 67 63 20 3c 20 32 29 | 7b 70 72 69 6e 74 66 28 |rgc < 2)|{printf(|
|000009f0| 22 63 72 63 20 66 69 6c | 65 6e 61 6d 65 73 5c 6e |"crc fil|enames\n|
|00000a00| 22 29 3b 20 65 78 69 74 | 28 31 29 3b 7d 0a 58 20 |"); exit|(1);}.X |
|00000a10| 20 63 20 3d 20 26 28 61 | 72 67 76 5b 31 5d 29 3b | c = &(a|rgv[1]);|
|00000a20| 20 69 3d 61 72 67 63 3b | 0a 58 20 20 77 68 69 6c | i=argc;|.X  whil|
|00000a30| 65 28 2d 2d 69 29 63 72 | 63 66 69 6c 65 28 2a 63 |e(--i)cr|cfile(*c|
|00000a40| 2b 2b 29 3b 0a 58 20 20 | 65 78 69 74 28 30 29 3b |++);.X  |exit(0);|
|00000a50| 0a 58 20 7d 0a 45 4e 44 | 5f 4f 46 5f 46 49 4c 45 |.X }.END|_OF_FILE|
|00000a60| 0a 20 20 69 66 20 74 65 | 73 74 20 31 30 38 37 20 |.  if te|st 1087 |
|00000a70| 2d 6e 65 20 60 77 63 20 | 2d 63 20 3c 27 63 72 63 |-ne `wc |-c <'crc|
|00000a80| 2e 63 27 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |.c'`; th|en.    e|
|00000a90| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 27 63 72 63 |cho shar|: \"'crc|
|00000aa0| 2e 63 27 5c 22 20 75 6e | 70 61 63 6b 65 64 20 77 |.c'\" un|packed w|
|00000ab0| 69 74 68 20 77 72 6f 6e | 67 20 73 69 7a 65 21 0a |ith wron|g size!.|
|00000ac0| 20 20 66 69 0a 20 20 23 | 20 65 6e 64 20 6f 66 20 |  fi.  #| end of |
|00000ad0| 27 63 72 63 2e 63 27 0a | 66 69 0a 69 66 20 74 65 |'crc.c'.|fi.if te|
|00000ae0| 73 74 20 2d 66 20 27 63 | 72 63 2e 6d 61 6b 65 66 |st -f 'c|rc.makef|
|00000af0| 69 6c 65 27 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |ile' -a |"${1}" !|
|00000b00| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|00000b10| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|00000b20| 20 6e 6f 74 20 63 6c 6f | 62 62 65 72 20 65 78 69 | not clo|bber exi|
|00000b30| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 27 63 72 |sting fi|le \"'cr|
|00000b40| 63 2e 6d 61 6b 65 66 69 | 6c 65 27 5c 22 0a 65 6c |c.makefi|le'\".el|
|00000b50| 73 65 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |se.  ech|o shar: |
|00000b60| 45 78 74 72 61 63 74 69 | 6e 67 20 5c 22 27 63 72 |Extracti|ng \"'cr|
|00000b70| 63 2e 6d 61 6b 65 66 69 | 6c 65 27 5c 22 20 5c 28 |c.makefi|le'\" \(|
|00000b80| 32 31 31 20 63 68 61 72 | 61 63 74 65 72 73 5c 29 |211 char|acters\)|
|00000b90| 0a 20 20 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |.  sed "|s/^X//" |
|00000ba0| 3e 27 63 72 63 2e 6d 61 | 6b 65 66 69 6c 65 27 20 |>'crc.ma|kefile' |
|00000bb0| 3c 3c 27 45 4e 44 5f 4f | 46 5f 46 49 4c 45 27 0a |<<'END_O|F_FILE'.|
|00000bc0| 58 24 28 53 59 53 54 59 | 50 45 29 2f 6d 61 6b 65 |X$(SYSTY|PE)/make|
|00000bd0| 5f 63 72 63 5f 74 61 62 | 20 3a 20 6d 61 6b 65 5f |_crc_tab| : make_|
|00000be0| 63 72 63 5f 74 61 62 2e | 63 0a 58 09 63 63 20 6d |crc_tab.|c.X.cc m|
|00000bf0| 61 6b 65 5f 63 72 63 5f | 74 61 62 2e 63 20 2d 6f |ake_crc_|tab.c -o|
|00000c00| 20 24 28 53 59 53 54 59 | 50 45 29 2f 6d 61 6b 65 | $(SYSTY|PE)/make|
|00000c10| 5f 63 72 63 5f 74 61 62 | 0a 58 63 72 63 5f 74 61 |_crc_tab|.Xcrc_ta|
|00000c20| 62 2e 68 20 3a 20 6d 61 | 6b 65 5f 63 72 63 5f 74 |b.h : ma|ke_crc_t|
|00000c30| 61 62 0a 58 09 2e 2f 24 | 28 53 59 53 54 59 50 45 |ab.X../$|(SYSTYPE|
|00000c40| 29 2f 6d 61 6b 65 5f 63 | 72 63 5f 74 61 62 20 3e |)/make_c|rc_tab >|
|00000c50| 63 72 63 5f 74 61 62 2e | 68 0a 58 24 28 53 59 53 |crc_tab.|h.X$(SYS|
|00000c60| 54 59 50 45 29 2f 63 72 | 63 20 3a 20 63 72 63 2e |TYPE)/cr|c : crc.|
|00000c70| 63 20 63 72 63 5f 74 61 | 62 2e 68 0a 58 09 63 63 |c crc_ta|b.h.X.cc|
|00000c80| 20 63 72 63 2e 63 20 2d | 6f 20 24 28 53 59 53 54 | crc.c -|o $(SYST|
|00000c90| 59 50 45 29 2f 63 72 63 | 0a 45 4e 44 5f 4f 46 5f |YPE)/crc|.END_OF_|
|00000ca0| 46 49 4c 45 0a 20 20 69 | 66 20 74 65 73 74 20 32 |FILE.  i|f test 2|
|00000cb0| 31 31 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 27 |11 -ne `|wc -c <'|
|00000cc0| 63 72 63 2e 6d 61 6b 65 | 66 69 6c 65 27 60 3b 20 |crc.make|file'`; |
|00000cd0| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then.   | echo sh|
|00000ce0| 61 72 3a 20 5c 22 27 63 | 72 63 2e 6d 61 6b 65 66 |ar: \"'c|rc.makef|
|00000cf0| 69 6c 65 27 5c 22 20 75 | 6e 70 61 63 6b 65 64 20 |ile'\" u|npacked |
|00000d00| 77 69 74 68 20 77 72 6f | 6e 67 20 73 69 7a 65 21 |with wro|ng size!|
|00000d10| 0a 20 20 66 69 0a 20 20 | 23 20 65 6e 64 20 6f 66 |.  fi.  |# end of|
|00000d20| 20 27 63 72 63 2e 6d 61 | 6b 65 66 69 6c 65 27 0a | 'crc.ma|kefile'.|
|00000d30| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 6d |fi.if te|st -f 'm|
|00000d40| 61 6b 65 5f 63 72 63 5f | 74 61 62 2e 63 27 20 2d |ake_crc_|tab.c' -|
|00000d50| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|00000d60| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |.  echo |
|00000d70| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 63 |shar: Wi|ll not c|
|00000d80| 6c 6f 62 62 65 72 20 65 | 78 69 73 74 69 6e 67 20 |lobber e|xisting |
|00000d90| 66 69 6c 65 20 5c 22 27 | 6d 61 6b 65 5f 63 72 63 |file \"'|make_crc|
|00000da0| 5f 74 61 62 2e 63 27 5c | 22 0a 65 6c 73 65 0a 20 |_tab.c'\|".else. |
|00000db0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 | echo sh|ar: Extr|
|00000dc0| 61 63 74 69 6e 67 20 5c | 22 27 6d 61 6b 65 5f 63 |acting \|"'make_c|
|00000dd0| 72 63 5f 74 61 62 2e 63 | 27 5c 22 20 5c 28 38 30 |rc_tab.c|'\" \(80|
|00000de0| 39 20 63 68 61 72 61 63 | 74 65 72 73 5c 29 0a 20 |9 charac|ters\). |
|00000df0| 20 73 65 64 20 22 73 2f | 5e 58 2f 2f 22 20 3e 27 | sed "s/|^X//" >'|
|00000e00| 6d 61 6b 65 5f 63 72 63 | 5f 74 61 62 2e 63 27 20 |make_crc|_tab.c' |
|00000e10| 3c 3c 27 45 4e 44 5f 4f | 46 5f 46 49 4c 45 27 0a |<<'END_O|F_FILE'.|
|00000e20| 58 2f 2a 20 54 68 65 20 | 43 52 43 20 70 6f 6c 79 |X/* The |CRC poly|
|00000e30| 6e 6f 6d 69 61 6c 20 69 | 73 20 72 65 70 72 65 73 |nomial i|s repres|
|00000e40| 65 6e 74 65 64 20 69 6e | 20 62 69 6e 61 72 79 3b |ented in| binary;|
|00000e50| 20 65 61 63 68 20 62 69 | 74 20 69 73 20 74 68 65 | each bi|t is the|
|00000e60| 0a 58 63 6f 65 66 66 69 | 63 69 65 6e 74 20 6f 66 |.Xcoeffi|cient of|
|00000e70| 20 61 20 74 65 72 6d 2e | 20 54 68 65 20 6c 6f 77 | a term.| The low|
|00000e80| 2d 6f 72 64 65 72 20 62 | 69 74 20 63 6f 72 72 65 |-order b|it corre|
|00000e90| 73 70 6f 6e 64 73 20 74 | 6f 20 74 68 65 0a 58 68 |sponds t|o the.Xh|
|00000ea0| 69 67 68 65 73 74 2d 6f | 72 64 65 72 20 63 6f 65 |ighest-o|rder coe|
|00000eb0| 66 66 69 63 69 65 6e 74 | 20 28 79 65 73 2c 20 74 |fficient| (yes, t|
|00000ec0| 68 69 73 20 64 6f 65 73 | 20 73 65 65 6d 20 62 61 |his does| seem ba|
|00000ed0| 63 6b 77 61 72 64 73 29 | 2e 0a 58 0a 58 54 68 65 |ckwards)|..X.XThe|
|00000ee0| 20 62 69 74 20 73 65 71 | 75 65 6e 63 65 73 20 66 | bit seq|uences f|
|00000ef0| 6f 72 20 73 6f 6d 65 20 | 63 6f 6d 6d 6f 6e 20 43 |or some |common C|
|00000f00| 52 43 20 70 6f 6c 79 6e | 6f 6d 69 61 6c 73 3a 0a |RC polyn|omials:.|
|00000f10| 58 0a 58 43 52 43 2d 31 | 36 3a 09 20 31 36 20 20 |X.XCRC-1|6:. 16  |
|00000f20| 20 20 31 35 20 20 20 20 | 32 0a 58 09 78 20 20 20 |  15    |2.X.x   |
|00000f30| 2b 20 78 20 20 20 2b 20 | 78 20 20 2b 20 31 20 20 |+ x   + |x  + 1  |
|00000f40| 20 20 30 78 31 34 30 30 | 33 0a 58 0a 58 43 43 49 |  0x1400|3.X.XCCI|
|00000f50| 54 54 3a 09 20 31 36 20 | 20 20 20 31 32 20 20 20 |TT:. 16 |   12   |
|00000f60| 20 35 0a 58 09 78 20 20 | 20 2b 20 78 20 20 20 2b | 5.X.x  | + x   +|
|00000f70| 20 78 20 20 2b 20 31 20 | 20 20 20 30 78 31 30 38 | x  + 1 |   0x108|
|00000f80| 31 31 0a 58 0a 58 54 68 | 65 20 43 43 49 54 54 20 |11.X.XTh|e CCITT |
|00000f90| 70 6f 6c 79 6e 6f 6d 69 | 61 6c 20 69 73 20 75 73 |polynomi|al is us|
|00000fa0| 65 64 20 66 6f 72 20 4b | 65 72 6d 69 74 2e 0a 58 |ed for K|ermit..X|
|00000fb0| 0a 58 2a 2f 0a 58 0a 58 | 23 64 65 66 69 6e 65 20 |.X*/.X.X|#define |
|00000fc0| 43 43 49 54 54 20 30 78 | 31 30 38 31 31 0a 58 23 |CCITT 0x|10811.X#|
|00000fd0| 64 65 66 69 6e 65 20 43 | 52 43 5f 31 36 20 30 78 |define C|RC_16 0x|
|00000fe0| 31 34 30 30 33 0a 58 0a | 58 76 6f 69 64 20 6d 61 |14003.X.|Xvoid ma|
|00000ff0| 6b 65 5f 31 36 5f 62 69 | 74 5f 63 72 63 5f 74 61 |ke_16_bi|t_crc_ta|
|00001000| 62 28 70 6f 6c 79 29 20 | 75 6e 73 69 67 6e 65 64 |b(poly) |unsigned|
|00001010| 20 69 6e 74 20 70 6f 6c | 79 3b 0a 58 20 20 7b 75 | int pol|y;.X  {u|
|00001020| 6e 73 69 67 6e 65 64 20 | 69 6e 74 20 69 2c 6a 2c |nsigned |int i,j,|
|00001030| 20 4d 3b 0a 58 20 20 70 | 72 69 6e 74 66 28 22 75 | M;.X  p|rintf("u|
|00001040| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 63 72 |nsigned |short cr|
|00001050| 63 5f 74 61 62 6c 65 5b | 32 35 36 5d 20 3d 20 7b |c_table[|256] = {|
|00001060| 5c 6e 22 29 3b 0a 58 20 | 20 66 6f 72 20 28 69 3d |\n");.X | for (i=|
|00001070| 30 3b 20 69 3c 32 35 36 | 3b 20 69 2b 2b 29 7b 0a |0; i<256|; i++){.|
|00001080| 58 20 20 20 20 4d 20 3d | 20 69 3b 0a 58 20 20 20 |X    M =| i;.X   |
|00001090| 20 66 6f 72 20 28 6a 3d | 38 3b 6a 3e 30 3b 6a 2d | for (j=|8;j>0;j-|
|000010a0| 2d 29 7b 0a 58 20 20 20 | 20 20 20 69 66 20 28 4d |-){.X   |   if (M|
|000010b0| 20 26 20 31 29 7b 4d 20 | 5e 3d 20 70 6f 6c 79 3b | & 1){M |^= poly;|
|000010c0| 7d 0a 58 20 20 20 20 20 | 20 4d 20 3e 3e 3d 20 31 |}.X     | M >>= 1|
|000010d0| 3b 7d 0a 58 23 69 66 64 | 65 66 20 41 4d 49 47 41 |;}.X#ifd|ef AMIGA|
|000010e0| 0a 58 20 20 20 20 70 72 | 69 6e 74 66 28 22 30 78 |.X    pr|intf("0x|
|000010f0| 25 78 2c 5c 6e 22 2c 20 | 4d 29 3b 0a 58 23 65 6c |%x,\n", |M);.X#el|
|00001100| 73 65 0a 58 20 20 20 20 | 70 72 69 6e 74 66 28 22 |se.X    |printf("|
|00001110| 25 23 78 2c 5c 6e 22 2c | 20 4d 29 3b 0a 58 23 65 |%#x,\n",| M);.X#e|
|00001120| 6e 64 69 66 0a 58 20 20 | 20 20 7d 0a 58 20 20 70 |ndif.X  |  }.X  p|
|00001130| 72 69 6e 74 66 28 22 7d | 3b 5c 6e 22 29 3b 0a 58 |rintf("}|;\n");.X|
|00001140| 7d 0a 58 0a 58 76 6f 69 | 64 20 6d 61 69 6e 28 29 |}.X.Xvoi|d main()|
|00001150| 7b 6d 61 6b 65 5f 31 36 | 5f 62 69 74 5f 63 72 63 |{make_16|_bit_crc|
|00001160| 5f 74 61 62 28 43 43 49 | 54 54 29 3b 7d 0a 45 4e |_tab(CCI|TT);}.EN|
|00001170| 44 5f 4f 46 5f 46 49 4c | 45 0a 20 20 69 66 20 74 |D_OF_FIL|E.  if t|
|00001180| 65 73 74 20 38 30 39 20 | 2d 6e 65 20 60 77 63 20 |est 809 |-ne `wc |
|00001190| 2d 63 20 3c 27 6d 61 6b | 65 5f 63 72 63 5f 74 61 |-c <'mak|e_crc_ta|
|000011a0| 62 2e 63 27 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |b.c'`; t|hen.    |
|000011b0| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 27 6d 61 |echo sha|r: \"'ma|
|000011c0| 6b 65 5f 63 72 63 5f 74 | 61 62 2e 63 27 5c 22 20 |ke_crc_t|ab.c'\" |
|000011d0| 75 6e 70 61 63 6b 65 64 | 20 77 69 74 68 20 77 72 |unpacked| with wr|
|000011e0| 6f 6e 67 20 73 69 7a 65 | 21 0a 20 20 66 69 0a 20 |ong size|!.  fi. |
|000011f0| 20 23 20 65 6e 64 20 6f | 66 20 27 6d 61 6b 65 5f | # end o|f 'make_|
|00001200| 63 72 63 5f 74 61 62 2e | 63 27 0a 66 69 0a 65 63 |crc_tab.|c'.fi.ec|
|00001210| 68 6f 20 73 68 61 72 3a | 20 45 6e 64 20 6f 66 20 |ho shar:| End of |
|00001220| 61 72 63 68 69 76 65 20 | 31 20 5c 28 6f 66 20 31 |archive |1 \(of 1|
|00001230| 5c 29 2e 0a 63 70 20 2f | 64 65 76 2f 6e 75 6c 6c |\)..cp /|dev/null|
|00001240| 20 61 72 6b 31 69 73 64 | 6f 6e 65 0a 4d 49 53 53 | ark1isd|one.MISS|
|00001250| 49 4e 47 3d 22 22 0a 66 | 6f 72 20 49 20 69 6e 20 |ING="".f|or I in |
|00001260| 31 20 3b 20 64 6f 0a 20 | 20 20 20 69 66 20 74 65 |1 ; do. |   if te|
|00001270| 73 74 20 21 20 2d 66 20 | 61 72 6b 24 7b 49 7d 69 |st ! -f |ark${I}i|
|00001280| 73 64 6f 6e 65 20 3b 20 | 74 68 65 6e 0a 09 4d 49 |sdone ; |then..MI|
|00001290| 53 53 49 4e 47 3d 22 24 | 7b 4d 49 53 53 49 4e 47 |SSING="$|{MISSING|
|000012a0| 7d 20 24 7b 49 7d 22 0a | 20 20 20 20 66 69 0a 64 |} ${I}".|    fi.d|
|000012b0| 6f 6e 65 0a 69 66 20 74 | 65 73 74 20 22 24 7b 4d |one.if t|est "${M|
|000012c0| 49 53 53 49 4e 47 7d 22 | 20 3d 20 22 22 20 3b 20 |ISSING}"| = "" ; |
|000012d0| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 59 6f |then.   | echo Yo|
|000012e0| 75 20 68 61 76 65 20 74 | 68 65 20 61 72 63 68 69 |u have t|he archi|
|000012f0| 76 65 2e 0a 20 20 20 20 | 72 6d 20 2d 66 20 61 72 |ve..    |rm -f ar|
|00001300| 6b 5b 31 2d 39 5d 69 73 | 64 6f 6e 65 0a 65 6c 73 |k[1-9]is|done.els|
|00001310| 65 0a 20 20 20 20 65 63 | 68 6f 20 59 6f 75 20 73 |e.    ec|ho You s|
|00001320| 74 69 6c 6c 20 6d 75 73 | 74 20 75 6e 70 61 63 6b |till mus|t unpack|
|00001330| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 61 | the fol|lowing a|
|00001340| 72 63 68 69 76 65 73 3a | 0a 20 20 20 20 65 63 68 |rchives:|.    ech|
|00001350| 6f 20 22 20 20 20 20 20 | 20 20 20 22 20 24 7b 4d |o "     |   " ${M|
|00001360| 49 53 53 49 4e 47 7d 0a | 66 69 0a 65 78 69 74 20 |ISSING}.|fi.exit |
|00001370| 30 0a 65 78 69 74 20 30 | 20 23 20 4a 75 73 74 20 |0.exit 0| # Just |
|00001380| 69 6e 20 63 61 73 65 2e | 2e 2e 0a                |in case.|...     |
+--------+-------------------------+-------------------------+--------+--------+