puts "*** melsec server command interpretor (1.0) ***"
if {! [file exists "/jyugem"]} {
    puts ""
    puts "Create working directory...   \"/jyugem\""
    file mkdir "/jyugem"
    file mkdir "/jyugem/shared"
    file mkdir "/jyugem/xml"
    file copy "melsec.xml" "melsec.xsd" "/jyugem/xml"
}
## source pkgIndex.tcl
package require melsvr
melsvr::init -path "/jyugem/shared" -xml "/jyugem/xml/melsec.xml"
melsvr::open

# melsvr::event on
# melsvr::event off
# melsvr::close

