Subversion Repositories Koakuma

Rev

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

Rev 11 Rev 12
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: create-project.in 11 2024-10-02 00:56:50Z nishi $
 2 
# $Id: create-project.in 12 2024-10-02 03:25:33Z nishi $
3 
package require tdom
 3 
package require tdom
- 
 
 4 
foreach path [glob "@@PREFIX@@/lib/koakuma/utility/*.tcl"] {
- 
 
 5 
	source $path
- 
 
 6 
}
4 
foreach arg $argv {
 7 
foreach arg $argv {
5 
	if { [string range "$arg" 0 0] == "-" } {
 8 
	if { [string range "$arg" 0 0] == "-" } {
6 
		if { "$arg" == "-h" || "$arg" == "--help" } {
 9 
		if { "$arg" == "-h" || "$arg" == "--help" } {
7 
			puts "Usage: create-project"
 10 
			puts "Usage: $argv0"
8 
			puts "You can set the environment variable `KOAKUMA_RPC' to override default RPC URL."
 11 
			puts "You can set the environment variable `KOAKUMA_RPC' to override default RPC URL."
9 
			puts "Default: $RPC_URL"
12 
			puts "Default: http://127.0.0.1/koakuma/rpc"
10 
			exit 0
 13 
			exit 0
11 
		}
 14 
		}
12 
	}
 15 
	}
13 
}
 16 
}
14 
foreach path [glob "@@PREFIX@@/lib/koakuma/utility/*.tcl"] {
 - 
 
15 
	source $path
 - 
 
16 
}
 - 
 
17 
 
 17 
 
18 
::rpc::init
 18 
::rpc::init
19 
 
 19 
 
20 
dom createNodeCmd -tagName "name" -jsonType NONE elementNode keyName
 20 
dom createNodeCmd -tagName "name" -jsonType NONE elementNode keyName
21 
dom createNodeCmd -tagName "description" -jsonType NONE elementNode keyDescription
 21 
dom createNodeCmd -tagName "description" -jsonType NONE elementNode keyDescription