DataMuseum.dk

top - metrics - download

    Length: 3017 (0xbc9)
    Types: TextFile
    Names: »sstr2arg.c«

└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
    └─⟦eba4602b1⟧ »./isode-5.0.tar.Z« 
        └─⟦d3ac74d73⟧ 
            └─⟦this⟧ »isode-5.0/compat/sstr2arg.c« 

TextFile

/* sstr2arg: convert string into argument list */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/compat/RCS/sstr2arg.c,v 6.0 89/03/18 23:25:44 mrose Rel $";
#endif

/* 
 * $Header: /f/osi/compat/RCS/sstr2arg.c,v 6.0 89/03/18 23:25:44 mrose Rel $
 *
 *
 * $Log:	sstr2arg.c,v $
 * Revision 6.0  89/03/18  23:25:44  mrose
 * Release 5.0
 * 
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


/* LINTLIBRARY */

#include <stdio.h>
#include "manifest.h"
#include <errno.h>

extern int errno;

/* \f

 */

/*
   stash a pointer to each field into the passed array. any common seperators
   split the words.  extra white-space between fields is ignored.

   specially-interpreted characters:
	double-quote, backslash (preceding a special char with a backslash
	removes its interpretation.  A backslash not followed by a special is
	used to preface an octal specification for one character a string begun
	with double-quote has only double-quote and backslash as special
	characters.

*/




sstr2arg (srcptr, maxpf, argv, dlmstr)
register char *srcptr;  /* source data */
int maxpf;              /* maximum number of permitted fields */
char *argv[];           /* where to put the pointers */
char *dlmstr;           /* Delimiting character */
{
    char gotquote;      /* currently parsing quoted string */
    register int ind;
    register char *destptr;

    if (srcptr == 0) {
	errno = EINVAL;     /* emulate system-call failure */
	return (NOTOK);
    }

    for (ind = 0, maxpf -= 2;; ind++) {
	if (ind >= maxpf) {
	    errno = E2BIG;      /* emulate system-call failure */
	    return (NOTOK);
	}

	/* Skip leading white space */
	for (; *srcptr == '\t' || *srcptr == ' '; srcptr++);

	argv [ind] = srcptr;
	destptr = srcptr;

	for (gotquote = 0; ; ) {
	    register char *cp;

	    for (cp = dlmstr; (*cp != '\0') && (*cp != *srcptr); cp++);

	    if (*cp != '\0')
	    {
		if (gotquote) {           /* don't interpret the char */
		    *destptr++ = *srcptr++;
		    continue;
		}

		srcptr++;
		*destptr = '\0';
		goto nextarg;
	    } else {
		switch (*srcptr) {
		default:        /* just copy it                     */
			*destptr++ = *srcptr++;
			break;

		case '\"':      /* beginning or end of string       */
			gotquote = (gotquote) ? 0 : 1 ;
			srcptr++;   /* just toggle */
			break;

		case '\\':      /* quote next character             */
			srcptr++;   /* just skip the back-slash         */
			if (*srcptr >= '0' && *srcptr <= '7') {
				*destptr = '\0';
				do
				    *destptr = (*destptr << 3) | (*srcptr++ - '0');
				while (*srcptr >= '0' && *srcptr <= '7');
				destptr++;
				break;
			}
			else
			     *destptr++ = *srcptr++;
			break;

		    case '\0':
			*destptr = '\0';
			ind++;
			argv[ind] = (char *) 0;
			return (ind);
		}
	    }
	}
    nextarg:
	continue;
    }
}