[cells-cvs] CVS Celtk

[fgoenninger]

Update of /project/cells/cvsroot/Celtk
In directory clnet:/tmp/cvs-serv19984

Modified Files:
	tk-interp.lisp 
Log Message:
Added: CFFI function definitions for Tcl_RegisterChannel,
Tcl_UnregisterChannel, Tcl_MakeFileChannel, Tcl_GetChannelName,
Tcl_GetChannel

--- /project/cells/cvsroot/Celtk/tk-interp.lisp	2006/05/24 20:38:54	1.10
+++ /project/cells/cvsroot/Celtk/tk-interp.lisp	2006/05/25 14:35:27	1.11
@@ -180,6 +180,41 @@
   (pathName :string)
   (related-tkwin :pointer))
 
+;; ----------------------------------------------------------------------------
+;; Tcl_CreateCommand - used to implement direct callbacks
+;; ----------------------------------------------------------------------------
+
+(defcfun ("Tcl_CreateCommand" Tcl_CreateCommand) :pointer
+  (interp :pointer)
+  (cmdName :string)
+  (cmdProc :pointer)
+  (clientData :int)
+  (deleteProc :pointer))
+
+;; ----------------------------------------------------------------------------
+;; Tcl/Tk channel related stuff
+;; ----------------------------------------------------------------------------
+
+(defcfun ("Tcl_RegisterChannel" Tcl_RegisterChannel) :void
+  (interp :pointer)
+  (channel :pointer))
+
+(defcfun ("Tcl_UnregisterChannel" Tcl_UnregisterChannel) :void
+  (interp :pointer)
+  (channel :pointer))
+
+(defcfun ("Tcl_MakeFileChannel" Tcl_MakeFileChannel) :pointer
+  (handle :int)
+  (readOrWrite :int))
+
+(defcfun ("Tcl_GetChannelName" Tcl_GetChannelName) :string
+  (channel :pointer))
+
+(defcfun ("Tcl_GetChannel" Tcl_GetChannel) :pointer
+  (interp :pointer)
+  (channelName :string)
+  (modePtr :pointer))
+
 ;;; --- Togl (Version 1.7 and above needed!) -----------------------------