Artifact b4a6c1a89033c497001ff7db53f337921dbea56f:

File tools/cvs2fossil/lib/misc.tcl part of check-in [66235f2430] - Updated the copyright information of all files touched in the new year. by aku on 2008-02-06 05:04:12. Also file tools/cvs2fossil/lib/misc.tcl part of check-in [6b78df3861] - Merge in changes from Andreas's branch. by drh on 2008-02-08 21:52:21.

0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0a 23  ## -*- tcl -*-.#
0010: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20   # ## ### ##### 
0020: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23  ######## #######
0030: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23  ###### #########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20  ############.## 
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30  Copyright (c) 20
0060: 30 37 2d 32 30 30 38 20 41 6e 64 72 65 61 73 20  07-2008 Andreas 
0070: 4b 75 70 72 69 65 73 2e 0a 23 0a 23 20 54 68 69  Kupries..#.# Thi
0080: 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 6c 69  s software is li
0090: 63 65 6e 73 65 64 20 61 73 20 64 65 73 63 72 69  censed as descri
00a0: 62 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20  bed in the file 
00b0: 4c 49 43 45 4e 53 45 2c 20 77 68 69 63 68 0a 23  LICENSE, which.#
00c0: 20 79 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65   you should have
00d0: 20 72 65 63 65 69 76 65 64 20 61 73 20 70 61 72   received as par
00e0: 74 20 6f 66 20 74 68 69 73 20 64 69 73 74 72 69  t of this distri
00f0: 62 75 74 69 6f 6e 2e 0a 23 0a 23 20 54 68 69 73  bution..#.# This
0100: 20 73 6f 66 74 77 61 72 65 20 63 6f 6e 73 69 73   software consis
0110: 74 73 20 6f 66 20 76 6f 6c 75 6e 74 61 72 79 20  ts of voluntary 
0120: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 6d 61  contributions ma
0130: 64 65 20 62 79 20 6d 61 6e 79 0a 23 20 69 6e 64  de by many.# ind
0140: 69 76 69 64 75 61 6c 73 2e 20 20 46 6f 72 20 65  ividuals.  For e
0150: 78 61 63 74 20 63 6f 6e 74 72 69 62 75 74 69 6f  xact contributio
0160: 6e 20 68 69 73 74 6f 72 79 2c 20 73 65 65 20 74  n history, see t
0170: 68 65 20 72 65 76 69 73 69 6f 6e 0a 23 20 68 69  he revision.# hi
0180: 73 74 6f 72 79 20 61 6e 64 20 6c 6f 67 73 2c 20  story and logs, 
0190: 61 76 61 69 6c 61 62 6c 65 20 61 74 20 68 74 74  available at htt
01a0: 70 3a 2f 2f 66 6f 73 73 69 6c 2d 73 63 6d 2e 68  p://fossil-scm.h
01b0: 77 61 63 69 2e 63 6f 6d 2f 66 6f 73 73 69 6c 0a  waci.com/fossil.
01c0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23  # # ## ### #####
01d0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23   ######## ######
01e0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23  ####### ########
01f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 23  #############..#
0200: 23 20 55 74 69 6c 69 74 69 65 73 20 66 6f 72 20  # Utilities for 
0210: 76 61 72 69 6f 75 73 20 74 68 69 6e 67 73 3a 20  various things: 
0220: 74 65 78 74 20 66 6f 72 6d 61 74 74 69 6e 67 2c  text formatting,
0230: 20 6d 61 78 2c 20 2e 2e 2e 0a 0a 23 20 23 20 23   max, .....# # #
0240: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23  # ### ##### ####
0250: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23  #### ###########
0260: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23  ## #############
0270: 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 71 75  ########.## Requ
0280: 69 72 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61 67  irements..packag
0290: 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 2e  e require Tcl 8.
02a0: 34 20 3b 20 23 20 52 65 71 75 69 72 65 64 20 72  4 ; # Required r
02b0: 75 6e 74 69 6d 65 0a 0a 23 20 23 20 23 23 20 23  untime..# # ## #
02c0: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23  ## ##### #######
02d0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20  # ############# 
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
02f0: 23 23 23 23 23 0a 23 23 0a 0a 6e 61 6d 65 73 70  #####.##..namesp
0300: 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 74  ace eval ::vc::t
0310: 6f 6f 6c 73 3a 3a 6d 69 73 63 20 7b 0a 20 20 20  ools::misc {.   
0320: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23   # # ## ### ####
0330: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23  # ######## #####
0340: 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20  ########.    ## 
0350: 50 75 62 6c 69 63 20 41 50 49 2c 20 4d 65 74 68  Public API, Meth
0360: 6f 64 73 0a 0a 20 20 20 20 23 20 43 68 6f 6f 73  ods..    # Choos
0370: 65 20 73 69 6e 67 75 6c 61 72 20 76 73 20 70 6c  e singular vs pl
0380: 75 72 61 6c 20 66 6f 72 6d 73 20 6f 66 20 61 20  ural forms of a 
0390: 77 6f 72 64 20 62 61 73 65 64 20 6f 6e 20 61 20  word based on a 
03a0: 6e 75 6d 62 65 72 2e 0a 0a 20 20 20 20 70 72 6f  number...    pro
03b0: 63 20 73 70 20 7b 6e 20 73 69 6e 67 75 6c 61 72  c sp {n singular
03c0: 20 7b 70 6c 75 72 61 6c 20 7b 7d 7d 7d 20 7b 0a   {plural {}}} {.
03d0: 09 69 66 20 7b 24 6e 20 3d 3d 20 31 7d 20 7b 72  .if {$n == 1} {r
03e0: 65 74 75 72 6e 20 24 73 69 6e 67 75 6c 61 72 7d  eturn $singular}
03f0: 0a 09 69 66 20 7b 24 70 6c 75 72 61 6c 20 65 71  ..if {$plural eq
0400: 20 22 22 7d 20 7b 73 65 74 20 70 6c 75 72 61 6c   ""} {set plural
0410: 20 24 7b 73 69 6e 67 75 6c 61 72 7d 73 7d 0a 09   ${singular}s}..
0420: 72 65 74 75 72 6e 20 24 70 6c 75 72 61 6c 0a 20  return $plural. 
0430: 20 20 20 7d 0a 0a 20 20 20 20 23 20 41 73 20 61     }..    # As a
0440: 62 6f 76 65 2c 20 77 69 74 68 20 74 68 65 20 6e  bove, with the n
0450: 75 6d 62 65 72 20 61 75 74 6f 6d 61 74 69 63 61  umber automatica
0460: 6c 6c 79 20 70 75 74 20 69 6e 20 66 72 6f 6e 74  lly put in front
0470: 20 6f 66 20 74 68 65 0a 20 20 20 20 23 20 73 74   of the.    # st
0480: 72 69 6e 67 2e 0a 0a 20 20 20 20 70 72 6f 63 20  ring...    proc 
0490: 6e 73 70 20 7b 6e 20 73 69 6e 67 75 6c 61 72 20  nsp {n singular 
04a0: 7b 70 6c 75 72 61 6c 20 7b 7d 7d 7d 20 7b 0a 09  {plural {}}} {..
04b0: 72 65 74 75 72 6e 20 22 24 6e 20 5b 73 70 20 24  return "$n [sp $
04c0: 6e 20 24 73 69 6e 67 75 6c 61 72 20 24 70 6c 75  n $singular $plu
04d0: 72 61 6c 5d 22 0a 20 20 20 20 7d 0a 0a 20 20 20  ral]".    }..   
04e0: 20 23 20 46 69 6e 64 20 6d 61 78 69 6d 75 6d 2f   # Find maximum/
04f0: 6d 69 6e 69 6d 75 6d 20 69 6e 20 61 20 6c 69 73  minimum in a lis
0500: 74 2e 0a 0a 20 20 20 20 70 72 6f 63 20 6d 61 78  t...    proc max
0510: 20 7b 6c 69 73 74 7d 20 7b 0a 09 73 65 74 20 6d   {list} {..set m
0520: 61 78 20 2d 31 0a 09 66 6f 72 65 61 63 68 20 65  ax -1..foreach e
0530: 20 24 6c 69 73 74 20 7b 0a 09 20 20 20 20 69 66   $list {..    if
0540: 20 7b 24 65 20 3c 20 24 6d 61 78 7d 20 63 6f 6e   {$e < $max} con
0550: 74 69 6e 75 65 0a 09 20 20 20 20 73 65 74 20 6d  tinue..    set m
0560: 61 78 20 24 65 0a 09 7d 0a 09 72 65 74 75 72 6e  ax $e..}..return
0570: 20 24 6d 61 78 0a 20 20 20 20 7d 0a 0a 20 20 20   $max.    }..   
0580: 20 70 72 6f 63 20 6d 69 6e 20 7b 6c 69 73 74 7d   proc min {list}
0590: 20 7b 0a 09 73 65 74 20 6d 69 6e 20 7b 7d 0a 09   {..set min {}..
05a0: 66 6f 72 65 61 63 68 20 65 20 24 6c 69 73 74 20  foreach e $list 
05b0: 7b 0a 09 20 20 20 20 69 66 20 7b 24 6d 69 6e 20  {..    if {$min 
05c0: 3d 3d 20 7b 7d 7d 20 7b 0a 09 09 73 65 74 20 6d  == {}} {...set m
05d0: 69 6e 20 24 65 0a 09 20 20 20 20 7d 20 65 6c 73  in $e..    } els
05e0: 65 69 66 20 7b 24 65 20 3e 20 24 6d 69 6e 7d 20  eif {$e > $min} 
05f0: 63 6f 6e 74 69 6e 75 65 0a 09 20 20 20 20 73 65  continue..    se
0600: 74 20 6d 69 6e 20 24 65 0a 09 7d 0a 09 72 65 74  t min $e..}..ret
0610: 75 72 6e 20 24 6d 69 6e 0a 20 20 20 20 7d 0a 0a  urn $min.    }..
0620: 20 20 20 20 70 72 6f 63 20 6d 61 78 32 20 7b 61      proc max2 {a
0630: 20 62 7d 20 7b 0a 09 69 66 20 7b 24 61 20 3e 20   b} {..if {$a > 
0640: 24 62 7d 20 20 7b 20 72 65 74 75 72 6e 20 24 61  $b}  { return $a
0650: 20 7d 0a 09 72 65 74 75 72 6e 20 24 62 0a 20 20   }..return $b.  
0660: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 6d 69    }..    proc mi
0670: 6e 32 20 7b 61 20 62 7d 20 7b 0a 09 69 66 20 7b  n2 {a b} {..if {
0680: 24 61 20 3c 20 24 62 7d 20 20 7b 20 72 65 74 75  $a < $b}  { retu
0690: 72 6e 20 24 61 20 7d 0a 09 72 65 74 75 72 6e 20  rn $a }..return 
06a0: 24 62 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72  $b.    }..    pr
06b0: 6f 63 20 6c 64 65 6c 65 74 65 20 7b 6c 76 20 69  oc ldelete {lv i
06c0: 74 65 6d 7d 20 7b 0a 09 75 70 76 61 72 20 31 20  tem} {..upvar 1 
06d0: 24 6c 76 20 6c 69 73 74 0a 09 73 65 74 20 70 6f  $lv list..set po
06e0: 73 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63  s [lsearch -exac
06f0: 74 20 24 6c 69 73 74 20 24 69 74 65 6d 5d 0a 09  t $list $item]..
0700: 69 66 20 7b 24 70 6f 73 20 3c 20 30 7d 20 72 65  if {$pos < 0} re
0710: 74 75 72 6e 0a 09 73 65 74 20 6c 69 73 74 20 5b  turn..set list [
0720: 6c 72 65 70 6c 61 63 65 20 24 6c 69 73 74 20 24  lreplace $list $
0730: 70 6f 73 20 24 70 6f 73 5d 0a 09 72 65 74 75 72  pos $pos]..retur
0740: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 44  n.    }..    # D
0750: 65 6c 65 74 65 20 69 74 65 6d 20 66 72 6f 6d 20  elete item from 
0760: 6c 69 73 74 20 62 79 20 6e 61 6d 65 0a 0a 20 20  list by name..  
0770: 20 20 70 72 6f 63 20 73 74 72 69 70 74 72 61 69    proc striptrai
0780: 6c 69 6e 67 73 6c 61 73 68 20 7b 70 61 74 68 7d  lingslash {path}
0790: 20 7b 0a 09 23 20 73 70 6c 69 74 20 61 6e 64 20   {..# split and 
07a0: 72 65 6a 6f 69 6e 20 67 65 74 73 20 72 69 64 20  rejoin gets rid 
07b0: 6f 66 20 61 20 74 72 61 6c 69 6e 67 20 2f 20 63  of a traling / c
07c0: 68 61 72 61 63 74 65 72 2e 0a 09 72 65 74 75 72  haracter...retur
07d0: 6e 20 5b 65 76 61 6c 20 5b 6c 69 6e 73 65 72 74  n [eval [linsert
07e0: 20 5b 66 69 6c 65 20 73 70 6c 69 74 20 24 70 61   [file split $pa
07f0: 74 68 5d 20 30 20 3a 3a 66 69 6c 65 20 6a 6f 69  th] 0 ::file joi
0800: 6e 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23  n]].    }..    #
0810: 20 54 68 65 20 77 69 6e 64 6f 77 73 20 66 69 6c   The windows fil
0820: 65 73 79 73 74 65 6d 20 69 73 20 73 74 6f 72 69  esystem is stori
0830: 6e 67 20 66 69 6c 65 2d 6e 61 6d 65 73 20 63 61  ng file-names ca
0840: 73 65 2d 73 65 6e 73 69 74 69 76 65 2c 20 62 75  se-sensitive, bu
0850: 74 0a 20 20 20 20 23 20 6d 61 74 63 68 69 6e 67  t.    # matching
0860: 20 69 73 20 63 61 73 65 2d 69 6e 73 65 6e 73 69   is case-insensi
0870: 74 69 76 65 2e 20 54 68 61 74 20 69 73 20 61 20  tive. That is a 
0880: 70 72 6f 62 6c 65 6d 20 61 73 20 77 69 74 68 6f  problem as witho
0890: 75 74 0a 20 20 20 20 23 20 70 72 65 63 61 75 74  ut.    # precaut
08a0: 69 6f 6e 20 74 68 65 20 74 77 6f 20 66 69 6c 65  ion the two file
08b0: 73 20 41 74 74 69 63 2f 58 2c 76 20 61 6e 64 20  s Attic/X,v and 
08c0: 78 2c 76 20 6d 61 79 20 62 65 20 6d 69 73 74 61  x,v may be mista
08d0: 6b 65 6e 6c 79 0a 20 20 20 20 23 20 69 64 65 6e  kenly.    # iden
08e0: 74 69 66 69 65 64 20 61 73 20 74 68 65 20 73 61  tified as the sa
08f0: 6d 65 20 66 69 6c 65 2e 20 41 20 73 69 6d 69 6c  me file. A simil
0900: 61 72 20 74 68 69 6e 67 20 63 61 6e 20 68 61 70  ar thing can hap
0910: 70 65 6e 20 66 6f 72 0a 20 20 20 20 23 20 66 69  pen for.    # fi
0920: 6c 65 73 20 61 6e 64 20 64 69 72 65 63 74 6f 72  les and director
0930: 69 65 73 2e 20 54 6f 20 70 72 65 76 65 6e 74 20  ies. To prevent 
0940: 73 75 63 68 20 6d 69 73 74 61 6b 65 73 20 77 65  such mistakes we
0950: 20 6e 65 65 64 20 63 6f 6d 6d 61 6e 64 73 0a 20   need commands. 
0960: 20 20 20 23 20 77 68 69 63 68 20 64 6f 20 63 61     # which do ca
0970: 73 65 2d 73 65 6e 73 69 74 69 76 65 20 66 69 6c  se-sensitive fil
0980: 65 20 6d 61 74 63 68 69 6e 67 20 65 76 65 6e 20  e matching even 
0990: 6f 6e 20 73 79 73 74 65 6d 73 20 77 68 69 63 68  on systems which
09a0: 20 64 6f 0a 20 20 20 20 23 20 6e 6f 74 20 70 65   do.    # not pe
09b0: 72 66 6f 72 6d 20 74 68 69 73 20 6e 61 74 69 76  rform this nativ
09c0: 65 6c 79 2e 20 54 68 65 73 65 20 61 72 65 20 62  ely. These are b
09d0: 65 6c 6f 77 2e 0a 0a 20 20 20 20 69 66 20 7b 24  elow...    if {$
09e0: 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61  tcl_platform(pla
09f0: 74 66 6f 72 6d 29 20 65 71 20 22 77 69 6e 64 6f  tform) eq "windo
0a00: 77 73 22 7d 20 7b 0a 09 23 20 57 65 20 75 73 65  ws"} {..# We use
0a10: 20 67 6c 6f 62 20 74 6f 20 67 65 74 20 74 68 65   glob to get the
0a20: 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 28   list of files (
0a30: 77 69 74 68 20 70 72 6f 70 65 72 20 63 61 73 65  with proper case
0a40: 20 69 6e 0a 09 23 20 74 68 65 20 6e 61 6d 65 73   in..# the names
0a50: 29 20 74 6f 20 70 65 72 66 6f 72 6d 20 6f 75 72  ) to perform our
0a60: 20 6f 77 6e 2c 20 63 61 73 65 2d 73 65 6e 73 69   own, case-sensi
0a70: 74 69 76 65 20 6d 61 74 63 68 69 6e 67 2e 20 57  tive matching. W
0a80: 45 0a 09 23 20 75 73 65 20 38 2e 35 20 66 65 61  E..# use 8.5 fea
0a90: 74 75 72 65 73 20 77 68 65 72 65 20 70 6f 73 73  tures where poss
0aa0: 69 62 6c 65 2c 20 66 6f 72 20 63 6c 61 72 69 74  ible, for clarit
0ab0: 79 2e 0a 0a 09 69 66 20 7b 5b 70 61 63 6b 61 67  y....if {[packag
0ac0: 65 20 76 73 61 74 69 73 66 69 65 73 20 5b 70 61  e vsatisfies [pa
0ad0: 63 6b 61 67 65 20 70 72 65 73 65 6e 74 20 54 63  ckage present Tc
0ae0: 6c 5d 20 38 2e 35 5d 7d 20 7b 0a 09 20 20 20 20  l] 8.5]} {..    
0af0: 70 72 6f 63 20 66 69 6c 65 65 78 69 73 74 73 5f  proc fileexists_
0b00: 63 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09 73 65  cs {path} {...se
0b10: 74 20 64 69 72 20 20 5b 3a 3a 66 69 6c 65 20 64  t dir  [::file d
0b20: 69 72 6e 61 6d 65 20 24 70 61 74 68 5d 0a 09 09  irname $path]...
0b30: 73 65 74 20 66 69 6c 65 20 5b 3a 3a 66 69 6c 65  set file [::file
0b40: 20 74 61 69 6c 20 20 20 20 24 70 61 74 68 5d 0a   tail    $path].
0b50: 09 09 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b  ..return [expr {
0b60: 24 66 69 6c 65 20 69 6e 20 5b 67 6c 6f 62 20 2d  $file in [glob -
0b70: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 61 69 6c  nocomplain -tail
0b80: 20 2d 64 69 72 65 63 74 6f 72 79 20 24 64 69 72   -directory $dir
0b90: 20 2a 5d 7d 5d 0a 09 20 20 20 20 7d 0a 0a 09 20   *]}]..    }... 
0ba0: 20 20 20 70 72 6f 63 20 66 69 6c 65 69 73 64 69     proc fileisdi
0bb0: 72 5f 63 73 20 7b 70 61 74 68 7d 20 7b 0a 09 09  r_cs {path} {...
0bc0: 73 65 74 20 64 69 72 20 20 5b 3a 3a 66 69 6c 65  set dir  [::file
0bd0: 20 64 69 72 6e 61 6d 65 20 24 70 61 74 68 5d 0a   dirname $path].
0be0: 09 09 73 65 74 20 66 69 6c 65 20 5b 3a 3a 66 69  ..set file [::fi
0bf0: 6c 65 20 74 61 69 6c 20 20 20 20 24 70 61 74 68  le tail    $path
0c00: 5d 0a 09 09 72 65 74 75 72 6e 20 5b 65 78 70 72  ]...return [expr
0c10: 20 7b 24 66 69 6c 65 20 69 6e 20 5b 67 6c 6f 62   {$file in [glob
0c20: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 74 79   -nocomplain -ty
0c30: 70 65 73 20 64 20 2d 74 61 69 6c 20 2d 64 69 72  pes d -tail -dir
0c40: 65 63 74 6f 72 79 20 24 64 69 72 20 2a 5d 7d 5d  ectory $dir *]}]
0c50: 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20  ..    }..} else 
0c60: 7b 0a 09 20 20 20 20 70 72 6f 63 20 66 69 6c 65  {..    proc file
0c70: 65 78 69 73 74 73 5f 63 73 20 7b 70 61 74 68 7d  exists_cs {path}
0c80: 20 7b 0a 09 09 73 65 74 20 64 69 72 20 20 5b 3a   {...set dir  [:
0c90: 3a 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 70  :file dirname $p
0ca0: 61 74 68 5d 0a 09 09 73 65 74 20 66 69 6c 65 20  ath]...set file 
0cb0: 5b 3a 3a 66 69 6c 65 20 74 61 69 6c 20 20 20 20  [::file tail    
0cc0: 24 70 61 74 68 5d 0a 09 09 72 65 74 75 72 6e 20  $path]...return 
0cd0: 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20  [expr {[lsearch 
0ce0: 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69  [glob -nocomplai
0cf0: 6e 20 2d 74 61 69 6c 20 2d 64 69 72 65 63 74 6f  n -tail -directo
0d00: 72 79 20 24 64 69 72 20 2a 5d 20 24 66 69 6c 65  ry $dir *] $file
0d10: 5d 20 3e 3d 20 30 7d 5d 0a 09 20 20 20 20 7d 0a  ] >= 0}]..    }.
0d20: 0a 09 20 20 20 20 70 72 6f 63 20 66 69 6c 65 69  ..    proc filei
0d30: 73 64 69 72 5f 63 73 20 7b 70 61 74 68 7d 20 7b  sdir_cs {path} {
0d40: 0a 09 09 73 65 74 20 64 69 72 20 20 5b 3a 3a 66  ...set dir  [::f
0d50: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 70 61 74  ile dirname $pat
0d60: 68 5d 0a 09 09 73 65 74 20 66 69 6c 65 20 5b 3a  h]...set file [:
0d70: 3a 66 69 6c 65 20 74 61 69 6c 20 20 20 20 24 70  :file tail    $p
0d80: 61 74 68 5d 0a 09 09 72 65 74 75 72 6e 20 5b 65  ath]...return [e
0d90: 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 5b 67  xpr {[lsearch [g
0da0: 6c 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  lob -nocomplain 
0db0: 2d 74 79 70 65 73 20 64 20 2d 74 61 69 6c 20 2d  -types d -tail -
0dc0: 64 69 72 65 63 74 6f 72 79 20 24 64 69 72 20 2a  directory $dir *
0dd0: 5d 20 24 66 69 6c 65 5d 20 3e 3d 20 30 7d 5d 0a  ] $file] >= 0}].
0de0: 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 20  .    }..}.    } 
0df0: 65 6c 73 65 20 7b 0a 09 70 72 6f 63 20 66 69 6c  else {..proc fil
0e00: 65 65 78 69 73 74 73 5f 63 73 20 7b 70 61 74 68  eexists_cs {path
0e10: 7d 20 7b 20 72 65 74 75 72 6e 20 5b 66 69 6c 65  } { return [file
0e20: 20 65 78 69 73 74 73 20 20 20 20 20 20 24 70 61   exists      $pa
0e30: 74 68 5d 20 7d 0a 09 70 72 6f 63 20 66 69 6c 65  th] }..proc file
0e40: 69 73 64 69 72 5f 63 73 20 20 7b 70 61 74 68 7d  isdir_cs  {path}
0e50: 20 7b 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20   { return [file 
0e60: 69 73 64 69 72 65 63 74 6f 72 79 20 24 70 61 74  isdirectory $pat
0e70: 68 5d 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  h] }.    }..    
0e80: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23  # # ## ### #####
0e90: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23   ######## ######
0ea0: 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73  #######.}..names
0eb0: 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a  pace eval ::vc::
0ec0: 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 7b 0a 20 20  tools::misc {.  
0ed0: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f    namespace expo
0ee0: 72 74 20 73 70 20 6e 73 70 20 6d 61 78 20 6d 69  rt sp nsp max mi
0ef0: 6e 20 6d 61 78 32 20 6d 69 6e 32 20 6c 64 65 6c  n max2 min2 ldel
0f00: 65 74 65 0a 20 20 20 20 6e 61 6d 65 73 70 61 63  ete.    namespac
0f10: 65 20 65 78 70 6f 72 74 20 73 74 72 69 70 74 72  e export striptr
0f20: 61 69 6c 69 6e 67 73 6c 61 73 68 20 66 69 6c 65  ailingslash file
0f30: 65 78 69 73 74 73 5f 63 73 20 66 69 6c 65 69 73  exists_cs fileis
0f40: 64 69 72 5f 63 73 0a 7d 0a 0a 23 20 2d 2d 2d 2d  dir_cs.}..# ----
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 52 65 61 64  ---------.# Read
0fa0: 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69  y..package provi
0fb0: 64 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69  de vc::tools::mi
0fc0: 73 63 20 31 2e 30 0a 72 65 74 75 72 6e 0a        sc 1.0.return.