DataMuseum.dk

top - metrics - download

    Length: 4016 (0xfb0)
    Types: TextFile
    Names: »str2pe.c«

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

TextFile

/* str2pe.c - create an Inline CONStructor PElement */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/psap/RCS/str2pe.c,v 6.0 89/03/18 23:39:28 mrose Rel $";
#endif

/* 
 * $Header: /f/osi/psap/RCS/str2pe.c,v 6.0 89/03/18 23:39:28 mrose Rel $
 *
 *
 * $Log:	str2pe.c,v $
 * Revision 6.0  89/03/18  23:39:28  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 "psap.h"
#include "tailor.h"

/* \f

 */

PElementLen	str_get_len ();

/* \f

 */

#define	seterr(e,v)		(*result = (e), (v))


PE	str2pe (s, len, advance, result)
char   *s;
int	len,
       *advance,
       *result;
{
#ifdef	DEBUG
    int	    n = len;
#endif
    char   *sp;
    PElementClass   class;
    PElementForm    form;
    PElementID    id;
    PElementLen plen;
    register PE	    pe;

    *result = PS_ERR_NONE;

    sp = s;
    if (str_get_start (&sp, &len, &class, &form, &id, &plen, result) == NOTOK)
	return NULLPE;

    if (form == PE_FORM_CONS)
	form = PE_FORM_ICONS;

    if (plen == PE_LEN_INDF
	    && (plen = str_get_len (sp, len, result)) == PE_LEN_INDF)
	return NULLPE;

    if ((pe = pe_alloc (class, form, id)) == NULLPE)
	return seterr (PS_ERR_NMEM, NULLPE);

    pe -> pe_ilen = sp - s;
    if (form == PE_FORM_ICONS) {
	pe -> pe_len = pe -> pe_ilen + plen;
	pe -> pe_prim = (PElementData) s;
    }
    else
	if (pe -> pe_len = plen)
	    pe -> pe_prim = (PElementData) sp;

    pe -> pe_inline = 1;

    if (advance)
	*advance = pe -> pe_ilen + plen;

#ifdef	DEBUG
    if (psap_log -> ll_events & LLOG_PDUS)
	pe2text (psap_log, pe, 1, n);
#endif

    return pe;
}

/* \f

 */

static int  str_get_start (sp, n, class, form, id, plen, result)
char  **sp;
int    *n,
       *result;
PElementClass *class;
PElementForm *form;
PElementID *id;
PElementLen *plen;
{
    register int i,
		 len;
    register char *s;
    byte    c,
	    d;
    register PElementID    jd;
    register PElementLen qlen;

    s = *sp, len = *n;
    if (len-- <= 0)
	return seterr (PS_ERR_EOF, NOTOK);
    c = *s++;

    *class = (c & PE_CLASS_MASK) >> PE_CLASS_SHIFT;
    *form = (c & PE_FORM_MASK) >> PE_FORM_SHIFT;
    if ((jd = (c & PE_CODE_MASK)) == PE_ID_XTND)
	for (jd = 0;; jd <<= PE_ID_SHIFT) {
	    if (len-- <= 0)
		return seterr (PS_ERR_EOFID, NOTOK);
	    d = *s++;

	    jd |= d & PE_ID_MASK;
	    if (!(d & PE_ID_MORE))
		break;
	    if (jd & (PE_ID_MASK << (PE_ID_SHIFT - 1)))
		return seterr (PS_ERR_OVERID, NOTOK);
	}
    *id = jd;
#ifdef	DEBUG
    SLOG (psap_log, LLOG_DEBUG, NULLCP,
	  ("class=%d form=%d id=%d", *class, *form, *id));
#endif

    if (len-- <= 0)
	return seterr (PS_ERR_EOFLEN, NOTOK);
    c = *s++;

    if ((i = c) & PE_LEN_XTND) {
	if ((i &= PE_LEN_MASK) > sizeof (PElementLen))
	    return seterr (PS_ERR_OVERLEN, NOTOK);

	if (i) {
	    for (qlen = 0; i-- > 0;) {
		if (len-- <= 0)
		    return seterr (PS_ERR_EOFLEN, NOTOK);
		c = *s++;

		qlen = (qlen << 8) | (c & 0xff);
	    }

	    *plen = qlen;
	}
	else
	    if (*form == PE_FORM_PRIM)
		return seterr (PS_ERR_INDF, NOTOK);
	    else
		*plen = PE_LEN_INDF;
    }
    else
	*plen = i;
#ifdef	DEBUG
    SLOG (psap_log, LLOG_DEBUG, NULLCP, ("len=%d", *plen));
#endif

    *sp = s, *n = len;

    return OK;
}

/* \f

 */

static PElementLen  str_get_len (s, len, result)
char   *s;
int	len,
       *result;
{
    char   *sp;
    PElementClass class;
    PElementForm form;
    PElementID id;
    PElementLen plen;

    for (sp = s;;) {
	if (str_get_start (&sp, &len, &class, &form, &id, &plen, result)
	        == NOTOK)
	    return PE_LEN_INDF;

	if (class == PE_CLASS_UNIV && id == PE_UNIV_EOC)
	    return ((PElementLen) (sp - s));

	if (plen == PE_LEN_INDF
		&& (plen = str_get_len (sp, len, result)) == PE_LEN_INDF)
	    return PE_LEN_INDF;

	sp += plen, len -= plen;
    }
}