Line 1... |
Line 1... |
#! /usr/bin/env tclsh
|
#! /usr/bin/env tclsh
|
# -*- tcl -*-
|
# -*- tcl -*-
|
# $Id: ti_rri 375 2011-04-02 07:56:47Z mueller $
|
# $Id: ti_rri 376 2011-04-17 12:24:07Z mueller $
|
#
|
#
|
# Copyright 2011- by Walter F.J. Mueller
|
# Copyright 2011- 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
|
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
|
# 2011-04-02 376 1.0 Initial version
|
# 2011-04-17 376 1.0 Initial version
|
# 2011-03-19 371 0.1 First draft
|
# 2011-03-19 371 0.1 First draft
|
#
|
#
|
#
|
#
|
# --fifo[=name,keep]
|
# --fifo[=name,keep]
|
# --term[=???] ; not yet implemented...
|
# --term[=name,baud,break]
|
# --run=command
|
# --run=command
|
# --log=filename ; default "-"
|
# --log=filename ; default "-"
|
# --logl=n ; default 2
|
# --logl=n ; default 2
|
# --dmpl=n ; default 0
|
# --dmpl=n ; default 0
|
# --tiol=n ; default 0
|
# --tiol=n ; default 0
|
Line 126... |
Line 126... |
if { $opts(term) } {
|
if { $opts(term) } {
|
set nlist [split $opts(term_) ","]
|
set nlist [split $opts(term_) ","]
|
set dev [lindex $nlist 0]
|
set dev [lindex $nlist 0]
|
set baud [lindex $nlist 1]
|
set baud [lindex $nlist 1]
|
set brk [lindex $nlist 2]
|
set brk [lindex $nlist 2]
|
if {$dev eq ""} {set dev "/dev/ttyS0"}
|
if {$dev eq ""} {set dev "USB0"}
|
if {$baud eq ""} {set baud "115k"}
|
if {$baud eq ""} {set baud "115k"}
|
|
if {! [regexp -- {^/dev} $dev]} {
|
|
set dev "/dev/tty$dev"
|
|
}
|
set url "term:$dev?baud=$baud"
|
set url "term:$dev?baud=$baud"
|
if {$brk ne ""} {append url ";break"}
|
if {$brk ne ""} {append url ";break"}
|
rlc open $url
|
rlc open $url
|
}
|
}
|
|
|