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!) -----------------------------