Custom M-Code (Python)

#!/usr/bin/tclsh

# EDIT here to set ::the_pin_name as required:
set ::the_pin_name   motion.analog-in-00

# Note: This file must:
#    have execute permissions (chmod +x this_file_name)
#    be located according to rules for user M codes
#    exist before starting LinuxCNC

#------------------------------------------------------------------
set ::prog [file tail $::argv0]

package require Hal
package require Tk
set ::default_value  [hal getp motion.analog-out-00]
set ::value $::default_value

proc go {} {
  if [catch {
    puts "$::prog:$::the_pin_name before: [hal getp $::the_pin_name]"
    hal setp $::the_pin_name $::value
    puts "$::prog:$::the_pin_name  after: [hal getp $::the_pin_name]"
  } msg ] {
    set ::value "FIXME"
    popup "ERROR\n\n$msg"
  } else {
    exit 0
  }
}
proc abort {} {
  popup "Aborting Gcode program"
  exit 1
}
proc err_exit {msg} {
  popup $msg
  exit 1
}
proc popup {msg} {
  puts stderr "$::prog: $msg"
  tk_messageBox \
    -title "$::prog:$::the_pin_name" \
    -type ok \
    -message "$msg"
}

wm title . "$::prog pin: $::the_pin_name"
wm protocol . WM_DELETE_WINDOW  {puts "$::prog: window close disallowed"}
pack [label .l -text "Enter Value:"] -side left
pack [entry .e -textvar ::value] -side left
bind .e <Return> go
pack [button .b -text Go -command go] -side left
pack [button .a -text Abort -command abort] -side left

#<_change>=3.6
o10 if [EXISTS[#<_width>]]
    (debug, _global exists and has the value #<_width>)
o10 else
    (debug, _width does not exist set to default value)
    #<_width>=3.6
o10 endif
m68 e0 q#<_width>
M100
m66 e0 l0
#<_width>=#5399
(debug,_width set to #<_width>)

#!/usr/bin/python

import linuxcnc
import hal

h = hal.component("M100")
s = linuxcnc.stat()
c = linuxcnc.command()

s.poll()
aout0 = s.aout[0]

from Tkinter import *

def ok():
   print("First Name: %s" % (e1.get()))
   hal.set_p("motion.analog-in-00",(e1.get()))
   master.quit()

master = Tk()
Label(master, text="First Name").pack(pady=4, padx=10)

v = IntVar()
e1 = Entry(master, text=v)
v.set(aout0)
e1.pack()

Button(master, text='Cancel', command=master.quit).pack(pady=4, padx=10, side=RIGHT)
Button(master, text='OK', command=ok).pack(pady=4, padx=10, side=RIGHT)

mainloop( )