puts "*** melsec client 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 melcli
melcli::open -path "/jyugem/shared" -xml "/jyugem/xml/melsec.xml"

# melcli::read X0 20
# melcli::read R8100 1
# melcli::get  ZR100

