Subversion Repositories Koakuma

Rev

Rev 6 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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