Subversion Repositories Koakuma

Rev

Rev 19 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19 Rev 42
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: create-project.in 19 2024-10-02 07:44:13Z nishi $
 2 
# $Id: create-project.in 42 2024-10-02 10:23:51Z nishi $
3 
package require tdom
 3 
package require tdom
4 
foreach path [glob "@@PREFIX@@/lib/koakuma/utility/*.tcl"] {
 4 
foreach path [glob "@@PREFIX@@/lib/koakuma/utility/*.tcl"] {
5 
	source $path
 5 
	source $path
6 
}
 6 
}
7 
set dothis ""
 7 
set dothis ""
Line 49... Line 49...
49 
 
 49 
 
50 
ask_for "Name" name
 50 
ask_for "Name" name
51 
ask_for "Description" description
 51 
ask_for "Description" description
52 
ask_for "VCS" vcs
 52 
ask_for "VCS" vcs
53 
puts "Example URL for CVS: pserver://anon:@cvs.nishi.boats/cvs/nishi@tewi"
 53 
puts "Example URL for CVS: pserver://anon:@cvs.nishi.boats/cvs/nishi@tewi"
54 
puts "Example URL for CVS: ssh://anoncvs:anoncvs@cvs.nishi.boats/cvs/nishi@tewi"
 - 
 
55 
ask_for "VCS URL" url
 54 
ask_for "VCS URL" url
56 
 
 55 
 
57 
$doc appendFromScript {
 56 
$doc appendFromScript {
58 
	keyName {valueString "$name"}
 57 
	keyName {valueString "$name"}
59 
	keyDescription {valueString "$description"}
 58 
	keyDescription {valueString "$description"}