xref: /csrg-svn/usr.bin/f77/libU77/getuid_.c (revision 2527)
1*2527Sdlw /*
2*2527Sdlw char id_getuid[] = "@(#)getuid_.c	1.1";
3*2527Sdlw  *
4*2527Sdlw  * get user id
5*2527Sdlw  *
6*2527Sdlw  * calling sequence:
7*2527Sdlw  *	integer getuid, uid
8*2527Sdlw  *	uid = getuid()
9*2527Sdlw  * where:
10*2527Sdlw  *	uid will be the real user id
11*2527Sdlw  */
12*2527Sdlw 
13*2527Sdlw long getuid_()
14*2527Sdlw {
15*2527Sdlw 	return((long)getuid());
16*2527Sdlw }
17