Tcl Library Source Code

Hex Artifact Content
Login
Bounty program for improvements to Tcl and certain Tcl packages.

Artifact ec8b67db9dd09e9878f8937033bc09c5666019d5:


0000: 23 20 63 6b 73 75 6d 2e 74 63 6c 20 2d 20 43 6f  # cksum.tcl - Co
0010: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 32  pyright (C) 2002
0020: 20 50 61 74 20 54 68 6f 79 74 73 20 3c 70 61 74   Pat Thoyts <pat
0030: 74 68 6f 79 74 73 40 75 73 65 72 73 2e 73 6f 75  [email protected]
0040: 72 63 65 66 6f 72 67 65 2e 6e 65 74 3e 0a 23 0a  rceforge.net>.#.
0050: 23 20 50 72 6f 76 69 64 65 73 20 61 20 54 63 6c  # Provides a Tcl
0060: 20 6f 6e 6c 79 20 69 6d 70 6c 65 6d 65 6e 74 61   only implementa
0070: 74 69 6f 6e 20 6f 66 20 74 68 65 20 75 6e 69 78  tion of the unix
0080: 20 63 6b 73 75 6d 28 31 29 20 63 6f 6d 6d 61 6e   cksum(1) comman
0090: 64 2e 20 54 68 69 73 20 69 73 0a 23 20 73 69 6d  d. This is.# sim
00a0: 69 6c 61 72 20 74 6f 20 74 68 65 20 73 75 6d 28  ilar to the sum(
00b0: 31 29 20 63 6f 6d 6d 61 6e 64 20 62 75 74 20 74  1) command but t
00c0: 68 65 20 61 6c 67 6f 72 69 74 68 6d 20 69 73 20  he algorithm is 
00d0: 62 65 74 74 65 72 20 64 65 66 69 6e 65 64 20 61  better defined a
00e0: 6e 64 0a 23 20 73 74 61 6e 64 61 72 64 69 7a 65  nd.# standardize
00f0: 64 20 61 63 72 6f 73 73 20 6d 75 6c 74 69 70 6c  d across multipl
0100: 65 20 70 6c 61 74 66 6f 72 6d 73 20 62 79 20 50  e platforms by P
0110: 4f 53 49 58 20 31 30 30 33 2e 32 2f 44 31 31 2e  OSIX 1003.2/D11.
0120: 32 0a 23 0a 23 20 54 68 69 73 20 63 6f 6d 6d 61  2.#.# This comma
0130: 6e 64 20 68 61 73 20 62 65 65 6e 20 76 65 72 69  nd has been veri
0140: 66 69 65 64 20 61 67 61 69 6e 73 74 20 74 68 65  fied against the
0150: 20 63 6b 73 75 6d 20 63 6f 6d 6d 61 6e 64 20 66   cksum command f
0160: 72 6f 6d 20 74 68 65 20 47 4e 55 0a 23 20 74 65  rom the GNU.# te
0170: 78 74 75 74 69 6c 73 20 70 61 63 6b 61 67 65 20  xtutils package 
0180: 76 65 72 73 69 6f 6e 20 32 2e 30 0a 23 0a 23 20  version 2.0.#.# 
0190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
01a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
01b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
01c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
01d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 53 65 65 20  ---------.# See 
01e0: 74 68 65 20 66 69 6c 65 20 22 6c 69 63 65 6e 73  the file "licens
01f0: 65 2e 74 65 72 6d 73 22 20 66 6f 72 20 69 6e 66  e.terms" for inf
0200: 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67  ormation on usag
0210: 65 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 75  e and redistribu
0220: 74 69 6f 6e 0a 23 20 6f 66 20 74 68 69 73 20 66  tion.# of this f
0230: 69 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 20 44  ile, and for a D
0240: 49 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c  ISCLAIMER OF ALL
0250: 20 57 41 52 52 41 4e 54 49 45 53 2e 0a 23 20 2d   WARRANTIES..# -
0260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
02a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 24 49 64 3a 20  --------.# $Id: 
02b0: 63 6b 73 75 6d 2e 74 63 6c 2c 76 20 31 2e 31 31  cksum.tcl,v 1.11
02c0: 20 32 30 30 39 2f 30 34 2f 32 31 20 32 30 3a 30   2009/04/21 20:0
02d0: 36 3a 31 39 20 61 6e 64 72 65 61 73 5f 6b 75 70  6:19 andreas_kup
02e0: 72 69 65 73 20 45 78 70 20 24 0a 0a 70 61 63 6b  ries Exp $..pack
02f0: 61 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20  age require Tcl 
0300: 38 2e 32 3b 20 20 20 20 20 20 20 20 20 20 20 20  8.2;            
0310: 20 20 20 20 23 20 74 63 6c 20 6d 69 6e 69 6d 75      # tcl minimu
0320: 6d 20 76 65 72 73 69 6f 6e 0a 0a 6e 61 6d 65 73  m version..names
0330: 70 61 63 65 20 65 76 61 6c 20 3a 3a 63 72 63 20  pace eval ::crc 
0340: 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 63  {.    variable c
0350: 6b 73 75 6d 5f 76 65 72 73 69 6f 6e 20 31 2e 31  ksum_version 1.1
0360: 2e 33 0a 0a 20 20 20 20 6e 61 6d 65 73 70 61 63  .3..    namespac
0370: 65 20 65 78 70 6f 72 74 20 63 6b 73 75 6d 0a 0a  e export cksum..
0380: 20 20 20 20 76 61 72 69 61 62 6c 65 20 63 6b 73      variable cks
0390: 75 6d 5f 74 62 6c 20 5b 6c 69 73 74 20 30 78 30  um_tbl [list 0x0
03a0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
03b0: 30 34 43 31 31 44 42 37 20 30 78 30 39 38 32 33  04C11DB7 0x09823
03c0: 42 36 45 20 30 78 30 44 34 33 32 36 44 39 20 30  B6E 0x0D4326D9 0
03d0: 78 31 33 30 34 37 36 44 43 20 30 78 31 37 43 35  x130476DC 0x17C5
03e0: 36 42 36 42 20 5c 0a 20 20 20 20 20 20 20 20 20  6B6B \.         
03f0: 20 20 30 78 31 41 38 36 34 44 42 32 20 30 78 31    0x1A864DB2 0x1
0400: 45 34 37 35 30 30 35 20 30 78 32 36 30 38 45 44  E475005 0x2608ED
0410: 42 38 20 30 78 32 32 43 39 46 30 30 46 20 30 78  B8 0x22C9F00F 0x
0420: 32 46 38 41 44 36 44 36 20 5c 0a 20 20 20 20 20  2F8AD6D6 \.     
0430: 20 20 20 20 20 20 30 78 32 42 34 42 43 42 36 31        0x2B4BCB61
0440: 20 30 78 33 35 30 43 39 42 36 34 20 30 78 33 31   0x350C9B64 0x31
0450: 43 44 38 36 44 33 20 30 78 33 43 38 45 41 30 30  CD86D3 0x3C8EA00
0460: 41 20 30 78 33 38 34 46 42 44 42 44 20 5c 0a 20  A 0x384FBDBD \. 
0470: 20 20 20 20 20 20 20 20 20 20 30 78 34 43 31 31            0x4C11
0480: 44 42 37 30 20 30 78 34 38 44 30 43 36 43 37 20  DB70 0x48D0C6C7 
0490: 30 78 34 35 39 33 45 30 31 45 20 30 78 34 31 35  0x4593E01E 0x415
04a0: 32 46 44 41 39 20 30 78 35 46 31 35 41 44 41 43  2FDA9 0x5F15ADAC
04b0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
04c0: 35 42 44 34 42 30 31 42 20 30 78 35 36 39 37 39  5BD4B01B 0x56979
04d0: 36 43 32 20 30 78 35 32 35 36 38 42 37 35 20 30  6C2 0x52568B75 0
04e0: 78 36 41 31 39 33 36 43 38 20 30 78 36 45 44 38  x6A1936C8 0x6ED8
04f0: 32 42 37 46 20 5c 0a 20 20 20 20 20 20 20 20 20  2B7F \.         
0500: 20 20 30 78 36 33 39 42 30 44 41 36 20 30 78 36    0x639B0DA6 0x6
0510: 37 35 41 31 30 31 31 20 30 78 37 39 31 44 34 30  75A1011 0x791D40
0520: 31 34 20 30 78 37 44 44 43 35 44 41 33 20 30 78  14 0x7DDC5DA3 0x
0530: 37 30 39 46 37 42 37 41 20 5c 0a 20 20 20 20 20  709F7B7A \.     
0540: 20 20 20 20 20 20 30 78 37 34 35 45 36 36 43 44        0x745E66CD
0550: 20 30 78 39 38 32 33 42 36 45 30 20 30 78 39 43   0x9823B6E0 0x9C
0560: 45 32 41 42 35 37 20 30 78 39 31 41 31 38 44 38  E2AB57 0x91A18D8
0570: 45 20 30 78 39 35 36 30 39 30 33 39 20 5c 0a 20  E 0x95609039 \. 
0580: 20 20 20 20 20 20 20 20 20 20 30 78 38 42 32 37            0x8B27
0590: 43 30 33 43 20 30 78 38 46 45 36 44 44 38 42 20  C03C 0x8FE6DD8B 
05a0: 30 78 38 32 41 35 46 42 35 32 20 30 78 38 36 36  0x82A5FB52 0x866
05b0: 34 45 36 45 35 20 30 78 42 45 32 42 35 42 35 38  4E6E5 0xBE2B5B58
05c0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
05d0: 42 41 45 41 34 36 45 46 20 30 78 42 37 41 39 36  BAEA46EF 0xB7A96
05e0: 30 33 36 20 30 78 42 33 36 38 37 44 38 31 20 30  036 0xB3687D81 0
05f0: 78 41 44 32 46 32 44 38 34 20 30 78 41 39 45 45  xAD2F2D84 0xA9EE
0600: 33 30 33 33 20 5c 0a 20 20 20 20 20 20 20 20 20  3033 \.         
0610: 20 20 30 78 41 34 41 44 31 36 45 41 20 30 78 41    0xA4AD16EA 0xA
0620: 30 36 43 30 42 35 44 20 30 78 44 34 33 32 36 44  06C0B5D 0xD4326D
0630: 39 30 20 30 78 44 30 46 33 37 30 32 37 20 30 78  90 0xD0F37027 0x
0640: 44 44 42 30 35 36 46 45 20 5c 0a 20 20 20 20 20  DDB056FE \.     
0650: 20 20 20 20 20 20 30 78 44 39 37 31 34 42 34 39        0xD9714B49
0660: 20 30 78 43 37 33 36 31 42 34 43 20 30 78 43 33   0xC7361B4C 0xC3
0670: 46 37 30 36 46 42 20 30 78 43 45 42 34 32 30 32  F706FB 0xCEB4202
0680: 32 20 30 78 43 41 37 35 33 44 39 35 20 5c 0a 20  2 0xCA753D95 \. 
0690: 20 20 20 20 20 20 20 20 20 20 30 78 46 32 33 41            0xF23A
06a0: 38 30 32 38 20 30 78 46 36 46 42 39 44 39 46 20  8028 0xF6FB9D9F 
06b0: 30 78 46 42 42 38 42 42 34 36 20 30 78 46 46 37  0xFBB8BB46 0xFF7
06c0: 39 41 36 46 31 20 30 78 45 31 33 45 46 36 46 34  9A6F1 0xE13EF6F4
06d0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
06e0: 45 35 46 46 45 42 34 33 20 30 78 45 38 42 43 43  E5FFEB43 0xE8BCC
06f0: 44 39 41 20 30 78 45 43 37 44 44 30 32 44 20 30  D9A 0xEC7DD02D 0
0700: 78 33 34 38 36 37 30 37 37 20 30 78 33 30 34 37  x34867077 0x3047
0710: 36 44 43 30 20 5c 0a 20 20 20 20 20 20 20 20 20  6DC0 \.         
0720: 20 20 30 78 33 44 30 34 34 42 31 39 20 30 78 33    0x3D044B19 0x3
0730: 39 43 35 35 36 41 45 20 30 78 32 37 38 32 30 36  9C556AE 0x278206
0740: 41 42 20 30 78 32 33 34 33 31 42 31 43 20 30 78  AB 0x23431B1C 0x
0750: 32 45 30 30 33 44 43 35 20 5c 0a 20 20 20 20 20  2E003DC5 \.     
0760: 20 20 20 20 20 20 30 78 32 41 43 31 32 30 37 32        0x2AC12072
0770: 20 30 78 31 32 38 45 39 44 43 46 20 30 78 31 36   0x128E9DCF 0x16
0780: 34 46 38 30 37 38 20 30 78 31 42 30 43 41 36 41  4F8078 0x1B0CA6A
0790: 31 20 30 78 31 46 43 44 42 42 31 36 20 5c 0a 20  1 0x1FCDBB16 \. 
07a0: 20 20 20 20 20 20 20 20 20 20 30 78 30 31 38 41            0x018A
07b0: 45 42 31 33 20 30 78 30 35 34 42 46 36 41 34 20  EB13 0x054BF6A4 
07c0: 30 78 30 38 30 38 44 30 37 44 20 30 78 30 43 43  0x0808D07D 0x0CC
07d0: 39 43 44 43 41 20 30 78 37 38 39 37 41 42 30 37  9CDCA 0x7897AB07
07e0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
07f0: 37 43 35 36 42 36 42 30 20 30 78 37 31 31 35 39  7C56B6B0 0x71159
0800: 30 36 39 20 30 78 37 35 44 34 38 44 44 45 20 30  069 0x75D48DDE 0
0810: 78 36 42 39 33 44 44 44 42 20 30 78 36 46 35 32  x6B93DDDB 0x6F52
0820: 43 30 36 43 20 5c 0a 20 20 20 20 20 20 20 20 20  C06C \.         
0830: 20 20 30 78 36 32 31 31 45 36 42 35 20 30 78 36    0x6211E6B5 0x6
0840: 36 44 30 46 42 30 32 20 30 78 35 45 39 46 34 36  6D0FB02 0x5E9F46
0850: 42 46 20 30 78 35 41 35 45 35 42 30 38 20 30 78  BF 0x5A5E5B08 0x
0860: 35 37 31 44 37 44 44 31 20 5c 0a 20 20 20 20 20  571D7DD1 \.     
0870: 20 20 20 20 20 20 30 78 35 33 44 43 36 30 36 36        0x53DC6066
0880: 20 30 78 34 44 39 42 33 30 36 33 20 30 78 34 39   0x4D9B3063 0x49
0890: 35 41 32 44 44 34 20 30 78 34 34 31 39 30 42 30  5A2DD4 0x44190B0
08a0: 44 20 30 78 34 30 44 38 31 36 42 41 20 5c 0a 20  D 0x40D816BA \. 
08b0: 20 20 20 20 20 20 20 20 20 20 30 78 41 43 41 35            0xACA5
08c0: 43 36 39 37 20 30 78 41 38 36 34 44 42 32 30 20  C697 0xA864DB20 
08d0: 30 78 41 35 32 37 46 44 46 39 20 30 78 41 31 45  0xA527FDF9 0xA1E
08e0: 36 45 30 34 45 20 30 78 42 46 41 31 42 30 34 42  6E04E 0xBFA1B04B
08f0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0900: 42 42 36 30 41 44 46 43 20 30 78 42 36 32 33 38  BB60ADFC 0xB6238
0910: 42 32 35 20 30 78 42 32 45 32 39 36 39 32 20 30  B25 0xB2E29692 0
0920: 78 38 41 41 44 32 42 32 46 20 30 78 38 45 36 43  x8AAD2B2F 0x8E6C
0930: 33 36 39 38 20 5c 0a 20 20 20 20 20 20 20 20 20  3698 \.         
0940: 20 20 30 78 38 33 32 46 31 30 34 31 20 30 78 38    0x832F1041 0x8
0950: 37 45 45 30 44 46 36 20 30 78 39 39 41 39 35 44  7EE0DF6 0x99A95D
0960: 46 33 20 30 78 39 44 36 38 34 30 34 34 20 30 78  F3 0x9D684044 0x
0970: 39 30 32 42 36 36 39 44 20 5c 0a 20 20 20 20 20  902B669D \.     
0980: 20 20 20 20 20 20 30 78 39 34 45 41 37 42 32 41        0x94EA7B2A
0990: 20 30 78 45 30 42 34 31 44 45 37 20 30 78 45 34   0xE0B41DE7 0xE4
09a0: 37 35 30 30 35 30 20 30 78 45 39 33 36 32 36 38  750050 0xE936268
09b0: 39 20 30 78 45 44 46 37 33 42 33 45 20 5c 0a 20  9 0xEDF73B3E \. 
09c0: 20 20 20 20 20 20 20 20 20 20 30 78 46 33 42 30            0xF3B0
09d0: 36 42 33 42 20 30 78 46 37 37 31 37 36 38 43 20  6B3B 0xF771768C 
09e0: 30 78 46 41 33 32 35 30 35 35 20 30 78 46 45 46  0xFA325055 0xFEF
09f0: 33 34 44 45 32 20 30 78 43 36 42 43 46 30 35 46  34DE2 0xC6BCF05F
0a00: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0a10: 43 32 37 44 45 44 45 38 20 30 78 43 46 33 45 43  C27DEDE8 0xCF3EC
0a20: 42 33 31 20 30 78 43 42 46 46 44 36 38 36 20 30  B31 0xCBFFD686 0
0a30: 78 44 35 42 38 38 36 38 33 20 30 78 44 31 37 39  xD5B88683 0xD179
0a40: 39 42 33 34 20 5c 0a 20 20 20 20 20 20 20 20 20  9B34 \.         
0a50: 20 20 30 78 44 43 33 41 42 44 45 44 20 30 78 44    0xDC3ABDED 0xD
0a60: 38 46 42 41 30 35 41 20 30 78 36 39 30 43 45 30  8FBA05A 0x690CE0
0a70: 45 45 20 30 78 36 44 43 44 46 44 35 39 20 30 78  EE 0x6DCDFD59 0x
0a80: 36 30 38 45 44 42 38 30 20 5c 0a 20 20 20 20 20  608EDB80 \.     
0a90: 20 20 20 20 20 20 30 78 36 34 34 46 43 36 33 37        0x644FC637
0aa0: 20 30 78 37 41 30 38 39 36 33 32 20 30 78 37 45   0x7A089632 0x7E
0ab0: 43 39 38 42 38 35 20 30 78 37 33 38 41 41 44 35  C98B85 0x738AAD5
0ac0: 43 20 30 78 37 37 34 42 42 30 45 42 20 5c 0a 20  C 0x774BB0EB \. 
0ad0: 20 20 20 20 20 20 20 20 20 20 30 78 34 46 30 34            0x4F04
0ae0: 30 44 35 36 20 30 78 34 42 43 35 31 30 45 31 20  0D56 0x4BC510E1 
0af0: 30 78 34 36 38 36 33 36 33 38 20 30 78 34 32 34  0x46863638 0x424
0b00: 37 32 42 38 46 20 30 78 35 43 30 30 37 42 38 41  72B8F 0x5C007B8A
0b10: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0b20: 35 38 43 31 36 36 33 44 20 30 78 35 35 38 32 34  58C1663D 0x55824
0b30: 30 45 34 20 30 78 35 31 34 33 35 44 35 33 20 30  0E4 0x51435D53 0
0b40: 78 32 35 31 44 33 42 39 45 20 30 78 32 31 44 43  x251D3B9E 0x21DC
0b50: 32 36 32 39 20 5c 0a 20 20 20 20 20 20 20 20 20  2629 \.         
0b60: 20 20 30 78 32 43 39 46 30 30 46 30 20 30 78 32    0x2C9F00F0 0x2
0b70: 38 35 45 31 44 34 37 20 30 78 33 36 31 39 34 44  85E1D47 0x36194D
0b80: 34 32 20 30 78 33 32 44 38 35 30 46 35 20 30 78  42 0x32D850F5 0x
0b90: 33 46 39 42 37 36 32 43 20 5c 0a 20 20 20 20 20  3F9B762C \.     
0ba0: 20 20 20 20 20 20 30 78 33 42 35 41 36 42 39 42        0x3B5A6B9B
0bb0: 20 30 78 30 33 31 35 44 36 32 36 20 30 78 30 37   0x0315D626 0x07
0bc0: 44 34 43 42 39 31 20 30 78 30 41 39 37 45 44 34  D4CB91 0x0A97ED4
0bd0: 38 20 30 78 30 45 35 36 46 30 46 46 20 5c 0a 20  8 0x0E56F0FF \. 
0be0: 20 20 20 20 20 20 20 20 20 20 30 78 31 30 31 31            0x1011
0bf0: 41 30 46 41 20 30 78 31 34 44 30 42 44 34 44 20  A0FA 0x14D0BD4D 
0c00: 30 78 31 39 39 33 39 42 39 34 20 30 78 31 44 35  0x19939B94 0x1D5
0c10: 32 38 36 32 33 20 30 78 46 31 32 46 35 36 30 45  28623 0xF12F560E
0c20: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0c30: 46 35 45 45 34 42 42 39 20 30 78 46 38 41 44 36  F5EE4BB9 0xF8AD6
0c40: 44 36 30 20 30 78 46 43 36 43 37 30 44 37 20 30  D60 0xFC6C70D7 0
0c50: 78 45 32 32 42 32 30 44 32 20 30 78 45 36 45 41  xE22B20D2 0xE6EA
0c60: 33 44 36 35 20 5c 0a 20 20 20 20 20 20 20 20 20  3D65 \.         
0c70: 20 20 30 78 45 42 41 39 31 42 42 43 20 30 78 45    0xEBA91BBC 0xE
0c80: 46 36 38 30 36 30 42 20 30 78 44 37 32 37 42 42  F68060B 0xD727BB
0c90: 42 36 20 30 78 44 33 45 36 41 36 30 31 20 30 78  B6 0xD3E6A601 0x
0ca0: 44 45 41 35 38 30 44 38 20 5c 0a 20 20 20 20 20  DEA580D8 \.     
0cb0: 20 20 20 20 20 20 30 78 44 41 36 34 39 44 36 46        0xDA649D6F
0cc0: 20 30 78 43 34 32 33 43 44 36 41 20 30 78 43 30   0xC423CD6A 0xC0
0cd0: 45 32 44 30 44 44 20 30 78 43 44 41 31 46 36 30  E2D0DD 0xCDA1F60
0ce0: 34 20 30 78 43 39 36 30 45 42 42 33 20 5c 0a 20  4 0xC960EBB3 \. 
0cf0: 20 20 20 20 20 20 20 20 20 20 30 78 42 44 33 45            0xBD3E
0d00: 38 44 37 45 20 30 78 42 39 46 46 39 30 43 39 20  8D7E 0xB9FF90C9 
0d10: 30 78 42 34 42 43 42 36 31 30 20 30 78 42 30 37  0xB4BCB610 0xB07
0d20: 44 41 42 41 37 20 30 78 41 45 33 41 46 42 41 32  DABA7 0xAE3AFBA2
0d30: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0d40: 41 41 46 42 45 36 31 35 20 30 78 41 37 42 38 43  AAFBE615 0xA7B8C
0d50: 30 43 43 20 30 78 41 33 37 39 44 44 37 42 20 30  0CC 0xA379DD7B 0
0d60: 78 39 42 33 36 36 30 43 36 20 30 78 39 46 46 37  x9B3660C6 0x9FF7
0d70: 37 44 37 31 20 5c 0a 20 20 20 20 20 20 20 20 20  7D71 \.         
0d80: 20 20 30 78 39 32 42 34 35 42 41 38 20 30 78 39    0x92B45BA8 0x9
0d90: 36 37 35 34 36 31 46 20 30 78 38 38 33 32 31 36  675461F 0x883216
0da0: 31 41 20 30 78 38 43 46 33 30 42 41 44 20 30 78  1A 0x8CF30BAD 0x
0db0: 38 31 42 30 32 44 37 34 20 5c 0a 20 20 20 20 20  81B02D74 \.     
0dc0: 20 20 20 20 20 20 30 78 38 35 37 31 33 30 43 33        0x857130C3
0dd0: 20 30 78 35 44 38 41 39 30 39 39 20 30 78 35 39   0x5D8A9099 0x59
0de0: 34 42 38 44 32 45 20 30 78 35 34 30 38 41 42 46  4B8D2E 0x5408ABF
0df0: 37 20 30 78 35 30 43 39 42 36 34 30 20 5c 0a 20  7 0x50C9B640 \. 
0e00: 20 20 20 20 20 20 20 20 20 20 30 78 34 45 38 45            0x4E8E
0e10: 45 36 34 35 20 30 78 34 41 34 46 46 42 46 32 20  E645 0x4A4FFBF2 
0e20: 30 78 34 37 30 43 44 44 32 42 20 30 78 34 33 43  0x470CDD2B 0x43C
0e30: 44 43 30 39 43 20 30 78 37 42 38 32 37 44 32 31  DC09C 0x7B827D21
0e40: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0e50: 37 46 34 33 36 30 39 36 20 30 78 37 32 30 30 34  7F436096 0x72004
0e60: 36 34 46 20 30 78 37 36 43 31 35 42 46 38 20 30  64F 0x76C15BF8 0
0e70: 78 36 38 38 36 30 42 46 44 20 30 78 36 43 34 37  x68860BFD 0x6C47
0e80: 31 36 34 41 20 5c 0a 20 20 20 20 20 20 20 20 20  164A \.         
0e90: 20 20 30 78 36 31 30 34 33 30 39 33 20 30 78 36    0x61043093 0x6
0ea0: 35 43 35 32 44 32 34 20 30 78 31 31 39 42 34 42  5C52D24 0x119B4B
0eb0: 45 39 20 30 78 31 35 35 41 35 36 35 45 20 30 78  E9 0x155A565E 0x
0ec0: 31 38 31 39 37 30 38 37 20 5c 0a 20 20 20 20 20  18197087 \.     
0ed0: 20 20 20 20 20 20 30 78 31 43 44 38 36 44 33 30        0x1CD86D30
0ee0: 20 30 78 30 32 39 46 33 44 33 35 20 30 78 30 36   0x029F3D35 0x06
0ef0: 35 45 32 30 38 32 20 30 78 30 42 31 44 30 36 35  5E2082 0x0B1D065
0f00: 42 20 30 78 30 46 44 43 31 42 45 43 20 5c 0a 20  B 0x0FDC1BEC \. 
0f10: 20 20 20 20 20 20 20 20 20 20 30 78 33 37 39 33            0x3793
0f20: 41 36 35 31 20 30 78 33 33 35 32 42 42 45 36 20  A651 0x3352BBE6 
0f30: 30 78 33 45 31 31 39 44 33 46 20 30 78 33 41 44  0x3E119D3F 0x3AD
0f40: 30 38 30 38 38 20 30 78 32 34 39 37 44 30 38 44  08088 0x2497D08D
0f50: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
0f60: 32 30 35 36 43 44 33 41 20 30 78 32 44 31 35 45  2056CD3A 0x2D15E
0f70: 42 45 33 20 30 78 32 39 44 34 46 36 35 34 20 30  BE3 0x29D4F654 0
0f80: 78 43 35 41 39 32 36 37 39 20 30 78 43 31 36 38  xC5A92679 0xC168
0f90: 33 42 43 45 20 5c 0a 20 20 20 20 20 20 20 20 20  3BCE \.         
0fa0: 20 20 30 78 43 43 32 42 31 44 31 37 20 30 78 43    0xCC2B1D17 0xC
0fb0: 38 45 41 30 30 41 30 20 30 78 44 36 41 44 35 30  8EA00A0 0xD6AD50
0fc0: 41 35 20 30 78 44 32 36 43 34 44 31 32 20 30 78  A5 0xD26C4D12 0x
0fd0: 44 46 32 46 36 42 43 42 20 5c 0a 20 20 20 20 20  DF2F6BCB \.     
0fe0: 20 20 20 20 20 20 30 78 44 42 45 45 37 36 37 43        0xDBEE767C
0ff0: 20 30 78 45 33 41 31 43 42 43 31 20 30 78 45 37   0xE3A1CBC1 0xE7
1000: 36 30 44 36 37 36 20 30 78 45 41 32 33 46 30 41  60D676 0xEA23F0A
1010: 46 20 30 78 45 45 45 32 45 44 31 38 20 5c 0a 20  F 0xEEE2ED18 \. 
1020: 20 20 20 20 20 20 20 20 20 20 30 78 46 30 41 35            0xF0A5
1030: 42 44 31 44 20 30 78 46 34 36 34 41 30 41 41 20  BD1D 0xF464A0AA 
1040: 30 78 46 39 32 37 38 36 37 33 20 30 78 46 44 45  0xF9278673 0xFDE
1050: 36 39 42 43 34 20 30 78 38 39 42 38 46 44 30 39  69BC4 0x89B8FD09
1060: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 30 78   \.           0x
1070: 38 44 37 39 45 30 42 45 20 30 78 38 30 33 41 43  8D79E0BE 0x803AC
1080: 36 36 37 20 30 78 38 34 46 42 44 42 44 30 20 30  667 0x84FBDBD0 0
1090: 78 39 41 42 43 38 42 44 35 20 30 78 39 45 37 44  x9ABC8BD5 0x9E7D
10a0: 39 36 36 32 20 5c 0a 20 20 20 20 20 20 20 20 20  9662 \.         
10b0: 20 20 30 78 39 33 33 45 42 30 42 42 20 30 78 39    0x933EB0BB 0x9
10c0: 37 46 46 41 44 30 43 20 30 78 41 46 42 30 31 30  7FFAD0C 0xAFB010
10d0: 42 31 20 30 78 41 42 37 31 30 44 30 36 20 30 78  B1 0xAB710D06 0x
10e0: 41 36 33 32 32 42 44 46 20 5c 0a 20 20 20 20 20  A6322BDF \.     
10f0: 20 20 20 20 20 20 30 78 41 32 46 33 33 36 36 38        0xA2F33668
1100: 20 30 78 42 43 42 34 36 36 36 44 20 30 78 42 38   0xBCB4666D 0xB8
1110: 37 35 37 42 44 41 20 30 78 42 35 33 36 35 44 30  757BDA 0xB5365D0
1120: 33 20 30 78 42 31 46 37 34 30 42 34 20 5d 0a 0a  3 0xB1F740B4 ]..
1130: 20 20 20 20 76 61 72 69 61 62 6c 65 20 75 69 64      variable uid
1140: 20 3b 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78   ; if {![info ex
1150: 69 73 74 73 20 75 69 64 5d 7d 20 7b 73 65 74 20  ists uid]} {set 
1160: 75 69 64 20 30 7d 0a 7d 0a 0a 23 20 63 72 63 3a  uid 0}.}..# crc:
1170: 3a 43 6b 73 75 6d 49 6e 69 74 20 2d 2d 20 0a 23  :CksumInit -- .#
1180: 0a 23 09 43 72 65 61 74 65 20 61 6e 64 20 69 6e  .#.Create and in
1190: 69 74 69 61 6c 69 7a 65 20 61 20 63 6b 73 75 6d  itialize a cksum
11a0: 20 63 6f 6e 74 65 78 74 2e 20 54 68 69 73 20 69   context. This i
11b0: 73 20 63 6c 65 61 6e 65 64 20 75 70 20 77 68 65  s cleaned up whe
11c0: 6e 20 77 65 0a 23 09 63 61 6c 6c 20 43 6b 73 75  n we.#.call Cksu
11d0: 6d 46 69 6e 61 6c 20 74 6f 20 6f 62 74 61 69 6e  mFinal to obtain
11e0: 20 74 68 65 20 72 65 73 75 6c 74 2e 0a 23 0a 70   the result..#.p
11f0: 72 6f 63 20 3a 3a 63 72 63 3a 3a 43 6b 73 75 6d  roc ::crc::Cksum
1200: 49 6e 69 74 20 7b 7d 20 7b 0a 20 20 20 20 76 61  Init {} {.    va
1210: 72 69 61 62 6c 65 20 75 69 64 0a 20 20 20 20 73  riable uid.    s
1220: 65 74 20 74 6f 6b 65 6e 20 5b 6e 61 6d 65 73 70  et token [namesp
1230: 61 63 65 20 63 75 72 72 65 6e 74 5d 3a 3a 5b 69  ace current]::[i
1240: 6e 63 72 20 75 69 64 5d 0a 20 20 20 20 75 70 76  ncr uid].    upv
1250: 61 72 20 23 30 20 24 74 6f 6b 65 6e 20 73 74 61  ar #0 $token sta
1260: 74 65 0a 20 20 20 20 61 72 72 61 79 20 73 65 74  te.    array set
1270: 20 73 74 61 74 65 20 7b 74 20 30 20 6c 20 30 7d   state {t 0 l 0}
1280: 0a 20 20 20 20 72 65 74 75 72 6e 20 24 74 6f 6b  .    return $tok
1290: 65 6e 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 63 72 63  en.}..proc ::crc
12a0: 3a 3a 43 6b 73 75 6d 55 70 64 61 74 65 20 7b 74  ::CksumUpdate {t
12b0: 6f 6b 65 6e 20 64 61 74 61 7d 20 7b 0a 20 20 20  oken data} {.   
12c0: 20 76 61 72 69 61 62 6c 65 20 63 6b 73 75 6d 5f   variable cksum_
12d0: 74 62 6c 0a 20 20 20 20 75 70 76 61 72 20 23 30  tbl.    upvar #0
12e0: 20 24 74 6f 6b 65 6e 20 73 74 61 74 65 0a 20 20   $token state.  
12f0: 20 20 73 65 74 20 74 20 24 73 74 61 74 65 28 74    set t $state(t
1300: 29 0a 20 20 20 20 62 69 6e 61 72 79 20 73 63 61  ).    binary sca
1310: 6e 20 24 64 61 74 61 20 63 2a 20 72 0a 20 20 20  n $data c* r.   
1320: 20 66 6f 72 65 61 63 68 20 7b 6e 7d 20 24 72 20   foreach {n} $r 
1330: 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 74 20  {.        set t 
1340: 5b 65 78 70 72 20 7b 28 24 74 20 3c 3c 20 38 29  [expr {($t << 8)
1350: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1360: 20 20 20 20 20 20 5e 20 5b 6c 69 6e 64 65 78 20        ^ [lindex 
1370: 24 63 6b 73 75 6d 5f 74 62 6c 20 5b 65 78 70 72  $cksum_tbl [expr
1380: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   {.             
1390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13b0: 20 20 20 20 28 28 24 74 20 3e 3e 20 32 34 29 20      (($t >> 24) 
13c0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  \.              
13d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13f0: 20 20 20 20 20 20 20 20 5e 20 28 24 6e 20 26 20          ^ ($n & 
1400: 30 78 46 46 29 29 20 26 20 30 78 46 46 0a 20 20  0xFF)) & 0xFF.  
1410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1430: 20 20 20 20 20 20 20 20 20 20 20 7d 5d 5d 7d 5d             }]]}]
1440: 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 73 74  .        incr st
1450: 61 74 65 28 6c 29 0a 20 20 20 20 7d 0a 20 20 20  ate(l).    }.   
1460: 20 73 65 74 20 73 74 61 74 65 28 74 29 20 24 74   set state(t) $t
1470: 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 70  .    return.}..p
1480: 72 6f 63 20 3a 3a 63 72 63 3a 3a 43 6b 73 75 6d  roc ::crc::Cksum
1490: 46 69 6e 61 6c 20 7b 74 6f 6b 65 6e 7d 20 7b 0a  Final {token} {.
14a0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 63 6b 73      variable cks
14b0: 75 6d 5f 74 62 6c 0a 20 20 20 20 75 70 76 61 72  um_tbl.    upvar
14c0: 20 23 30 20 24 74 6f 6b 65 6e 20 73 74 61 74 65   #0 $token state
14d0: 0a 20 20 20 20 73 65 74 20 74 20 24 73 74 61 74  .    set t $stat
14e0: 65 28 74 29 0a 20 20 20 20 66 6f 72 20 7b 73 65  e(t).    for {se
14f0: 74 20 69 20 24 73 74 61 74 65 28 6c 29 7d 20 7b  t i $state(l)} {
1500: 24 69 20 3e 20 30 7d 20 7b 73 65 74 20 69 20 5b  $i > 0} {set i [
1510: 65 78 70 72 20 7b 24 69 3e 3e 38 7d 5d 7d 20 7b  expr {$i>>8}]} {
1520: 0a 20 20 20 20 20 20 20 20 73 65 74 20 74 20 5b  .        set t [
1530: 65 78 70 72 20 7b 28 24 74 20 3c 3c 20 38 29 20  expr {($t << 8) 
1540: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  \.              
1550: 20 20 20 20 20 20 20 20 20 20 20 5e 20 5b 6c 69             ^ [li
1560: 6e 64 65 78 20 24 63 6b 73 75 6d 5f 74 62 6c 20  ndex $cksum_tbl 
1570: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  \.              
1580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1590: 20 20 5b 65 78 70 72 20 7b 28 28 24 74 20 3e 3e    [expr {(($t >>
15a0: 20 32 34 29 20 5e 20 24 69 29 20 26 20 30 78 46   24) ^ $i) & 0xF
15b0: 46 7d 5d 5d 7d 5d 0a 20 20 20 20 7d 0a 20 20 20  F}]]}].    }.   
15c0: 20 75 6e 73 65 74 20 73 74 61 74 65 0a 20 20 20   unset state.   
15d0: 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 7e   return [expr {~
15e0: 24 74 20 26 20 30 78 46 46 46 46 46 46 46 46 7d  $t & 0xFFFFFFFF}
15f0: 5d 0a 7d 0a 0a 23 20 63 72 63 3a 3a 50 6f 70 20  ].}..# crc::Pop 
1600: 2d 2d 0a 23 0a 23 09 50 6f 70 20 74 68 65 20 6e  --.#.#.Pop the n
1610: 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 66 20 61  th element off a
1620: 20 6c 69 73 74 2e 20 55 73 65 64 20 69 6e 20 6f   list. Used in o
1630: 70 74 69 6f 6e 73 20 70 72 6f 63 65 73 73 69 6e  ptions processin
1640: 67 2e 0a 23 0a 70 72 6f 63 20 3a 3a 63 72 63 3a  g..#.proc ::crc:
1650: 3a 50 6f 70 20 7b 76 61 72 6e 61 6d 65 20 7b 6e  :Pop {varname {n
1660: 74 68 20 30 7d 7d 20 7b 0a 20 20 20 20 75 70 76  th 0}} {.    upv
1670: 61 72 20 24 76 61 72 6e 61 6d 65 20 61 72 67 73  ar $varname args
1680: 0a 20 20 20 20 73 65 74 20 72 20 5b 6c 69 6e 64  .    set r [lind
1690: 65 78 20 24 61 72 67 73 20 24 6e 74 68 5d 0a 20  ex $args $nth]. 
16a0: 20 20 20 73 65 74 20 61 72 67 73 20 5b 6c 72 65     set args [lre
16b0: 70 6c 61 63 65 20 24 61 72 67 73 20 24 6e 74 68  place $args $nth
16c0: 20 24 6e 74 68 5d 0a 20 20 20 20 72 65 74 75 72   $nth].    retur
16d0: 6e 20 24 72 0a 7d 0a 0a 23 20 44 65 73 63 72 69  n $r.}..# Descri
16e0: 70 74 69 6f 6e 3a 0a 23 20 20 50 72 6f 76 69 64  ption:.#  Provid
16f0: 65 20 61 20 54 63 6c 20 65 71 75 69 76 61 6c 65  e a Tcl equivale
1700: 6e 74 20 6f 66 20 74 68 65 20 75 6e 69 78 20 63  nt of the unix c
1710: 6b 73 75 6d 28 31 29 20 63 6f 6d 6d 61 6e 64 2e  ksum(1) command.
1720: 0a 23 20 4f 70 74 69 6f 6e 73 3a 0a 23 20 20 2d  .# Options:.#  -
1730: 66 69 6c 65 6e 61 6d 65 20 6e 61 6d 65 20 20 2d  filename name  -
1740: 20 72 65 74 75 72 6e 20 61 20 63 68 65 63 6b 73   return a checks
1750: 75 6d 20 66 6f 72 20 74 68 65 20 73 70 65 63 69  um for the speci
1760: 66 69 65 64 20 66 69 6c 65 2e 0a 23 20 20 2d 66  fied file..#  -f
1770: 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 20 2d 20  ormat string  - 
1780: 72 65 74 75 72 6e 20 74 68 65 20 63 68 65 63 6b  return the check
1790: 73 75 6d 20 75 73 69 6e 67 20 74 68 69 73 20 66  sum using this f
17a0: 6f 72 6d 61 74 20 73 74 72 69 6e 67 2e 0a 23 20  ormat string..# 
17b0: 20 2d 63 68 75 6e 6b 73 69 7a 65 20 73 69 7a 65   -chunksize size
17c0: 20 2d 20 73 65 74 20 74 68 65 20 63 68 75 6e 6b   - set the chunk
17d0: 69 6e 67 20 72 65 61 64 20 73 69 7a 65 0a 23 0a  ing read size.#.
17e0: 70 72 6f 63 20 3a 3a 63 72 63 3a 3a 63 6b 73 75  proc ::crc::cksu
17f0: 6d 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20 61  m {args} {.    a
1800: 72 72 61 79 20 73 65 74 20 6f 70 74 73 20 5b 6c  rray set opts [l
1810: 69 73 74 20 2d 66 69 6c 65 6e 61 6d 65 20 7b 7d  ist -filename {}
1820: 20 2d 63 68 61 6e 6e 65 6c 20 7b 7d 20 2d 63 68   -channel {} -ch
1830: 75 6e 6b 73 69 7a 65 20 34 30 39 36 20 5c 0a 20  unksize 4096 \. 
1840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1850: 20 20 20 20 20 20 20 2d 66 6f 72 6d 61 74 20 25         -format %
1860: 75 20 2d 63 6f 6d 6d 61 6e 64 20 7b 7d 5d 0a 20  u -command {}]. 
1870: 20 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 6e     while {[strin
1880: 67 20 6d 61 74 63 68 20 2d 2a 20 5b 73 65 74 20  g match -* [set 
1890: 6f 70 74 69 6f 6e 20 5b 6c 69 6e 64 65 78 20 24  option [lindex $
18a0: 61 72 67 73 20 30 5d 5d 5d 7d 20 7b 0a 20 20 20  args 0]]]} {.   
18b0: 20 20 20 20 20 73 77 69 74 63 68 20 2d 67 6c 6f       switch -glo
18c0: 62 20 2d 2d 20 24 6f 70 74 69 6f 6e 20 7b 0a 20  b -- $option {. 
18d0: 20 20 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65             -file
18e0: 2a 20 20 20 7b 20 73 65 74 20 6f 70 74 73 28 2d  *   { set opts(-
18f0: 66 69 6c 65 6e 61 6d 65 29 20 5b 50 6f 70 20 61  filename) [Pop a
1900: 72 67 73 20 31 5d 20 7d 0a 20 20 20 20 20 20 20  rgs 1] }.       
1910: 20 20 20 20 20 2d 63 68 61 6e 2a 20 20 20 7b 20       -chan*   { 
1920: 73 65 74 20 6f 70 74 73 28 2d 63 68 61 6e 6e 65  set opts(-channe
1930: 6c 29 20 5b 50 6f 70 20 61 72 67 73 20 31 5d 20  l) [Pop args 1] 
1940: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 2d 63  }.            -c
1950: 68 75 6e 6b 2a 20 20 7b 20 73 65 74 20 6f 70 74  hunk*  { set opt
1960: 73 28 2d 63 68 75 6e 6b 73 69 7a 65 29 20 5b 50  s(-chunksize) [P
1970: 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 20  op args 1] }.   
1980: 20 20 20 20 20 20 20 20 20 2d 66 6f 72 2a 20 20           -for*  
1990: 20 20 7b 20 73 65 74 20 6f 70 74 73 28 2d 66 6f    { set opts(-fo
19a0: 72 6d 61 74 29 20 20 20 5b 50 6f 70 20 61 72 67  rmat)   [Pop arg
19b0: 73 20 31 5d 20 7d 0a 20 20 20 20 20 20 20 20 20  s 1] }.         
19c0: 20 20 20 2d 63 6f 6d 6d 61 6e 64 20 7b 20 73 65     -command { se
19d0: 74 20 6f 70 74 73 28 2d 63 6f 6d 6d 61 6e 64 29  t opts(-command)
19e0: 20 20 5b 50 6f 70 20 61 72 67 73 20 31 5d 20 7d    [Pop args 1] }
19f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66  .            def
1a00: 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20 20 20  ault {.         
1a10: 20 20 20 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e         if {[llen
1a20: 67 74 68 20 24 61 72 67 73 5d 20 3d 3d 20 31 7d  gth $args] == 1}
1a30: 20 7b 20 62 72 65 61 6b 20 7d 0a 20 20 20 20 20   { break }.     
1a40: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b             if {[
1a50: 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20 24  string compare $
1a60: 6f 70 74 69 6f 6e 20 22 2d 2d 22 5d 20 3d 3d 20  option "--"] == 
1a70: 30 7d 20 7b 20 50 6f 70 20 61 72 67 73 20 3b 20  0} { Pop args ; 
1a80: 62 72 65 61 6b 20 7d 0a 20 20 20 20 20 20 20 20  break }.        
1a90: 20 20 20 20 20 20 20 20 73 65 74 20 65 72 72 20          set err 
1aa0: 5b 6a 6f 69 6e 20 5b 6c 73 6f 72 74 20 5b 61 72  [join [lsort [ar
1ab0: 72 61 79 20 6e 61 6d 65 73 20 6f 70 74 73 20 2d  ray names opts -
1ac0: 2a 5d 5d 20 22 2c 20 22 5d 0a 20 20 20 20 20 20  *]] ", "].      
1ad0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
1ae0: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 62 61   -code error "ba
1af0: 64 20 6f 70 74 69 6f 6e 20 5c 22 6f 70 74 69 6f  d option \"optio
1b00: 6e 5c 22 3a 20 6d 75 73 74 20 62 65 20 24 65 72  n\": must be $er
1b10: 72 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  r".            }
1b20: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
1b30: 20 20 20 50 6f 70 20 61 72 67 73 0a 20 20 20 20     Pop args.    
1b40: 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 74 73  }..    if {$opts
1b50: 28 2d 66 69 6c 65 6e 61 6d 65 29 20 21 3d 20 7b  (-filename) != {
1b60: 7d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  }} {.        set
1b70: 20 6f 70 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20   opts(-channel) 
1b80: 5b 6f 70 65 6e 20 24 6f 70 74 73 28 2d 66 69 6c  [open $opts(-fil
1b90: 65 6e 61 6d 65 29 20 72 5d 0a 20 20 20 20 20 20  ename) r].      
1ba0: 20 20 66 63 6f 6e 66 69 67 75 72 65 20 24 6f 70    fconfigure $op
1bb0: 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20 2d 74 72  ts(-channel) -tr
1bc0: 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79  anslation binary
1bd0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b  .    }..    if {
1be0: 24 6f 70 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20  $opts(-channel) 
1bf0: 3d 3d 20 7b 7d 7d 20 7b 0a 0a 20 20 20 20 20 20  == {}} {..      
1c00: 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24    if {[llength $
1c10: 61 72 67 73 5d 20 21 3d 20 31 7d 20 7b 0a 20 20  args] != 1} {.  
1c20: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
1c30: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 77 72   -code error "wr
1c40: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75  ong # args: shou
1c50: 6c 64 20 62 65 5c 0a 20 20 20 20 20 20 20 20 20  ld be\.         
1c60: 20 20 20 20 20 20 20 63 6b 73 75 6d 20 3f 2d 66         cksum ?-f
1c70: 6f 72 6d 61 74 20 73 74 72 69 6e 67 3f 5c 0a 20  ormat string?\. 
1c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d                 -
1c90: 63 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d  channel chan | -
1ca0: 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 20 7c 20  filename file | 
1cb0: 73 74 72 69 6e 67 22 0a 20 20 20 20 20 20 20 20  string".        
1cc0: 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 74 6f  }.        set to
1cd0: 6b 20 5b 43 6b 73 75 6d 49 6e 69 74 5d 0a 20 20  k [CksumInit].  
1ce0: 20 20 20 20 20 20 43 6b 73 75 6d 55 70 64 61 74        CksumUpdat
1cf0: 65 20 24 74 6f 6b 20 5b 6c 69 6e 64 65 78 20 24  e $tok [lindex $
1d00: 61 72 67 73 20 30 5d 0a 20 20 20 20 20 20 20 20  args 0].        
1d10: 73 65 74 20 72 20 5b 43 6b 73 75 6d 46 69 6e 61  set r [CksumFina
1d20: 6c 20 24 74 6f 6b 5d 0a 20 20 20 20 0a 20 20 20  l $tok].    .   
1d30: 20 7d 20 65 6c 73 65 20 7b 0a 0a 20 20 20 20 20   } else {..     
1d40: 20 20 20 73 65 74 20 74 6f 6b 20 5b 43 6b 73 75     set tok [Cksu
1d50: 6d 49 6e 69 74 5d 0a 20 20 20 20 20 20 20 20 77  mInit].        w
1d60: 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24 6f 70 74  hile {![eof $opt
1d70: 73 28 2d 63 68 61 6e 6e 65 6c 29 5d 7d 20 7b 0a  s(-channel)]} {.
1d80: 20 20 20 20 20 20 20 20 20 20 20 20 43 6b 73 75              Cksu
1d90: 6d 55 70 64 61 74 65 20 24 74 6f 6b 20 5b 72 65  mUpdate $tok [re
1da0: 61 64 20 24 6f 70 74 73 28 2d 63 68 61 6e 6e 65  ad $opts(-channe
1db0: 6c 29 20 24 6f 70 74 73 28 2d 63 68 75 6e 6b 73  l) $opts(-chunks
1dc0: 69 7a 65 29 5d 0a 20 20 20 20 20 20 20 20 7d 0a  ize)].        }.
1dd0: 20 20 20 20 20 20 20 20 73 65 74 20 72 20 5b 43          set r [C
1de0: 6b 73 75 6d 46 69 6e 61 6c 20 24 74 6f 6b 5d 0a  ksumFinal $tok].
1df0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 6f 70  .        if {$op
1e00: 74 73 28 2d 66 69 6c 65 6e 61 6d 65 29 20 21 3d  ts(-filename) !=
1e10: 20 7b 7d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20   {}} {.         
1e20: 20 20 20 63 6c 6f 73 65 20 24 6f 70 74 73 28 2d     close $opts(-
1e30: 63 68 61 6e 6e 65 6c 29 0a 20 20 20 20 20 20 20  channel).       
1e40: 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65   }.    }..    re
1e50: 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 24 6f 70  turn [format $op
1e60: 74 73 28 2d 66 6f 72 6d 61 74 29 20 24 72 5d 0a  ts(-format) $r].
1e70: 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..# -----------
1e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a  --------------..
1ec0: 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20  package provide 
1ed0: 63 6b 73 75 6d 20 24 3a 3a 63 72 63 3a 3a 63 6b  cksum $::crc::ck
1ee0: 73 75 6d 5f 76 65 72 73 69 6f 6e 0a 0a 23 20 2d  sum_version..# -
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 4c 6f 63 61 6c  --------.# Local
1f40: 20 76 61 72 69 61 62 6c 65 73 3a 0a 23 20 20 20   variables:.#   
1f50: 6d 6f 64 65 3a 20 74 63 6c 0a 23 20 20 20 69 6e  mode: tcl.#   in
1f60: 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20  dent-tabs-mode: 
1f70: 6e 69 6c 0a 23 20 45 6e 64 3a 0a                 nil.# End:.