Subversion Repositories Koakuma

Rev

Rev 13 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 nishi 1 
# $Id: vcs_svn.tcl 27 2024-10-02 08:24:48Z nishi $
6 nishi 2 
lappend components "Subversion" "Subversion Integration" "1.00" "VCS"
3 nishi 3 
 
4 
proc Subversion_info {} {
5 
	regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec svn --version]" version
6 
	tputs	"<table border=\"0\">"
7 
	tputs	"	<tr>"
8 
	tputs	"		<th>"
9 
	tputs	"			Version"
10 
	tputs	"		</th>"
11 
	tputs	"		<td>"
12 
	tputs	"			$version"
13 
	tputs	"		</td>"
14 
	tputs	"	</tr>"
15 
	tputs	"</table>"
16 
}
13 nishi 17 
 
18 
proc Subversion_repository {url ws} {
19 
	if { [file exists "$ws"] } {
20 
		if { [catch {exec svn up "$ws" >@stdout 2>@1}] } {
21 
			return 1
22 
		}
23 
		return 0
24 
	} else {
25 
		if { [catch {exec svn co "$url" "$ws" >@stdout 2>@1}] } {
26 
			return 1
27 
		}
28 
		return 0
29 
	}
30 
}