/*      $NetBSD: getoldopt.c,v 1.24 2024/10/03 20:14:01 rillig Exp $    */

/*
 * Plug-compatible replacement for getopt() for parsing tar-like
 * arguments.  If the first argument begins with "-", it uses getopt;
 * otherwise, it uses the old rules used by tar, dump, and ps.
 *
 * Written 25 August 1985 by John Gilmore (ihnp4!hoptoad!gnu) and placed
 * in the Public Domain for your edification and enjoyment.
 */

#if HAVE_NBTOOL_CONFIG_H
#include "nbtool_config.h"
#endif

#include <sys/cdefs.h>
#if !defined(lint)
__RCSID("$NetBSD: getoldopt.c,v 1.24 2024/10/03 20:14:01 rillig Exp $");
#endif /* not lint */

#if HAVE_NBTOOL_CONFIG_H
#include "compat_getopt.h"
#else
#include <getopt.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <unistd.h>
#include <stdint.h>
#include <sys/stat.h>
#include "pax.h"
#include "extern.h"

int
getoldopt(int argc, char **argv, const char *optstring,
        struct option *longopts, int *idx)
{
        static char     *key;           /* Points to next keyletter */
        static char     use_getopt;     /* !=0 if argv[1][0] was '-' */
        char            c;
        const char      *place;

        optarg = NULL;

        if (key == NULL) {              /* First time */
                if (argc < 2) return -1;
                key = argv[1];
                if (*key == '-')
                        use_getopt++;
                else
                        optind = 2;
        }

        c = '\0';
        if (!use_getopt) {
                c = *key++;
                if (c == '\0') {
                        key--;
                        use_getopt = 1;
                }
        }
        if (use_getopt) {
                if (longopts != NULL) {
                        return getopt_long(argc, argv, optstring,
                            longopts, idx);
                } else {
                        return getopt(argc, argv, optstring);
                }
        }

        place = strchr(optstring, c);

        if (place == NULL || c == ':') {
                fprintf(stderr, "%s: unknown option %c\n", argv[0], c);
                return '?';
        }

        place++;
        if (*place == ':') {
                if (optind < argc) {
                        optarg = argv[optind];
                        optind++;
                } else {
                        fprintf(stderr, "%s: %c argument missing\n",
                                argv[0], c);
                        return '?';
                }
        }

        return c;
}