/*
 * 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 2015 Gary Mills
 */

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


/* EMACS_MODES: !fill, lnumb, !overwrite, !nodelete, !picture */

#include "string.h"
#include "errno.h"
#include "stdlib.h"

#include "lp.h"

#if     defined(__STDC__)
static char             *unq_strdup ( char * , char * );
#else
static char             *unq_strdup();
#endif

/**
 ** getlist() - CONSTRUCT LIST FROM STRING
 **/

/*
 * Any number of characters from "ws", or a single
 * character from "hardsep", can separate items in the list.
 */

char **
#if     defined(__STDC__)
getlist (
        char *                  str,
        char *                  ws,
        char *                  hardsep
)
#else
getlist (str, ws, hardsep)
        register char           *str,
                                *ws;
        char                    *hardsep;
#endif
{
        register char           **list,
                                *p,
                                *sep,
                                c;

        int                     n,
                                len;

        char                    buf[10];


        char                    *copy,
                                *begin;

        if (!str || !*str)
                return (0);

        /*
         * Construct in "sep" the full list of characters that
         * can separate items in the list. Avoid a "malloc()"
         * if possible.
         */
        len = strlen(ws) + strlen(hardsep) + 1;
        if (len > sizeof(buf)) {
                if (!(sep = Malloc(len))) {
                        errno = ENOMEM;
                        return (0);
                }
        } else
                sep = buf;
        strcpy (sep, hardsep);
        strcat (sep, ws);

        /*
         * Copy the input string because getlist() sometimes writes to it.
         */
        if (!(begin = Strdup(str))) {
                errno = ENOMEM;
                return (0);
        }
        copy = begin;

        /*
         * Skip leading white-space.
         */
        copy += strspn(copy, ws);
        if (!*copy) {
                Free (begin);
                return (0);
        }

        /*
         * Strip trailing white-space.
         */
        p = strchr(copy, '\0');
        while (--p != copy && strchr(ws, *p))
                ;
        *++p = 0;

        /*
         * Pass 1: Count the number of items in the list.
         */
        for (n = 0, p = copy; *p; ) {
                if ((c = *p++) == '\\')
                        p++;
                else
                        if (strchr(sep, c)) {
                                n++;
                                p += strspn(p, ws);
                                if (
                                        !strchr(hardsep, c)
                                     && strchr(hardsep, *p)
                                ) {
                                        p++;
                                        p += strspn(p, ws);
                                }
                        }
        }

        /*
         * Pass 2: Create the list.
         */

        /*
         * Pass 1 counted the number of list separaters, so
         * add 2 to the count (includes 1 for terminating null).
         */
        if (!(list = (char **)Malloc((n+2) * sizeof(char *)))) {
                errno = ENOMEM;
                goto Done;
        }

        /*
         * This loop will copy all but the last item.
         */
        for (n = 0, p = copy; *p; )
                if ((c = *p++) == '\\')
                        p++;
                else
                        if (strchr(sep, c)) {

                                p[-1] = 0;
                                list[n++] = unq_strdup(copy, sep);
                                p[-1] = c;

                                p += strspn(p, ws);
                                if (
                                        !strchr(hardsep, c)
                                     && strchr(hardsep, *p)
                                ) {
                                        p++;
                                        p += strspn(p, ws);
                                }
                                copy = p;

                        }

        list[n++] = unq_strdup(copy, sep);

        list[n] = 0;

Done:   if (sep != buf)
                Free (sep);
        Free (begin);
        return (list);
}

/**
 ** unq_strdup()
 **/

static char *
#if     defined(__STDC__)
unq_strdup (
        char *                  str,
        char *                  sep
)
#else
unq_strdup (str, sep)
        char                    *str,
                                *sep;
#endif
{
        register int            len     = 0;

        register char           *p,
                                *q,
                                *ret;


        for (p = str; *p; p++)
                if (*p != '\\' || !p[1] || !strchr(sep, p[1]))
                        len++;
        if (!(q = ret = Malloc(len + 1)))
                return (0);
        for (p = str; *p; p++)
                if (*p != '\\' || !p[1] || !strchr(sep, p[1]))
                        *q++ = *p;
        *q = 0;
        return (ret);
}