Artifact
b18af2ce898b11c8436cc6d7d0cd6b6ac0f01e4a:
0000: 23 0a 23 20 54 63 6c 20 4c 69 62 72 61 72 79 20 #.# Tcl Library
0010: 66 6f 72 20 54 6b 43 56 53 0a 23 0a 0a 23 0a 23 for TkCVS.#..#.#
0020: 20 24 49 64 3a 20 69 6d 70 6f 72 74 2e 74 63 6c $Id: import.tcl
0030: 2c 76 20 31 2e 32 20 32 30 30 36 2d 30 36 2d 33 ,v 1.2 2006-06-3
0040: 30 20 31 37 3a 34 30 3a 31 33 20 72 61 6d 73 61 0 17:40:13 ramsa
0050: 6e 20 45 78 70 20 24 0a 23 0a 23 20 41 64 64 73 n Exp $.#.# Adds
0060: 20 61 20 6e 65 77 20 64 6f 63 75 6d 65 6e 74 20 a new document
0070: 74 6f 20 74 68 65 20 72 65 70 6f 73 69 74 6f 72 to the repositor
0080: 79 2e 0a 23 0a 0a 70 72 6f 63 20 69 6d 70 6f 72 y..#..proc impor
0090: 74 5f 73 65 74 75 70 20 7b 7d 20 7b 0a 20 20 67 t_setup {} {. g
00a0: 6c 6f 62 61 6c 20 63 76 73 67 6c 62 0a 20 20 67 lobal cvsglb. g
00b0: 6c 6f 62 61 6c 20 63 76 73 63 66 67 0a 0a 20 20 lobal cvscfg..
00c0: 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 54 20 22 45 gen_log:log T "E
00d0: 4e 54 45 52 22 0a 20 20 23 20 47 69 76 65 20 69 NTER". # Give i
00e0: 74 20 61 20 64 65 66 61 75 6c 74 0a 20 20 73 65 t a default. se
00f0: 74 20 63 76 73 67 6c 62 28 6e 65 77 76 65 72 73 t cvsglb(newvers
0100: 29 20 31 0a 0a 20 20 74 6f 70 6c 65 76 65 6c 20 ) 1.. toplevel
0110: 2e 69 6d 70 6f 72 74 0a 20 20 66 72 61 6d 65 20 .import. frame
0120: 2e 69 6d 70 6f 72 74 2e 74 6f 70 20 2d 72 65 6c .import.top -rel
0130: 69 65 66 20 67 72 6f 6f 76 65 20 2d 62 6f 72 64 ief groove -bord
0140: 65 72 20 32 0a 20 20 66 72 61 6d 65 20 2e 69 6d er 2. frame .im
0150: 70 6f 72 74 2e 63 65 6e 74 65 72 0a 20 20 66 72 port.center. fr
0160: 61 6d 65 20 2e 69 6d 70 6f 72 74 2e 63 65 6e 74 ame .import.cent
0170: 65 72 2e 6c 65 66 74 0a 20 20 66 72 61 6d 65 20 er.left. frame
0180: 2e 69 6d 70 6f 72 74 2e 63 65 6e 74 65 72 2e 72 .import.center.r
0190: 69 67 68 74 0a 20 20 66 72 61 6d 65 20 2e 69 6d ight. frame .im
01a0: 70 6f 72 74 2e 64 6f 77 6e 20 2d 72 65 6c 69 65 port.down -relie
01b0: 66 20 67 72 6f 6f 76 65 20 2d 62 6f 72 64 65 72 f groove -border
01c0: 20 32 0a 0a 20 20 23 20 57 68 65 6e 20 70 61 63 2.. # When pac
01d0: 6b 69 6e 67 2c 20 49 20 6f 6e 6c 79 20 77 61 6e king, I only wan
01e0: 74 20 74 68 65 20 72 69 67 68 74 20 68 61 6e 64 t the right hand
01f0: 20 73 69 64 65 20 61 6e 64 20 74 68 65 20 62 75 side and the bu
0200: 74 74 6f 6e 73 0a 20 20 23 20 74 6f 20 62 65 20 ttons. # to be
0210: 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 73 74 interactively st
0220: 72 65 63 68 61 62 6c 65 20 28 69 6e 20 63 61 73 rechable (in cas
0230: 65 20 74 68 65 20 75 73 65 72 20 77 61 6e 74 73 e the user wants
0240: 20 6d 6f 72 65 20 73 70 61 63 65 0a 20 20 23 20 more space. #
0250: 74 6f 20 65 6e 74 65 72 20 6c 6f 6e 67 20 64 6f to enter long do
0260: 63 75 6d 65 6e 74 20 6e 61 6d 65 73 29 2e 0a 0a cument names)...
0270: 20 20 70 61 63 6b 20 2e 69 6d 70 6f 72 74 2e 74 pack .import.t
0280: 6f 70 20 2d 73 69 64 65 20 74 6f 70 20 2d 66 69 op -side top -fi
0290: 6c 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 0a 20 ll x -expand 1.
02a0: 20 70 61 63 6b 20 2e 69 6d 70 6f 72 74 2e 63 65 pack .import.ce
02b0: 6e 74 65 72 20 2d 73 69 64 65 20 74 6f 70 20 2d nter -side top -
02c0: 66 69 6c 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 fill x -expand 1
02d0: 0a 20 20 70 61 63 6b 20 2e 69 6d 70 6f 72 74 2e . pack .import.
02e0: 64 6f 77 6e 20 2d 73 69 64 65 20 62 6f 74 74 6f down -side botto
02f0: 6d 20 2d 66 69 6c 6c 20 78 20 2d 65 78 70 61 6e m -fill x -expan
0300: 64 20 31 0a 0a 20 20 6d 65 73 73 61 67 65 20 2e d 1.. message .
0310: 69 6d 70 6f 72 74 2e 74 6f 70 2e 65 78 70 6c 61 import.top.expla
0320: 69 6e 20 2d 6a 75 73 74 69 66 79 20 6c 65 66 74 in -justify left
0330: 20 2d 61 73 70 65 63 74 20 34 30 30 20 2d 72 65 -aspect 400 -re
0340: 6c 69 65 66 20 67 72 6f 6f 76 65 20 5c 0a 20 20 lief groove \.
0350: 20 20 2d 74 65 78 74 20 22 54 68 69 73 20 77 69 -text "This wi
0360: 6c 6c 20 69 6d 70 6f 72 74 20 74 68 65 20 63 75 ll import the cu
0370: 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 rrent directory
0380: 61 6e 64 20 69 74 73 20 73 75 62 2d 64 69 72 65 and its sub-dire
0390: 63 74 6f 72 69 65 73 5c 0a 20 20 20 20 20 20 20 ctories\.
03a0: 20 20 20 69 6e 74 6f 20 43 56 53 2c 20 63 72 65 into CVS, cre
03b0: 61 74 69 6e 67 20 61 20 6e 65 77 20 6d 6f 64 75 ating a new modu
03c0: 6c 65 2e 22 0a 20 20 6c 61 62 65 6c 20 2e 69 6d le.". label .im
03d0: 70 6f 72 74 2e 6c 6e 65 77 63 6f 64 65 20 2d 74 port.lnewcode -t
03e0: 65 78 74 20 22 4d 6f 64 75 6c 65 20 4e 61 6d 65 ext "Module Name
03f0: 22 20 2d 61 6e 63 68 6f 72 20 77 0a 20 20 6c 61 " -anchor w. la
0400: 62 65 6c 20 2e 69 6d 70 6f 72 74 2e 6c 6e 65 77 bel .import.lnew
0410: 64 69 72 20 20 2d 74 65 78 74 20 22 4d 6f 64 75 dir -text "Modu
0420: 6c 65 20 50 61 74 68 22 20 2d 61 6e 63 68 6f 72 le Path" -anchor
0430: 20 77 0a 20 20 6c 61 62 65 6c 20 2e 69 6d 70 6f w. label .impo
0440: 72 74 2e 6c 6e 65 77 64 65 73 63 20 2d 74 65 78 rt.lnewdesc -tex
0450: 74 20 22 44 65 73 63 72 69 70 74 69 76 65 20 54 t "Descriptive T
0460: 69 74 6c 65 22 20 2d 61 6e 63 68 6f 72 20 77 0a itle" -anchor w.
0470: 20 20 6c 61 62 65 6c 20 2e 69 6d 70 6f 72 74 2e label .import.
0480: 6c 6e 65 77 76 65 72 73 20 20 2d 74 65 78 74 20 lnewvers -text
0490: 22 56 65 72 73 69 6f 6e 20 4e 75 6d 62 65 72 22 "Version Number"
04a0: 20 2d 61 6e 63 68 6f 72 20 77 0a 0a 20 20 65 6e -anchor w.. en
04b0: 74 72 79 20 2e 69 6d 70 6f 72 74 2e 74 6e 65 77 try .import.tnew
04c0: 63 6f 64 65 20 2d 72 65 6c 69 65 66 20 73 75 6e code -relief sun
04d0: 6b 65 6e 20 2d 74 65 78 74 76 61 72 69 61 62 6c ken -textvariabl
04e0: 65 20 63 76 73 67 6c 62 28 6e 65 77 63 6f 64 65 e cvsglb(newcode
04f0: 29 20 2d 77 69 64 74 68 20 34 30 0a 20 20 65 6e ) -width 40. en
0500: 74 72 79 20 2e 69 6d 70 6f 72 74 2e 74 6e 65 77 try .import.tnew
0510: 64 69 72 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b dir -relief sunk
0520: 65 6e 20 2d 74 65 78 74 76 61 72 69 61 62 6c 65 en -textvariable
0530: 20 63 76 73 67 6c 62 28 6e 65 77 64 69 72 29 20 cvsglb(newdir)
0540: 2d 77 69 64 74 68 20 34 30 0a 20 20 65 6e 74 72 -width 40. entr
0550: 79 20 2e 69 6d 70 6f 72 74 2e 74 6e 65 77 64 65 y .import.tnewde
0560: 73 63 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b 65 sc -relief sunke
0570: 6e 20 2d 74 65 78 74 76 61 72 69 61 62 6c 65 20 n -textvariable
0580: 63 76 73 67 6c 62 28 6e 65 77 64 65 73 63 29 20 cvsglb(newdesc)
0590: 2d 77 69 64 74 68 20 34 30 0a 20 20 65 6e 74 72 -width 40. entr
05a0: 79 20 2e 69 6d 70 6f 72 74 2e 74 6e 65 77 76 65 y .import.tnewve
05b0: 72 73 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b 65 rs -relief sunke
05c0: 6e 20 2d 74 65 78 74 76 61 72 69 61 62 6c 65 20 n -textvariable
05d0: 63 76 73 67 6c 62 28 6e 65 77 76 65 72 73 29 20 cvsglb(newvers)
05e0: 2d 77 69 64 74 68 20 34 30 0a 0a 20 20 70 61 63 -width 40.. pac
05f0: 6b 20 2e 69 6d 70 6f 72 74 2e 63 65 6e 74 65 72 k .import.center
0600: 2e 6c 65 66 74 20 2d 73 69 64 65 20 6c 65 66 74 .left -side left
0610: 20 2d 66 69 6c 6c 20 79 0a 20 20 70 61 63 6b 20 -fill y. pack
0620: 2e 69 6d 70 6f 72 74 2e 63 65 6e 74 65 72 2e 72 .import.center.r
0630: 69 67 68 74 20 2d 73 69 64 65 20 6c 65 66 74 20 ight -side left
0640: 2d 66 69 6c 6c 20 62 6f 74 68 20 2d 65 78 70 61 -fill both -expa
0650: 6e 64 20 31 0a 0a 20 20 70 61 63 6b 20 2e 69 6d nd 1.. pack .im
0660: 70 6f 72 74 2e 74 6f 70 2e 65 78 70 6c 61 69 6e port.top.explain
0670: 20 2d 73 69 64 65 20 74 6f 70 20 2d 70 61 64 78 -side top -padx
0680: 20 32 20 2d 70 61 64 79 20 32 20 2d 66 69 6c 6c 2 -pady 2 -fill
0690: 20 78 20 2d 65 78 70 61 6e 64 20 31 0a 20 20 70 x -expand 1. p
06a0: 61 63 6b 20 2e 69 6d 70 6f 72 74 2e 6c 6e 65 77 ack .import.lnew
06b0: 63 6f 64 65 20 2e 69 6d 70 6f 72 74 2e 6c 6e 65 code .import.lne
06c0: 77 64 69 72 20 5c 0a 20 20 20 20 20 20 20 2e 69 wdir \. .i
06d0: 6d 70 6f 72 74 2e 6c 6e 65 77 64 65 73 63 20 2e mport.lnewdesc .
06e0: 69 6d 70 6f 72 74 2e 6c 6e 65 77 76 65 72 73 20 import.lnewvers
06f0: 5c 0a 20 20 20 20 2d 69 6e 20 2e 69 6d 70 6f 72 \. -in .impor
0700: 74 2e 63 65 6e 74 65 72 2e 6c 65 66 74 20 5c 0a t.center.left \.
0710: 20 20 20 20 2d 73 69 64 65 20 74 6f 70 20 2d 66 -side top -f
0720: 69 6c 6c 20 78 20 2d 70 61 64 79 20 33 0a 0a 20 ill x -pady 3..
0730: 20 70 61 63 6b 20 2e 69 6d 70 6f 72 74 2e 74 6e pack .import.tn
0740: 65 77 63 6f 64 65 20 2e 69 6d 70 6f 72 74 2e 74 ewcode .import.t
0750: 6e 65 77 64 69 72 20 5c 0a 20 20 20 20 20 20 20 newdir \.
0760: 2e 69 6d 70 6f 72 74 2e 74 6e 65 77 64 65 73 63 .import.tnewdesc
0770: 20 2e 69 6d 70 6f 72 74 2e 74 6e 65 77 76 65 72 .import.tnewver
0780: 73 20 5c 0a 20 20 20 20 2d 69 6e 20 2e 69 6d 70 s \. -in .imp
0790: 6f 72 74 2e 63 65 6e 74 65 72 2e 72 69 67 68 74 ort.center.right
07a0: 20 5c 0a 20 20 20 20 2d 73 69 64 65 20 74 6f 70 \. -side top
07b0: 20 2d 66 69 6c 6c 20 62 6f 74 68 20 2d 65 78 70 -fill both -exp
07c0: 61 6e 64 20 31 20 2d 70 61 64 79 20 33 0a 0a 20 and 1 -pady 3..
07d0: 20 62 75 74 74 6f 6e 20 2e 69 6d 70 6f 72 74 2e button .import.
07e0: 6f 6b 20 2d 74 65 78 74 20 22 4f 4b 22 20 5c 0a ok -text "OK" \.
07f0: 20 20 20 20 2d 63 6f 6d 6d 61 6e 64 20 64 6f 5f -command do_
0800: 69 6d 70 6f 72 74 0a 20 20 62 75 74 74 6f 6e 20 import. button
0810: 2e 69 6d 70 6f 72 74 2e 6e 65 77 64 69 72 20 2d .import.newdir -
0820: 74 65 78 74 20 22 4e 65 77 20 44 69 72 65 63 74 text "New Direct
0830: 6f 72 79 22 20 5c 0a 20 20 20 20 2d 63 6f 6d 6d ory" \. -comm
0840: 61 6e 64 20 69 6e 65 77 64 69 72 5f 72 75 6e 0a and inewdir_run.
0850: 20 20 62 75 74 74 6f 6e 20 2e 69 6d 70 6f 72 74 button .import
0860: 2e 71 75 69 74 20 2d 74 65 78 74 20 22 51 75 69 .quit -text "Qui
0870: 74 22 20 5c 0a 20 20 20 20 2d 63 6f 6d 6d 61 6e t" \. -comman
0880: 64 20 7b 20 77 6d 20 77 69 74 68 64 72 61 77 20 d { wm withdraw
0890: 2e 69 6d 70 6f 72 74 20 7d 0a 0a 20 20 70 61 63 .import }.. pac
08a0: 6b 20 2e 69 6d 70 6f 72 74 2e 6f 6b 20 2e 69 6d k .import.ok .im
08b0: 70 6f 72 74 2e 6e 65 77 64 69 72 20 2e 69 6d 70 port.newdir .imp
08c0: 6f 72 74 2e 71 75 69 74 20 2d 69 6e 20 2e 69 6d ort.quit -in .im
08d0: 70 6f 72 74 2e 64 6f 77 6e 20 2d 73 69 64 65 20 port.down -side
08e0: 6c 65 66 74 20 5c 0a 20 20 20 20 2d 69 70 61 64 left \. -ipad
08f0: 78 20 32 20 2d 69 70 61 64 79 20 32 20 2d 70 61 x 2 -ipady 2 -pa
0900: 64 78 20 34 20 2d 70 61 64 79 20 34 20 2d 66 69 dx 4 -pady 4 -fi
0910: 6c 6c 20 62 6f 74 68 20 2d 65 78 70 61 6e 64 20 ll both -expand
0920: 31 0a 0a 20 20 23 20 4e 65 65 64 65 64 20 66 6f 1.. # Needed fo
0930: 72 20 73 6c 6f 77 65 72 20 66 72 61 6d 65 62 75 r slower framebu
0940: 66 66 65 72 73 0a 20 20 74 6b 77 61 69 74 20 76 ffers. tkwait v
0950: 69 73 69 62 69 6c 69 74 79 20 2e 69 6d 70 6f 72 isibility .impor
0960: 74 0a 0a 20 20 77 6d 20 77 69 74 68 64 72 61 77 t.. wm withdraw
0970: 20 2e 69 6d 70 6f 72 74 0a 20 20 77 6d 20 74 69 .import. wm ti
0980: 74 6c 65 20 2e 69 6d 70 6f 72 74 20 22 49 6d 70 tle .import "Imp
0990: 6f 72 74 20 61 20 4e 65 77 20 4d 6f 64 75 6c 65 ort a New Module
09a0: 22 0a 20 20 77 6d 20 6d 69 6e 73 69 7a 65 20 2e ". wm minsize .
09b0: 69 6d 70 6f 72 74 20 31 20 31 0a 0a 20 20 74 6f import 1 1.. to
09c0: 70 6c 65 76 65 6c 20 2e 69 6e 65 77 64 69 72 0a plevel .inewdir.
09d0: 20 20 66 72 61 6d 65 20 2e 69 6e 65 77 64 69 72 frame .inewdir
09e0: 2e 74 6f 70 0a 20 20 66 72 61 6d 65 20 2e 69 6e .top. frame .in
09f0: 65 77 64 69 72 2e 6c 6f 63 0a 20 20 66 72 61 6d ewdir.loc. fram
0a00: 65 20 2e 69 6e 65 77 64 69 72 2e 64 65 73 63 0a e .inewdir.desc.
0a10: 20 20 66 72 61 6d 65 20 2e 69 6e 65 77 64 69 72 frame .inewdir
0a20: 2e 64 6f 77 6e 20 2d 72 65 6c 69 65 66 20 67 72 .down -relief gr
0a30: 6f 6f 76 65 20 2d 62 6f 72 64 65 72 20 32 0a 0a oove -border 2..
0a40: 20 20 23 20 57 68 65 6e 20 70 61 63 6b 69 6e 67 # When packing
0a50: 2c 20 49 20 6f 6e 6c 79 20 77 61 6e 74 20 74 68 , I only want th
0a60: 65 20 72 69 67 68 74 20 68 61 6e 64 20 73 69 64 e right hand sid
0a70: 65 20 61 6e 64 20 74 68 65 20 62 75 74 74 6f 6e e and the button
0a80: 73 0a 20 20 23 20 74 6f 20 62 65 20 69 6e 74 65 s. # to be inte
0a90: 72 61 63 74 69 76 65 6c 79 20 73 74 72 65 63 68 ractively strech
0aa0: 61 62 6c 65 20 28 69 6e 20 63 61 73 65 20 74 68 able (in case th
0ab0: 65 20 75 73 65 72 20 77 61 6e 74 73 20 6d 6f 72 e user wants mor
0ac0: 65 20 73 70 61 63 65 0a 20 20 23 20 74 6f 20 65 e space. # to e
0ad0: 6e 74 65 72 20 6c 6f 6e 67 20 64 6f 63 75 6d 65 nter long docume
0ae0: 6e 74 20 6e 61 6d 65 73 29 2e 0a 0a 20 20 70 61 nt names)... pa
0af0: 63 6b 20 2e 69 6e 65 77 64 69 72 2e 64 6f 77 6e ck .inewdir.down
0b00: 20 2d 73 69 64 65 20 62 6f 74 74 6f 6d 20 2d 66 -side bottom -f
0b10: 69 6c 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 0a ill x -expand 1.
0b20: 20 20 70 61 63 6b 20 2e 69 6e 65 77 64 69 72 2e pack .inewdir.
0b30: 74 6f 70 20 2d 73 69 64 65 20 74 6f 70 20 2d 66 top -side top -f
0b40: 69 6c 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 0a ill x -expand 1.
0b50: 20 20 70 61 63 6b 20 2e 69 6e 65 77 64 69 72 2e pack .inewdir.
0b60: 6c 6f 63 20 2d 73 69 64 65 20 74 6f 70 20 2d 66 loc -side top -f
0b70: 69 6c 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 0a ill x -expand 1.
0b80: 20 20 70 61 63 6b 20 2e 69 6e 65 77 64 69 72 2e pack .inewdir.
0b90: 64 65 73 63 20 2d 73 69 64 65 20 6c 65 66 74 20 desc -side left
0ba0: 2d 66 69 6c 6c 20 62 6f 74 68 20 2d 65 78 70 61 -fill both -expa
0bb0: 6e 64 20 31 0a 0a 20 20 6d 65 73 73 61 67 65 20 nd 1.. message
0bc0: 2e 69 6e 65 77 64 69 72 2e 74 6f 70 2e 65 78 70 .inewdir.top.exp
0bd0: 6c 61 69 6e 20 2d 6a 75 73 74 69 66 79 20 6c 65 lain -justify le
0be0: 66 74 20 2d 61 73 70 65 63 74 20 34 30 30 20 2d ft -aspect 400 -
0bf0: 72 65 6c 69 65 66 20 67 72 6f 6f 76 65 20 5c 0a relief groove \.
0c00: 20 20 20 20 2d 74 65 78 74 20 22 54 68 69 73 20 -text "This
0c10: 77 69 6c 6c 20 63 72 65 61 74 65 20 61 20 6e 65 will create a ne
0c20: 77 20 64 69 72 65 63 74 6f 72 79 20 75 6e 64 65 w directory unde
0c30: 72 20 5c 24 43 56 53 52 4f 4f 54 22 0a 0a 20 20 r \$CVSROOT"..
0c40: 6c 61 62 65 6c 20 2e 69 6e 65 77 64 69 72 2e 6c label .inewdir.l
0c50: 6f 63 2e 6c 6e 65 77 64 69 72 20 20 2d 74 65 78 oc.lnewdir -tex
0c60: 74 20 22 4c 6f 63 61 74 69 6f 6e 20 72 65 6c 61 t "Location rela
0c70: 74 69 76 65 20 74 6f 20 5c 24 43 56 53 52 4f 4f tive to \$CVSROO
0c80: 54 22 20 2d 61 6e 63 68 6f 72 20 77 0a 20 20 65 T" -anchor w. e
0c90: 6e 74 72 79 20 2e 69 6e 65 77 64 69 72 2e 6c 6f ntry .inewdir.lo
0ca0: 63 2e 74 6e 65 77 64 69 72 20 2d 72 65 6c 69 65 c.tnewdir -relie
0cb0: 66 20 73 75 6e 6b 65 6e 20 2d 77 69 64 74 68 20 f sunken -width
0cc0: 32 30 20 5c 0a 20 20 20 20 2d 74 65 78 74 76 61 20 \. -textva
0cd0: 72 69 61 62 6c 65 20 63 76 73 67 6c 62 28 64 6e riable cvsglb(dn
0ce0: 65 77 64 69 72 29 0a 20 20 6c 61 62 65 6c 20 2e ewdir). label .
0cf0: 69 6e 65 77 64 69 72 2e 6c 6f 63 2e 6d 6f 72 65 inewdir.loc.more
0d00: 20 20 2d 74 65 78 74 20 22 28 70 61 72 65 6e 74 -text "(parent
0d10: 20 6d 75 73 74 20 61 6c 72 65 61 64 79 20 65 78 must already ex
0d20: 69 73 74 29 22 20 2d 61 6e 63 68 6f 72 20 77 0a ist)" -anchor w.
0d30: 0a 20 20 6c 61 62 65 6c 20 2e 69 6e 65 77 64 69 . label .inewdi
0d40: 72 2e 64 65 73 63 2e 6c 6e 65 77 64 65 73 63 20 r.desc.lnewdesc
0d50: 2d 74 65 78 74 20 22 44 65 73 63 72 69 70 74 69 -text "Descripti
0d60: 76 65 20 54 69 74 6c 65 22 20 2d 61 6e 63 68 6f ve Title" -ancho
0d70: 72 20 77 0a 20 20 65 6e 74 72 79 20 2e 69 6e 65 r w. entry .ine
0d80: 77 64 69 72 2e 64 65 73 63 2e 74 6e 65 77 64 65 wdir.desc.tnewde
0d90: 73 63 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b 65 sc -relief sunke
0da0: 6e 20 2d 77 69 64 74 68 20 34 30 20 5c 0a 20 20 n -width 40 \.
0db0: 20 20 2d 74 65 78 74 76 61 72 69 61 62 6c 65 20 -textvariable
0dc0: 63 76 73 67 6c 62 28 64 6e 65 77 64 65 73 63 29 cvsglb(dnewdesc)
0dd0: 0a 0a 20 20 70 61 63 6b 20 2e 69 6e 65 77 64 69 .. pack .inewdi
0de0: 72 2e 74 6f 70 2e 65 78 70 6c 61 69 6e 20 2d 73 r.top.explain -s
0df0: 69 64 65 20 74 6f 70 20 2d 70 61 64 78 20 32 20 ide top -padx 2
0e00: 2d 70 61 64 79 20 32 20 2d 66 69 6c 6c 20 78 20 -pady 2 -fill x
0e10: 2d 65 78 70 61 6e 64 20 31 0a 20 20 70 61 63 6b -expand 1. pack
0e20: 20 2e 69 6e 65 77 64 69 72 2e 6c 6f 63 2e 6c 6e .inewdir.loc.ln
0e30: 65 77 64 69 72 20 2e 69 6e 65 77 64 69 72 2e 6c ewdir .inewdir.l
0e40: 6f 63 2e 74 6e 65 77 64 69 72 20 5c 0a 20 20 20 oc.tnewdir \.
0e50: 20 2d 73 69 64 65 20 6c 65 66 74 20 2d 66 69 6c -side left -fil
0e60: 6c 20 78 20 2d 65 78 70 61 6e 64 20 31 20 2d 70 l x -expand 1 -p
0e70: 61 64 79 20 33 0a 20 20 70 61 63 6b 20 2e 69 6e ady 3. pack .in
0e80: 65 77 64 69 72 2e 64 65 73 63 2e 6c 6e 65 77 64 ewdir.desc.lnewd
0e90: 65 73 63 20 2e 69 6e 65 77 64 69 72 2e 64 65 73 esc .inewdir.des
0ea0: 63 2e 74 6e 65 77 64 65 73 63 20 5c 0a 20 20 20 c.tnewdesc \.
0eb0: 20 2d 73 69 64 65 20 6c 65 66 74 20 2d 66 69 6c -side left -fil
0ec0: 6c 20 62 6f 74 68 20 2d 65 78 70 61 6e 64 20 31 l both -expand 1
0ed0: 20 2d 70 61 64 79 20 33 0a 0a 20 20 62 75 74 74 -pady 3.. butt
0ee0: 6f 6e 20 2e 69 6e 65 77 64 69 72 2e 6f 6b 20 2d on .inewdir.ok -
0ef0: 74 65 78 74 20 22 4f 4b 22 20 5c 0a 20 20 20 20 text "OK" \.
0f00: 2d 63 6f 6d 6d 61 6e 64 20 7b 64 6f 5f 69 6e 65 -command {do_ine
0f10: 77 64 69 72 3b 20 77 6d 20 77 69 74 68 64 72 61 wdir; wm withdra
0f20: 77 20 2e 69 6e 65 77 64 69 72 7d 0a 20 20 62 75 w .inewdir}. bu
0f30: 74 74 6f 6e 20 2e 69 6e 65 77 64 69 72 2e 71 75 tton .inewdir.qu
0f40: 69 74 20 2d 74 65 78 74 20 22 51 75 69 74 22 20 it -text "Quit"
0f50: 5c 0a 20 20 20 20 2d 63 6f 6d 6d 61 6e 64 20 7b \. -command {
0f60: 20 77 6d 20 77 69 74 68 64 72 61 77 20 2e 69 6e wm withdraw .in
0f70: 65 77 64 69 72 20 7d 0a 0a 20 20 70 61 63 6b 20 ewdir }.. pack
0f80: 2e 69 6e 65 77 64 69 72 2e 6f 6b 20 2e 69 6e 65 .inewdir.ok .ine
0f90: 77 64 69 72 2e 71 75 69 74 20 2d 69 6e 20 2e 69 wdir.quit -in .i
0fa0: 6e 65 77 64 69 72 2e 64 6f 77 6e 20 2d 73 69 64 newdir.down -sid
0fb0: 65 20 6c 65 66 74 20 5c 0a 20 20 20 20 2d 69 70 e left \. -ip
0fc0: 61 64 78 20 32 20 2d 69 70 61 64 79 20 32 20 2d adx 2 -ipady 2 -
0fd0: 70 61 64 78 20 34 20 2d 70 61 64 79 20 34 20 2d padx 4 -pady 4 -
0fe0: 66 69 6c 6c 20 62 6f 74 68 20 2d 65 78 70 61 6e fill both -expan
0ff0: 64 20 31 0a 0a 20 20 69 66 20 7b 24 63 76 73 63 d 1.. if {$cvsc
1000: 66 67 28 72 65 6d 6f 74 65 29 7d 20 7b 0a 20 20 fg(remote)} {.
1010: 20 20 2e 69 6d 70 6f 72 74 2e 6e 65 77 64 69 72 .import.newdir
1020: 20 63 6f 6e 66 69 67 75 72 65 20 2d 73 74 61 74 configure -stat
1030: 65 20 64 69 73 61 62 6c 65 64 0a 20 20 7d 0a 0a e disabled. }..
1040: 20 20 77 6d 20 77 69 74 68 64 72 61 77 20 2e 69 wm withdraw .i
1050: 6e 65 77 64 69 72 0a 20 20 77 6d 20 74 69 74 6c newdir. wm titl
1060: 65 20 2e 69 6e 65 77 64 69 72 20 22 49 6d 70 6f e .inewdir "Impo
1070: 72 74 20 61 20 4e 65 77 20 44 69 72 65 63 74 6f rt a New Directo
1080: 72 79 22 0a 20 20 77 6d 20 6d 69 6e 73 69 7a 65 ry". wm minsize
1090: 20 2e 69 6e 65 77 64 69 72 20 31 20 31 0a 20 20 .inewdir 1 1.
10a0: 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 54 20 22 4c gen_log:log T "L
10b0: 45 41 56 45 22 0a 7d 0a 0a 70 72 6f 63 20 69 6d EAVE".}..proc im
10c0: 70 6f 72 74 5f 72 75 6e 20 7b 7d 20 7b 0a 20 20 port_run {} {.
10d0: 67 6c 6f 62 61 6c 20 63 76 73 67 6c 62 0a 20 20 global cvsglb.
10e0: 67 6c 6f 62 61 6c 20 63 77 64 0a 0a 20 20 67 65 global cwd.. ge
10f0: 6e 5f 6c 6f 67 3a 6c 6f 67 20 54 20 22 45 4e 54 n_log:log T "ENT
1100: 45 52 22 0a 0a 20 20 73 65 74 20 63 76 73 67 6c ER".. set cvsgl
1110: 62 28 6e 65 77 63 6f 64 65 29 20 5b 66 69 6c 65 b(newcode) [file
1120: 20 74 61 69 6c 20 24 63 77 64 5d 0a 20 20 69 66 tail $cwd]. if
1130: 20 7b 21 20 5b 77 69 6e 66 6f 20 65 78 69 73 74 {! [winfo exist
1140: 73 20 2e 69 6d 70 6f 72 74 5d 7d 20 7b 0a 20 20 s .import]} {.
1150: 20 20 69 6d 70 6f 72 74 5f 73 65 74 75 70 0a 20 import_setup.
1160: 20 7d 0a 20 20 77 6d 20 64 65 69 63 6f 6e 69 66 }. wm deiconif
1170: 79 20 2e 69 6d 70 6f 72 74 0a 20 20 72 61 69 73 y .import. rais
1180: 65 20 2e 69 6d 70 6f 72 74 0a 20 20 67 65 6e 5f e .import. gen_
1190: 6c 6f 67 3a 6c 6f 67 20 54 20 22 4c 45 41 56 45 log:log T "LEAVE
11a0: 22 0a 7d 0a 0a 70 72 6f 63 20 69 6e 65 77 64 69 ".}..proc inewdi
11b0: 72 5f 72 75 6e 20 7b 7d 20 7b 0a 20 20 67 6c 6f r_run {} {. glo
11c0: 62 61 6c 20 63 76 73 63 66 67 0a 0a 20 20 67 65 bal cvscfg.. ge
11d0: 6e 5f 6c 6f 67 3a 6c 6f 67 20 54 20 22 45 4e 54 n_log:log T "ENT
11e0: 45 52 22 0a 20 20 69 66 20 7b 24 63 76 73 63 66 ER". if {$cvscf
11f0: 67 28 72 65 6d 6f 74 65 29 7d 20 7b 0a 20 20 20 g(remote)} {.
1200: 20 63 76 73 5f 72 65 6d 6f 74 65 5f 62 61 64 0a cvs_remote_bad.
1210: 20 20 20 20 72 65 74 75 72 6e 20 31 0a 20 20 7d return 1. }
1220: 0a 20 20 69 66 20 7b 21 20 5b 77 69 6e 66 6f 20 . if {! [winfo
1230: 65 78 69 73 74 73 20 2e 69 6e 65 77 64 69 72 5d exists .inewdir]
1240: 7d 20 7b 0a 20 20 20 20 69 6d 70 6f 72 74 5f 73 } {. import_s
1250: 65 74 75 70 0a 20 20 7d 0a 0a 20 20 77 6d 20 64 etup. }.. wm d
1260: 65 69 63 6f 6e 69 66 79 20 2e 69 6e 65 77 64 69 eiconify .inewdi
1270: 72 0a 20 20 72 61 69 73 65 20 2e 69 6e 65 77 64 r. raise .inewd
1280: 69 72 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 ir. gen_log:log
1290: 20 54 20 22 4c 45 41 56 45 22 0a 7d 0a 0a 70 72 T "LEAVE".}..pr
12a0: 6f 63 20 64 6f 5f 69 6d 70 6f 72 74 20 7b 7d 20 oc do_import {}
12b0: 7b 0a 20 20 67 6c 6f 62 61 6c 20 63 76 73 0a 20 {. global cvs.
12c0: 20 67 6c 6f 62 61 6c 20 63 76 73 67 6c 62 0a 20 global cvsglb.
12d0: 20 67 6c 6f 62 61 6c 20 63 76 73 63 66 67 0a 20 global cvscfg.
12e0: 20 67 6c 6f 62 61 6c 20 63 77 64 0a 20 20 67 6c global cwd. gl
12f0: 6f 62 61 6c 20 69 6e 63 76 73 0a 20 20 67 6c 6f obal incvs. glo
1300: 62 61 6c 20 64 74 69 74 6c 65 0a 20 20 67 6c 6f bal dtitle. glo
1310: 62 61 6c 20 64 63 6f 6e 74 65 6e 74 73 0a 20 20 bal dcontents.
1320: 67 6c 6f 62 61 6c 20 6c 6f 63 61 74 69 6f 6e 0a global location.
1330: 20 20 67 6c 6f 62 61 6c 20 66 65 65 64 62 61 63 global feedbac
1340: 6b 0a 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 k.. gen_log:log
1350: 20 54 20 22 45 4e 54 45 52 22 0a 20 20 23 20 45 T "ENTER". # E
1360: 72 72 6f 72 20 63 68 65 63 6b 73 0a 20 20 69 66 rror checks. if
1370: 20 7b 24 69 6e 63 76 73 7d 20 7b 0a 20 20 20 20 {$incvs} {.
1380: 63 76 73 6f 6b 20 22 54 68 69 73 20 64 69 72 65 cvsok "This dire
1390: 63 74 6f 72 79 20 69 73 20 61 6c 72 65 61 64 79 ctory is already
13a0: 20 69 6e 20 43 56 53 2e 5c 6e 43 61 6e 5c 27 74 in CVS.\nCan\'t
13b0: 20 69 6d 70 6f 72 74 20 68 65 72 65 21 22 0a 20 import here!".
13c0: 20 20 20 72 65 74 75 72 6e 20 31 0a 20 20 7d 0a return 1. }.
13d0: 20 20 69 66 20 7b 20 24 63 76 73 67 6c 62 28 6e if { $cvsglb(n
13e0: 65 77 64 69 72 29 20 3d 3d 20 22 22 20 7d 20 7b ewdir) == "" } {
13f0: 0a 20 20 20 20 63 76 73 6f 6b 20 22 59 6f 75 20 . cvsok "You
1400: 6d 75 73 74 20 74 79 70 65 20 69 6e 20 61 20 64 must type in a d
1410: 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 20 20 72 irectory.". r
1420: 65 74 75 72 6e 20 31 0a 20 20 7d 0a 20 20 69 66 eturn 1. }. if
1430: 20 7b 20 24 63 76 73 67 6c 62 28 6e 65 77 64 65 { $cvsglb(newde
1440: 73 63 29 20 3d 3d 20 22 22 20 7d 20 7b 0a 20 20 sc) == "" } {.
1450: 20 20 63 76 73 6f 6b 20 22 59 6f 75 20 6d 75 73 cvsok "You mus
1460: 74 20 74 79 70 65 20 69 6e 20 61 20 6d 6f 64 75 t type in a modu
1470: 6c 65 20 6e 61 6d 65 2e 22 0a 20 20 20 20 72 65 le name.". re
1480: 74 75 72 6e 20 31 0a 20 20 7d 0a 20 20 69 66 20 turn 1. }. if
1490: 7b 20 24 63 76 73 67 6c 62 28 6e 65 77 76 65 72 { $cvsglb(newver
14a0: 73 29 20 3d 3d 20 22 22 20 7d 20 7b 0a 20 20 20 s) == "" } {.
14b0: 20 63 76 73 6f 6b 20 22 59 6f 75 20 6d 75 73 74 cvsok "You must
14c0: 20 74 79 70 65 20 69 6e 20 61 20 76 65 72 73 69 type in a versi
14d0: 6f 6e 20 6e 75 6d 62 65 72 2e 22 0a 20 20 20 20 on number.".
14e0: 72 65 74 75 72 6e 20 31 0a 20 20 7d 0a 20 20 69 return 1. }. i
14f0: 66 20 7b 20 24 63 76 73 67 6c 62 28 6e 65 77 63 f { $cvsglb(newc
1500: 6f 64 65 29 20 3d 3d 20 22 22 20 7d 20 7b 0a 20 ode) == "" } {.
1510: 20 20 20 63 76 73 6f 6b 20 22 59 6f 75 20 6d 75 cvsok "You mu
1520: 73 74 20 74 79 70 65 20 69 6e 20 61 20 6d 6f 64 st type in a mod
1530: 75 6c 65 20 63 6f 64 65 2e 22 0a 20 20 20 20 72 ule code.". r
1540: 65 74 75 72 6e 20 31 0a 20 20 7d 0a 0a 20 20 23 eturn 1. }.. #
1550: 20 43 68 65 63 6b 20 74 68 61 74 20 61 6c 6c 20 Check that all
1560: 61 70 72 6f 70 72 69 61 74 65 20 44 69 72 65 63 apropriate Direc
1570: 74 6f 72 69 65 73 20 69 6e 20 6e 65 77 64 69 72 tories in newdir
1580: 6e 61 6d 65 20 65 78 69 73 74 0a 20 20 73 65 74 name exist. set
1590: 20 63 76 73 67 6c 62 28 6e 65 77 64 69 72 29 20 cvsglb(newdir)
15a0: 5b 73 74 72 69 6e 67 20 74 72 69 6d 6c 65 66 74 [string trimleft
15b0: 20 24 63 76 73 67 6c 62 28 6e 65 77 64 69 72 29 $cvsglb(newdir)
15c0: 20 22 2f 22 5d 0a 20 20 73 65 74 20 63 68 65 63 "/"]. set chec
15d0: 6b 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 kdirname [file d
15e0: 69 72 6e 61 6d 65 20 24 63 76 73 67 6c 62 28 6e irname $cvsglb(n
15f0: 65 77 64 69 72 29 5d 0a 20 20 69 66 20 7b 24 63 ewdir)]. if {$c
1600: 68 65 63 6b 64 69 72 6e 61 6d 65 20 21 3d 20 24 heckdirname != $
1610: 63 76 73 63 66 67 28 74 68 69 73 64 69 72 29 7d cvscfg(thisdir)}
1620: 20 7b 0a 20 20 20 20 73 65 74 20 6b 6e 6f 77 6e {. set known
1630: 64 69 72 73 20 5b 61 72 72 61 79 20 6e 61 6d 65 dirs [array name
1640: 73 20 64 74 69 74 6c 65 5d 0a 20 20 20 20 66 6f s dtitle]. fo
1650: 72 65 61 63 68 20 64 63 20 5b 61 72 72 61 79 20 reach dc [array
1660: 6e 61 6d 65 73 20 6c 6f 63 61 74 69 6f 6e 5d 20 names location]
1670: 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 {. lappend
1680: 6b 6e 6f 77 6e 64 69 72 73 20 24 6c 6f 63 61 74 knowndirs $locat
1690: 69 6f 6e 28 24 64 63 29 0a 20 20 20 20 7d 0a 20 ion($dc). }.
16a0: 20 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 44 gen_log:log D
16b0: 20 22 4b 6e 6f 77 6e 20 64 69 72 65 63 74 6f 72 "Known director
16c0: 69 65 73 20 28 24 6b 6e 6f 77 6e 64 69 72 73 29 ies ($knowndirs)
16d0: 22 0a 20 20 20 20 69 66 20 7b 5b 6c 73 65 61 72 ". if {[lsear
16e0: 63 68 20 2d 65 78 61 63 74 20 24 6b 6e 6f 77 6e ch -exact $known
16f0: 64 69 72 73 20 24 63 68 65 63 6b 64 69 72 6e 61 dirs $checkdirna
1700: 6d 65 5d 20 3d 3d 20 2d 31 7d 20 7b 0a 20 20 20 me] == -1} {.
1710: 20 20 63 76 73 6f 6b 20 22 54 68 65 20 75 70 70 cvsok "The upp
1720: 65 72 20 64 69 72 65 63 74 6f 72 79 20 5c 22 24 er directory \"$
1730: 63 68 65 63 6b 64 69 72 6e 61 6d 65 5c 22 20 64 checkdirname\" d
1740: 6f 65 73 6e 5c 27 74 20 65 78 69 73 74 2e 22 0a oesn\'t exist.".
1750: 20 20 20 20 20 72 65 74 75 72 6e 20 31 0a 20 20 return 1.
1760: 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 64 69 }. }. set di
1770: 72 70 61 74 68 20 5b 66 69 6c 65 20 6a 6f 69 6e rpath [file join
1780: 20 24 63 76 73 63 66 67 28 63 76 73 72 6f 6f 74 $cvscfg(cvsroot
1790: 29 20 24 63 76 73 67 6c 62 28 6e 65 77 64 69 72 ) $cvsglb(newdir
17a0: 29 5d 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 )]. gen_log:log
17b0: 20 44 20 22 4e 65 77 20 64 69 72 65 63 74 6f 72 D "New director
17c0: 79 20 24 64 69 72 70 61 74 68 22 0a 20 20 73 65 y $dirpath". se
17d0: 74 20 63 72 65 61 74 65 5f 6d 6f 64 75 6c 65 20 t create_module
17e0: 31 0a 20 20 69 66 20 7b 5b 66 69 6c 65 20 69 73 1. if {[file is
17f0: 64 69 72 65 63 74 6f 72 79 20 24 64 69 72 70 61 directory $dirpa
1800: 74 68 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20 6d th]} {. set m
1810: 65 73 73 20 22 4e 4f 54 45 3a 20 20 59 6f 75 20 ess "NOTE: You
1820: 61 72 65 20 69 6d 70 6f 72 74 69 6e 67 20 6f 76 are importing ov
1830: 65 72 20 61 20 64 69 72 65 63 74 6f 72 79 20 74 er a directory t
1840: 68 61 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 hat already exis
1850: 74 73 21 22 0a 20 20 20 20 69 66 20 7b 5b 63 76 ts!". if {[cv
1860: 73 63 6f 6e 66 69 72 6d 20 24 6d 65 73 73 5d 20 sconfirm $mess]
1870: 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 20 20 73 65 == 0} {. se
1880: 74 20 63 72 65 61 74 65 5f 6d 6f 64 75 6c 65 20 t create_module
1890: 30 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 0. } else {.
18a0: 20 20 20 20 20 72 65 74 75 72 6e 20 31 0a 20 20 return 1.
18b0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 23 20 4d 61 6b }. }.. # Mak
18c0: 65 20 61 20 62 61 73 65 6c 69 6e 65 20 74 61 67 e a baseline tag
18d0: 0a 0a 20 20 73 65 74 20 76 65 72 73 69 6f 6e 73 .. set versions
18e0: 20 5b 73 70 6c 69 74 20 24 63 76 73 67 6c 62 28 [split $cvsglb(
18f0: 6e 65 77 76 65 72 73 29 20 22 2e 2c 2f 20 1f 2d newvers) ".,/ .-
1900: 22 5d 0a 20 20 73 65 74 20 62 61 73 65 6c 69 6e "]. set baselin
1910: 65 20 22 62 61 73 65 6c 69 6e 65 2d 5b 6a 6f 69 e "baseline-[joi
1920: 6e 20 24 76 65 72 73 69 6f 6e 73 20 7b 5f 7d 5d n $versions {_}]
1930: 22 0a 0a 20 20 66 65 65 64 62 61 63 6b 5f 63 76 ".. feedback_cv
1940: 73 20 24 66 65 65 64 62 61 63 6b 28 63 76 73 29 s $feedback(cvs)
1950: 20 22 49 6d 70 6f 72 74 69 6e 67 20 24 63 76 73 "Importing $cvs
1960: 67 6c 62 28 6e 65 77 63 6f 64 65 29 2c 20 70 6c glb(newcode), pl
1970: 65 61 73 65 20 77 61 69 74 22 0a 20 20 73 65 74 ease wait". set
1980: 20 63 6f 6d 6d 61 6e 64 6c 69 6e 65 20 22 24 63 commandline "$c
1990: 76 73 20 2d 64 20 24 63 76 73 63 66 67 28 63 76 vs -d $cvscfg(cv
19a0: 73 72 6f 6f 74 29 20 69 6d 70 6f 72 74 20 2d 6d sroot) import -m
19b0: 20 5c 22 49 6d 70 6f 72 74 65 64 20 75 73 69 6e \"Imported usin
19c0: 67 20 54 6b 43 56 53 5c 22 20 5c 0a 09 20 20 20 g TkCVS\" \..
19d0: 20 24 63 76 73 67 6c 62 28 6e 65 77 64 69 72 29 $cvsglb(newdir)
19e0: 20 56 45 4e 44 4f 52 20 24 62 61 73 65 6c 69 6e VENDOR $baselin
19f0: 65 22 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 e". gen_log:log
1a00: 20 43 20 22 24 63 6f 6d 6d 61 6e 64 6c 69 6e 65 C "$commandline
1a10: 22 0a 20 20 65 78 65 63 5f 63 6f 6d 6d 61 6e 64 ". exec_command
1a20: 20 22 43 56 53 20 49 6d 70 6f 72 74 22 20 22 24 "CVS Import" "$
1a30: 63 6f 6d 6d 61 6e 64 6c 69 6e 65 22 0a 20 20 66 commandline". f
1a40: 65 65 64 62 61 63 6b 5f 63 76 73 20 24 66 65 65 eedback_cvs $fee
1a50: 64 62 61 63 6b 28 63 76 73 29 20 22 22 0a 0a 20 dback(cvs) ""..
1a60: 20 23 20 55 70 64 61 74 65 20 74 68 65 20 6d 6f # Update the mo
1a70: 64 75 6c 65 73 20 66 69 6c 65 2e 0a 20 20 69 66 dules file.. if
1a80: 20 7b 24 63 72 65 61 74 65 5f 6d 6f 64 75 6c 65 {$create_module
1a90: 20 3d 3d 20 31 7d 20 7b 0a 20 20 20 20 73 65 74 == 1} {. set
1aa0: 20 63 6f 6d 6d 61 6e 64 6c 69 6e 65 20 22 24 63 commandline "$c
1ab0: 76 73 20 2d 64 20 24 63 76 73 63 66 67 28 63 76 vs -d $cvscfg(cv
1ac0: 73 72 6f 6f 74 29 20 63 68 65 63 6b 6f 75 74 20 sroot) checkout
1ad0: 43 56 53 52 4f 4f 54 2f 6d 6f 64 75 6c 65 73 22 CVSROOT/modules"
1ae0: 0a 20 20 20 20 65 78 65 63 5f 63 6f 6d 6d 61 6e . exec_comman
1af0: 64 20 22 43 68 65 63 6b 6f 75 74 20 4e 65 77 20 d "Checkout New
1b00: 4d 6f 64 75 6c 65 22 20 22 24 63 6f 6d 6d 61 6e Module" "$comman
1b10: 64 6c 69 6e 65 22 0a 0a 20 20 20 20 63 64 20 43 dline".. cd C
1b20: 56 53 52 4f 4f 54 20 20 20 20 20 20 20 20 20 20 VSROOT
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1b40: 20 20 0a 20 20 20 20 67 65 6e 5f 6c 6f 67 3a 6c . gen_log:l
1b50: 6f 67 20 46 20 22 43 44 20 5b 70 77 64 5d 22 0a og F "CD [pwd]".
1b60: 20 20 20 20 73 65 74 20 6d 6f 64 66 69 6c 65 20 set modfile
1b70: 5b 6f 70 65 6e 20 6d 6f 64 75 6c 65 73 20 61 5d [open modules a]
1b80: 0a 20 20 20 20 23 20 72 61 6d 73 61 6e 3a 20 63 . # ramsan: c
1b90: 6f 6d 6d 65 6e 74 65 64 20 66 6f 6c 6c 6f 77 69 ommented followi
1ba0: 6e 67 20 6c 69 6e 65 0a 20 20 20 20 23 70 75 74 ng line. #put
1bb0: 73 20 24 6d 6f 64 66 69 6c 65 20 22 23 44 5c 74 s $modfile "#D\t
1bc0: 24 63 76 73 67 6c 62 28 6e 65 77 63 6f 64 65 29 $cvsglb(newcode)
1bd0: 5c 74 24 63 76 73 67 6c 62 28 6e 65 77 64 65 73 \t$cvsglb(newdes
1be0: 63 29 22 0a 20 20 20 20 70 75 74 73 20 24 6d 6f c)". puts $mo
1bf0: 64 66 69 6c 65 20 22 23 4d 5c 74 24 63 76 73 67 dfile "#M\t$cvsg
1c00: 6c 62 28 6e 65 77 63 6f 64 65 29 5c 74 24 63 76 lb(newcode)\t$cv
1c10: 73 67 6c 62 28 6e 65 77 64 65 73 63 29 22 0a 20 sglb(newdesc)".
1c20: 20 20 20 70 75 74 73 20 24 6d 6f 64 66 69 6c 65 puts $modfile
1c30: 20 22 24 63 76 73 67 6c 62 28 6e 65 77 63 6f 64 "$cvsglb(newcod
1c40: 65 29 5c 74 24 63 76 73 67 6c 62 28 6e 65 77 64 e)\t$cvsglb(newd
1c50: 69 72 29 22 0a 20 20 20 20 63 6c 6f 73 65 20 24 ir)". close $
1c60: 6d 6f 64 66 69 6c 65 0a 20 20 20 20 73 65 74 20 modfile. set
1c70: 63 6f 6d 6d 61 6e 64 6c 69 6e 65 20 22 24 63 76 commandline "$cv
1c80: 73 20 2d 64 20 24 63 76 73 63 66 67 28 63 76 73 s -d $cvscfg(cvs
1c90: 72 6f 6f 74 29 20 63 69 20 2d 6d 20 5c 22 61 64 root) ci -m \"ad
1ca0: 64 65 64 20 24 63 76 73 67 6c 62 28 6e 65 77 63 ded $cvsglb(newc
1cb0: 6f 64 65 29 5c 22 20 6d 6f 64 75 6c 65 73 22 0a ode)\" modules".
1cc0: 20 20 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 gen_log:log
1cd0: 43 20 22 24 63 6f 6d 6d 61 6e 64 6c 69 6e 65 22 C "$commandline"
1ce0: 0a 20 20 20 20 65 78 65 63 5f 63 6f 6d 6d 61 6e . exec_comman
1cf0: 64 20 22 43 56 53 20 43 68 65 63 6b 69 6e 20 43 d "CVS Checkin C
1d00: 56 53 52 4f 4f 54 22 20 22 24 63 6f 6d 6d 61 6e VSROOT" "$comman
1d10: 64 6c 69 6e 65 22 0a 20 20 20 20 63 64 20 2e 2e dline". cd ..
1d20: 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a .
1d40: 20 20 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 gen_log:log
1d50: 46 20 22 43 44 20 5b 70 77 64 5d 22 0a 20 20 20 F "CD [pwd]".
1d60: 20 73 65 74 20 63 6f 6d 6d 61 6e 64 6c 69 6e 65 set commandline
1d70: 20 22 24 63 76 73 20 2d 64 20 24 63 76 73 63 66 "$cvs -d $cvscf
1d80: 67 28 63 76 73 72 6f 6f 74 29 20 2d 51 20 72 65 g(cvsroot) -Q re
1d90: 6c 65 61 73 65 20 2d 64 20 43 56 53 52 4f 4f 54 lease -d CVSROOT
1da0: 22 0a 20 20 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f ". gen_log:lo
1db0: 67 20 43 20 22 24 63 6f 6d 6d 61 6e 64 6c 69 6e g C "$commandlin
1dc0: 65 22 0a 20 20 20 20 65 76 61 6c 20 65 78 65 63 e". eval exec
1dd0: 20 22 24 63 6f 6d 6d 61 6e 64 6c 69 6e 65 22 0a "$commandline".
1de0: 20 20 20 20 63 64 20 24 63 77 64 0a 20 20 20 20 cd $cwd.
1df0: 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 46 20 22 43 gen_log:log F "C
1e00: 44 20 5b 70 77 64 5d 22 0a 20 20 7d 0a 0a 20 20 D [pwd]". }..
1e10: 6d 6f 64 62 72 6f 77 73 65 5f 72 75 6e 20 24 63 modbrowse_run $c
1e20: 76 73 63 66 67 28 63 76 73 72 6f 6f 74 29 0a 20 vscfg(cvsroot).
1e30: 20 77 6d 20 77 69 74 68 64 72 61 77 20 2e 69 6d wm withdraw .im
1e40: 70 6f 72 74 0a 0a 20 20 23 20 4e 6f 77 20 63 68 port.. # Now ch
1e50: 65 63 6b 20 6f 75 74 20 74 68 65 20 6e 65 77 20 eck out the new
1e60: 6d 6f 64 75 6c 65 0a 20 20 63 64 20 2e 2e 0a 20 module. cd ...
1e70: 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 46 20 22 gen_log:log F "
1e80: 43 44 20 5b 70 77 64 5d 22 0a 20 20 63 76 73 5f CD [pwd]". cvs_
1e90: 63 68 65 63 6b 6f 75 74 20 24 63 76 73 67 6c 62 checkout $cvsglb
1ea0: 28 6e 65 77 63 6f 64 65 29 20 48 45 41 44 0a 20 (newcode) HEAD.
1eb0: 20 63 64 20 24 63 77 64 0a 20 20 67 65 6e 5f 6c cd $cwd. gen_l
1ec0: 6f 67 3a 6c 6f 67 20 46 20 22 43 44 20 5b 70 77 og:log F "CD [pw
1ed0: 64 5d 22 0a 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c d]".. gen_log:l
1ee0: 6f 67 20 54 20 22 4c 45 41 56 45 22 0a 7d 0a 0a og T "LEAVE".}..
1ef0: 70 72 6f 63 20 64 6f 5f 69 6e 65 77 64 69 72 20 proc do_inewdir
1f00: 7b 20 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20 63 { } {. global c
1f10: 76 73 67 6c 62 0a 20 20 67 6c 6f 62 61 6c 20 63 vsglb. global c
1f20: 76 73 0a 20 20 67 6c 6f 62 61 6c 20 63 77 64 0a vs. global cwd.
1f30: 20 20 67 6c 6f 62 61 6c 20 64 74 69 74 6c 65 0a global dtitle.
1f40: 20 20 67 6c 6f 62 61 6c 20 63 76 73 63 66 67 0a global cvscfg.
1f50: 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 54 . gen_log:log T
1f60: 20 22 45 4e 54 45 52 22 0a 20 20 23 20 45 72 72 "ENTER". # Err
1f70: 6f 72 20 63 68 65 63 6b 73 0a 20 20 69 66 20 7b or checks. if {
1f80: 20 24 63 76 73 67 6c 62 28 64 6e 65 77 64 69 72 $cvsglb(dnewdir
1f90: 29 20 3d 3d 20 22 22 20 7d 20 7b 0a 20 20 20 20 ) == "" } {.
1fa0: 63 76 73 6f 6b 20 22 59 6f 75 20 6d 75 73 74 20 cvsok "You must
1fb0: 74 79 70 65 20 69 6e 20 61 20 64 69 72 65 63 74 type in a direct
1fc0: 6f 72 79 2e 22 0a 20 20 20 20 72 65 74 75 72 6e ory.". return
1fd0: 20 31 0a 20 20 7d 0a 20 20 69 66 20 7b 20 24 63 1. }. if { $c
1fe0: 76 73 67 6c 62 28 64 6e 65 77 64 65 73 63 29 20 vsglb(dnewdesc)
1ff0: 3d 3d 20 22 22 20 7d 20 7b 0a 20 20 20 20 63 76 == "" } {. cv
2000: 73 6f 6b 20 22 59 6f 75 20 6d 75 73 74 20 74 79 sok "You must ty
2010: 70 65 20 69 6e 20 61 20 64 65 73 63 72 69 70 74 pe in a descript
2020: 69 6f 6e 2e 22 0a 20 20 20 20 72 65 74 75 72 6e ion.". return
2030: 20 31 0a 20 20 7d 0a 0a 20 20 23 20 43 68 65 63 1. }.. # Chec
2040: 6b 20 74 68 61 74 20 61 6c 6c 20 61 70 72 6f 70 k that all aprop
2050: 72 69 61 74 65 20 44 69 72 65 63 74 6f 72 69 65 riate Directorie
2060: 73 20 69 6e 20 6e 65 77 64 69 72 6e 61 6d 65 20 s in newdirname
2070: 65 78 69 73 74 0a 20 20 73 65 74 20 63 76 73 67 exist. set cvsg
2080: 6c 62 28 64 6e 65 77 64 69 72 29 20 5b 73 74 72 lb(dnewdir) [str
2090: 69 6e 67 20 74 72 69 6d 6c 65 66 74 20 24 63 76 ing trimleft $cv
20a0: 73 67 6c 62 28 64 6e 65 77 64 69 72 29 20 22 2f sglb(dnewdir) "/
20b0: 22 5d 0a 20 20 73 65 74 20 63 68 65 63 6b 64 69 "]. set checkdi
20c0: 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e rname [file dirn
20d0: 61 6d 65 20 24 63 76 73 67 6c 62 28 64 6e 65 77 ame $cvsglb(dnew
20e0: 64 69 72 29 5d 0a 0a 20 20 69 66 20 7b 5b 6c 73 dir)].. if {[ls
20f0: 65 61 72 63 68 20 2d 65 78 61 63 74 20 5b 61 72 earch -exact [ar
2100: 72 61 79 20 6e 61 6d 65 73 20 64 74 69 74 6c 65 ray names dtitle
2110: 5d 20 24 63 76 73 67 6c 62 28 64 6e 65 77 64 69 ] $cvsglb(dnewdi
2120: 72 29 5d 20 3e 3d 20 30 7d 20 7b 0a 20 20 20 20 r)] >= 0} {.
2130: 20 63 76 73 6f 6b 20 22 54 68 69 73 20 64 69 72 cvsok "This dir
2140: 65 63 74 6f 72 79 20 61 6c 72 65 61 64 79 20 65 ectory already e
2150: 78 69 73 74 73 21 22 0a 20 20 20 20 20 72 65 74 xists!". ret
2160: 75 72 6e 20 31 0a 20 20 7d 0a 20 20 73 65 74 20 urn 1. }. set
2170: 6e 65 77 64 69 72 20 5b 66 69 6c 65 20 6a 6f 69 newdir [file joi
2180: 6e 20 24 63 76 73 63 66 67 28 63 76 73 72 6f 6f n $cvscfg(cvsroo
2190: 74 29 20 24 63 76 73 67 6c 62 28 64 6e 65 77 64 t) $cvsglb(dnewd
21a0: 69 72 29 5d 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c ir)]. gen_log:l
21b0: 6f 67 20 46 20 22 4d 4b 44 49 52 20 24 6e 65 77 og F "MKDIR $new
21c0: 64 69 72 22 0a 20 20 66 69 6c 65 20 6d 6b 64 69 dir". file mkdi
21d0: 72 20 24 6e 65 77 64 69 72 0a 0a 20 20 63 64 0a r $newdir.. cd.
21e0: 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 46 20 gen_log:log F
21f0: 22 43 44 20 5b 70 77 64 5d 22 0a 20 20 73 65 74 "CD [pwd]". set
2200: 20 63 6f 6d 6d 61 6e 64 6c 69 6e 65 20 22 24 63 commandline "$c
2210: 76 73 20 2d 64 20 24 63 76 73 63 66 67 28 63 76 vs -d $cvscfg(cv
2220: 73 72 6f 6f 74 29 20 63 68 65 63 6b 6f 75 74 20 sroot) checkout
2230: 43 56 53 52 4f 4f 54 2f 6d 6f 64 75 6c 65 73 22 CVSROOT/modules"
2240: 0a 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 43 . gen_log:log C
2250: 20 22 24 63 6f 6d 6d 61 6e 64 6c 69 6e 65 22 0a "$commandline".
2260: 20 20 63 61 74 63 68 20 7b 65 76 61 6c 20 22 65 catch {eval "e
2270: 78 65 63 20 24 63 6f 6d 6d 61 6e 64 6c 69 6e 65 xec $commandline
2280: 22 7d 0a 20 20 63 64 20 43 56 53 52 4f 4f 54 0a "}. cd CVSROOT.
2290: 20 20 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 46 20 gen_log:log F
22a0: 22 43 44 20 5b 70 77 64 5d 22 0a 20 20 73 65 74 "CD [pwd]". set
22b0: 20 6d 6f 64 66 69 6c 65 20 5b 6f 70 65 6e 20 6d modfile [open m
22c0: 6f 64 75 6c 65 73 20 61 5d 0a 20 20 70 75 74 73 odules a]. puts
22d0: 20 24 6d 6f 64 66 69 6c 65 20 22 22 0a 20 20 70 $modfile "". p
22e0: 75 74 73 20 24 6d 6f 64 66 69 6c 65 20 22 23 44 uts $modfile "#D
22f0: 09 24 63 76 73 67 6c 62 28 64 6e 65 77 64 69 72 .$cvsglb(dnewdir
2300: 29 5c 74 24 63 76 73 67 6c 62 28 64 6e 65 77 64 )\t$cvsglb(dnewd
2310: 65 73 63 29 22 0a 20 20 63 6c 6f 73 65 20 24 6d esc)". close $m
2320: 6f 64 66 69 6c 65 0a 20 20 73 65 74 20 63 6f 6d odfile. set com
2330: 6d 61 6e 64 6c 69 6e 65 20 22 24 63 76 73 20 2d mandline "$cvs -
2340: 64 20 24 63 76 73 63 66 67 28 63 76 73 72 6f 6f d $cvscfg(cvsroo
2350: 74 29 20 63 69 20 2d 6d 20 5c 22 61 64 64 65 64 t) ci -m \"added
2360: 20 24 63 76 73 67 6c 62 28 64 6e 65 77 64 69 72 $cvsglb(dnewdir
2370: 29 5c 22 20 6d 6f 64 75 6c 65 73 22 0a 20 20 65 )\" modules". e
2380: 78 65 63 5f 63 6f 6d 6d 61 6e 64 20 22 43 56 53 xec_command "CVS
2390: 20 43 68 65 63 6b 69 6e 20 43 56 53 52 4f 4f 54 Checkin CVSROOT
23a0: 22 20 22 24 63 6f 6d 6d 61 6e 64 6c 69 6e 65 22 " "$commandline"
23b0: 0a 20 20 63 64 20 24 63 77 64 0a 20 20 67 65 6e . cd $cwd. gen
23c0: 5f 6c 6f 67 3a 6c 6f 67 20 46 20 22 43 44 20 5b _log:log F "CD [
23d0: 70 77 64 5d 22 0a 0a 20 20 72 65 61 64 5f 6d 6f pwd]".. read_mo
23e0: 64 75 6c 65 73 5f 73 65 74 75 70 20 24 63 76 73 dules_setup $cvs
23f0: 63 66 67 28 63 76 73 72 6f 6f 74 29 0a 20 20 6d cfg(cvsroot). m
2400: 6f 64 62 72 6f 77 73 65 5f 72 75 6e 20 24 63 76 odbrowse_run $cv
2410: 73 63 66 67 28 63 76 73 72 6f 6f 74 29 0a 20 20 scfg(cvsroot).
2420: 67 65 6e 5f 6c 6f 67 3a 6c 6f 67 20 54 20 22 4c gen_log:log T "L
2430: 45 41 56 45 22 0a 7d 0a EAVE".}.