Import LinuxCNC source tree

scripts/haltcl.in

@@ -0,0 +1,43 @@
+#!@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]
+