Mercurial > vim

comparison src/if_tcl.c @ 1890:2928a6b338c3 v7.2.187

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.2-187
author vimboss
date Sat, 23 May 2009 12:28:15 +0000
parents c7537662746d
children 6768ebd0bc04
comparison
equal deleted inserted replaced
1889:c7537662746d 1890:2928a6b338c3
159 # ifndef DYNAMIC_TCL /* Just generating prototypes */ 159 # ifndef DYNAMIC_TCL /* Just generating prototypes */
160 typedef int HANDLE; 160 typedef int HANDLE;
161 # endif 161 # endif
162 162
163 /* 163 /*
164 * Declare HANDLE for perl.dll and function pointers. 164 * Declare HANDLE for tcl.dll and function pointers.
165 */ 165 */
166 static HANDLE hTclLib = NULL; 166 static HANDLE hTclLib = NULL;
167 Tcl_Interp* (*dll_Tcl_CreateInterp)(); 167 Tcl_Interp* (*dll_Tcl_CreateInterp)();
168 168
169 /* 169 /*
180 180
181 /* 181 /*
182 * Make all runtime-links of tcl. 182 * Make all runtime-links of tcl.
183 * 183 *
184 * 1. Get module handle using LoadLibraryEx. 184 * 1. Get module handle using LoadLibraryEx.
185 * 2. Get pointer to perl function by GetProcAddress. 185 * 2. Get pointer to tcl function by GetProcAddress.
186 * 3. Repeat 2, until get all functions will be used. 186 * 3. Repeat 2, until get all functions will be used.
187 * 187 *
188 * Parameter 'libname' provides name of DLL. 188 * Parameter 'libname' provides name of DLL.
189 * Return OK or FAIL. 189 * Return OK or FAIL.
190 */ 190 */
1668 } 1668 }
1669 1669
1670 1670
1671 static Tcl_ChannelType channel_type = 1671 static Tcl_ChannelType channel_type =
1672 { 1672 {
1673 "vimmessage", 1673 "vimmessage", /* typeName */
1674 NULL, /* blockmode */ 1674 NULL, /* version */
1675 channel_close, 1675 channel_close, /* closeProc */
1676 channel_input, 1676 channel_input, /* inputProc */
1677 channel_output, 1677 channel_output, /* outputProc */
1678 NULL, /* seek */ 1678 NULL, /* seekProc */
1679 NULL, /* set option */ 1679 NULL, /* setOptionProc */
1680 NULL, /* get option */ 1680 NULL, /* getOptionProc */
1681 channel_watch, 1681 channel_watch, /* watchProc */
1682 channel_gethandle, 1682 channel_gethandle, /* getHandleProc */
1683 NULL, 1683 NULL, /* close2Proc */
1684 NULL, 1684 NULL, /* blockModeProc */
1685 NULL, 1685 #ifdef TCL_CHANNEL_VERSION_2
1686 NULL, 1686 NULL, /* flushProc */
1687 NULL, 1687 NULL, /* handlerProc */
1688 NULL, 1688 #endif
1689 NULL 1689 #ifdef TCL_CHANNEL_VERSION_3
1690 NULL, /* wideSeekProc */
1691 #endif
1692 #ifdef TCL_CHANNEL_VERSION_4
1693 NULL, /* threadActionProc */
1694 #endif
1695 #ifdef TCL_CHANNEL_VERSION_5
1696 NULL /* truncateProc */
1697 #endif
1690 }; 1698 };
1691 1699
1692 /********************************** 1700 /**********************************
1693 Interface to vim 1701 Interface to vim
1694 **********************************/ 1702 **********************************/