xref: /csrg-svn/usr.bin/f77/libU77/time_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42517Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623051Skre  */
723051Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)time_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223051Skre /*
132517Sdlw  * return the current time as an integer
142517Sdlw  *
152517Sdlw  * calling sequence:
162517Sdlw  *	integer time
172517Sdlw  *	i = time()
182517Sdlw  * where:
192517Sdlw  *	i will receive the current GMT in seconds.
202517Sdlw  */
212517Sdlw 
222517Sdlw long time();
232517Sdlw 
time_()242517Sdlw long time_()
252517Sdlw {
262517Sdlw 	return(time(0));
272517Sdlw }
28