ack/lang/cem/libcc/gen/telldir.c

17 lines
271 B
C
Raw Permalink Normal View History

1994-06-24 14:02:31 +00:00
/* $Id$ */
1987-01-27 15:57:55 +00:00
#include <sys/types.h>
#include <sys/dir.h>
/*
* return a pointer into a directory
*/
long telldir(dirp)
DIR *dirp;
{
extern long lseek();
if (dirp->dd_fd >= 0)
return (lseek(dirp->dd_fd, 0L, 1) - dirp->dd_size + dirp->dd_loc);
return dirp->dd_loc;
1987-01-27 15:57:55 +00:00
}