Hex Artifact Content

Artifact ce5afd32b38622250a8fb46c9d194fe84046a64d:


0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20  #! /usr/bin/env 
0010: 74 63 6c 73 68 0a 0a 69 66 20 7b 5b 6c 6c 65 6e  tclsh..if {[llen
0020: 67 74 68 20 24 61 72 67 76 5d 20 21 3d 20 32 7d  gth $argv] != 2}
0030: 20 7b 0a 09 70 75 74 73 20 73 74 64 65 72 72 20   {..puts stderr 
0040: 22 55 73 61 67 65 3a 20 64 69 72 32 63 20 3c 68  "Usage: dir2c <h
0050: 61 73 68 6b 65 79 3e 20 3c 73 74 61 72 74 64 69  ashkey> <startdi
0060: 72 3e 22 0a 0a 09 65 78 69 74 20 31 0a 7d 0a 0a  r>"...exit 1.}..
0070: 73 65 74 20 68 61 73 68 6b 65 79 20 5b 6c 69 6e  set hashkey [lin
0080: 64 65 78 20 24 61 72 67 76 20 30 5d 0a 73 65 74  dex $argv 0].set
0090: 20 73 74 61 72 74 64 69 72 20 5b 6c 69 6e 64 65   startdir [linde
00a0: 78 20 24 61 72 67 76 20 31 5d 0a 0a 70 72 6f 63  x $argv 1]..proc
00b0: 20 73 68 6f 72 74 65 6e 5f 66 69 6c 65 20 7b 64   shorten_file {d
00c0: 69 72 20 66 69 6c 65 7d 20 7b 0a 09 73 65 74 20  ir file} {..set 
00d0: 64 69 72 4e 61 6d 65 4c 65 6e 20 5b 73 74 72 69  dirNameLen [stri
00e0: 6e 67 20 6c 65 6e 67 74 68 20 24 64 69 72 5d 0a  ng length $dir].
00f0: 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 72 61  ..if {[string ra
0100: 6e 67 65 20 24 66 69 6c 65 20 30 20 5b 65 78 70  nge $file 0 [exp
0110: 72 20 7b 24 64 69 72 4e 61 6d 65 4c 65 6e 20 2d  r {$dirNameLen -
0120: 20 31 7d 5d 5d 20 3d 3d 20 24 64 69 72 7d 20 7b   1}]] == $dir} {
0130: 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 73 74 72  ...set file [str
0140: 69 6e 67 20 72 61 6e 67 65 20 24 66 69 6c 65 20  ing range $file 
0150: 24 64 69 72 4e 61 6d 65 4c 65 6e 20 65 6e 64 5d  $dirNameLen end]
0160: 0a 09 7d 0a 0a 09 69 66 20 7b 5b 73 74 72 69 6e  ..}...if {[strin
0170: 67 20 69 6e 64 65 78 20 24 66 69 6c 65 20 30 5d  g index $file 0]
0180: 20 3d 3d 20 22 2f 22 7d 20 7b 0a 09 09 73 65 74   == "/"} {...set
0190: 20 66 69 6c 65 20 5b 73 74 72 69 6e 67 20 72 61   file [string ra
01a0: 6e 67 65 20 24 66 69 6c 65 20 31 20 65 6e 64 5d  nge $file 1 end]
01b0: 0a 09 7d 0a 09 72 65 74 75 72 6e 20 24 66 69 6c  ..}..return $fil
01c0: 65 0a 7d 0a 0a 70 72 6f 63 20 72 65 63 75 72 73  e.}..proc recurs
01d0: 69 76 65 5f 67 6c 6f 62 20 7b 64 69 72 7d 20 7b  ive_glob {dir} {
01e0: 0a 09 73 65 74 20 63 68 69 6c 64 72 65 6e 20 5b  ..set children [
01f0: 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  glob -nocomplain
0200: 20 2d 64 69 72 65 63 74 6f 72 79 20 24 64 69 72   -directory $dir
0210: 20 2a 5d 0a 0a 09 73 65 74 20 72 65 74 20 5b 6c   *]...set ret [l
0220: 69 73 74 5d 0a 09 66 6f 72 65 61 63 68 20 63 68  ist]..foreach ch
0230: 69 6c 64 20 24 63 68 69 6c 64 72 65 6e 20 7b 0a  ild $children {.
0240: 09 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c  ..unset -nocompl
0250: 61 69 6e 20 63 68 69 6c 64 69 6e 66 6f 0a 09 09  ain childinfo...
0260: 63 61 74 63 68 20 7b 0a 09 09 09 66 69 6c 65 20  catch {....file 
0270: 73 74 61 74 20 24 63 68 69 6c 64 20 63 68 69 6c  stat $child chil
0280: 64 69 6e 66 6f 0a 09 09 7d 0a 0a 09 09 69 66 20  dinfo...}....if 
0290: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 63  {![info exists c
02a0: 68 69 6c 64 69 6e 66 6f 28 74 79 70 65 29 5d 7d  hildinfo(type)]}
02b0: 20 7b 0a 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09   {....continue..
02c0: 09 7d 0a 0a 09 09 69 66 20 7b 24 63 68 69 6c 64  .}....if {$child
02d0: 69 6e 66 6f 28 74 79 70 65 29 20 3d 3d 20 22 64  info(type) == "d
02e0: 69 72 65 63 74 6f 72 79 22 7d 20 7b 0a 09 09 09  irectory"} {....
02f0: 66 6f 72 65 61 63 68 20 61 64 64 20 5b 72 65 63  foreach add [rec
0300: 75 72 73 69 76 65 5f 67 6c 6f 62 20 24 63 68 69  ursive_glob $chi
0310: 6c 64 5d 20 7b 0a 09 09 09 09 6c 61 70 70 65 6e  ld] {.....lappen
0320: 64 20 72 65 74 20 24 61 64 64 0a 09 09 09 7d 0a  d ret $add....}.
0330: 0a 09 09 09 6c 61 70 70 65 6e 64 20 72 65 74 20  ....lappend ret 
0340: 24 63 68 69 6c 64 0a 0a 09 09 09 63 6f 6e 74 69  $child.....conti
0350: 6e 75 65 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 24  nue...}....if {$
0360: 63 68 69 6c 64 69 6e 66 6f 28 74 79 70 65 29 20  childinfo(type) 
0370: 21 3d 20 22 66 69 6c 65 22 7d 20 7b 0a 09 09 09  != "file"} {....
0380: 63 6f 6e 74 69 6e 75 65 0a 09 09 7d 0a 0a 09 09  continue...}....
0390: 6c 61 70 70 65 6e 64 20 72 65 74 20 24 63 68 69  lappend ret $chi
03a0: 6c 64 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 20 24  ld..}...return $
03b0: 72 65 74 0a 7d 0a 0a 70 72 6f 63 20 64 69 72 32  ret.}..proc dir2
03c0: 63 5f 68 61 73 68 20 7b 70 61 74 68 7d 20 7b 0a  c_hash {path} {.
03d0: 09 73 65 74 20 68 20 30 0a 09 73 65 74 20 67 20  .set h 0..set g 
03e0: 30 0a 0a 09 66 6f 72 20 7b 73 65 74 20 69 64 78  0...for {set idx
03f0: 20 30 7d 20 7b 24 69 64 78 20 3c 20 5b 73 74 72   0} {$idx < [str
0400: 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 61 74 68  ing length $path
0410: 5d 7d 20 7b 69 6e 63 72 20 69 64 78 7d 20 7b 0a  ]} {incr idx} {.
0420: 09 09 62 69 6e 61 72 79 20 73 63 61 6e 20 5b 73  ..binary scan [s
0430: 74 72 69 6e 67 20 69 6e 64 65 78 20 24 70 61 74  tring index $pat
0440: 68 20 24 69 64 78 5d 20 48 2a 20 63 68 61 72 0a  h $idx] H* char.
0450: 09 09 73 65 74 20 63 68 61 72 20 22 30 78 24 63  ..set char "0x$c
0460: 68 61 72 22 0a 0a 09 09 73 65 74 20 68 20 5b 65  har"....set h [e
0470: 78 70 72 20 7b 28 24 68 20 3c 3c 20 34 29 20 2b  xpr {($h << 4) +
0480: 20 24 63 68 61 72 7d 5d 0a 09 09 73 65 74 20 67   $char}]...set g
0490: 20 5b 65 78 70 72 20 7b 24 68 20 26 20 30 78 66   [expr {$h & 0xf
04a0: 30 30 30 30 30 30 30 7d 5d 0a 09 09 69 66 20 7b  0000000}]...if {
04b0: 24 67 20 21 3d 20 30 7d 20 7b 0a 09 09 09 73 65  $g != 0} {....se
04c0: 74 20 68 20 5b 65 78 70 72 20 7b 28 24 68 20 26  t h [expr {($h &
04d0: 20 30 78 66 66 66 66 66 66 66 66 29 20 5e 20 28   0xffffffff) ^ (
04e0: 24 67 20 3e 3e 20 32 34 29 7d 5d 0a 09 09 7d 0a  $g >> 24)}]...}.
04f0: 0a 09 09 73 65 74 20 68 20 5b 65 78 70 72 20 7b  ...set h [expr {
0500: 24 68 20 26 20 28 28 7e 24 67 29 20 26 20 30 78  $h & ((~$g) & 0x
0510: 66 66 66 66 66 66 66 66 29 7d 5d 0a 09 7d 0a 0a  ffffffff)}]..}..
0520: 09 72 65 74 75 72 6e 20 24 68 0a 7d 0a 0a 70 72  .return $h.}..pr
0530: 6f 63 20 73 74 72 69 6e 67 69 66 79 20 7b 64 61  oc stringify {da
0540: 74 61 7d 20 7b 0a 09 73 65 74 20 72 65 74 20 22  ta} {..set ret "
0550: 5c 22 22 0a 09 66 6f 72 20 7b 73 65 74 20 69 64  \""..for {set id
0560: 78 20 30 7d 20 7b 24 69 64 78 20 3c 20 5b 73 74  x 0} {$idx < [st
0570: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 74  ring length $dat
0580: 61 5d 7d 20 7b 69 6e 63 72 20 69 64 78 7d 20 7b  a]} {incr idx} {
0590: 0a 09 09 62 69 6e 61 72 79 20 73 63 61 6e 20 5b  ...binary scan [
05a0: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 64 61  string index $da
05b0: 74 61 20 24 69 64 78 5d 20 48 2a 20 63 68 61 72  ta $idx] H* char
05c0: 0a 0a 09 09 61 70 70 65 6e 64 20 72 65 74 20 22  ....append ret "
05d0: 5c 5c 78 24 7b 63 68 61 72 7d 22 0a 0a 09 09 69  \\x${char}"....i
05e0: 66 20 7b 28 24 69 64 78 20 25 20 32 30 29 20 3d  f {($idx % 20) =
05f0: 3d 20 30 20 26 26 20 24 69 64 78 20 21 3d 20 30  = 0 && $idx != 0
0600: 7d 20 7b 0a 09 09 09 61 70 70 65 6e 64 20 72 65  } {....append re
0610: 74 20 22 5c 22 5c 6e 5c 22 22 0a 09 09 7d 0a 09  t "\"\n\""...}..
0620: 7d 0a 0a 09 73 65 74 20 72 65 74 20 5b 73 74 72  }...set ret [str
0630: 69 6e 67 20 74 72 69 6d 20 24 72 65 74 20 22 5c  ing trim $ret "\
0640: 6e 5c 22 22 5d 0a 0a 09 73 65 74 20 72 65 74 20  n\""]...set ret 
0650: 22 5c 22 24 72 65 74 5c 22 22 0a 0a 09 72 65 74  "\"$ret\""...ret
0660: 75 72 6e 20 24 72 65 74 0a 7d 0a 0a 73 65 74 20  urn $ret.}..set 
0670: 66 69 6c 65 73 20 5b 72 65 63 75 72 73 69 76 65  files [recursive
0680: 5f 67 6c 6f 62 20 24 73 74 61 72 74 64 69 72 5d  _glob $startdir]
0690: 0a 0a 73 65 74 20 63 70 70 5f 74 61 67 20 22 44  ..set cpp_tag "D
06a0: 49 52 32 43 5f 5b 73 74 72 69 6e 67 20 74 6f 75  IR2C_[string tou
06b0: 70 70 65 72 20 24 68 61 73 68 6b 65 79 5d 22 0a  pper $hashkey]".
06c0: 73 65 74 20 63 6f 64 65 5f 74 61 67 20 22 64 69  set code_tag "di
06d0: 72 32 63 5f 5b 73 74 72 69 6e 67 20 74 6f 6c 6f  r2c_[string tolo
06e0: 77 65 72 20 24 68 61 73 68 6b 65 79 5d 22 0a 0a  wer $hashkey]"..
06f0: 70 75 74 73 20 22 23 69 66 6e 64 65 66 20 24 63  puts "#ifndef $c
0700: 70 70 5f 74 61 67 22 0a 70 75 74 73 20 22 23 20  pp_tag".puts "# 
0710: 20 64 65 66 69 6e 65 20 24 63 70 70 5f 74 61 67   define $cpp_tag
0720: 20 31 22 0a 70 75 74 73 20 7b 23 20 20 69 6e 63   1".puts {#  inc
0730: 6c 75 64 65 20 3c 75 6e 69 73 74 64 2e 68 3e 0a  lude <unistd.h>.
0740: 0a 23 20 20 69 66 6e 64 65 66 20 4c 4f 41 44 45  .#  ifndef LOADE
0750: 44 5f 44 49 52 32 43 5f 43 4f 4d 4d 4f 4e 0a 23  D_DIR2C_COMMON.#
0760: 20 20 20 20 64 65 66 69 6e 65 20 4c 4f 41 44 45      define LOADE
0770: 44 5f 44 49 52 32 43 5f 43 4f 4d 4d 4f 4e 20 31  D_DIR2C_COMMON 1
0780: 0a 0a 74 79 70 65 64 65 66 20 65 6e 75 6d 20 7b  ..typedef enum {
0790: 0a 09 44 49 52 32 43 5f 46 49 4c 45 54 59 50 45  ..DIR2C_FILETYPE
07a0: 5f 46 49 4c 45 2c 0a 09 44 49 52 32 43 5f 46 49  _FILE,..DIR2C_FI
07b0: 4c 45 54 59 50 45 5f 44 49 52 0a 7d 20 64 69 72  LETYPE_DIR.} dir
07c0: 32 63 5f 66 69 6c 65 74 79 70 65 5f 74 3b 0a 0a  2c_filetype_t;..
07d0: 73 74 72 75 63 74 20 64 69 72 32 63 5f 64 61 74  struct dir2c_dat
07e0: 61 20 7b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20  a {..const char 
07f0: 20 20 20 20 20 20 20 20 20 20 20 2a 6e 61 6d 65             *name
0800: 3b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67  ;..unsigned long
0810: 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3b 0a           index;.
0820: 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 20  .unsigned long  
0830: 20 20 20 20 20 20 20 73 69 7a 65 3b 0a 09 64 69         size;..di
0840: 72 32 63 5f 66 69 6c 65 74 79 70 65 5f 74 20 20  r2c_filetype_t  
0850: 20 20 20 20 74 79 70 65 3b 0a 09 63 6f 6e 73 74      type;..const
0860: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 20   unsigned char  
0870: 20 2a 64 61 74 61 3b 0a 7d 3b 0a 0a 73 74 61 74   *data;.};..stat
0880: 69 63 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67  ic unsigned long
0890: 20 64 69 72 32 63 5f 68 61 73 68 28 63 6f 6e 73   dir2c_hash(cons
08a0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20  t unsigned char 
08b0: 2a 70 61 74 68 29 20 7b 0a 09 75 6e 73 69 67 6e  *path) {..unsign
08c0: 65 64 20 6c 6f 6e 67 20 69 2c 20 68 20 3d 20 30  ed long i, h = 0
08d0: 2c 20 67 20 3d 20 30 3b 0a 0a 09 66 6f 72 20 28  , g = 0;...for (
08e0: 69 20 3d 20 30 3b 20 70 61 74 68 5b 69 5d 3b 20  i = 0; path[i]; 
08f0: 69 2b 2b 29 20 7b 0a 09 09 68 20 3d 20 28 68 20  i++) {...h = (h 
0900: 3c 3c 20 34 29 20 2b 20 70 61 74 68 5b 69 5d 3b  << 4) + path[i];
0910: 0a 09 09 67 20 3d 20 68 20 26 20 30 78 66 30 30  ...g = h & 0xf00
0920: 30 30 30 30 30 3b 0a 09 09 69 66 20 28 67 29 20  00000;...if (g) 
0930: 7b 0a 09 09 09 68 20 5e 3d 20 28 67 20 3e 3e 20  {....h ^= (g >> 
0940: 32 34 29 3b 0a 09 09 7d 0a 09 09 68 20 26 3d 20  24);...}...h &= 
0950: 28 28 7e 67 29 20 26 20 30 78 66 66 66 66 66 66  ((~g) & 0xffffff
0960: 66 66 4c 55 29 3b 0a 09 7d 0a 20 20 20 20 20 20  ffLU);..}.      
0970: 20 20 0a 20 20 20 20 20 20 20 20 72 65 74 75 72    .        retur
0980: 6e 28 68 29 3b 0a 7d 0a 0a 23 20 20 65 6e 64 69  n(h);.}..#  endi
0990: 66 20 2f 2a 20 21 4c 4f 41 44 45 44 5f 44 49 52  f /* !LOADED_DIR
09a0: 32 43 5f 43 4f 4d 4d 4f 4e 20 2a 2f 7d 0a 70 75  2C_COMMON */}.pu
09b0: 74 73 20 22 22 0a 0a 70 75 74 73 20 22 73 74 61  ts ""..puts "sta
09c0: 74 69 63 20 73 74 72 75 63 74 20 64 69 72 32 63  tic struct dir2c
09d0: 5f 64 61 74 61 20 24 7b 63 6f 64 65 5f 74 61 67  _data ${code_tag
09e0: 7d 5f 64 61 74 61 5c 5b 5c 5d 20 3d 20 7b 22 0a  }_data\[\] = {".
09f0: 70 75 74 73 20 22 5c 74 7b 22 0a 70 75 74 73 20  puts "\t{".puts 
0a00: 22 5c 74 5c 74 2e 6e 61 6d 65 20 20 3d 20 4e 55  "\t\t.name  = NU
0a10: 4c 4c 2c 22 0a 70 75 74 73 20 22 5c 74 5c 74 2e  LL,".puts "\t\t.
0a20: 69 6e 64 65 78 20 3d 20 30 2c 22 0a 70 75 74 73  index = 0,".puts
0a30: 20 22 5c 74 5c 74 2e 74 79 70 65 20 20 3d 20 30   "\t\t.type  = 0
0a40: 2c 22 0a 70 75 74 73 20 22 5c 74 5c 74 2e 73 69  ,".puts "\t\t.si
0a50: 7a 65 20 20 3d 20 30 2c 22 0a 70 75 74 73 20 22  ze  = 0,".puts "
0a60: 5c 74 5c 74 2e 64 61 74 61 20 20 3d 20 4e 55 4c  \t\t.data  = NUL
0a70: 4c 2c 22 0a 70 75 74 73 20 22 5c 74 7d 2c 22 0a  L,".puts "\t},".
0a80: 70 75 74 73 20 22 5c 74 7b 22 0a 70 75 74 73 20  puts "\t{".puts 
0a90: 22 5c 74 5c 74 2e 6e 61 6d 65 20 20 3d 20 5c 22  "\t\t.name  = \"
0aa0: 5c 22 2c 22 0a 70 75 74 73 20 22 5c 74 5c 74 2e  \",".puts "\t\t.
0ab0: 69 6e 64 65 78 20 3d 20 31 2c 22 0a 70 75 74 73  index = 1,".puts
0ac0: 20 22 5c 74 5c 74 2e 74 79 70 65 20 20 3d 20 44   "\t\t.type  = D
0ad0: 49 52 32 43 5f 46 49 4c 45 54 59 50 45 5f 44 49  IR2C_FILETYPE_DI
0ae0: 52 2c 22 0a 70 75 74 73 20 22 5c 74 5c 74 2e 73  R,".puts "\t\t.s
0af0: 69 7a 65 20 20 3d 20 30 2c 22 0a 70 75 74 73 20  ize  = 0,".puts 
0b00: 22 5c 74 5c 74 2e 64 61 74 61 20 20 3d 20 4e 55  "\t\t.data  = NU
0b10: 4c 4c 2c 22 0a 70 75 74 73 20 22 5c 74 7d 2c 22  LL,".puts "\t},"
0b20: 0a 66 6f 72 20 7b 73 65 74 20 69 64 78 20 30 7d  .for {set idx 0}
0b30: 20 7b 24 69 64 78 20 3c 20 5b 6c 6c 65 6e 67 74   {$idx < [llengt
0b40: 68 20 24 66 69 6c 65 73 5d 7d 20 7b 69 6e 63 72  h $files]} {incr
0b50: 20 69 64 78 7d 20 7b 0a 09 73 65 74 20 66 69 6c   idx} {..set fil
0b60: 65 20 5b 6c 69 6e 64 65 78 20 24 66 69 6c 65 73  e [lindex $files
0b70: 20 24 69 64 78 5d 0a 09 73 65 74 20 73 68 6f 72   $idx]..set shor
0b80: 74 66 69 6c 65 20 5b 73 68 6f 72 74 65 6e 5f 66  tfile [shorten_f
0b90: 69 6c 65 20 24 73 74 61 72 74 64 69 72 20 24 66  ile $startdir $f
0ba0: 69 6c 65 5d 0a 0a 09 75 6e 73 65 74 20 2d 6e 6f  ile]...unset -no
0bb0: 63 6f 6d 70 6c 61 69 6e 20 66 69 6e 66 6f 20 74  complain finfo t
0bc0: 79 70 65 0a 09 66 69 6c 65 20 73 74 61 74 20 24  ype..file stat $
0bd0: 66 69 6c 65 20 66 69 6e 66 6f 0a 0a 09 73 77 69  file finfo...swi
0be0: 74 63 68 20 2d 2d 20 24 66 69 6e 66 6f 28 74 79  tch -- $finfo(ty
0bf0: 70 65 29 20 7b 0a 09 09 22 66 69 6c 65 22 20 7b  pe) {..."file" {
0c00: 0a 09 09 09 73 65 74 20 74 79 70 65 20 22 44 49  ....set type "DI
0c10: 52 32 43 5f 46 49 4c 45 54 59 50 45 5f 46 49 4c  R2C_FILETYPE_FIL
0c20: 45 22 0a 09 09 09 73 65 74 20 73 69 7a 65 20 24  E"....set size $
0c30: 66 69 6e 66 6f 28 73 69 7a 65 29 0a 0a 09 09 09  finfo(size).....
0c40: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 66 69  set fd [open $fi
0c50: 6c 65 5d 0a 09 09 09 66 63 6f 6e 66 69 67 75 72  le]....fconfigur
0c60: 65 20 24 66 64 20 2d 74 72 61 6e 73 6c 61 74 69  e $fd -translati
0c70: 6f 6e 20 62 69 6e 61 72 79 0a 09 09 09 73 65 74  on binary....set
0c80: 20 64 61 74 61 20 5b 72 65 61 64 20 24 66 64 5d   data [read $fd]
0c90: 0a 09 09 09 63 6c 6f 73 65 20 24 66 64 0a 0a 09  ....close $fd...
0ca0: 09 09 73 65 74 20 64 61 74 61 20 5b 73 74 72 69  ..set data [stri
0cb0: 6e 67 69 66 79 20 24 64 61 74 61 5d 0a 09 09 7d  ngify $data]...}
0cc0: 0a 09 09 22 64 69 72 65 63 74 6f 72 79 22 20 7b  ..."directory" {
0cd0: 0a 09 09 09 73 65 74 20 74 79 70 65 20 22 44 49  ....set type "DI
0ce0: 52 32 43 5f 46 49 4c 45 54 59 50 45 5f 44 49 52  R2C_FILETYPE_DIR
0cf0: 22 0a 09 09 09 73 65 74 20 64 61 74 61 20 22 4e  "....set data "N
0d00: 55 4c 4c 22 0a 09 09 09 73 65 74 20 73 69 7a 65  ULL"....set size
0d10: 20 30 0a 09 09 7d 0a 09 7d 0a 0a 09 70 75 74 73   0...}..}...puts
0d20: 20 22 5c 74 7b 22 0a 09 70 75 74 73 20 22 5c 74   "\t{"..puts "\t
0d30: 5c 74 2e 6e 61 6d 65 20 20 3d 20 5c 22 24 73 68  \t.name  = \"$sh
0d40: 6f 72 74 66 69 6c 65 5c 22 2c 22 0a 09 70 75 74  ortfile\","..put
0d50: 73 20 22 5c 74 5c 74 2e 69 6e 64 65 78 20 3d 20  s "\t\t.index = 
0d60: 5b 65 78 70 72 20 24 69 64 78 20 2b 20 32 5d 2c  [expr $idx + 2],
0d70: 22 0a 09 70 75 74 73 20 22 5c 74 5c 74 2e 74 79  "..puts "\t\t.ty
0d80: 70 65 20 20 3d 20 24 74 79 70 65 2c 22 0a 09 70  pe  = $type,"..p
0d90: 75 74 73 20 22 5c 74 5c 74 2e 73 69 7a 65 20 20  uts "\t\t.size  
0da0: 3d 20 24 73 69 7a 65 2c 22 0a 09 70 75 74 73 20  = $size,"..puts 
0db0: 22 5c 74 5c 74 2e 64 61 74 61 20 20 3d 20 24 64  "\t\t.data  = $d
0dc0: 61 74 61 2c 22 0a 09 70 75 74 73 20 22 5c 74 7d  ata,"..puts "\t}
0dd0: 2c 22 0a 7d 0a 70 75 74 73 20 22 7d 3b 22 0a 70  ,".}.puts "};".p
0de0: 75 74 73 20 22 22 0a 0a 70 75 74 73 20 22 73 74  uts ""..puts "st
0df0: 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 6c 6f  atic unsigned lo
0e00: 6e 67 20 24 7b 63 6f 64 65 5f 74 61 67 7d 5f 6c  ng ${code_tag}_l
0e10: 6f 6f 6b 75 70 5f 69 6e 64 65 78 28 63 6f 6e 73  ookup_index(cons
0e20: 74 20 63 68 61 72 20 2a 70 61 74 68 29 20 7b 22  t char *path) {"
0e30: 0a 70 75 74 73 20 22 5c 74 73 77 69 74 63 68 20  .puts "\tswitch 
0e40: 28 64 69 72 32 63 5f 68 61 73 68 28 70 61 74 68  (dir2c_hash(path
0e50: 29 29 20 7b 22 0a 70 75 74 73 20 22 5c 74 5c 74  )) {".puts "\t\t
0e60: 63 61 73 65 20 5b 64 69 72 32 63 5f 68 61 73 68  case [dir2c_hash
0e70: 20 7b 7d 5d 3a 22 0a 70 75 74 73 20 22 5c 74 5c   {}]:".puts "\t\
0e80: 74 5c 74 72 65 74 75 72 6e 28 31 29 3b 22 0a 0a  t\treturn(1);"..
0e90: 73 65 74 20 73 65 65 6e 68 61 73 68 65 73 20 5b  set seenhashes [
0ea0: 6c 69 73 74 5d 0a 66 6f 72 20 7b 73 65 74 20 69  list].for {set i
0eb0: 64 78 20 30 7d 20 7b 24 69 64 78 20 3c 20 5b 6c  dx 0} {$idx < [l
0ec0: 6c 65 6e 67 74 68 20 24 66 69 6c 65 73 5d 7d 20  length $files]} 
0ed0: 7b 69 6e 63 72 20 69 64 78 7d 20 7b 0a 09 73 65  {incr idx} {..se
0ee0: 74 20 66 69 6c 65 20 5b 6c 69 6e 64 65 78 20 24  t file [lindex $
0ef0: 66 69 6c 65 73 20 24 69 64 78 5d 0a 09 73 65 74  files $idx]..set
0f00: 20 73 68 6f 72 74 66 69 6c 65 20 5b 73 68 6f 72   shortfile [shor
0f10: 74 65 6e 5f 66 69 6c 65 20 24 73 74 61 72 74 64  ten_file $startd
0f20: 69 72 20 24 66 69 6c 65 5d 0a 09 73 65 74 20 68  ir $file]..set h
0f30: 61 73 68 20 5b 64 69 72 32 63 5f 68 61 73 68 20  ash [dir2c_hash 
0f40: 24 73 68 6f 72 74 66 69 6c 65 5d 0a 0a 09 69 66  $shortfile]...if
0f50: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63   {[lsearch -exac
0f60: 74 20 24 73 65 65 6e 68 61 73 68 65 73 20 24 68  t $seenhashes $h
0f70: 61 73 68 5d 20 21 3d 20 2d 31 7d 20 7b 0a 09 09  ash] != -1} {...
0f80: 70 75 74 73 20 73 74 64 65 72 72 20 22 45 52 52  puts stderr "ERR
0f90: 4f 52 3a 20 44 75 70 6c 69 63 61 74 65 20 68 61  OR: Duplicate ha
0fa0: 73 68 20 73 65 65 6e 3a 20 24 66 69 6c 65 20 28  sh seen: $file (
0fb0: 24 68 61 73 68 29 2c 20 61 62 6f 72 74 69 6e 67  $hash), aborting
0fc0: 22 0a 0a 09 09 65 78 69 74 20 31 0a 09 7d 0a 0a  "....exit 1..}..
0fd0: 09 6c 61 70 70 65 6e 64 20 73 65 65 6e 68 61 73  .lappend seenhas
0fe0: 68 65 73 20 24 68 61 73 68 0a 0a 09 70 75 74 73  hes $hash...puts
0ff0: 20 22 5c 74 5c 74 63 61 73 65 20 24 68 61 73 68   "\t\tcase $hash
1000: 3a 22 0a 09 70 75 74 73 20 22 5c 74 5c 74 5c 74  :"..puts "\t\t\t
1010: 72 65 74 75 72 6e 28 5b 65 78 70 72 20 24 69 64  return([expr $id
1020: 78 20 2b 20 32 5d 29 3b 22 0a 7d 0a 0a 70 75 74  x + 2]);".}..put
1030: 73 20 22 5c 74 7d 22 0a 70 75 74 73 20 22 5c 74  s "\t}".puts "\t
1040: 72 65 74 75 72 6e 28 30 29 3b 22 0a 70 75 74 73  return(0);".puts
1050: 20 22 7d 22 0a 70 75 74 73 20 22 22 0a 0a 70 75   "}".puts ""..pu
1060: 74 73 20 22 73 74 61 74 69 63 20 73 74 72 75 63  ts "static struc
1070: 74 20 64 69 72 32 63 5f 64 61 74 61 20 2a 24 7b  t dir2c_data *${
1080: 63 6f 64 65 5f 74 61 67 7d 5f 67 65 74 44 61 74  code_tag}_getDat
1090: 61 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 61  a(const char *pa
10a0: 74 68 29 20 7b 22 0a 70 75 74 73 20 22 5c 74 75  th) {".puts "\tu
10b0: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 69 6e 64  nsigned long ind
10c0: 65 78 3b 22 0a 70 75 74 73 20 22 22 0a 70 75 74  ex;".puts "".put
10d0: 73 20 22 5c 74 69 6e 64 65 78 20 3d 20 24 7b 63  s "\tindex = ${c
10e0: 6f 64 65 5f 74 61 67 7d 5f 6c 6f 6f 6b 75 70 5f  ode_tag}_lookup_
10f0: 69 6e 64 65 78 28 70 61 74 68 29 3b 22 0a 70 75  index(path);".pu
1100: 74 73 20 22 5c 74 69 66 20 28 69 6e 64 65 78 20  ts "\tif (index 
1110: 3d 3d 20 30 29 20 7b 22 0a 70 75 74 73 20 22 5c  == 0) {".puts "\
1120: 74 5c 74 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b  t\treturn(NULL);
1130: 22 0a 70 75 74 73 20 22 5c 74 7d 22 0a 70 75 74  ".puts "\t}".put
1140: 73 20 22 22 0a 70 75 74 73 20 22 5c 74 72 65 74  s "".puts "\tret
1150: 75 72 6e 28 26 24 7b 63 6f 64 65 5f 74 61 67 7d  urn(&${code_tag}
1160: 5f 64 61 74 61 5c 5b 69 6e 64 65 78 5c 5d 29 3b  _data\[index\]);
1170: 22 0a 70 75 74 73 20 22 7d 22 0a 70 75 74 73 20  ".puts "}".puts 
1180: 22 22 0a 0a 70 75 74 73 20 22 23 65 6e 64 69 66  ""..puts "#endif
1190: 20 2f 2a 20 21 24 63 70 70 5f 74 61 67 20 2a 2f   /* !$cpp_tag */
11a0: 22 0a                                            ".