a39b7054e7
linuxcnc.in: a haltcl file can make use of args
haltcl.in: set argv [lindex $argv 1 end] was always wrong,
lrange was intent
Signed-off-by: Dewey Garrett <dgarrett@panix.com>
56 lines
1.1 KiB
Text
56 lines
1.1 KiB
Text
#!@TCLSH@
|
|
load @EMC2_TCL_LIB_DIR@/hal.so
|
|
|
|
proc parse_ini {filename} {
|
|
set f [open $filename]
|
|
|
|
while {[gets $f line] >= 0} {
|
|
if {[regexp {^\[(.*)\]\s*$} $line _ section]} {
|
|
# nothing
|
|
} elseif {[regexp {^([^#]+?)\s*=\s*(.*?)\s*$} $line _ k v]} {
|
|
upvar $section s
|
|
lappend s([string trim $k]) $v
|
|
}
|
|
}
|
|
|
|
close $f
|
|
}
|
|
|
|
if { [llength $argv] > 0 \
|
|
&& ( ([lindex $argv 0] == "-i") || ([lindex $argv 0] == "-ini") )} {
|
|
parse_ini [lindex $argv 1]
|
|
set argv [lrange $argv 2 end]
|
|
}
|
|
|
|
|
|
proc setp {p v} {
|
|
set v [uplevel [list expr $v]]
|
|
hal setp $p $v
|
|
}
|
|
|
|
proc sets {p v} {
|
|
set v [uplevel [list expr $v]]
|
|
hal sets $p $v
|
|
}
|
|
|
|
foreach c [hal --commands] {
|
|
if {[info commands $c] == {}} {
|
|
proc $c args "eval hal $c \$args"
|
|
}
|
|
}
|
|
|
|
if {[llength $argv] == 0} {
|
|
package require tclreadline
|
|
namespace eval tclreadline {
|
|
proc prompt1 {} {
|
|
return "haltcl: "
|
|
}
|
|
}
|
|
::tclreadline::Loop
|
|
}
|
|
|
|
set filename [lindex $argv 0]
|
|
set argv [lrange $argv 1 end]
|
|
|
|
set result [source $filename]
|
|
|