/* See LICENSE file for copyright and license details. */
#include <mntent.h>
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include "util.h"

static void
usage(void)
{
	eprintf("usage: %s [-dqx] target\n", argv0);
}

int
main(int argc, char *argv[])
{
	int qflag = 0, dflag = 0, xflag = 0;
	struct mntent *me = NULL;
	FILE *fp;
	int ret = 0;
	struct stat st1, st2;

	ARGBEGIN {
	case 'q':
		qflag = 1;
		break;
	case 'd':
		dflag = 1;
		break;
	case 'x':
		xflag = 1;
		break;
	default:
		usage();
	} ARGEND;

	if (argc < 1)
		usage();

	if (stat(argv[0], &st1) < 0)
		eprintf("stat %s:", argv[0]);

	if (xflag) {
		if (!S_ISBLK(st1.st_mode))
			eprintf("stat: %s: not a block device\n",
				argv[0]);
		printf("%u:%u\n", major(st1.st_rdev),
		       minor(st1.st_rdev));
		return EXIT_SUCCESS;
	}

	if (!S_ISDIR(st1.st_mode))
		eprintf("stat %s: not a directory\n", argv[0]);

	if (dflag) {
		printf("%u:%u\n", major(st1.st_dev),
		       minor(st1.st_dev));
		return EXIT_SUCCESS;
	}

	fp = setmntent("/proc/mounts", "r");
	if (!fp)
		eprintf("setmntent %s:", "/proc/mounts");
	while ((me = getmntent(fp)) != NULL) {
		if (stat(me->mnt_dir, &st2) < 0)
			eprintf("stat %s:", me->mnt_dir);
		if (st1.st_dev == st2.st_dev &&
		    st1.st_ino == st2.st_ino)
			break;
	}
	endmntent(fp);

	if (me == NULL)
		ret = 1;

	if (!qflag)
		printf("%s %s a mountpoint\n", argv[0],
		       !ret ? "is" : "is not");

	return ret;
}