/*
 * 5799-WZQ (C) COPYRIGHT = NONE
 * LICENSED MATERIALS - PROPERTY OF IBM
 */
/* $Header:telldir.c 12.0$ */
/* $ACIS:telldir.c 12.0$ */
/* $Source: /ibm/acis/usr/src/usr.lib/sendmail/lib/libndir/RCS/telldir.c,v $ */

#ifndef lint
static char *rcsid = "$Header:telldir.c 12.0$";
#endif

/* Copyright (c) 1982 Regents of the University of California */

static char sccsid[] = "@(#)telldir.c 4.1 2/21/82";

#include <sys/types.h>
#include <dir.h>

/*
 * return a pointer into a directory
 */
long
telldir(dirp)
	DIR *dirp;
{
	return (lseek(dirp->dd_fd, 0L, 1) - dirp->dd_size + dirp->dd_loc);
}
