using System; using System.Text; using System.Runtime.InteropServices; using System.Collections.Generic; // Works with TCL86, [Bill Moore (WPM) 3/16/2017] // Requires: tcl86.dll and zlib1.dll from ActiveState Tcl placed in EXE directory namespace TCL { public delegate int Callback(List args, out string result); public interface IShell { void AddFunction (string cmd, Callback F); int Eval (string script, out string result); } public class Shell : IShell { private IntPtr interp; private Dictionary DictCmds; private TclDll.Tcl_ObjCmdProc DispatcherDelegate; public Shell() { DictCmds = new Dictionary(); // Need Dispatcher Delegate for lifetime of object to avoid GC // (Apparently C# automatically handles pinning of the pointers for delegates) unsafe { DispatcherDelegate = new TclDll.Tcl_ObjCmdProc(Dispatcher); } try { interp = TclDll.Tcl_CreateInterp(); } catch(Exception x) { System.Windows.MessageBox.Show("TclDll.Tcl_CreateInterp failed 1\r\n" + x.ToString()); return; } if (interp == IntPtr.Zero) { System.Windows.MessageBox.Show("TclDll.Tcl_CreateInterp failed 2"); return; } AddFunction("hello", Cmd_MyHello); AddFunction("listfunt", Cmd_ListFunt); return; } public int Eval(string script, out string ResultString) { int ResultInt; ResultInt = TclDll.Tcl_Eval(interp, script); ResultString = TclDll.Helper_GetStringResult(interp); return ResultInt; } public void AddFunction(string cmd, Callback F) { if (interp == null) { throw new SystemException ("ERROR: tcl_backend: interp is null\n"); } DictCmds.Add(cmd, F); TclDll.Helper_RegisterProc(interp, cmd, DispatcherDelegate); } private unsafe int Dispatcher( IntPtr clientData, IntPtr interp, int objc, TclDll.Tcl_Obj** objv) { List args = TclDll.Helper_ObjvToList(objc, objv); if (args.Count == 0) { System.Windows.MessageBox.Show("EMPTY cmd dispatch"); return 0; } string cmd = args[0]; if (DictCmds.ContainsKey(cmd)) { string result_string; int result_code; var F = DictCmds[cmd]; result_code = F(args, out result_string); TclDll.Tcl_SetObjResult(interp, TclDll.Tcl_NewStringObj(result_string, -1)); return result_code; } return -1; //TclDll.TCL_OK; } public int Cmd_MyHello(List args, out string result) { //System.Windows.MessageBox.Show("MyHello!\n"); result="DONE WITH RESULT"; return 0; } public int Cmd_ListFunt(List args, out string result) { List keys = new List(DictCmds.Keys); result = ""; foreach (string key in keys) { result += key + "\r\n"; } return 0; } } // Class Shell public class TclDll { public const int TCL_OK = 0; [StructLayout(LayoutKind.Sequential)] public struct Tcl_Obj { int refCount; IntPtr bytes; int length; IntPtr typePtr; Int64 value; }; [UnmanagedFunctionPointer(CallingConvention.Cdecl)] public unsafe delegate int Tcl_ObjCmdProc( IntPtr clientData, IntPtr interp, int objc, TclDll.Tcl_Obj** argv); [DllImport(@"tcl86.dll", CallingConvention= CallingConvention.Cdecl)] public static extern IntPtr Tcl_CreateObjCommand( IntPtr interp, [In, MarshalAs (UnmanagedType.LPStr)] string cmdName, IntPtr proc, IntPtr clientData, IntPtr deleteProc ); [DllImport(@"tcl86.dll")] public unsafe static extern IntPtr Tcl_GetString(Tcl_Obj* obj); [DllImport(@"tcl86.dll")] public static extern IntPtr Tcl_CreateInterp(); [DllImport(@"tcl86.dll")] public static extern int Tcl_Eval( IntPtr interp, [In, MarshalAs (UnmanagedType.LPStr)] string script); [DllImport(@"tcl86.dll")] public static extern IntPtr Tcl_GetObjResult(IntPtr interp); [DllImport(@"tcl86.dll")] public static extern int Tcl_SetObjResult(IntPtr interp, IntPtr objPtr); [DllImport(@"tcl86.dll")] public static extern IntPtr Tcl_NewStringObj( [In, MarshalAs (UnmanagedType.LPStr)] string ObjName, int length ); public unsafe static string Helper_GetString(Tcl_Obj* obj) { IntPtr b = TclDll.Tcl_GetString(obj); string s = Marshal.PtrToStringAnsi(b); return s; } public static string Helper_GetString(IntPtr obj) { unsafe { IntPtr b = TclDll.Tcl_GetString((Tcl_Obj*)obj); string s = Marshal.PtrToStringAnsi(b); return s; } } public static string Helper_GetStringResult(IntPtr interp) { IntPtr obj = Tcl_GetObjResult(interp); if (obj == IntPtr.Zero) { return ""; } else { return Helper_GetString(obj); } } public static unsafe List Helper_ObjvToList( int objc, Tcl_Obj** objv) { var args = new List(); for (int i=0; i < objc; i++) { string s = Helper_GetString(objv[i]); args.Add(s); } return args; } public static unsafe void Helper_RegisterProc(IntPtr interp, string name, TclDll.Tcl_ObjCmdProc proc) { Tcl_CreateObjCommand( interp : interp, cmdName : name, proc : Marshal.GetFunctionPointerForDelegate(proc), clientData : IntPtr.Zero, deleteProc : IntPtr.Zero ); } } } // Namespace