/*      $NetBSD: newfs_msdos.c,v 1.47 2026/05/03 17:49:58 kre Exp $     */

/*
 * Copyright (c) 1998 Robert Nordier
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS
 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
 * GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
 * IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
 * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/cdefs.h>
#ifndef lint
#if 0
static const char rcsid[] =
  "$FreeBSD: src/sbin/newfs_msdos/newfs_msdos.c,v 1.15 2000/10/10 01:49:37 wollman Exp $";
#else
__RCSID("$NetBSD: newfs_msdos.c,v 1.47 2026/05/03 17:49:58 kre Exp $");
#endif
#endif /* not lint */

#include <sys/param.h>
#include <sys/stat.h>
#include <stdio.h>
#include <string.h>
#include <err.h>
#include <stdlib.h>
#include <unistd.h>
#include <paths.h>
#include <fcntl.h>
#include <errno.h>
#include <util.h>

#include "mkfs_msdos.h"
#include "partutil.h"

#define argto1(arg, lo, msg)  argtou(arg, lo, 0xff, msg)
#define argto2(arg, lo, msg)  argtou(arg, lo, 0xffff, msg)
#define argto4(arg, lo, msg)  argtou(arg, lo, 0xffffffff, msg)
#define argtox(arg, lo, msg)  argtou(arg, lo, UINT_MAX, msg)

__dead static void usage(void);
static u_int argtou(const char *, u_int, u_int, const char *);
static off_t argtooff(const char *, const char *);

static time_t
get_tstamp(const char *b)
{
        struct stat st;
        char *eb;
        long long l;
#ifndef HAVE_NBTOOL_CONFIG_H
        time_t when;
#endif

        if (stat(b, &st) != -1)
                return (time_t)st.st_mtime;

#ifndef HAVE_NBTOOL_CONFIG_H
        errno = 0;
        if ((when = parsedate(b, NULL, NULL)) != -1 || errno == 0)
                return when;
#endif
        errno = 0;
        l = strtoll(b, &eb, 0);
        if (b == eb || *eb || errno)
                errx(EXIT_FAILURE, "Can't parse timestamp `%s'", b);
        return (time_t)l;
}

/*
 * Construct a FAT12, FAT16, or FAT32 file system.
 */
int
main(int argc, char *argv[])
{
    static const char opts[] = "@:NB:C:F:I:L:O:S:a:b:c:e:f:h:i:k:m:n:o:r:s:T:u:";
    struct msdos_options o;
    const char *fname, *dtype;
    char device[MAXPATHLEN];
    int ch;

    memset(&o, 0, sizeof(o));

    while ((ch = getopt(argc, argv, opts)) != -1)
        switch (ch) {
        case '@':
            o.offset = argtooff(optarg, "offset");
            break;
        case 'N':
            o.no_create = 1;
            break;
        case 'B':
            o.bootstrap = optarg;
            break;
        case 'C':
            o.create_size = argtooff(optarg, "create size");
            break;
        case 'F':
            o.fat_type = atoi(optarg);
            break;
        case 'I':
            o.volume_id = argto4(optarg, 0, "volume ID");
            o.volume_id_set = 1;
            break;
        case 'L':
            o.volume_label = optarg;
            break;
        case 'O':
            o.OEM_string = optarg;
            break;
        case 'S':
            o.bytes_per_sector = argto2(optarg, 1, "bytes/sector");
            break;
        case 'a':
            o.sectors_per_fat = argto4(optarg, 1, "sectors/FAT");
            break;
        case 'b':
            o.block_size = argtox(optarg, 1, "block size");
            break;
        case 'c':
            o.sectors_per_cluster = argto1(optarg, 1, "sectors/cluster");
            break;
        case 'e':
            o.directory_entries = argto2(optarg, 1, "directory entries");
            break;
        case 'f':
            o.floppy = optarg;
            break;
        case 'h':
            o.drive_heads = argto2(optarg, 1, "drive heads");
            break;
        case 'i':
            o.info_sector = argto2(optarg, 1, "info sector");
            break;
        case 'k':
            o.backup_sector = argto2(optarg, 1, "backup sector");
            break;
        case 'm':
            o.media_descriptor = argto1(optarg, 0, "media descriptor");
            o.media_descriptor_set = 1;
            break;
        case 'n':
            o.num_FAT = argto1(optarg, 1, "number of FATs");
            break;
        case 'o':
            o.hidden_sectors = argto4(optarg, 0, "hidden sectors");
            o.hidden_sectors_set = 1;
            break;
        case 'r':
            o.reserved_sectors = argto2(optarg, 1, "reserved sectors");
            break;
        case 's':
            o.size = argto4(optarg, 1, "file system size");
            break;
        case 'T':
            o.timestamp_set = 1;
            o.timestamp = get_tstamp(optarg);
            break;
        case 'u':
            o.sectors_per_track = argto2(optarg, 1, "sectors/track");
            break;
        default:
            usage();
        }
    argc -= optind;
    argv += optind;
    if (argc < 1 || argc > 2)
        usage();
    fname = findspecial(*argv, 0);
    if (fname == NULL)
        fname = *argv;
    if (strchr(fname, '/') == NULL && o.create_size == 0) {
        snprintf(device, sizeof(device), "%sr%s", _PATH_DEV, fname);
        if ((fname = strdup(device)) == NULL)
            err(1, NULL);
    }
    dtype = *++argv;
    return mkfs_msdos(fname, dtype, &o);
}

/*
 * Convert and check a numeric option argument.
 */
static u_int
argtou(const char *arg, u_int lo, u_int hi, const char *msg)
{
    off_t x;

    errno = 0;
    x = argtooff(arg, msg);
    if (x < lo || x > hi)
        errx(1, "%s: bad %s", arg, msg);
    return (u_int)x;
}

/*
 * Same for off_t, with optional skmgpP suffix
 */
static off_t
argtooff(const char *arg, const char *msg)
{
    char *s;
    off_t x;

    errno = 0;
    x = strtoll(arg, &s, 0);
    /* allow at most one extra char */
    if (errno || x < 0 || (s[0] && s[1]) )
        errx(1, "%s: bad %s", arg, msg);
    if (*s) {   /* the extra char is the multiplier */
        switch (*s) {
        default:
            errx(1, "%s: bad %s", arg, msg);
            /* notreached */
        
        case 's':       /* sector */
        case 'S':
            x <<= 9;    /* times 512 */
            break;

        case 'k':       /* kilobyte */
        case 'K':
            x <<= 10;   /* times 1024 */
            break;

        case 'm':       /* megabyte */
        case 'M':
            x <<= 20;   /* times 1024*1024 */
            break;

        case 'g':       /* gigabyte */
        case 'G':
            x <<= 30;   /* times 1024*1024*1024 */
            break;

        case 'p':       /* partition start */
        case 'P':       /* partition start */
        case 'l':       /* partition length */
        case 'L':       /* partition length */
            errx(1, "%s: not supported yet %s", arg, msg);
            /* notreached */
        }
    }
    return x;
}

/*
 * Print usage message.
 */
static void
usage(void)
{
    fprintf(stderr,
            "usage: %s [ -options ] special [disktype]\n", getprogname());
    fprintf(stderr, "where the options are:\n");
static struct {
        char o;
        const char *h;
} opts[] = {
#define AOPT(_opt, _type, _name, _min, _desc) { _opt, _desc },
ALLOPTS
#undef AOPT
};
    for (size_t i = 0; i < __arraycount(opts); i++)
        fprintf(stderr, "\t-%c %s\n", opts[i].o, opts[i].h); 
    exit(1);
}