9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
*
* Copyright (c) 1991-1994 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclIOUtil.c,v 1.1.2.7 1998/12/10 21:57:47 stanton Exp $
*/
#include "tclInt.h"
#include "tclPort.h"
/*
* The following typedef declarations allow for hooking into the chain
|
|
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
*
* Copyright (c) 1991-1994 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclIOUtil.c,v 1.1.2.8 1998/12/12 01:36:58 lfb Exp $
*/
#include "tclInt.h"
#include "tclPort.h"
/*
* The following typedef declarations allow for hooking into the chain
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
static OpenFileChannelProc defaultOpenFileChannelProc = {
&TclpOpenFileChannel, NULL
};
static OpenFileChannelProc *openFileChannelProcList =
&defaultOpenFileChannelProc;
#ifdef TCL_THREADS
static Tcl_Mutex hookMutex;
#endif
|
<
|
<
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
static OpenFileChannelProc defaultOpenFileChannelProc = {
&TclpOpenFileChannel, NULL
};
static OpenFileChannelProc *openFileChannelProcList =
&defaultOpenFileChannelProc;
TCL_DECLARE_MUTEX(hookMutex)
/*
*---------------------------------------------------------------------------
*
* TclGetOpenMode --
*
* Description:
|