diff options
| author | stanton <stanton> | 1999-03-04 01:01:11 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-03-04 01:01:11 (GMT) |
| commit | d6cca28612d9e303eac9b561fa757034135f2a17 (patch) | |
| tree | cfafdc8bf9389cadc6630ac739a80f0f9e9cc7b6 | |
| parent | 14f3bca0ecc2c5d688088c6c567c28d100b769f7 (diff) | |
| download | tcl-d6cca28612d9e303eac9b561fa757034135f2a17.zip tcl-d6cca28612d9e303eac9b561fa757034135f2a17.tar.gz tcl-d6cca28612d9e303eac9b561fa757034135f2a17.tar.bz2 | |
* mac/tclMacChan.c: Added stub implementation of
Tcl_MakeFileChannel that doesn't do anything. This could be
implemented at a later date.
| -rw-r--r-- | mac/tclMacChan.c | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/mac/tclMacChan.c b/mac/tclMacChan.c index 781ee64..63cb2ee 100644 --- a/mac/tclMacChan.c +++ b/mac/tclMacChan.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacChan.c,v 1.3 1998/09/14 18:40:04 stanton Exp $ + * RCS: @(#) $Id: tclMacChan.c,v 1.3.4.1 1999/03/04 01:01:11 stanton Exp $ */ #include "tclInt.h" @@ -921,6 +921,35 @@ OpenFileChannel( /* *---------------------------------------------------------------------- * + * Tcl_MakeFileChannel -- + * + * Makes a Tcl_Channel from an existing OS level file handle. + * + * Results: + * The Tcl_Channel created around the preexisting OS level file handle. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +Tcl_Channel +Tcl_MakeFileChannel(handle, mode) + ClientData handle; /* OS level handle. */ + int mode; /* ORed combination of TCL_READABLE and + * TCL_WRITABLE to indicate file mode. */ +{ + /* + * Not implemented yet. + */ + + return NULL; +} + +/* + *---------------------------------------------------------------------- + * * FileBlockMode -- * * Set blocking or non-blocking mode on channel. Macintosh files |