added LIBC_SCCS condition for sccs ids
[unix-history] / usr / src / lib / libc / gen / telldir.c
/*
* Copyright (c) 1983 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)telldir.c 5.2 (Berkeley) %G%";
#endif LIBC_SCCS and not lint
#include <sys/param.h>
#include <sys/dir.h>
/*
* return a pointer into a directory
*/
long
telldir(dirp)
DIR *dirp;
{
extern long lseek();
return (lseek(dirp->dd_fd, 0L, 1) - dirp->dd_size + dirp->dd_loc);
}