1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" -- ${1+"$@"}
proc writefile {filename string} {
puts " append \"$string\" to $filename"
set fp [open "$filename" a]
puts $fp $string
close $fp
}
proc addfile {filename branch} {
puts "Add $filename on $branch"
set exec_cmd "cvs add $filename"
puts "$exec_cmd"
set ret [catch {eval "exec $exec_cmd"} out]
puts $out
}
proc delfile {filename branch} {
puts "Delete $filename on $branch"
file delete $filename
set exec_cmd "cvs delete $filename"
puts "$exec_cmd"
set ret [catch {eval "exec $exec_cmd"} out]
puts $out
}
proc mkfiles {topdir} {
global WD
puts "MAKING FILETREE"
# Make some files to put in the repository
file mkdir "$topdir"
cd $topdir
# Make some text files
foreach n {1 2 3} {
writefile "File$n.txt" "Initial"
}
writefile "FTags.txt" "Initial"
foreach D {Dir1 "Dir 2"} {
puts $D
file mkdir $D
foreach n {1 2 " 3"} {
set subf [file join $D "F$n.txt"]
writefile $subf "Initial"
}
}
cd $WD
}
##############################################
if [file isdirectory CVS] {
puts "Please don't do that here. There's already a CVS directory."
exit 1
}
if [file isdirectory .svn] {
puts "Please don't do that here. There's already a .svn directory."
exit 1
}
if [file isdirectory .git] {
puts "Please don't do that here. There's already a .git directory."
exit 1
}
set WD [pwd]
mkfiles "import_test"
|
