Mercurial > hg > octave-lyh
comparison src/syscalls.cc @ 2472:0c788e9b53b8
[project @ 1996-11-06 04:10:07 by jwe]
author | jwe |
---|---|
date | Wed, 06 Nov 1996 04:12:18 +0000 |
parents | 5be3f6f5986a |
children | bb0c213e5885 |
comparison
equal
deleted
inserted
replaced
2471:7f99808d467d | 2472:0c788e9b53b8 |
---|---|
307 #endif | 307 #endif |
308 | 308 |
309 return retval; | 309 return retval; |
310 } | 310 } |
311 | 311 |
312 DEFUN (geteuid, , , | |
313 "uid = geteuid (): return the effective user id of the current process") | |
314 { | |
315 double retval = -1.0; | |
316 | |
317 #if defined (HAVE_GETEUID) | |
318 int nargin = args.length (); | |
319 | |
320 if (nargin == 0) | |
321 retval = geteuid (); | |
322 else | |
323 print_usage ("geteuid"); | |
324 #else | |
325 gripe_not_supported ("geteuid"); | |
326 #endif | |
327 } | |
328 | |
329 DEFUN (getuid, , , | |
330 "uid = getuid (): return the real user id of the current process") | |
331 { | |
332 double retval = -1.0; | |
333 | |
334 #if defined (HAVE_GETUID) | |
335 int nargin = args.length (); | |
336 | |
337 if (nargin == 0) | |
338 retval = getuid (); | |
339 else | |
340 print_usage ("getuid"); | |
341 #else | |
342 gripe_not_supported ("getuid"); | |
343 #endif | |
344 } | |
345 | |
312 DEFUN (lstat, args, , | 346 DEFUN (lstat, args, , |
313 "[S, ERR, MSG] = lstat (NAME)\n\ | 347 "[S, ERR, MSG] = lstat (NAME)\n\ |
314 \n\ | 348 \n\ |
315 Like [S, ERR, MSG] = stat (NAME), but if NAME refers to a symbolic\n\ | 349 Like [S, ERR, MSG] = stat (NAME), but if NAME refers to a symbolic\n\ |
316 link, returns information about the link itself, not the file that it\n\ | 350 link, returns information about the link itself, not the file that it\n\ |