/*
 * 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 (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */


/*
 * Copyright (c) 1997-2000 by Sun Microsystems, Inc.
 * All rights reserved.
 */

/*LINTLIBRARY*/

#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <note.h>
#include "libadm.h"

static char     *rsvrd[] = {
        "all",
        "install",
        "new",
        NULL
};

#define NMBRK   ".*"
#define WILD1   ".*"
#define WILD2   "*"
#define ABI_NAMELNGTH           9
#define NON_ABI_NAMELNGTH       32

static int abi_namelngth = 0;

static int
valname(char *pkg, int wild)
{
        int     count, i, n;
        char    *pt;

        /* wild == 1    allow wildcard specification as a name */
        if (wild && (strcmp(pkg, "all") == 0))
                return (0);

        /* check for reserved package names */
        for (i = 0; rsvrd[i]; i++) {
                n = (int)strlen(rsvrd[i]);
                if ((strncmp(pkg, rsvrd[i], n) == 0) &&
                    (!pkg[n] || strchr(NMBRK, pkg[n])))
                        return (1);
        }

        /*
         * check for valid extensions; we used to do this
         * first since we needed to look for SVR3 ".name"
         * before we validate the package abbreviation
         */
        if (pt = strpbrk(pkg, NMBRK)) {
                if ((strcmp(pt, WILD1) == 0) || (strcmp(pt, WILD2) == 0)) {
                        /* wildcard specification */
                        if (!wild)
                                return (1);
                } else {
                        count = 0;
                        while (*++pt) {
                                count++;
                                if (!isalpha((unsigned char)*pt) &&
                                        !isdigit((unsigned char)*pt) &&
                                    !strpbrk(pt, "-+"))
                                        return (-1);
                        }
                        if (!count || (count > 4))
                                return (-1);
                }
        }

        /* check for valid package name */
        count = 0;
        if (!isalpha((unsigned char)*pkg))
                return (-1);
        while (*pkg && !strchr(NMBRK, *pkg)) {
                if (!isalnum((unsigned char)*pkg) && !strpbrk(pkg, "-+"))
                        return (-1);
                count++, pkg++;
        }

        /* Check for ABI package name length */
        if (get_ABI_namelngth() == 1) {
                if (count > ABI_NAMELNGTH)
                        return (-1);
        } else if (count > NON_ABI_NAMELNGTH)
                        return (-1);

        return (0); /* pkg is valid */
}

/* presvr4flg - check for pre-svr4 package names also ? */
int
pkgnmchk(char *pkg, char *spec, int presvr4flg)
{
        _NOTE(ARGUNUSED(presvr4flg));

        /* pkg is assumed to be non-NULL upon entry */

        /*
         * this routine reacts based on the value passed in spec:
         *      NULL    pkg must be valid and may be a wildcard spec
         *      "all"   pkg must be valid and must be an instance
         *      "x.*"   pkg must be valid and must be an instance of "x"
         *      "x*"    pkg must be valid and must be an instance of "x"
         */

        if (valname(pkg, ((spec == NULL) ? 1 : 0)))
                return (1); /* invalid or reserved name */

        if ((spec == NULL) || (strcmp(spec, "all") == 0))
                return (0);

        while (*pkg == *spec) {
                if ((strcmp(spec, WILD1) == 0) || (strcmp(spec, WILD2) == 0))
                        break; /* wildcard spec, so stop right here */
                else if (*pkg++ == '\0')
                        return (0); /* identical match */
                spec++;
        }

        if ((strcmp(spec, WILD1) == 0) || (strcmp(spec, WILD2) == 0))
                if ((pkg[0] == '\0') || (pkg[0] == '.'))
                        return (0);
        return (1);
}

void
set_ABI_namelngth(void)
{
        abi_namelngth = 1;
}

int
get_ABI_namelngth(void)
{
        return (abi_namelngth);
}