/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

#include        <stdio.h>
#include        <stdlib.h>
#include        <signal.h>
#include        <string.h>
#include        <unistd.h>
#include        <errno.h>
#include        <sys/mnttab.h>
#include        <sys/mount.h>
#include        <sys/types.h>
#include        <locale.h>
#include        <fslib.h>

#define NAME_MAX        64      /* sizeof "fstype myname" */

#define FSTYPE          "fd"

static char  optbuf[MAX_MNTOPT_STR] = { '\0', };
static int   optsize = 0;

static int      flags = 0;
static int      mflg = 0;
static int      qflg = 0;

static char     typename[NAME_MAX], *myname;
static char     fstype[] = FSTYPE;

static void usage(void);
static void do_mount(char *, char *, int);

int
main(int argc, char **argv)
{
        char    *special, *mountp;
        int     errflag = 0;
        int     cc;

        (void) setlocale(LC_ALL, "");

#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN "SYS_TEST"
#endif
        (void) textdomain(TEXT_DOMAIN);

        myname = strrchr(argv[0], '/');
        if (myname)
                myname++;
        else
                myname = argv[0];
        (void) snprintf(typename, sizeof (typename), "%s %s", fstype, myname);
        argv[0] = typename;

        /*
         *      check for proper arguments
         */

        while ((cc = getopt(argc, argv, "o:rmOq")) != -1)
                switch (cc) {
                case 'r':
                        if (flags & MS_RDONLY)
                                errflag = 1;
                        else
                                flags |= MS_RDONLY;
                        break;
                case 'O':
                        flags |= MS_OVERLAY;
                        break;
                case 'q':
                        qflg = 1;
                        break;
                case 'm':
                        mflg++;
                        break;
                case 'o':
                        if (strlcpy(optbuf, optarg, sizeof (optbuf)) >=
                            sizeof (optbuf)) {
                                (void) fprintf(stderr,
                                    gettext("%s: Invalid argument: %s\n"),
                                    myname, optarg);
                                return (2);
                        }
                        optsize = strlen(optbuf);
                        break;
                default:
                case '?':
                        errflag = 1;
                        break;
                }

        /*
         *      There must be at least 2 more arguments, the
         *      special file and the directory.
         */

        if (((argc - optind) != 2) || (errflag))
                usage();

        special = argv[optind++];
        mountp = argv[optind++];

        /*
         *      Perform the mount.
         *      Only the low-order bit of "flags" is used by the system
         *      calls (to denote read-only or read-write).
         */
        if (mflg)
                flags |= MS_NOMNTTAB;
        do_mount(special, mountp, flags);
        exit(0);
        /* NOTREACHED */
}

static void
rpterr(char *bs, char *mp)
{
        switch (errno) {
        case EPERM:
                (void) fprintf(stderr,
                    gettext("%s: insufficient privileges\n"), myname);
                break;
        case ENXIO:
                (void) fprintf(stderr,
                        gettext("%s: %s no such device\n"), myname, bs);
                break;
        case ENOTDIR:
                (void) fprintf(stderr,
                    gettext("%s: %s not a directory\n"
                    "\tor a component of %s is not a directory\n"),
                        myname, mp, bs);
                break;
        case ENOENT:
                (void) fprintf(stderr,
                        gettext("%s: %s or %s, no such file or directory\n"),
                        myname, bs, mp);
                break;
        case EINVAL:
                (void) fprintf(stderr, gettext("%s: %s is not this fstype.\n"),
                        myname, bs);
                break;
        case EBUSY:
                (void) fprintf(stderr,
                        gettext("%s: %s is already mounted or %s is busy\n"),
                        myname, bs, mp);
                break;
        case ENOTBLK:
                (void) fprintf(stderr, gettext("%s: %s not a block device\n"),
                        myname, bs);
                break;
        case EROFS:
                (void) fprintf(stderr,
                        gettext("%s: %s write-protected\n"), myname, bs);
                break;
        case ENOSPC:
                (void) fprintf(stderr,
                        gettext("%s: the state of %s is not okay\n"
                            "\tand it was attempted to mount read/write\n"),
                        myname, bs);
                break;
        default:
                perror(myname);
                (void) fprintf(stderr, gettext("%s: cannot mount %s\n"),
                    myname, bs);
        }
}


static void
do_mount(char *special, char *mountp, int rflag)
{
        char *savedoptbuf;

        if ((savedoptbuf = strdup(optbuf)) == NULL) {
                (void) fprintf(stderr, gettext("%s: out of memory\n"),
                    myname);
                exit(2);
        }
        if (mount(special, mountp, rflag | MS_OPTIONSTR,
                fstype, NULL, 0, optbuf, MAX_MNTOPT_STR)) {
                rpterr(special, mountp);
                exit(2);
        }
        if (optsize && !qflg)
                cmp_requested_to_actual_options(savedoptbuf, optbuf,
                    special, mountp);
}


static void
usage(void)
{
        (void) fprintf(stderr,
                gettext("Usage: %s [-rmOq] [-o specific_options]"
                " special mount_point\n"), myname);
        exit(1);
}