xref: /csrg-svn/usr.bin/f77/libU77/getuid_.c (revision 23026)
12527Sdlw /*
2*23026Skre  * Copyright (c) 1980 Regents of the University of California.
3*23026Skre  * All rights reserved.  The Berkeley software License Agreement
4*23026Skre  * specifies the terms and conditions for redistribution.
52527Sdlw  *
6*23026Skre  *	@(#)getuid_.c	5.1	06/07/85
7*23026Skre  */
8*23026Skre 
9*23026Skre /*
102527Sdlw  * get user id
112527Sdlw  *
122527Sdlw  * calling sequence:
132527Sdlw  *	integer getuid, uid
142527Sdlw  *	uid = getuid()
152527Sdlw  * where:
162527Sdlw  *	uid will be the real user id
172527Sdlw  */
182527Sdlw 
192527Sdlw long getuid_()
202527Sdlw {
212527Sdlw 	return((long)getuid());
222527Sdlw }
23