Fixed some embarassing errors
[reactos.git] / posix / lib / psxdll / fcntl / fcntl.c
1 /* $Id: fcntl.c,v 1.5 2002/05/17 01:54:39 hyperion Exp $
2 */
3 /*
4 * COPYRIGHT: See COPYING in the top level directory
5 * PROJECT: ReactOS POSIX+ Subsystem
6 * FILE: subsys/psx/lib/psxdll/fcntl/fcntl.c
7 * PURPOSE: File control
8 * PROGRAMMER: KJK::Hyperion <noog@libero.it>
9 * UPDATE HISTORY:
10 * 13/02/2002: Created
11 * 15/02/2002: Implemented fcntl() (KJK::Hyperion)
12 */
13
14 #include <ddk/ntddk.h>
15 #include <sys/types.h>
16 #include <unistd.h>
17 #include <fcntl.h>
18 #include <string.h>
19 #include <stdarg.h>
20 #include <psx/errno.h>
21 #include <psx/stdlib.h>
22 #include <psx/fdtable.h>
23 #include <psx/pdata.h>
24 #include <psx/debug.h>
25
26 int fcntl(int fildes, int cmd, ...)
27 {
28 __fdtable_t *pftFdTable;
29 __fildes_t *pfdDescriptor;
30 NTSTATUS nErrCode;
31 int nRetVal;
32 int nThirdArg;
33 void *pThirdArg;
34 va_list vlArgs;
35
36 /* lock the environment */
37 __PdxAcquirePdataLock();
38 INFO("environment locked");
39
40 /* get the file descriptors table */
41 pftFdTable = &__PdxGetProcessData()->FdTable;
42 INFO("file descriptors table at 0x%08X", pftFdTable);
43
44 /* fildes is an invalid descriptor, or it's a closed or uninitialized
45 descriptor and the requested operation is not the creation of a new
46 descriptor */
47 if
48 (
49 fildes < 0 ||
50 fildes >= OPEN_MAX ||
51 (
52 (cmd != F_NEWFD) &&
53 (
54 __fdtable_entry_isavail(pftFdTable, fildes) == 0 ||
55 __fdtable_entry_get(pftFdTable, fildes) == 0
56 )
57 )
58 )
59 {
60 INFO("invalid file descriptor");
61 errno = EBADF;
62 __PdxReleasePdataLock();
63 return (-1);
64 }
65
66 /* get the file descriptor referenced by fildes */
67 pfdDescriptor = __fdtable_entry_get(pftFdTable, fildes);
68 INFO("file descriptor %d at 0x%08X", fildes, pftFdTable);
69
70 /* get third argument as integer */
71 va_start(vlArgs, cmd);
72 nThirdArg = va_arg(vlArgs, int);
73 va_end(vlArgs);
74
75 /* get third argument as pointer */
76 va_start(vlArgs, cmd);
77 pThirdArg = va_arg(vlArgs, void *);
78 va_end(vlArgs);
79
80 /* initialize return value */
81 nRetVal = -1;
82
83 switch(cmd)
84 {
85 case F_DUPFD:
86 {
87 int nDupFileNo;
88 __fildes_t *pfdDupDescriptor;
89
90 INFO("requested operation: F_DUPFD");
91
92 /* allocate the duplicated descriptor */
93 nDupFileNo = __fdtable_entry_add(pftFdTable, nThirdArg, 0, &pfdDupDescriptor);
94
95 if(nDupFileNo)
96 {
97 ERR("__fdtable_entry_add() failed, errno %d", errno);
98 break;
99 }
100
101 /* copy the open flags */
102 pfdDupDescriptor->OpenFlags = pfdDescriptor->OpenFlags;
103
104 /* clear the FD_CLOEXEC flag */
105 pfdDupDescriptor->FdFlags = pfdDescriptor->FdFlags & ~FD_CLOEXEC;
106
107 /* duplicate the extra data */
108 if(pfdDescriptor->ExtraDataSize != 0 && pfdDescriptor->ExtraData != 0)
109 {
110 /* allocate space for the duplicated extra data */
111 pfdDupDescriptor->ExtraDataSize = pfdDescriptor->ExtraDataSize;
112 pfdDupDescriptor->ExtraData = __malloc(pfdDupDescriptor->ExtraDataSize);
113
114 /* failure */
115 if(pfdDupDescriptor->ExtraData == 0)
116 {
117 errno = ENOMEM;
118 break;
119 }
120
121 /* copy the extra data */
122 memcpy(pfdDupDescriptor->ExtraData, pfdDescriptor->ExtraData, pfdDupDescriptor->ExtraDataSize);
123 INFO
124 (
125 "copied %u bytes from 0x%08X into 0x%08X",
126 pfdDupDescriptor->ExtraDataSize,
127 pfdDescriptor->ExtraData,
128 pfdDupDescriptor->ExtraData
129 );
130 }
131
132 /* duplicate the handle */
133 nErrCode = NtDuplicateObject
134 (
135 NtCurrentProcess(),
136 pfdDescriptor->FileHandle,
137 NtCurrentProcess(),
138 &pfdDupDescriptor->FileHandle,
139 0,
140 0,
141 DUPLICATE_SAME_ACCESS /* | DUPLICATE_SAME_ATTRIBUTES */
142 );
143
144 /* failure */
145 if(!NT_SUCCESS(nErrCode))
146 {
147 __free(pfdDupDescriptor->ExtraData);
148 errno = __status_to_errno(nErrCode);
149 break;
150 }
151
152 INFO
153 (
154 "duplicated handle 0x%08X into handle 0x%08X",
155 pfdDescriptor->FileHandle,
156 pfdDupDescriptor->FileHandle
157 );
158
159 /* return the duplicated file number */
160 nRetVal = nDupFileNo;
161 break;
162 }
163
164 case F_GETFD:
165 {
166 INFO("requested operation: F_GETFD");
167 nRetVal = pfdDescriptor->FdFlags;
168 break;
169 }
170
171 case F_SETFD:
172 {
173 INFO("requested operation: F_SETFD");
174 pfdDescriptor->FdFlags = nThirdArg;
175 nRetVal = 0;
176 break;
177 }
178
179 case F_GETFL:
180 {
181 INFO("requested operation: F_GETFL");
182 nRetVal = pfdDescriptor->OpenFlags;
183 break;
184 }
185
186 case F_SETFL:
187 {
188 INFO("requested operation: F_SETFL");
189 pfdDescriptor->OpenFlags = nThirdArg;
190 nRetVal = 0;
191 break;
192 }
193
194 case F_GETLK:
195 {
196 INFO("requested operation: F_GETLK");
197 errno = EINVAL;
198 break;
199 }
200
201 case F_SETLK:
202 {
203 INFO("requested operation: F_SETLK");
204 errno = EINVAL;
205 break;
206 }
207
208 case F_SETLKW:
209 {
210 INFO("requested operation: F_SETLKW");
211 errno = EINVAL;
212 break;
213 }
214
215 case F_NEWFD:
216 {
217 INFO("requested operation: F_NEWFD");
218 /* allocate a new descriptor */
219 nRetVal = __fdtable_entry_add(pftFdTable, fildes, (__fildes_t *)pThirdArg, 0);
220 break;
221 }
222
223 case F_DELFD:
224 {
225 INFO("requested operation: F_DELFD");
226 /* invalid return pointer */
227 if(pThirdArg == 0)
228 {
229 errno = EINVAL;
230 break;
231 }
232
233 memcpy((__fildes_t *)pThirdArg, pfdDescriptor, sizeof(*pfdDescriptor));
234
235 /* remove file descriptor */
236 nRetVal = __fdtable_entry_remove(pftFdTable, fildes);
237
238 }
239
240 case F_GETALL:
241 {
242 INFO("requested operation: F_GETALL");
243 /* invalid return pointer */
244 if(pThirdArg == 0)
245 {
246 errno = EINVAL;
247 break;
248 }
249
250 /* return a copy of the file descriptor */
251 memcpy((__fildes_t *)pThirdArg, pfdDescriptor, sizeof(*pfdDescriptor));
252 nRetVal = 0;
253
254 break;
255 }
256
257 case F_SETALL:
258 {
259 INFO("requested operation: F_SETALL");
260 /* invalid file descriptor to copy attributes from */
261 if(pThirdArg == 0)
262 {
263 errno = EINVAL;
264 break;
265 }
266
267 /* copy the attributes of file descriptor from the provided descriptor */
268 memcpy(pfdDescriptor, pThirdArg, sizeof(*pfdDescriptor));
269 nRetVal = 0;
270
271 break;
272 }
273
274 case F_GETXP:
275 {
276 INFO("requested operation: F_GETXP");
277 /* invalid return pointer */
278 if(pThirdArg == 0)
279 {
280 errno = EINVAL;
281 break;
282 }
283
284 /* return a pointer to the extra data associated to the descriptor */
285 *((void **)pThirdArg) = pfdDescriptor->ExtraData;
286 nRetVal = 0;
287
288 break;
289 }
290
291 case F_SETXP:
292 {
293 INFO("requested operation: F_SETXP");
294 /* set the pointer to the extra data associated */
295 pfdDescriptor->ExtraData = pThirdArg;
296 nRetVal = 0;
297 break;
298 }
299
300 case F_GETXS:
301 {
302 INFO("requested operation: F_GETXS");
303 nRetVal = pfdDescriptor->ExtraDataSize;
304 break;
305 }
306
307 case F_SETXS:
308 {
309 INFO("requested operation: F_SETXS");
310 pfdDescriptor->ExtraDataSize = nThirdArg;
311 nRetVal = 0;
312 break;
313 }
314
315 case F_GETFH:
316 {
317 INFO("requested operation: F_GETFH");
318 /* invalid return pointer */
319 if(pThirdArg == 0)
320 {
321 errno = EINVAL;
322 break;
323 }
324
325 /* return the handle associated to the descriptor */
326 *((void **)pThirdArg) = pfdDescriptor->FileHandle;
327 nRetVal = 0;
328 break;
329 }
330
331 case F_SETFH:
332 {
333 INFO("requested operation: F_SETFH");
334 pfdDescriptor->FileHandle = pThirdArg;
335 nRetVal = 0;
336 break;
337 }
338
339 default:
340 INFO("invalid operation requested");
341 errno = EINVAL;
342 }
343
344 /* unlock the environment */
345 __PdxReleasePdataLock();
346 INFO("environment unlocked");
347
348 return (nRetVal);
349 }
350
351 /* EOF */