Mercurial > hg > octave-nkf

comparison src/syscalls.cc @ 2473:bb0c213e5885

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-11-06 04:34:55 by jwe]
author jwe
date Wed, 06 Nov 1996 04:35:48 +0000
parents 0c788e9b53b8
children 1d7925d6bede
comparison
equal deleted inserted replaced
2472:0c788e9b53b8 2473:bb0c213e5885
307 #endif 307 #endif
308 308
309 return retval; 309 return retval;
310 } 310 }
311 311
312 DEFUN (geteuid, , , 312 DEFUN (geteuid, args, ,
313 "uid = geteuid (): return the effective user id of the current process") 313 "uid = geteuid (): return the effective user id of the current process")
314 { 314 {
315 double retval = -1.0; 315 double retval = -1.0;
316 316
317 #if defined (HAVE_GETEUID) 317 #if defined (HAVE_GETEUID)
322 else 322 else
323 print_usage ("geteuid"); 323 print_usage ("geteuid");
324 #else 324 #else
325 gripe_not_supported ("geteuid"); 325 gripe_not_supported ("geteuid");
326 #endif 326 #endif
327 } 327
328 328 return retval;
329 DEFUN (getuid, , , 329 }
330
331 DEFUN (getuid, args, ,
330 "uid = getuid (): return the real user id of the current process") 332 "uid = getuid (): return the real user id of the current process")
331 { 333 {
332 double retval = -1.0; 334 double retval = -1.0;
333 335
334 #if defined (HAVE_GETUID) 336 #if defined (HAVE_GETUID)
339 else 341 else
340 print_usage ("getuid"); 342 print_usage ("getuid");
341 #else 343 #else
342 gripe_not_supported ("getuid"); 344 gripe_not_supported ("getuid");
343 #endif 345 #endif
346
347 return retval;
344 } 348 }
345 349
346 DEFUN (lstat, args, , 350 DEFUN (lstat, args, ,
347 "[S, ERR, MSG] = lstat (NAME)\n\ 351 "[S, ERR, MSG] = lstat (NAME)\n\
348 \n\ 352 \n\