/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclwinconsole.c
ViewVC logotype

Annotation of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclwinconsole.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 44 - (hide annotations) (download)
Fri Oct 14 02:09:58 2016 UTC (7 years, 11 months ago) by dashley
File MIME type: text/plain
File size: 35740 byte(s)
Rename for reorganization.
1 dashley 25 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclwinconsole.c,v 1.1.1.1 2001/06/13 04:48:32 dtashley Exp $ */
2    
3     /*
4     * tclWinConsole.c --
5     *
6     * This file implements the Windows-specific console functions,
7     * and the "console" channel driver.
8     *
9     * Copyright (c) 1999 by Scriptics Corp.
10     *
11     * See the file "license.terms" for information on usage and redistribution
12     * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13     *
14     * RCS: @(#) $Id: tclwinconsole.c,v 1.1.1.1 2001/06/13 04:48:32 dtashley Exp $
15     */
16    
17     #include "tclWinInt.h"
18    
19     #include <dos.h>
20     #include <fcntl.h>
21     #include <io.h>
22     #include <sys/stat.h>
23    
24     /*
25     * The following variable is used to tell whether this module has been
26     * initialized.
27     */
28    
29     static int initialized = 0;
30    
31     /*
32     * The consoleMutex locks around access to the initialized variable, and it is
33     * used to protect background threads from being terminated while they are
34     * using APIs that hold locks.
35     */
36    
37     TCL_DECLARE_MUTEX(consoleMutex)
38    
39     /*
40     * Bit masks used in the flags field of the ConsoleInfo structure below.
41     */
42    
43     #define CONSOLE_PENDING (1<<0) /* Message is pending in the queue. */
44     #define CONSOLE_ASYNC (1<<1) /* Channel is non-blocking. */
45    
46     /*
47     * Bit masks used in the sharedFlags field of the ConsoleInfo structure below.
48     */
49    
50     #define CONSOLE_EOF (1<<2) /* Console has reached EOF. */
51     #define CONSOLE_BUFFERED (1<<3) /* data was read into a buffer by the reader
52     thread */
53    
54     #define CONSOLE_BUFFER_SIZE (8*1024)
55     /*
56     * This structure describes per-instance data for a console based channel.
57     */
58    
59     typedef struct ConsoleInfo {
60     HANDLE handle;
61     int type;
62     struct ConsoleInfo *nextPtr;/* Pointer to next registered console. */
63     Tcl_Channel channel; /* Pointer to channel structure. */
64     int validMask; /* OR'ed combination of TCL_READABLE,
65     * TCL_WRITABLE, or TCL_EXCEPTION: indicates
66     * which operations are valid on the file. */
67     int watchMask; /* OR'ed combination of TCL_READABLE,
68     * TCL_WRITABLE, or TCL_EXCEPTION: indicates
69     * which events should be reported. */
70     int flags; /* State flags, see above for a list. */
71     Tcl_ThreadId threadId; /* Thread to which events should be reported.
72     * This value is used by the reader/writer
73     * threads. */
74     HANDLE writeThread; /* Handle to writer thread. */
75     HANDLE readThread; /* Handle to reader thread. */
76     HANDLE writable; /* Manual-reset event to signal when the
77     * writer thread has finished waiting for
78     * the current buffer to be written. */
79     HANDLE readable; /* Manual-reset event to signal when the
80     * reader thread has finished waiting for
81     * input. */
82     HANDLE startWriter; /* Auto-reset event used by the main thread to
83     * signal when the writer thread should attempt
84     * to write to the console. */
85     HANDLE startReader; /* Auto-reset event used by the main thread to
86     * signal when the reader thread should attempt
87     * to read from the console. */
88     DWORD writeError; /* An error caused by the last background
89     * write. Set to 0 if no error has been
90     * detected. This word is shared with the
91     * writer thread so access must be
92     * synchronized with the writable object.
93     */
94     char *writeBuf; /* Current background output buffer.
95     * Access is synchronized with the writable
96     * object. */
97     int writeBufLen; /* Size of write buffer. Access is
98     * synchronized with the writable
99     * object. */
100     int toWrite; /* Current amount to be written. Access is
101     * synchronized with the writable object. */
102     int readFlags; /* Flags that are shared with the reader
103     * thread. Access is synchronized with the
104     * readable object. */
105     int bytesRead; /* number of bytes in the buffer */
106     int offset; /* number of bytes read out of the buffer */
107     char buffer[CONSOLE_BUFFER_SIZE];
108     /* Data consumed by reader thread. */
109     } ConsoleInfo;
110    
111     typedef struct ThreadSpecificData {
112     /*
113     * The following pointer refers to the head of the list of consoles
114     * that are being watched for file events.
115     */
116    
117     ConsoleInfo *firstConsolePtr;
118     } ThreadSpecificData;
119    
120     static Tcl_ThreadDataKey dataKey;
121    
122     /*
123     * The following structure is what is added to the Tcl event queue when
124     * console events are generated.
125     */
126    
127     typedef struct ConsoleEvent {
128     Tcl_Event header; /* Information that is standard for
129     * all events. */
130     ConsoleInfo *infoPtr; /* Pointer to console info structure. Note
131     * that we still have to verify that the
132     * console exists before dereferencing this
133     * pointer. */
134     } ConsoleEvent;
135    
136     /*
137     * Declarations for functions used only in this file.
138     */
139    
140     static int ApplicationType(Tcl_Interp *interp,
141     const char *fileName, char *fullName);
142     static void BuildCommandLine(const char *executable, int argc,
143     char **argv, Tcl_DString *linePtr);
144     static void CopyChannel(HANDLE dst, HANDLE src);
145     static BOOL HasConsole(void);
146     static TclFile MakeFile(HANDLE handle);
147     static char * MakeTempFile(Tcl_DString *namePtr);
148     static int ConsoleBlockModeProc(ClientData instanceData, int mode);
149     static void ConsoleCheckProc(ClientData clientData, int flags);
150     static int ConsoleCloseProc(ClientData instanceData,
151     Tcl_Interp *interp);
152     static int ConsoleEventProc(Tcl_Event *evPtr, int flags);
153     static void ConsoleExitHandler(ClientData clientData);
154     static int ConsoleGetHandleProc(ClientData instanceData,
155     int direction, ClientData *handlePtr);
156     static ThreadSpecificData *ConsoleInit(void);
157     static int ConsoleInputProc(ClientData instanceData, char *buf,
158     int toRead, int *errorCode);
159     static int ConsoleOutputProc(ClientData instanceData, char *buf,
160     int toWrite, int *errorCode);
161     static DWORD WINAPI ConsoleReaderThread(LPVOID arg);
162     static void ConsoleSetupProc(ClientData clientData, int flags);
163     static void ConsoleWatchProc(ClientData instanceData, int mask);
164     static DWORD WINAPI ConsoleWriterThread(LPVOID arg);
165     static void ProcExitHandler(ClientData clientData);
166     static int TempFileName(WCHAR name[MAX_PATH]);
167     static int WaitForRead(ConsoleInfo *infoPtr, int blocking);
168    
169     /*
170     * This structure describes the channel type structure for command console
171     * based IO.
172     */
173    
174     static Tcl_ChannelType consoleChannelType = {
175     "console", /* Type name. */
176     ConsoleBlockModeProc, /* Set blocking or non-blocking mode.*/
177     ConsoleCloseProc, /* Close proc. */
178     ConsoleInputProc, /* Input proc. */
179     ConsoleOutputProc, /* Output proc. */
180     NULL, /* Seek proc. */
181     NULL, /* Set option proc. */
182     NULL, /* Get option proc. */
183     ConsoleWatchProc, /* Set up notifier to watch the channel. */
184     ConsoleGetHandleProc, /* Get an OS handle from channel. */
185     };
186    
187     /*
188     *----------------------------------------------------------------------
189     *
190     * ConsoleInit --
191     *
192     * This function initializes the static variables for this file.
193     *
194     * Results:
195     * None.
196     *
197     * Side effects:
198     * Creates a new event source.
199     *
200     *----------------------------------------------------------------------
201     */
202    
203     static ThreadSpecificData *
204     ConsoleInit()
205     {
206     ThreadSpecificData *tsdPtr;
207    
208     /*
209     * Check the initialized flag first, then check again in the mutex.
210     * This is a speed enhancement.
211     */
212    
213     if (!initialized) {
214     Tcl_MutexLock(&consoleMutex);
215     if (!initialized) {
216     initialized = 1;
217     Tcl_CreateExitHandler(ProcExitHandler, NULL);
218     }
219     Tcl_MutexUnlock(&consoleMutex);
220     }
221    
222     tsdPtr = (ThreadSpecificData *)TclThreadDataKeyGet(&dataKey);
223     if (tsdPtr == NULL) {
224     tsdPtr = TCL_TSD_INIT(&dataKey);
225     tsdPtr->firstConsolePtr = NULL;
226     Tcl_CreateEventSource(ConsoleSetupProc, ConsoleCheckProc, NULL);
227     Tcl_CreateThreadExitHandler(ConsoleExitHandler, NULL);
228     }
229     return tsdPtr;
230     }
231    
232     /*
233     *----------------------------------------------------------------------
234     *
235     * ConsoleExitHandler --
236     *
237     * This function is called to cleanup the console module before
238     * Tcl is unloaded.
239     *
240     * Results:
241     * None.
242     *
243     * Side effects:
244     * Removes the console event source.
245     *
246     *----------------------------------------------------------------------
247     */
248    
249     static void
250     ConsoleExitHandler(
251     ClientData clientData) /* Old window proc */
252     {
253     Tcl_DeleteEventSource(ConsoleSetupProc, ConsoleCheckProc, NULL);
254     }
255    
256     /*
257     *----------------------------------------------------------------------
258     *
259     * ProcExitHandler --
260     *
261     * This function is called to cleanup the process list before
262     * Tcl is unloaded.
263     *
264     * Results:
265     * None.
266     *
267     * Side effects:
268     * Resets the process list.
269     *
270     *----------------------------------------------------------------------
271     */
272    
273     static void
274     ProcExitHandler(
275     ClientData clientData) /* Old window proc */
276     {
277     Tcl_MutexLock(&consoleMutex);
278     initialized = 0;
279     Tcl_MutexUnlock(&consoleMutex);
280     }
281    
282     /*
283     *----------------------------------------------------------------------
284     *
285     * ConsoleSetupProc --
286     *
287     * This procedure is invoked before Tcl_DoOneEvent blocks waiting
288     * for an event.
289     *
290     * Results:
291     * None.
292     *
293     * Side effects:
294     * Adjusts the block time if needed.
295     *
296     *----------------------------------------------------------------------
297     */
298    
299     void
300     ConsoleSetupProc(
301     ClientData data, /* Not used. */
302     int flags) /* Event flags as passed to Tcl_DoOneEvent. */
303     {
304     ConsoleInfo *infoPtr;
305     Tcl_Time blockTime = { 0, 0 };
306     int block = 1;
307     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
308    
309     if (!(flags & TCL_FILE_EVENTS)) {
310     return;
311     }
312    
313     /*
314     * Look to see if any events are already pending. If they are, poll.
315     */
316    
317     for (infoPtr = tsdPtr->firstConsolePtr; infoPtr != NULL;
318     infoPtr = infoPtr->nextPtr) {
319     if (infoPtr->watchMask & TCL_WRITABLE) {
320     if (WaitForSingleObject(infoPtr->writable, 0) != WAIT_TIMEOUT) {
321     block = 0;
322     }
323     }
324     if (infoPtr->watchMask & TCL_READABLE) {
325     if (WaitForRead(infoPtr, 0) >= 0) {
326     block = 0;
327     }
328     }
329     }
330     if (!block) {
331     Tcl_SetMaxBlockTime(&blockTime);
332     }
333     }
334    
335     /*
336     *----------------------------------------------------------------------
337     *
338     * ConsoleCheckProc --
339     *
340     * This procedure is called by Tcl_DoOneEvent to check the console
341     * event source for events.
342     *
343     * Results:
344     * None.
345     *
346     * Side effects:
347     * May queue an event.
348     *
349     *----------------------------------------------------------------------
350     */
351    
352     static void
353     ConsoleCheckProc(
354     ClientData data, /* Not used. */
355     int flags) /* Event flags as passed to Tcl_DoOneEvent. */
356     {
357     ConsoleInfo *infoPtr;
358     ConsoleEvent *evPtr;
359     int needEvent;
360     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
361    
362     if (!(flags & TCL_FILE_EVENTS)) {
363     return;
364     }
365    
366     /*
367     * Queue events for any ready consoles that don't already have events
368     * queued.
369     */
370    
371     for (infoPtr = tsdPtr->firstConsolePtr; infoPtr != NULL;
372     infoPtr = infoPtr->nextPtr) {
373     if (infoPtr->flags & CONSOLE_PENDING) {
374     continue;
375     }
376    
377     /*
378     * Queue an event if the console is signaled for reading or writing.
379     */
380    
381     needEvent = 0;
382     if (infoPtr->watchMask & TCL_WRITABLE) {
383     if (WaitForSingleObject(infoPtr->writable, 0) != WAIT_TIMEOUT) {
384     needEvent = 1;
385     }
386     }
387    
388     if (infoPtr->watchMask & TCL_READABLE) {
389     if (WaitForRead(infoPtr, 0) >= 0) {
390     needEvent = 1;
391     }
392     }
393    
394     if (needEvent) {
395     infoPtr->flags |= CONSOLE_PENDING;
396     evPtr = (ConsoleEvent *) ckalloc(sizeof(ConsoleEvent));
397     evPtr->header.proc = ConsoleEventProc;
398     evPtr->infoPtr = infoPtr;
399     Tcl_QueueEvent((Tcl_Event *) evPtr, TCL_QUEUE_TAIL);
400     }
401     }
402     }
403    
404    
405     /*
406     *----------------------------------------------------------------------
407     *
408     * ConsoleBlockModeProc --
409     *
410     * Set blocking or non-blocking mode on channel.
411     *
412     * Results:
413     * 0 if successful, errno when failed.
414     *
415     * Side effects:
416     * Sets the device into blocking or non-blocking mode.
417     *
418     *----------------------------------------------------------------------
419     */
420    
421     static int
422     ConsoleBlockModeProc(
423     ClientData instanceData, /* Instance data for channel. */
424     int mode) /* TCL_MODE_BLOCKING or
425     * TCL_MODE_NONBLOCKING. */
426     {
427     ConsoleInfo *infoPtr = (ConsoleInfo *) instanceData;
428    
429     /*
430     * Consoles on Windows can not be switched between blocking and nonblocking,
431     * hence we have to emulate the behavior. This is done in the input
432     * function by checking against a bit in the state. We set or unset the
433     * bit here to cause the input function to emulate the correct behavior.
434     */
435    
436     if (mode == TCL_MODE_NONBLOCKING) {
437     infoPtr->flags |= CONSOLE_ASYNC;
438     } else {
439     infoPtr->flags &= ~(CONSOLE_ASYNC);
440     }
441     return 0;
442     }
443    
444     /*
445     *----------------------------------------------------------------------
446     *
447     * ConsoleCloseProc --
448     *
449     * Closes a console based IO channel.
450     *
451     * Results:
452     * 0 on success, errno otherwise.
453     *
454     * Side effects:
455     * Closes the physical channel.
456     *
457     *----------------------------------------------------------------------
458     */
459    
460     static int
461     ConsoleCloseProc(
462     ClientData instanceData, /* Pointer to ConsoleInfo structure. */
463     Tcl_Interp *interp) /* For error reporting. */
464     {
465     ConsoleInfo *consolePtr = (ConsoleInfo *) instanceData;
466     int errorCode;
467     ConsoleInfo *infoPtr, **nextPtrPtr;
468     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
469    
470     errorCode = 0;
471    
472     /*
473     * Clean up the background thread if necessary. Note that this
474     * must be done before we can close the file, since the
475     * thread may be blocking trying to read from the console.
476     */
477    
478     if (consolePtr->readThread) {
479     /*
480     * Forcibly terminate the background thread. We cannot rely on the
481     * thread to cleanly terminate itself because we have no way of
482     * closing the handle without blocking in the case where the
483     * thread is in the middle of an I/O operation. Note that we need
484     * to guard against terminating the thread while it is in the
485     * middle of Tcl_ThreadAlert because it won't be able to release
486     * the notifier lock.
487     */
488    
489     Tcl_MutexLock(&consoleMutex);
490     TerminateThread(consolePtr->readThread, 0);
491    
492     /*
493     * Wait for the thread to terminate. This ensures that we are
494     * completely cleaned up before we leave this function.
495     */
496    
497     WaitForSingleObject(consolePtr->readThread, INFINITE);
498     Tcl_MutexUnlock(&consoleMutex);
499    
500     CloseHandle(consolePtr->readThread);
501     CloseHandle(consolePtr->readable);
502     CloseHandle(consolePtr->startReader);
503     consolePtr->readThread = NULL;
504     }
505     consolePtr->validMask &= ~TCL_READABLE;
506    
507     /*
508     * Wait for the writer thread to finish the current buffer, then
509     * terminate the thread and close the handles. If the channel is
510     * nonblocking, there should be no pending write operations.
511     */
512    
513     if (consolePtr->writeThread) {
514     WaitForSingleObject(consolePtr->writable, INFINITE);
515    
516     /*
517     * Forcibly terminate the background thread. We cannot rely on the
518     * thread to cleanly terminate itself because we have no way of
519     * closing the handle without blocking in the case where the
520     * thread is in the middle of an I/O operation. Note that we need
521     * to guard against terminating the thread while it is in the
522     * middle of Tcl_ThreadAlert because it won't be able to release
523     * the notifier lock.
524     */
525    
526     Tcl_MutexLock(&consoleMutex);
527     TerminateThread(consolePtr->writeThread, 0);
528    
529     /*
530     * Wait for the thread to terminate. This ensures that we are
531     * completely cleaned up before we leave this function.
532     */
533    
534     WaitForSingleObject(consolePtr->writeThread, INFINITE);
535     Tcl_MutexUnlock(&consoleMutex);
536    
537     CloseHandle(consolePtr->writeThread);
538     CloseHandle(consolePtr->writable);
539     CloseHandle(consolePtr->startWriter);
540     consolePtr->writeThread = NULL;
541     }
542     consolePtr->validMask &= ~TCL_WRITABLE;
543    
544    
545     /*
546     * Don't close the Win32 handle if the handle is a standard channel
547     * during the exit process. Otherwise, one thread may kill the stdio
548     * of another.
549     */
550    
551     if (!TclInExit()
552     || ((GetStdHandle(STD_INPUT_HANDLE) != consolePtr->handle)
553     && (GetStdHandle(STD_OUTPUT_HANDLE) != consolePtr->handle)
554     && (GetStdHandle(STD_ERROR_HANDLE) != consolePtr->handle))) {
555     if (CloseHandle(consolePtr->handle) == FALSE) {
556     TclWinConvertError(GetLastError());
557     errorCode = errno;
558     }
559     }
560    
561     consolePtr->watchMask &= consolePtr->validMask;
562    
563     /*
564     * Remove the file from the list of watched files.
565     */
566    
567     for (nextPtrPtr = &(tsdPtr->firstConsolePtr), infoPtr = *nextPtrPtr;
568     infoPtr != NULL;
569     nextPtrPtr = &infoPtr->nextPtr, infoPtr = *nextPtrPtr) {
570     if (infoPtr == (ConsoleInfo *)consolePtr) {
571     *nextPtrPtr = infoPtr->nextPtr;
572     break;
573     }
574     }
575     if (consolePtr->writeBuf != NULL) {
576     ckfree(consolePtr->writeBuf);
577     consolePtr->writeBuf = 0;
578     }
579     ckfree((char*) consolePtr);
580    
581     return errorCode;
582     }
583    
584     /*
585     *----------------------------------------------------------------------
586     *
587     * ConsoleInputProc --
588     *
589     * Reads input from the IO channel into the buffer given. Returns
590     * count of how many bytes were actually read, and an error indication.
591     *
592     * Results:
593     * A count of how many bytes were read is returned and an error
594     * indication is returned in an output argument.
595     *
596     * Side effects:
597     * Reads input from the actual channel.
598     *
599     *----------------------------------------------------------------------
600     */
601    
602     static int
603     ConsoleInputProc(
604     ClientData instanceData, /* Console state. */
605     char *buf, /* Where to store data read. */
606     int bufSize, /* How much space is available
607     * in the buffer? */
608     int *errorCode) /* Where to store error code. */
609     {
610     ConsoleInfo *infoPtr = (ConsoleInfo *) instanceData;
611     DWORD count, bytesRead = 0;
612     int result;
613    
614     *errorCode = 0;
615    
616     /*
617     * Synchronize with the reader thread.
618     */
619    
620     result = WaitForRead(infoPtr, (infoPtr->flags & CONSOLE_ASYNC) ? 0 : 1);
621    
622     /*
623     * If an error occurred, return immediately.
624     */
625    
626     if (result == -1) {
627     *errorCode = errno;
628     return -1;
629     }
630    
631     if (infoPtr->readFlags & CONSOLE_BUFFERED) {
632     /*
633     * Data is stored in the buffer.
634     */
635    
636     if (bufSize < (infoPtr->bytesRead - infoPtr->offset)) {
637     memcpy(buf, &infoPtr->buffer[infoPtr->offset], bufSize);
638     bytesRead = bufSize;
639     infoPtr->offset += bufSize;
640     } else {
641     memcpy(buf, &infoPtr->buffer[infoPtr->offset], bufSize);
642     bytesRead = infoPtr->bytesRead - infoPtr->offset;
643    
644     /*
645     * Reset the buffer
646     */
647    
648     infoPtr->readFlags &= ~CONSOLE_BUFFERED;
649     infoPtr->offset = 0;
650     }
651    
652     return bytesRead;
653     }
654    
655     /*
656     * Attempt to read bufSize bytes. The read will return immediately
657     * if there is any data available. Otherwise it will block until
658     * at least one byte is available or an EOF occurs.
659     */
660    
661     if (ReadConsole(infoPtr->handle, (LPVOID) buf, (DWORD) bufSize, &count,
662     (LPOVERLAPPED) NULL) == TRUE) {
663     buf[count] = '\0';
664     return count;
665     }
666    
667     return -1;
668     }
669    
670     /*
671     *----------------------------------------------------------------------
672     *
673     * ConsoleOutputProc --
674     *
675     * Writes the given output on the IO channel. Returns count of how
676     * many characters were actually written, and an error indication.
677     *
678     * Results:
679     * A count of how many characters were written is returned and an
680     * error indication is returned in an output argument.
681     *
682     * Side effects:
683     * Writes output on the actual channel.
684     *
685     *----------------------------------------------------------------------
686     */
687    
688     static int
689     ConsoleOutputProc(
690     ClientData instanceData, /* Console state. */
691     char *buf, /* The data buffer. */
692     int toWrite, /* How many bytes to write? */
693     int *errorCode) /* Where to store error code. */
694     {
695     ConsoleInfo *infoPtr = (ConsoleInfo *) instanceData;
696     DWORD bytesWritten, timeout;
697    
698     *errorCode = 0;
699     timeout = (infoPtr->flags & CONSOLE_ASYNC) ? 0 : INFINITE;
700     if (WaitForSingleObject(infoPtr->writable, timeout) == WAIT_TIMEOUT) {
701     /*
702     * The writer thread is blocked waiting for a write to complete
703     * and the channel is in non-blocking mode.
704     */
705    
706     errno = EAGAIN;
707     goto error;
708     }
709    
710     /*
711     * Check for a background error on the last write.
712     */
713    
714     if (infoPtr->writeError) {
715     TclWinConvertError(infoPtr->writeError);
716     infoPtr->writeError = 0;
717     goto error;
718     }
719    
720     if (infoPtr->flags & CONSOLE_ASYNC) {
721     /*
722     * The console is non-blocking, so copy the data into the output
723     * buffer and restart the writer thread.
724     */
725    
726     if (toWrite > infoPtr->writeBufLen) {
727     /*
728     * Reallocate the buffer to be large enough to hold the data.
729     */
730    
731     if (infoPtr->writeBuf) {
732     ckfree(infoPtr->writeBuf);
733     }
734     infoPtr->writeBufLen = toWrite;
735     infoPtr->writeBuf = ckalloc(toWrite);
736     }
737     memcpy(infoPtr->writeBuf, buf, toWrite);
738     infoPtr->toWrite = toWrite;
739     ResetEvent(infoPtr->writable);
740     SetEvent(infoPtr->startWriter);
741     bytesWritten = toWrite;
742     } else {
743     /*
744     * In the blocking case, just try to write the buffer directly.
745     * This avoids an unnecessary copy.
746     */
747    
748     if (WriteFile(infoPtr->handle, (LPVOID) buf, (DWORD) toWrite,
749     &bytesWritten, (LPOVERLAPPED) NULL) == FALSE) {
750     TclWinConvertError(GetLastError());
751     goto error;
752     }
753     }
754     return bytesWritten;
755    
756     error:
757     *errorCode = errno;
758     return -1;
759    
760     }
761    
762     /*
763     *----------------------------------------------------------------------
764     *
765     * ConsoleEventProc --
766     *
767     * This function is invoked by Tcl_ServiceEvent when a file event
768     * reaches the front of the event queue. This procedure invokes
769     * Tcl_NotifyChannel on the console.
770     *
771     * Results:
772     * Returns 1 if the event was handled, meaning it should be removed
773     * from the queue. Returns 0 if the event was not handled, meaning
774     * it should stay on the queue. The only time the event isn't
775     * handled is if the TCL_FILE_EVENTS flag bit isn't set.
776     *
777     * Side effects:
778     * Whatever the notifier callback does.
779     *
780     *----------------------------------------------------------------------
781     */
782    
783     static int
784     ConsoleEventProc(
785     Tcl_Event *evPtr, /* Event to service. */
786     int flags) /* Flags that indicate what events to
787     * handle, such as TCL_FILE_EVENTS. */
788     {
789     ConsoleEvent *consoleEvPtr = (ConsoleEvent *)evPtr;
790     ConsoleInfo *infoPtr;
791     int mask;
792     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
793    
794     if (!(flags & TCL_FILE_EVENTS)) {
795     return 0;
796     }
797    
798     /*
799     * Search through the list of watched consoles for the one whose handle
800     * matches the event. We do this rather than simply dereferencing
801     * the handle in the event so that consoles can be deleted while the
802     * event is in the queue.
803     */
804    
805     for (infoPtr = tsdPtr->firstConsolePtr; infoPtr != NULL;
806     infoPtr = infoPtr->nextPtr) {
807     if (consoleEvPtr->infoPtr == infoPtr) {
808     infoPtr->flags &= ~(CONSOLE_PENDING);
809     break;
810     }
811     }
812    
813     /*
814     * Remove stale events.
815     */
816    
817     if (!infoPtr) {
818     return 1;
819     }
820    
821     /*
822     * Check to see if the console is readable. Note
823     * that we can't tell if a console is writable, so we always report it
824     * as being writable unless we have detected EOF.
825     */
826    
827     mask = 0;
828     if (infoPtr->watchMask & TCL_WRITABLE) {
829     if (WaitForSingleObject(infoPtr->writable, 0) != WAIT_TIMEOUT) {
830     mask = TCL_WRITABLE;
831     }
832     }
833    
834     if (infoPtr->watchMask & TCL_READABLE) {
835     if (WaitForRead(infoPtr, 0) >= 0) {
836     if (infoPtr->readFlags & CONSOLE_EOF) {
837     mask = TCL_READABLE;
838     } else {
839     mask |= TCL_READABLE;
840     }
841     }
842     }
843    
844     /*
845     * Inform the channel of the events.
846     */
847    
848     Tcl_NotifyChannel(infoPtr->channel, infoPtr->watchMask & mask);
849     return 1;
850     }
851    
852     /*
853     *----------------------------------------------------------------------
854     *
855     * ConsoleWatchProc --
856     *
857     * Called by the notifier to set up to watch for events on this
858     * channel.
859     *
860     * Results:
861     * None.
862     *
863     * Side effects:
864     * None.
865     *
866     *----------------------------------------------------------------------
867     */
868    
869     static void
870     ConsoleWatchProc(
871     ClientData instanceData, /* Console state. */
872     int mask) /* What events to watch for, OR-ed
873     * combination of TCL_READABLE,
874     * TCL_WRITABLE and TCL_EXCEPTION. */
875     {
876     ConsoleInfo **nextPtrPtr, *ptr;
877     ConsoleInfo *infoPtr = (ConsoleInfo *) instanceData;
878     int oldMask = infoPtr->watchMask;
879     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
880    
881     /*
882     * Since most of the work is handled by the background threads,
883     * we just need to update the watchMask and then force the notifier
884     * to poll once.
885     */
886    
887     infoPtr->watchMask = mask & infoPtr->validMask;
888     if (infoPtr->watchMask) {
889     Tcl_Time blockTime = { 0, 0 };
890     if (!oldMask) {
891     infoPtr->nextPtr = tsdPtr->firstConsolePtr;
892     tsdPtr->firstConsolePtr = infoPtr;
893     }
894     Tcl_SetMaxBlockTime(&blockTime);
895     } else {
896     if (oldMask) {
897     /*
898     * Remove the console from the list of watched consoles.
899     */
900    
901     for (nextPtrPtr = &(tsdPtr->firstConsolePtr), ptr = *nextPtrPtr;
902     ptr != NULL;
903     nextPtrPtr = &ptr->nextPtr, ptr = *nextPtrPtr) {
904     if (infoPtr == ptr) {
905     *nextPtrPtr = ptr->nextPtr;
906     break;
907     }
908     }
909     }
910     }
911     }
912    
913     /*
914     *----------------------------------------------------------------------
915     *
916     * ConsoleGetHandleProc --
917     *
918     * Called from Tcl_GetChannelHandle to retrieve OS handles from
919     * inside a command consoleline based channel.
920     *
921     * Results:
922     * Returns TCL_OK with the fd in handlePtr, or TCL_ERROR if
923     * there is no handle for the specified direction.
924     *
925     * Side effects:
926     * None.
927     *
928     *----------------------------------------------------------------------
929     */
930    
931     static int
932     ConsoleGetHandleProc(
933     ClientData instanceData, /* The console state. */
934     int direction, /* TCL_READABLE or TCL_WRITABLE */
935     ClientData *handlePtr) /* Where to store the handle. */
936     {
937     ConsoleInfo *infoPtr = (ConsoleInfo *) instanceData;
938    
939     *handlePtr = (ClientData) infoPtr->handle;
940     return TCL_OK;
941     }
942    
943     /*
944     *----------------------------------------------------------------------
945     *
946     * WaitForRead --
947     *
948     * Wait until some data is available, the console is at
949     * EOF or the reader thread is blocked waiting for data (if the
950     * channel is in non-blocking mode).
951     *
952     * Results:
953     * Returns 1 if console is readable. Returns 0 if there is no data
954     * on the console, but there is buffered data. Returns -1 if an
955     * error occurred. If an error occurred, the threads may not
956     * be synchronized.
957     *
958     * Side effects:
959     * Updates the shared state flags. If no error occurred,
960     * the reader thread is blocked waiting for a signal from the
961     * main thread.
962     *
963     *----------------------------------------------------------------------
964     */
965    
966     static int
967     WaitForRead(
968     ConsoleInfo *infoPtr, /* Console state. */
969     int blocking) /* Indicates whether call should be
970     * blocking or not. */
971     {
972     DWORD timeout, count;
973     HANDLE *handle = infoPtr->handle;
974     INPUT_RECORD input;
975    
976     while (1) {
977     /*
978     * Synchronize with the reader thread.
979     */
980    
981     timeout = blocking ? INFINITE : 0;
982     if (WaitForSingleObject(infoPtr->readable, timeout) == WAIT_TIMEOUT) {
983     /*
984     * The reader thread is blocked waiting for data and the channel
985     * is in non-blocking mode.
986     */
987     errno = EAGAIN;
988     return -1;
989     }
990    
991     /*
992     * At this point, the two threads are synchronized, so it is safe
993     * to access shared state.
994     */
995    
996     /*
997     * If the console has hit EOF, it is always readable.
998     */
999    
1000     if (infoPtr->readFlags & CONSOLE_EOF) {
1001     return 1;
1002     }
1003    
1004     if (PeekConsoleInput(handle, &input, 1, &count) == FALSE) {
1005     /*
1006     * Check to see if the peek failed because of EOF.
1007     */
1008    
1009     TclWinConvertError(GetLastError());
1010    
1011     if (errno == EOF) {
1012     infoPtr->readFlags |= CONSOLE_EOF;
1013     return 1;
1014     }
1015    
1016     /*
1017     * Ignore errors if there is data in the buffer.
1018     */
1019    
1020     if (infoPtr->readFlags & CONSOLE_BUFFERED) {
1021     return 0;
1022     } else {
1023     return -1;
1024     }
1025     }
1026    
1027     /*
1028     * If there is data in the buffer, the console must be
1029     * readable (since it is a line-oriented device).
1030     */
1031    
1032     if (infoPtr->readFlags & CONSOLE_BUFFERED) {
1033     return 1;
1034     }
1035    
1036    
1037     /*
1038     * There wasn't any data available, so reset the thread and
1039     * try again.
1040     */
1041    
1042     ResetEvent(infoPtr->readable);
1043     SetEvent(infoPtr->startReader);
1044     }
1045     }
1046    
1047     /*
1048     *----------------------------------------------------------------------
1049     *
1050     * ConsoleReaderThread --
1051     *
1052     * This function runs in a separate thread and waits for input
1053     * to become available on a console.
1054     *
1055     * Results:
1056     * None.
1057     *
1058     * Side effects:
1059     * Signals the main thread when input become available. May
1060     * cause the main thread to wake up by posting a message. May
1061     * one line from the console for each wait operation.
1062     *
1063     *----------------------------------------------------------------------
1064     */
1065    
1066     static DWORD WINAPI
1067     ConsoleReaderThread(LPVOID arg)
1068     {
1069     ConsoleInfo *infoPtr = (ConsoleInfo *)arg;
1070     HANDLE *handle = infoPtr->handle;
1071     DWORD count;
1072    
1073     for (;;) {
1074     /*
1075     * Wait for the main thread to signal before attempting to wait.
1076     */
1077    
1078     WaitForSingleObject(infoPtr->startReader, INFINITE);
1079    
1080     count = 0;
1081    
1082     /*
1083     * Look for data on the console, but first ignore any events
1084     * that are not KEY_EVENTs
1085     */
1086     if (ReadConsole(handle, infoPtr->buffer, CONSOLE_BUFFER_SIZE,
1087     &infoPtr->bytesRead, NULL) != FALSE) {
1088     /*
1089     * Data was stored in the buffer.
1090     */
1091    
1092     infoPtr->readFlags |= CONSOLE_BUFFERED;
1093     } else {
1094     DWORD err;
1095     err = GetLastError();
1096    
1097     if (err == EOF) {
1098     infoPtr->readFlags = CONSOLE_EOF;
1099     }
1100     }
1101    
1102     /*
1103     * Signal the main thread by signalling the readable event and
1104     * then waking up the notifier thread.
1105     */
1106    
1107     SetEvent(infoPtr->readable);
1108    
1109     /*
1110     * Alert the foreground thread. Note that we need to treat this like
1111     * a critical section so the foreground thread does not terminate
1112     * this thread while we are holding a mutex in the notifier code.
1113     */
1114    
1115     Tcl_MutexLock(&consoleMutex);
1116     Tcl_ThreadAlert(infoPtr->threadId);
1117     Tcl_MutexUnlock(&consoleMutex);
1118     }
1119     return 0; /* NOT REACHED */
1120     }
1121    
1122     /*
1123     *----------------------------------------------------------------------
1124     *
1125     * ConsoleWriterThread --
1126     *
1127     * This function runs in a separate thread and writes data
1128     * onto a console.
1129     *
1130     * Results:
1131     * Always returns 0.
1132     *
1133     * Side effects:
1134     * Signals the main thread when an output operation is completed.
1135     * May cause the main thread to wake up by posting a message.
1136     *
1137     *----------------------------------------------------------------------
1138     */
1139    
1140     static DWORD WINAPI
1141     ConsoleWriterThread(LPVOID arg)
1142     {
1143    
1144     ConsoleInfo *infoPtr = (ConsoleInfo *)arg;
1145     HANDLE *handle = infoPtr->handle;
1146     DWORD count, toWrite;
1147     char *buf;
1148    
1149     for (;;) {
1150     /*
1151     * Wait for the main thread to signal before attempting to write.
1152     */
1153    
1154     WaitForSingleObject(infoPtr->startWriter, INFINITE);
1155    
1156     buf = infoPtr->writeBuf;
1157     toWrite = infoPtr->toWrite;
1158    
1159     /*
1160     * Loop until all of the bytes are written or an error occurs.
1161     */
1162    
1163     while (toWrite > 0) {
1164     if (WriteFile(handle, buf, toWrite, &count, NULL) == FALSE) {
1165     infoPtr->writeError = GetLastError();
1166     break;
1167     } else {
1168     toWrite -= count;
1169     buf += count;
1170     }
1171     }
1172    
1173     /*
1174     * Signal the main thread by signalling the writable event and
1175     * then waking up the notifier thread.
1176     */
1177    
1178     SetEvent(infoPtr->writable);
1179    
1180     /*
1181     * Alert the foreground thread. Note that we need to treat this like
1182     * a critical section so the foreground thread does not terminate
1183     * this thread while we are holding a mutex in the notifier code.
1184     */
1185    
1186     Tcl_MutexLock(&consoleMutex);
1187     Tcl_ThreadAlert(infoPtr->threadId);
1188     Tcl_MutexUnlock(&consoleMutex);
1189     }
1190     return 0; /* NOT REACHED */
1191     }
1192    
1193    
1194    
1195     /*
1196     *----------------------------------------------------------------------
1197     *
1198     * TclWinOpenConsoleChannel --
1199     *
1200     * Constructs a Console channel for the specified standard OS handle.
1201     * This is a helper function to break up the construction of
1202     * channels into File, Console, or Serial.
1203     *
1204     * Results:
1205     * Returns the new channel, or NULL.
1206     *
1207     * Side effects:
1208     * May open the channel
1209     *
1210     *----------------------------------------------------------------------
1211     */
1212    
1213     Tcl_Channel
1214     TclWinOpenConsoleChannel(handle, channelName, permissions)
1215     HANDLE handle;
1216     char *channelName;
1217     int permissions;
1218     {
1219     char encoding[4 + TCL_INTEGER_SPACE];
1220     ConsoleInfo *infoPtr;
1221     ThreadSpecificData *tsdPtr;
1222     DWORD id;
1223    
1224     tsdPtr = ConsoleInit();
1225    
1226     /*
1227     * See if a channel with this handle already exists.
1228     */
1229    
1230     infoPtr = (ConsoleInfo *) ckalloc((unsigned) sizeof(ConsoleInfo));
1231     memset(infoPtr, 0, sizeof(ConsoleInfo));
1232    
1233     infoPtr->validMask = permissions;
1234     infoPtr->handle = handle;
1235    
1236     wsprintfA(encoding, "cp%d", GetConsoleCP());
1237    
1238     /*
1239     * Use the pointer for the name of the result channel.
1240     * This keeps the channel names unique, since some may share
1241     * handles (stdin/stdout/stderr for instance).
1242     */
1243    
1244     wsprintfA(channelName, "file%lx", (int) infoPtr);
1245    
1246     infoPtr->channel = Tcl_CreateChannel(&consoleChannelType, channelName,
1247     (ClientData) infoPtr, permissions);
1248    
1249     infoPtr->threadId = Tcl_GetCurrentThread();
1250    
1251     if (permissions & TCL_READABLE) {
1252     infoPtr->readable = CreateEvent(NULL, TRUE, TRUE, NULL);
1253     infoPtr->startReader = CreateEvent(NULL, FALSE, FALSE, NULL);
1254     infoPtr->readThread = CreateThread(NULL, 8000, ConsoleReaderThread,
1255     infoPtr, 0, &id);
1256     SetThreadPriority(infoPtr->readThread, THREAD_PRIORITY_HIGHEST);
1257     }
1258    
1259     if (permissions & TCL_WRITABLE) {
1260     infoPtr->writable = CreateEvent(NULL, TRUE, TRUE, NULL);
1261     infoPtr->startWriter = CreateEvent(NULL, FALSE, FALSE, NULL);
1262     infoPtr->writeThread = CreateThread(NULL, 8000, ConsoleWriterThread,
1263     infoPtr, 0, &id);
1264     }
1265    
1266     /*
1267     * Files have default translation of AUTO and ^Z eof char, which
1268     * means that a ^Z will be accepted as EOF when reading.
1269     */
1270    
1271     Tcl_SetChannelOption(NULL, infoPtr->channel, "-translation", "auto");
1272     Tcl_SetChannelOption(NULL, infoPtr->channel, "-eofchar", "\032 {}");
1273     Tcl_SetChannelOption(NULL, infoPtr->channel, "-encoding", encoding);
1274    
1275     return infoPtr->channel;
1276     }
1277    
1278    
1279     /* $History: tclwinconsole.c $
1280     *
1281     * ***************** Version 1 *****************
1282     * User: Dtashley Date: 1/02/01 Time: 12:51a
1283     * Created in $/IjuScripter, IjuConsole/Source/Tcl Base
1284     * Initial check-in.
1285     */
1286    
1287     /* End of TCLWINCONSOLE.C */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25