Artifact 78ad19a406a27646f818316b104b96dda50e274d:

File tools/cvs2fossil/lib/c2f_project.tcl part of check-in [2c08006d9d] - Changed the coding of trunk symbols. Using NULL makes for difficult comparisons later when doing integrity checks. Each trunk now has a regular unique id as a symbol. Added documentation to the table definitions, about references, constraints, etc. by aku on 2007-10-25 05:13:41.

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 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69  07 Andreas Kupri
0070: 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66  es..#.# This sof
0080: 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73 65  tware is license
0090: 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69  d as described i
00a0: 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45 4e  n the file LICEN
00b0: 53 45 2c 20 77 68 69 63 68 0a 23 20 79 6f 75 20  SE, which.# you 
00c0: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65  should have rece
00d0: 69 76 65 64 20 61 73 20 70 61 72 74 20 6f 66 20  ived as part of 
00e0: 74 68 69 73 20 64 69 73 74 72 69 62 75 74 69 6f  this distributio
00f0: 6e 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 74  n..#.# This soft
0100: 77 61 72 65 20 63 6f 6e 73 69 73 74 73 20 6f 66  ware consists of
0110: 20 76 6f 6c 75 6e 74 61 72 79 20 63 6f 6e 74 72   voluntary contr
0120: 69 62 75 74 69 6f 6e 73 20 6d 61 64 65 20 62 79  ibutions made by
0130: 20 6d 61 6e 79 0a 23 20 69 6e 64 69 76 69 64 75   many.# individu
0140: 61 6c 73 2e 20 20 46 6f 72 20 65 78 61 63 74 20  als.  For exact 
0150: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 20 68 69 73  contribution his
0160: 74 6f 72 79 2c 20 73 65 65 20 74 68 65 20 72 65  tory, see the re
0170: 76 69 73 69 6f 6e 0a 23 20 68 69 73 74 6f 72 79  vision.# history
0180: 20 61 6e 64 20 6c 6f 67 73 2c 20 61 76 61 69 6c   and logs, avail
0190: 61 62 6c 65 20 61 74 20 68 74 74 70 3a 2f 2f 66  able at http://f
01a0: 6f 73 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e  ossil-scm.hwaci.
01b0: 63 6f 6d 2f 66 6f 73 73 69 6c 0a 23 20 23 20 23  com/fossil.# # #
01c0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23  # ### ##### ####
01d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23  #### ###########
01e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23  ## #############
01f0: 23 23 23 23 23 23 23 23 0a 0a 23 23 20 50 72 6f  ########..## Pro
0200: 6a 65 63 74 2c 20 70 61 72 74 20 6f 66 20 61 20  ject, part of a 
0210: 43 56 53 20 72 65 70 6f 73 69 74 6f 72 79 2e 20  CVS repository. 
0220: 4d 75 6c 74 69 70 6c 65 20 69 6e 73 74 61 6e 63  Multiple instanc
0230: 65 73 20 61 72 65 20 70 6f 73 73 69 62 6c 65 2e  es are possible.
0240: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23  ..# # ## ### ###
0250: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23  ## ######## ####
0260: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23  ######### ######
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a  ###############.
0280: 23 23 20 52 65 71 75 69 72 65 6d 65 6e 74 73 0a  ## Requirements.
0290: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
02a0: 20 54 63 6c 20 38 2e 34 20 20 20 20 20 20 20 20   Tcl 8.4        
02b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
02c0: 20 20 20 20 20 20 20 20 20 3b 20 23 20 52 65 71           ; # Req
02d0: 75 69 72 65 64 20 72 75 6e 74 69 6d 65 2e 0a 70  uired runtime..p
02e0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73  ackage require s
02f0: 6e 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20  nit             
0300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0310: 20 20 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 79         ; # OO sy
0320: 73 74 65 6d 2e 0a 70 61 63 6b 61 67 65 20 72 65  stem..package re
0330: 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c  quire vc::fossil
0340: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66  ::import::cvs::f
0350: 69 6c 65 20 20 20 20 20 20 20 20 20 20 20 3b 20  ile           ; 
0360: 23 20 43 56 53 20 61 72 63 68 69 76 65 20 66 69  # CVS archive fi
0370: 6c 65 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75  le..package requ
0380: 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a  ire vc::fossil::
0390: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61  import::cvs::sta
03a0: 74 65 20 20 20 20 20 20 20 20 20 20 3b 20 23 20  te          ; # 
03b0: 53 74 61 74 65 20 73 74 6f 72 61 67 65 2e 0a 70  State storage..p
03c0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76  ackage require v
03d0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72  c::fossil::impor
03e0: 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a  t::cvs::project:
03f0: 3a 73 79 6d 20 20 20 3b 20 23 20 50 65 72 20 70  :sym   ; # Per p
0400: 72 6f 6a 65 63 74 20 73 79 6d 62 6f 6c 73 2e 0a  roject symbols..
0410: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0420: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f  vc::fossil::impo
0430: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74  rt::cvs::project
0440: 3a 3a 74 72 75 6e 6b 20 3b 20 23 20 50 65 72 20  ::trunk ; # Per 
0450: 70 72 6f 6a 65 63 74 20 74 72 75 6e 6b 2c 20 6d  project trunk, m
0460: 61 69 6e 20 6c 6f 64 0a 70 61 63 6b 61 67 65 20  ain lod.package 
0470: 72 65 71 75 69 72 65 20 73 74 72 75 63 74 3a 3a  require struct::
0480: 6c 69 73 74 20 20 20 20 20 20 20 20 20 20 20 20  list            
0490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
04a0: 3b 20 23 20 41 64 76 61 6e 63 65 64 20 6c 69 73  ; # Advanced lis
04b0: 74 20 6f 70 65 72 61 74 69 6f 6e 73 2e 2e 0a 0a  t operations....
04c0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23  # # ## ### #####
04d0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23   ######## ######
04e0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23  ####### ########
04f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23  #############.##
0500: 20 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a 3a   ..snit::type ::
0510: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f  vc::fossil::impo
0520: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74  rt::cvs::project
0530: 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23   {.    # # ## ##
0540: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23  # ##### ########
0550: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20   #############. 
0560: 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49     ## Public API
0570: 0a 0a 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f  ..    constructo
0580: 72 20 7b 70 61 74 68 20 72 7d 20 7b 0a 09 73 65  r {path r} {..se
0590: 74 20 6d 79 62 61 73 65 20 20 20 20 20 20 20 24  t mybase       $
05a0: 70 61 74 68 0a 09 73 65 74 20 6d 79 72 65 70 6f  path..set myrepo
05b0: 73 69 74 6f 72 79 20 24 72 0a 09 73 65 74 20 6d  sitory $r..set m
05c0: 79 74 72 75 6e 6b 20 20 20 20 20 20 5b 74 72 75  ytrunk      [tru
05d0: 6e 6b 20 25 41 55 54 4f 25 20 24 73 65 6c 66 5d  nk %AUTO% $self]
05e0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a  ..return.    }..
05f0: 20 20 20 20 6d 65 74 68 6f 64 20 62 61 73 65 20      method base 
0600: 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79   {} { return $my
0610: 62 61 73 65 20 20 7d 0a 20 20 20 20 6d 65 74 68  base  }.    meth
0620: 6f 64 20 74 72 75 6e 6b 20 7b 7d 20 7b 20 72 65  od trunk {} { re
0630: 74 75 72 6e 20 24 6d 79 74 72 75 6e 6b 20 7d 0a  turn $mytrunk }.
0640: 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 72 69 6e  .    method prin
0650: 74 62 61 73 65 20 7b 7d 20 7b 0a 09 69 66 20 7b  tbase {} {..if {
0660: 24 6d 79 62 61 73 65 20 65 71 20 22 22 7d 20 7b  $mybase eq ""} {
0670: 72 65 74 75 72 6e 20 3c 52 65 70 6f 73 69 74 6f  return <Reposito
0680: 72 79 3e 7d 0a 09 72 65 74 75 72 6e 20 24 6d 79  ry>}..return $my
0690: 62 61 73 65 0a 20 20 20 20 7d 0a 0a 20 20 20 20  base.    }..    
06a0: 6d 65 74 68 6f 64 20 73 65 74 69 64 20 7b 69 64  method setid {id
06b0: 7d 20 7b 20 73 65 74 20 6d 79 69 64 20 24 69 64  } { set myid $id
06c0: 20 3b 20 72 65 74 75 72 6e 20 7d 0a 0a 20 20 20   ; return }..   
06d0: 20 6d 65 74 68 6f 64 20 61 64 64 66 69 6c 65 20   method addfile 
06e0: 7b 72 63 73 20 75 73 72 20 65 78 65 63 75 74 61  {rcs usr executa
06f0: 62 6c 65 20 7b 66 69 64 20 7b 7d 7d 7d 20 7b 0a  ble {fid {}}} {.
0700: 09 73 65 74 20 6d 79 66 69 6c 65 73 28 24 72 63  .set myfiles($rc
0710: 73 29 20 5b 6c 69 73 74 20 24 75 73 72 20 24 65  s) [list $usr $e
0720: 78 65 63 75 74 61 62 6c 65 20 24 66 69 64 5d 0a  xecutable $fid].
0730: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20  .return.    }.. 
0740: 20 20 20 6d 65 74 68 6f 64 20 66 69 6c 65 6e 61     method filena
0750: 6d 65 73 20 7b 7d 20 7b 0a 09 72 65 74 75 72 6e  mes {} {..return
0760: 20 5b 6c 73 6f 72 74 20 2d 64 69 63 74 20 5b 61   [lsort -dict [a
0770: 72 72 61 79 20 6e 61 6d 65 73 20 6d 79 66 69 6c  rray names myfil
0780: 65 73 5d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  es]].    }..    
0790: 6d 65 74 68 6f 64 20 66 69 6c 65 73 20 7b 7d 20  method files {} 
07a0: 7b 0a 09 72 65 74 75 72 6e 20 5b 54 68 65 46 69  {..return [TheFi
07b0: 6c 65 73 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  les].    }..    
07c0: 64 65 6c 65 67 61 74 65 20 6d 65 74 68 6f 64 20  delegate method 
07d0: 64 65 66 61 75 74 68 6f 72 20 20 20 20 20 20 20  defauthor       
07e0: 74 6f 20 6d 79 72 65 70 6f 73 69 74 6f 72 79 0a  to myrepository.
07f0: 20 20 20 20 64 65 6c 65 67 61 74 65 20 6d 65 74      delegate met
0800: 68 6f 64 20 64 65 66 63 6d 65 73 73 61 67 65 20  hod defcmessage 
0810: 20 20 20 20 74 6f 20 6d 79 72 65 70 6f 73 69 74      to myreposit
0820: 6f 72 79 0a 20 20 20 20 64 65 6c 65 67 61 74 65  ory.    delegate
0830: 20 6d 65 74 68 6f 64 20 74 72 75 6e 6b 6f 6e 6c   method trunkonl
0840: 79 20 20 20 20 20 20 20 74 6f 20 6d 79 72 65 70  y       to myrep
0850: 6f 73 69 74 6f 72 79 0a 20 20 20 20 64 65 6c 65  ository.    dele
0860: 67 61 74 65 20 6d 65 74 68 6f 64 20 63 6f 6d 6d  gate method comm
0870: 69 74 6d 65 73 73 61 67 65 6f 66 20 74 6f 20 6d  itmessageof to m
0880: 79 72 65 70 6f 73 69 74 6f 72 79 0a 0a 20 20 20  yrepository..   
0890: 20 6d 65 74 68 6f 64 20 64 65 66 6d 65 74 61 20   method defmeta 
08a0: 7b 62 69 64 20 61 69 64 20 63 69 64 7d 20 7b 0a  {bid aid cid} {.
08b0: 09 72 65 74 75 72 6e 20 5b 24 6d 79 72 65 70 6f  .return [$myrepo
08c0: 73 69 74 6f 72 79 20 64 65 66 6d 65 74 61 20 24  sitory defmeta $
08d0: 6d 79 69 64 20 24 62 69 64 20 24 61 69 64 20 24  myid $bid $aid $
08e0: 63 69 64 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  cid].    }..    
08f0: 6d 65 74 68 6f 64 20 67 65 74 73 79 6d 62 6f 6c  method getsymbol
0900: 20 7b 6e 61 6d 65 7d 20 7b 0a 09 69 66 20 7b 21   {name} {..if {!
0910: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 73  [info exists mys
0920: 79 6d 62 6f 6c 73 28 24 6e 61 6d 65 29 5d 7d 20  ymbols($name)]} 
0930: 7b 0a 09 20 20 20 20 73 65 74 20 6d 79 73 79 6d  {..    set mysym
0940: 62 6f 6c 73 28 24 6e 61 6d 65 29 20 5c 0a 09 09  bols($name) \...
0950: 5b 73 79 6d 20 25 41 55 54 4f 25 20 24 6e 61 6d  [sym %AUTO% $nam
0960: 65 20 5b 24 6d 79 72 65 70 6f 73 69 74 6f 72 79  e [$myrepository
0970: 20 64 65 66 73 79 6d 62 6f 6c 20 24 6d 79 69 64   defsymbol $myid
0980: 20 24 6e 61 6d 65 5d 5d 0a 09 7d 0a 09 72 65 74   $name]]..}..ret
0990: 75 72 6e 20 24 6d 79 73 79 6d 62 6f 6c 73 28 24  urn $mysymbols($
09a0: 6e 61 6d 65 29 0a 20 20 20 20 7d 0a 0a 20 20 20  name).    }..   
09b0: 20 23 20 70 61 73 73 20 49 20 70 65 72 73 69 73   # pass I persis
09c0: 74 65 6e 63 65 0a 20 20 20 20 6d 65 74 68 6f 64  tence.    method
09d0: 20 70 65 72 73 69 73 74 20 7b 7d 20 7b 0a 09 54   persist {} {..T
09e0: 68 65 46 69 6c 65 73 20 3b 20 23 20 46 6f 72 63  heFiles ; # Forc
09f0: 65 20 69 64 20 61 73 73 69 67 6e 6d 65 6e 74 2e  e id assignment.
0a00: 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73 61 63  ...state transac
0a10: 74 69 6f 6e 20 7b 0a 09 20 20 20 20 23 20 50 72  tion {..    # Pr
0a20: 6f 6a 65 63 74 20 64 61 74 61 20 66 69 72 73 74  oject data first
0a30: 2e 20 52 65 71 75 69 72 65 64 20 73 6f 20 74 68  . Required so th
0a40: 61 74 20 77 65 20 68 61 76 65 20 69 74 73 20 69  at we have its i
0a50: 64 0a 09 20 20 20 20 23 20 72 65 61 64 79 20 66  d..    # ready f
0a60: 6f 72 20 74 68 65 20 66 69 6c 65 73 2e 0a 0a 09  or the files....
0a70: 20 20 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a      state run {.
0a80: 09 09 49 4e 53 45 52 54 20 49 4e 54 4f 20 70 72  ..INSERT INTO pr
0a90: 6f 6a 65 63 74 20 28 70 69 64 2c 20 20 6e 61 6d  oject (pid,  nam
0aa0: 65 29 0a 09 09 56 41 4c 55 45 53 20 20 20 20 20  e)...VALUES     
0ab0: 20 20 20 20 20 20 20 20 20 28 4e 55 4c 4c 2c 20           (NULL, 
0ac0: 24 6d 79 62 61 73 65 29 3b 0a 09 20 20 20 20 7d  $mybase);..    }
0ad0: 0a 09 20 20 20 20 73 65 74 20 6d 79 69 64 20 5b  ..    set myid [
0ae0: 73 74 61 74 65 20 69 64 5d 0a 0a 09 20 20 20 20  state id]...    
0af0: 23 20 54 68 65 6e 20 61 6c 6c 20 66 69 6c 65 73  # Then all files
0b00: 2c 20 77 69 74 68 20 70 72 6f 70 65 72 20 62 61  , with proper ba
0b10: 63 6b 72 65 66 65 72 65 6e 63 65 20 74 6f 20 74  ckreference to t
0b20: 68 65 69 72 0a 09 20 20 20 20 23 20 70 72 6f 6a  heir..    # proj
0b30: 65 63 74 2e 0a 0a 09 20 20 20 20 66 6f 72 65 61  ect....    forea
0b40: 63 68 20 72 63 73 20 5b 6c 73 6f 72 74 20 2d 64  ch rcs [lsort -d
0b50: 69 63 74 20 5b 61 72 72 61 79 20 6e 61 6d 65 73  ict [array names
0b60: 20 6d 79 66 69 6c 65 73 5d 5d 20 7b 0a 09 09 73   myfiles]] {...s
0b70: 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69  truct::list assi
0b80: 67 6e 20 24 6d 79 66 69 6c 65 73 28 24 72 63 73  gn $myfiles($rcs
0b90: 29 20 75 73 72 20 65 78 65 63 75 74 61 62 6c 65  ) usr executable
0ba0: 20 5f 66 69 64 5f 0a 09 09 73 74 61 74 65 20 72   _fid_...state r
0bb0: 75 6e 20 7b 0a 09 09 20 20 20 20 49 4e 53 45 52  un {...    INSER
0bc0: 54 20 49 4e 54 4f 20 66 69 6c 65 20 28 66 69 64  T INTO file (fid
0bd0: 2c 20 20 70 69 64 2c 20 20 20 6e 61 6d 65 2c 20  ,  pid,   name, 
0be0: 76 69 73 69 62 6c 65 2c 20 65 78 65 63 29 0a 09  visible, exec)..
0bf0: 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 20 20  .    VALUES     
0c00: 20 20 20 20 20 20 28 4e 55 4c 4c 2c 20 24 6d 79        (NULL, $my
0c10: 69 64 2c 20 24 72 63 73 2c 20 24 75 73 72 2c 20  id, $rcs, $usr, 
0c20: 20 20 20 24 65 78 65 63 75 74 61 62 6c 65 29 3b     $executable);
0c30: 0a 09 09 7d 0a 09 09 24 6d 79 66 6d 61 70 28 24  ...}...$myfmap($
0c40: 72 63 73 29 20 73 65 74 69 64 20 5b 73 74 61 74  rcs) setid [stat
0c50: 65 20 69 64 5d 0a 09 20 20 20 20 7d 0a 09 7d 0a  e id]..    }..}.
0c60: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20  .return.    }.. 
0c70: 20 20 20 23 20 70 61 73 73 20 49 49 20 70 65 72     # pass II per
0c80: 73 69 73 74 65 6e 63 65 0a 20 20 20 20 6d 65 74  sistence.    met
0c90: 68 6f 64 20 70 65 72 73 69 73 74 72 65 76 20 7b  hod persistrev {
0ca0: 7d 20 7b 0a 09 23 20 4e 6f 74 65 3a 20 54 68 65  } {..# Note: The
0cb0: 20 70 65 72 20 66 69 6c 65 20 69 6e 66 6f 72 6d   per file inform
0cc0: 61 74 69 6f 6e 20 28 69 6e 63 6c 2e 20 72 65 76  ation (incl. rev
0cd0: 69 73 69 6f 6e 73 20 61 6e 64 20 73 79 6d 62 6f  isions and symbo
0ce0: 6c 73 29 0a 09 23 20 68 61 73 20 61 6c 72 65 61  ls)..# has alrea
0cf0: 64 79 20 62 65 65 6e 20 73 61 76 65 64 20 61 6e  dy been saved an
0d00: 64 20 64 72 6f 70 70 65 64 2c 20 69 6d 6d 65 64  d dropped, immed
0d10: 69 61 74 65 6c 79 20 61 66 74 65 72 0a 09 23 20  iately after..# 
0d20: 70 72 6f 63 65 73 73 69 6e 67 20 69 74 2c 20 74  processing it, t
0d30: 6f 20 6b 65 65 70 20 6f 75 74 20 75 73 65 20 6f  o keep out use o
0d40: 66 20 6d 65 6d 6f 72 79 20 75 6e 64 65 72 20 63  f memory under c
0d50: 6f 6e 74 72 6f 6c 2e 20 4e 6f 77 0a 09 23 20 77  ontrol. Now..# w
0d60: 65 20 6a 75 73 74 20 68 61 76 65 20 74 6f 20 73  e just have to s
0d70: 61 76 65 20 74 68 65 20 72 65 6d 61 69 6e 69 6e  ave the remainin
0d80: 67 20 70 72 6f 6a 65 63 74 20 6c 65 76 65 6c 20  g project level 
0d90: 70 61 72 74 73 20 74 6f 0a 09 23 20 66 69 78 20  parts to..# fix 
0da0: 74 68 65 20 6c 65 66 74 2d 6f 76 65 72 20 64 61  the left-over da
0db0: 6e 67 6c 69 6e 67 20 72 65 66 65 72 65 6e 63 65  ngling reference
0dc0: 73 2e 0a 0a 09 73 74 61 74 65 20 74 72 61 6e 73  s....state trans
0dd0: 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 20 23 20  action {..    # 
0de0: 54 4f 44 4f 3a 20 70 65 72 20 70 72 6f 6a 65 63  TODO: per projec
0df0: 74 20 70 65 72 73 69 73 74 65 6e 63 65 20 28 73  t persistence (s
0e00: 79 6d 62 6f 6c 73 2c 20 6d 65 74 61 20 64 61 74  ymbols, meta dat
0e10: 61 29 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20  a)..}..return.  
0e20: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20    }..    # # ## 
0e30: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23  ### ##### ######
0e40: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23  ## #############
0e50: 0a 20 20 20 20 23 23 20 53 74 61 74 65 0a 0a 20  .    ## State.. 
0e60: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 62 61     variable myba
0e70: 73 65 20 20 20 20 20 20 20 20 20 20 20 7b 7d 20  se           {} 
0e80: 3b 20 23 20 50 72 6f 6a 65 63 74 20 64 69 72 65  ; # Project dire
0e90: 63 74 6f 72 79 2e 0a 20 20 20 20 76 61 72 69 61  ctory..    varia
0ea0: 62 6c 65 20 6d 79 69 64 20 20 20 20 20 20 20 20  ble myid        
0eb0: 20 20 20 20 20 7b 7d 20 3b 20 23 20 50 72 6f 6a       {} ; # Proj
0ec0: 65 63 74 20 69 64 20 69 6e 20 74 68 65 20 70 65  ect id in the pe
0ed0: 72 73 69 73 74 65 6e 74 20 73 74 61 74 65 2e 0a  rsistent state..
0ee0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 74      variable myt
0ef0: 72 75 6e 6b 20 20 20 20 20 20 20 20 20 20 7b 7d  runk          {}
0f00: 20 3b 20 23 20 52 65 66 65 72 65 6e 63 65 20 74   ; # Reference t
0f10: 6f 20 74 68 65 20 6d 61 69 6e 20 6c 69 6e 65 20  o the main line 
0f20: 6f 66 0a 09 09 09 09 20 20 20 23 20 64 65 76 65  of.....   # deve
0f30: 6c 6f 70 6d 65 6e 74 20 66 6f 72 20 74 68 65 20  lopment for the 
0f40: 70 72 6f 6a 65 63 74 2e 0a 20 20 20 20 76 61 72  project..    var
0f50: 69 61 62 6c 65 20 6d 79 66 69 6c 65 73 20 20 20  iable myfiles   
0f60: 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61  -array {} ; # Ma
0f70: 70 73 20 74 68 65 20 72 63 73 20 61 72 63 68 69  ps the rcs archi
0f80: 76 65 20 70 61 74 68 73 20 74 6f 0a 09 09 09 09  ve paths to.....
0f90: 20 20 20 23 20 74 68 65 69 72 20 75 73 65 72 2d     # their user-
0fa0: 76 69 73 69 62 6c 65 20 66 69 6c 65 73 2e 0a 20  visible files.. 
0fb0: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 66 6f     variable myfo
0fc0: 62 6a 20 20 20 20 20 20 20 20 20 20 20 7b 7d 20  bj           {} 
0fd0: 3b 20 23 20 46 69 6c 65 20 6f 62 6a 65 63 74 73  ; # File objects
0fe0: 20 66 6f 72 20 74 68 65 20 72 63 73 20 61 72 63   for the rcs arc
0ff0: 68 69 76 65 73 0a 20 20 20 20 76 61 72 69 61 62  hives.    variab
1000: 6c 65 20 6d 79 66 6d 61 70 20 20 20 20 2d 61 72  le myfmap    -ar
1010: 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 20 72  ray {} ; # Map r
1020: 63 73 20 61 72 63 68 69 76 65 20 74 6f 20 74 68  cs archive to th
1030: 65 69 72 20 6f 62 6a 65 63 74 2e 0a 20 20 20 20  eir object..    
1040: 76 61 72 69 61 62 6c 65 20 6d 79 72 65 70 6f 73  variable myrepos
1050: 69 74 6f 72 79 20 20 20 20 20 7b 7d 20 3b 20 23  itory     {} ; #
1060: 20 52 65 70 6f 73 69 74 6f 72 79 20 74 68 65 20   Repository the 
1070: 70 72 6a 65 63 74 20 62 65 6c 6f 6e 67 73 20 74  prject belongs t
1080: 6f 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20  o..    variable 
1090: 6d 79 73 79 6d 62 6f 6c 73 20 2d 61 72 72 61 79  mysymbols -array
10a0: 20 7b 7d 20 3b 20 23 20 4d 61 70 20 73 79 6d 62   {} ; # Map symb
10b0: 6f 6c 20 6e 61 6d 65 73 20 74 6f 20 70 72 6f 6a  ol names to proj
10c0: 65 63 74 2d 6c 65 76 65 6c 0a 09 09 09 09 20 20  ect-level.....  
10d0: 20 23 20 73 79 6d 62 6f 6c 20 6f 62 6a 65 63 74   # symbol object
10e0: 73 2e 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23  s...    # # ## #
10f0: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23  ## ##### #######
1100: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a  # #############.
1110: 20 20 20 20 23 23 20 49 6e 74 65 72 6e 61 6c 20      ## Internal 
1120: 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 70 72 6f  methods..    pro
1130: 63 20 54 68 65 46 69 6c 65 73 20 7b 7d 20 7b 0a  c TheFiles {} {.
1140: 09 75 70 76 61 72 20 31 20 6d 79 66 69 6c 65 73  .upvar 1 myfiles
1150: 20 6d 79 66 69 6c 65 73 20 6d 79 66 6f 62 6a 20   myfiles myfobj 
1160: 6d 79 66 6f 62 6a 20 73 65 6c 66 20 73 65 6c 66  myfobj self self
1170: 20 6d 79 66 6d 61 70 20 6d 79 66 6d 61 70 0a 09   myfmap myfmap..
1180: 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 24 6d  if {![llength $m
1190: 79 66 6f 62 6a 5d 7d 20 7b 0a 09 20 20 20 20 73  yfobj]} {..    s
11a0: 65 74 20 6d 79 66 6f 62 6a 20 5b 45 6d 70 74 79  et myfobj [Empty
11b0: 46 69 6c 65 73 20 6d 79 66 69 6c 65 73 5d 0a 09  Files myfiles]..
11c0: 7d 0a 09 72 65 74 75 72 6e 20 24 6d 79 66 6f 62  }..return $myfob
11d0: 6a 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f  j.    }..    pro
11e0: 63 20 45 6d 70 74 79 46 69 6c 65 73 20 7b 66 76  c EmptyFiles {fv
11f0: 7d 20 7b 0a 09 75 70 76 61 72 20 31 20 24 66 76  } {..upvar 1 $fv
1200: 20 6d 79 66 69 6c 65 73 20 73 65 6c 66 20 73 65   myfiles self se
1210: 6c 66 20 6d 79 66 6d 61 70 20 6d 79 66 6d 61 70  lf myfmap myfmap
1220: 0a 09 73 65 74 20 72 65 73 20 7b 7d 0a 09 66 6f  ..set res {}..fo
1230: 72 65 61 63 68 20 72 63 73 20 5b 6c 73 6f 72 74  reach rcs [lsort
1240: 20 2d 64 69 63 74 20 5b 61 72 72 61 79 20 6e 61   -dict [array na
1250: 6d 65 73 20 6d 79 66 69 6c 65 73 5d 5d 20 7b 0a  mes myfiles]] {.
1260: 09 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73  .    struct::lis
1270: 74 20 61 73 73 69 67 6e 20 24 6d 79 66 69 6c 65  t assign $myfile
1280: 73 28 24 72 63 73 29 20 66 20 65 78 65 63 75 74  s($rcs) f execut
1290: 61 62 6c 65 20 66 69 64 0a 09 20 20 20 20 73 65  able fid..    se
12a0: 74 20 66 69 6c 65 20 5b 66 69 6c 65 20 25 41 55  t file [file %AU
12b0: 54 4f 25 20 24 66 69 64 20 24 72 63 73 20 24 66  TO% $fid $rcs $f
12c0: 20 24 65 78 65 63 75 74 61 62 6c 65 20 24 73 65   $executable $se
12d0: 6c 66 5d 0a 09 20 20 20 20 6c 61 70 70 65 6e 64  lf]..    lappend
12e0: 20 72 65 73 20 24 66 69 6c 65 0a 09 20 20 20 20   res $file..    
12f0: 73 65 74 20 6d 79 66 6d 61 70 28 24 72 63 73 29  set myfmap($rcs)
1300: 20 24 66 69 6c 65 0a 09 7d 0a 09 72 65 74 75 72   $file..}..retur
1310: 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 20  n $res.    }..  
1320: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23    # # ## ### ###
1330: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23  ## ######## ####
1340: 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23  #########.    ##
1350: 20 43 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a   Configuration..
1360: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74      pragma -hast
1370: 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 20 3b  ypeinfo    no  ;
1380: 20 23 20 6e 6f 20 74 79 70 65 20 69 6e 74 72 6f   # no type intro
1390: 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61  spection.    pra
13a0: 67 6d 61 20 2d 68 61 73 69 6e 66 6f 20 20 20 20  gma -hasinfo    
13b0: 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 6f      no  ; # no o
13c0: 62 6a 65 63 74 20 69 6e 74 72 6f 73 70 65 63 74  bject introspect
13d0: 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d  ion.    pragma -
13e0: 68 61 73 74 79 70 65 6d 65 74 68 6f 64 73 20 6e  hastypemethods n
13f0: 6f 20 20 3b 20 23 20 74 79 70 65 20 69 73 20 6e  o  ; # type is n
1400: 6f 74 20 72 65 6c 65 76 61 6e 74 2e 0a 0a 20 20  ot relevant...  
1410: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23    # # ## ### ###
1420: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23  ## ######## ####
1430: 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d  #########.}..nam
1440: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63  espace eval ::vc
1450: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74  ::fossil::import
1460: 3a 3a 63 76 73 20 7b 0a 20 20 20 20 6e 61 6d 65  ::cvs {.    name
1470: 73 70 61 63 65 20 65 78 70 6f 72 74 20 70 72 6f  space export pro
1480: 6a 65 63 74 0a 20 20 20 20 6e 61 6d 65 73 70 61  ject.    namespa
1490: 63 65 20 65 76 61 6c 20 70 72 6f 6a 65 63 74 20  ce eval project 
14a0: 7b 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70  {..namespace imp
14b0: 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c  ort ::vc::fossil
14c0: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66  ::import::cvs::f
14d0: 69 6c 65 0a 09 6e 61 6d 65 73 70 61 63 65 20 69  ile..namespace i
14e0: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73  mport ::vc::foss
14f0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a  il::import::cvs:
1500: 3a 73 74 61 74 65 0a 09 23 20 49 6d 70 6f 72 74  :state..# Import
1510: 20 6e 6f 74 20 72 65 71 75 69 72 65 64 2c 20 61   not required, a
1520: 6c 72 65 61 64 79 20 61 20 63 68 69 6c 64 20 6e  lready a child n
1530: 61 6d 65 73 70 61 63 65 2e 0a 09 23 20 6e 61 6d  amespace...# nam
1540: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a  espace import ::
1550: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f  vc::fossil::impo
1560: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74  rt::cvs::project
1570: 3a 3a 73 79 6d 0a 20 20 20 20 7d 0a 7d 0a 0a 23  ::sym.    }.}..#
1580: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20   # ## ### ##### 
1590: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23  ######## #######
15a0: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23  ###### #########
15b0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20  ############.## 
15c0: 52 65 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 70  Ready..package p
15d0: 72 6f 76 69 64 65 20 76 63 3a 3a 66 6f 73 73 69  rovide vc::fossi
15e0: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a  l::import::cvs::
15f0: 70 72 6f 6a 65 63 74 20 31 2e 30 0a 72 65 74 75  project 1.0.retu
1600: 72 6e 0a                                         rn.