diff options
Diffstat (limited to 'src/isode/psap/str2pe.c')
| -rw-r--r-- | src/isode/psap/str2pe.c | 195 |
1 files changed, 0 insertions, 195 deletions
diff --git a/src/isode/psap/str2pe.c b/src/isode/psap/str2pe.c deleted file mode 100644 index 8f75914ccc..0000000000 --- a/src/isode/psap/str2pe.c +++ /dev/null @@ -1,195 +0,0 @@ -/* str2pe.c - create an Inline CONStructor PElement */ - -/* - * isode/psap/str2pe.c - */ - -/* - * 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" - -/* */ - -PElementLen str_get_len (); -static int str_get_start (); - -/* */ - -#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; -} - -/* */ - -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 = ((int)(c & PE_CLASS_MASK)) >> PE_CLASS_SHIFT; - *form = ((int)(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; -} - -/* */ - -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; - } -} |