44 lines
800 B
Plaintext
44 lines
800 B
Plaintext
#!@TCLSH@
|
|
|
|
package require Linuxcnc
|
|
|
|
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"
|
|
}
|
|
}
|
|
proc show args {puts [eval hal show $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]
|
|
|