Line 1... |
Line 1... |
#! /usr/bin/env tclshcpp
|
#! /usr/bin/env tclshcpp
|
# -*- tcl -*-
|
# -*- tcl -*-
|
# $Id: ti_rri 601 2014-11-07 22:44:43Z mueller $
|
# $Id: ti_rri 631 2015-01-09 21:36:51Z mueller $
|
#
|
#
|
# Copyright 2011-2014 by Walter F.J. Mueller
|
# Copyright 2011-2015 by Walter F.J. Mueller
|
#
|
#
|
# This program is free software; you may redistribute and/or modify it under
|
# This program is free software; you may redistribute and/or modify it under
|
# the terms of the GNU General Public License as published by the Free
|
# the terms of the GNU General Public License as published by the Free
|
# Software Foundation, either version 2, or at your option any later version.
|
# Software Foundation, either version 2, or at your option any later version.
|
#
|
#
|
Line 13... |
Line 13... |
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
# for complete details.
|
# for complete details.
|
#
|
#
|
# Revision History:
|
# Revision History:
|
# Date Rev Version Comment
|
# Date Rev Version Comment
|
|
# 2015-01-09 631 1.2.1 use rlc get/set rather config
|
# 2014-11-07 601 1.2 use tclshcpp (C++ based) rather tclsh
|
# 2014-11-07 601 1.2 use tclshcpp (C++ based) rather tclsh
|
# 2013-05-19 521 1.1.6 setup proper interactive handling; add --run reap
|
# 2013-05-19 521 1.1.6 setup proper interactive handling; add --run reap
|
# 2013-04-26 510 1.1.5 reorganize readline startup
|
# 2013-04-26 510 1.1.5 reorganize readline startup
|
# 2013-04-12 504 1.1.4 add --pack; trailing '-' argv implies --int
|
# 2013-04-12 504 1.1.4 add --pack; trailing '-' argv implies --int
|
# 2013-02-05 482 1.1.3 stop server is rls found
|
# 2013-02-05 482 1.1.3 stop server is rls found
|
Line 208... |
Line 209... |
}
|
}
|
|
|
|
|
# setup logging
|
# setup logging
|
if { $opts(log_) ne "-" } {
|
if { $opts(log_) ne "-" } {
|
rlc config -logfile $opts(log_)
|
rlc set logfile $opts(log_)
|
}
|
}
|
rlc config -logprintlevel $opts(logl_)
|
rlc set printlevel $opts(logl_)
|
rlc config -logdumplevel $opts(dmpl_)
|
rlc set dumplevel $opts(dmpl_)
|
rlc config -logtracelevel $opts(tiol_)
|
rlc set tracelevel $opts(tiol_)
|
|
|
# first start, if specified with --run, the test bench
|
# first start, if specified with --run, the test bench
|
# exec sh -c $cmd is used to execute a shell command including [], '',""
|
# exec sh -c $cmd is used to execute a shell command including [], '',""
|
# in a direct exec the tcl expansion logic will interfere...
|
# in a direct exec the tcl expansion logic will interfere...
|
#
|
#
|