#!/usr/bin/tclsh
# tclbabel version 0.59
# by Chris Danis <screechco@home.com>

if {[catch source /usr/share/Babelfish.tcl]} {
	source /usr/share/Babelfish.tcl
}
proc error {errorstr} {
	puts "An error has occured. Description:"
	puts "$errorstr"
	exit
}
set isGUI false

if {[string compare [lindex $argv 0] "-v"] == 0} {
	puts "tclbabel version $VERSION"
	exit
}

set langpos [expr [lsearch $argv -l] + 1]
if {$langpos == "0"} { error "language not specified with -l <lang>" } \
else { set lang [lindex $argv $langpos] }
set argv [lreplace $argv [expr $langpos - 1] $langpos ]
if {$argv == ""} { set argv [read stdin] }
#puts $argv
puts [Trans $lang $argv]
exit
