/[gcl]/gcl/gcl-tk/guis.c
ViewVC logotype

Diff of /gcl/gcl-tk/guis.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by mjthomas, Fri Oct 11 07:50:11 2002 UTC
# Line 126  typedef struct _TAS { Line 126  typedef struct _TAS {
126    
127  #define SET_SESSION_ID() 0  #define SET_SESSION_ID() 0
128    
129  UINT WINAPI tf ( void *tain )  UINT WINAPI tf1 ( void *tain )
130  {  {
131      TAS *ta = (TAS *) tain;      TAS *ta = (TAS *) tain;
132      UINT rv = 0;      UINT rv = 0;
# Line 136  UINT WINAPI tf ( void *tain ) Line 136  UINT WINAPI tf ( void *tain )
136      if ( w32_socket_init() >= 0 ) {      if ( w32_socket_init() >= 0 ) {
137          dsfd = sock_connect_to_name ( ta->argv[1], atoi ( ta->argv[2] ), 0);          dsfd = sock_connect_to_name ( ta->argv[1], atoi ( ta->argv[2] ), 0);
138          if ( dsfd ) {          if ( dsfd ) {
139              fprintf ( stderr, "connected to %s %s", ta->argv[1], ta->argv[2] );              fprintf ( stderr, "connected to %s %s\n", ta->argv[1], ta->argv[2] );
140              /* give chance for someone to attach with gdb and              TkX_Wish ( ta->argc, ta->argv );
                to set waiting to 0 */  
             while ( -- ta->delay >= 0 ) sleep(1);  
             {  
                 char *buf = "\0\0";  
                 TkX_Wish ( ta->argc, ta->argv );  
             }  
   
141              fprintf ( stderr, "Wish shell done\n" );              fprintf ( stderr, "Wish shell done\n" );
142              sock_close_connection ( dsfd );              sock_close_connection ( dsfd );
143              ta->rv = 0;              ta->rv = 0;
# Line 239  char *envp[]; Line 232  char *envp[];
232          hThread = (HANDLE) _beginthreadex (          hThread = (HANDLE) _beginthreadex (
233                                              NULL,                                              NULL,
234                                              0,                                              0,
235                                              tf,                                              tf1,
236                                              pTA,                                              pTA,
237                                              0,                                              0,
238                                              &dwThreadID                                              &dwThreadID

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26