1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
/*
* tclFHandle.c --
*
* This file contains functions for manipulating Tcl file handles.
*
* Copyright (c) 1995 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* SCCS: @(#) tclFHandle.c 1.6 96/02/13 16:29:55
*/
#include "tcl.h"
#include "tclPort.h"
/*
* The FileHashKey structure is used to associate the OS file handle and type
* with the corresponding notifier data in a FileHandle.
*/
typedef struct FileHashKey {
int type; /* File handle type. */
ClientData osHandle; /* Platform specific OS file handle. */
} FileHashKey;
typedef struct FileHandle {
FileHashKey key; /* Hash key for a given file. */
ClientData data; /* Platform specific notifier data. */
Tcl_FileFreeProc *proc; /* Callback to invoke when file is freed. */
} FileHandle;
/*
* Static variables used in this file:
*/
static Tcl_HashTable fileTable; /* Hash table containing file handles. */
static int initialized = 0; /* 1 if this module has been initialized. */
/*
* Static procedures used in this file:
*/
static void FileExitProc _ANSI_ARGS_((ClientData clientData));
/*
*----------------------------------------------------------------------
*
* Tcl_GetFile --
*
* This function retrieves the file handle associated with a
* platform specific file handle of the given type. It creates
* a new file handle if needed.
*
* Results:
* Returns the file handle associated with the file descriptor.
*
* Side effects:
* Initializes the file handle table if necessary.
*
*----------------------------------------------------------------------
*/
Tcl_File
Tcl_GetFile(osHandle, type)
ClientData osHandle; /* Platform specific file handle. */
int type; /* Type of file handle. */
{
FileHashKey key;
Tcl_HashEntry *entryPtr;
int new;
if (!initialized) {
Tcl_InitHashTable(&fileTable, sizeof(FileHashKey)/sizeof(int));
Tcl_CreateExitHandler(FileExitProc, 0);
initialized = 1;
}
key.osHandle = osHandle;
key.type = type;
entryPtr = Tcl_CreateHashEntry(&fileTable, (char *) &key, &new);
if (new) {
FileHandle *newHandlePtr;
newHandlePtr = (FileHandle *) ckalloc(sizeof(FileHandle));
newHandlePtr->key = key;
newHandlePtr->data = NULL;
newHandlePtr->proc = NULL;
Tcl_SetHashValue(entryPtr, newHandlePtr);
}
return (Tcl_File) Tcl_GetHashValue(entryPtr);
}
/*
*----------------------------------------------------------------------
*
* Tcl_FreeFile --
*
* Deallocates an entry in the file handle table.
*
* Results:
* None.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
void
Tcl_FreeFile(handle)
Tcl_File handle;
{
Tcl_HashEntry *entryPtr;
FileHandle *handlePtr = (FileHandle *) handle;
/*
* Invoke free procedure, then delete the handle.
*/
if (handlePtr->proc) {
(*handlePtr->proc)(handlePtr->data);
}
entryPtr = Tcl_FindHashEntry(&fileTable, (char *) &handlePtr->key);
if (entryPtr) {
Tcl_DeleteHashEntry(entryPtr);
ckfree((char *) handlePtr);
}
}
/*
*----------------------------------------------------------------------
*
* Tcl_GetFileInfo --
*
* This function retrieves the platform specific file data and
* type from the file handle.
*
* Results:
* If typePtr is not NULL, sets *typePtr to the type of the file.
* Returns the platform specific file data.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
ClientData
Tcl_GetFileInfo(handle, typePtr)
Tcl_File handle;
int *typePtr;
{
FileHandle *handlePtr = (FileHandle *) handle;
if (typePtr) {
*typePtr = handlePtr->key.type;
}
return handlePtr->key.osHandle;
}
/*
*----------------------------------------------------------------------
*
* Tcl_SetNotifierData --
*
* This function is used by the notifier to associate platform
* specific notifier information and a deletion procedure with
* a file handle.
*
* Results:
* None.
*
* Side effects:
* Updates the data and delProc slots in the file handle.
*
*----------------------------------------------------------------------
*/
void
Tcl_SetNotifierData(handle, proc, data)
Tcl_File handle;
Tcl_FileFreeProc *proc;
ClientData data;
{
FileHandle *handlePtr = (FileHandle *) handle;
handlePtr->proc = proc;
handlePtr->data = data;
}
/*
*----------------------------------------------------------------------
*
* Tcl_GetNotifierData --
*
* This function is used by the notifier to retrieve the platform
* specific notifier information associated with a file handle.
*
* Results:
* Returns the data stored in a file handle by a previous call to
* Tcl_SetNotifierData, and places a pointer to the free proc
* in the location referred to by procPtr.
*
* Side effects:
* None.
*
*----------------------------------------------------------------------
*/
ClientData
Tcl_GetNotifierData(handle, procPtr)
Tcl_File handle;
Tcl_FileFreeProc **procPtr;
{
FileHandle *handlePtr = (FileHandle *) handle;
if (procPtr != NULL) {
*procPtr = handlePtr->proc;
}
return handlePtr->data;
}
/*
*----------------------------------------------------------------------
*
* FileExitProc --
*
* This function an exit handler that frees any memory allocated
* for the file handle table.
*
* Results:
* None.
*
* Side effects:
* Cleans up the file handle table.
*
*----------------------------------------------------------------------
*/
static void
FileExitProc(clientData)
ClientData clientData; /* Not used. */
{
Tcl_HashSearch search;
Tcl_HashEntry *entryPtr;
entryPtr = Tcl_FirstHashEntry(&fileTable, &search);
while (entryPtr) {
ckfree(Tcl_GetHashValue(entryPtr));
entryPtr = Tcl_NextHashEntry(&search);
}
Tcl_DeleteHashTable(&fileTable);
}
|
