lib/lp/getlist.c

/*
 * 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);
}