# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+$KCODE = 'u'
+
$VERBOSE=true
require 'etc'
require 'getoptlong'
require 'fileutils'
-$version="0.9.10-svn"
+$version="0.9.11-svn"
$opts = Hash.new
+if $version =~ /svn/
+ up = File.dirname(__FILE__) + "/.."
+ rev = " (unknown revision)"
+ begin
+ svn_out = `svn info #{up}`
+ if svn_out =~ /Last Changed Rev: (\d+)/
+ rev = " (revision #{$1}"
+ end
+ svn_st = `svn st #{up}`
+ if svn_st =~ /^M /
+ rev << ", local changes"
+ end
+ rev << ")"
+ rescue => e
+ puts e.inspect
+ end
+ $version += rev
+end
+
orig_opts = ARGV.dup
opts = GetoptLong.new(
+ ["--background", "-b", GetoptLong::NO_ARGUMENT],
["--debug", "-d", GetoptLong::NO_ARGUMENT],
["--help", "-h", GetoptLong::NO_ARGUMENT],
+ ["--loglevel", "-l", GetoptLong::REQUIRED_ARGUMENT],
["--trace", "-t", GetoptLong::REQUIRED_ARGUMENT],
- ["--version", "-v", GetoptLong::NO_ARGUMENT],
- ["--background", "-b", GetoptLong::NO_ARGUMENT]
+ ["--version", "-v", GetoptLong::NO_ARGUMENT]
)
$debug = false
$opts[opt.sub(/^-+/, "")] = arg
}
+$cl_loglevel = $opts["loglevel"].to_i
+
if ($opts["trace"])
set_trace_func proc { |event, file, line, id, binding, classname|
if classname.to_s == $opts["trace"]
if File.directory? "#{defaultlib}/rbot"
unless $:.include? defaultlib
- $:.push defaultlib
+ $:.unshift defaultlib
end
end