xref: /csrg-svn/usr.bin/f77/libU77/getuid_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42527Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623026Skre  */
723026Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)getuid_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223026Skre /*
132527Sdlw  * get user id
142527Sdlw  *
152527Sdlw  * calling sequence:
162527Sdlw  *	integer getuid, uid
172527Sdlw  *	uid = getuid()
182527Sdlw  * where:
192527Sdlw  *	uid will be the real user id
202527Sdlw  */
212527Sdlw 
getuid_()222527Sdlw long getuid_()
232527Sdlw {
242527Sdlw 	return((long)getuid());
252527Sdlw }
26