libsip/common/sip_parse_hdrs.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (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 2007 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

#include <ctype.h>
#include <errno.h>
#include <stdlib.h>
#include <strings.h>
#include <sip.h>

#include "sip_msg.h"
#include "sip_miscdefs.h"
#include "sip_parse_generic.h"
#include "sip_parse_uri.h"


/*
 * Accept = "Accept" HCOLON [ accept-range *(COMMA accept-range) ]
 * accept-range = media-range *(SEMI accept-param)
 * media-range = ("* / *" |  (m-type SLASH "*") | (m-type SLASH m-subtype))
 *      *(SEMI m-param)
 * accept-param = ("q" EQUAL qvalue) | generic-param
 * qvalue = ("0" ["." 0*3DIGIT]) | ("1" ["." 0*3DIGIT])
 * generic-param = token [ EQUAL gen-value]
 * gen-value = token | host | quoted-str
 */
int
sip_parse_acpt_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    if (sip_is_empty_hdr(sip_header))
        return (sip_parse_hdr_empty(sip_header, header));
    return (sip_parse_hdr_parser1(sip_header, header, SIP_SLASH));
}

/*
 * Accept-Encoding = "Accept-Encoding" ":" 1#(codings [ ";" "q" "=" qval])
 * codings = (content-coding | "*")
 * content-coding = token
 */
int
sip_parse_acpt_encode_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Accept-Language = "Accept-Language" ":" [ lang * (COMMA lang) ]
 * lang = lang-range *(SEMI accept-param)
 * lang-range = ((1*8ALPHA * ("-" 1*8ALPHA)) | "*"
 */
int
sip_parse_acpt_lang_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    if (sip_is_empty_hdr(sip_header))
        return (sip_parse_hdr_empty(sip_header, header));
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Alert-Info = "Alert-Info" ":" alert-param *(COMMA alert-param)
 * alert-param = LAQUOT absoluteURI RAQUOT * (SEMI generic-param)
 */
int
sip_parse_alert_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser3(sip_header, header, SIP_STR_VAL, B_TRUE));
}

/*
 * Allow = "Allow" ":" method-name1[, method-name2..]
 */
int
sip_parse_allow_header(_sip_header_t *hdr, sip_parsed_header_t **phdr)
{
    sip_parsed_header_t *parsed_header;
    sip_hdr_value_t     *value = NULL;
    sip_hdr_value_t     *last_value = NULL;
    int         len;
    int         i;
    int         ret;
    boolean_t       multi_value = B_FALSE;

    if ((ret = sip_prim_parsers(hdr, phdr)) != 0)
        return (ret);

    if (*phdr != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = hdr;

    while (hdr->sip_hdr_current < hdr->sip_hdr_end) {
        value = calloc(1, sizeof (sip_hdr_value_t));
        if (value == NULL) {
            sip_free_phdr(parsed_header);
            return (ENOMEM);
        }
        if (last_value != NULL)
            last_value->sip_next_value = value;
        else
            parsed_header->value = (sip_value_t *)value;

        value->sip_value_start = hdr->sip_hdr_current;
        value->sip_value_header = parsed_header;

        if (sip_find_separator(hdr, SIP_COMMA, (char)NULL,
            (char)NULL, B_FALSE) == 0) {
            multi_value = B_TRUE;
        }

        len = hdr->sip_hdr_current - value->sip_value_start;
        for (i = 1; i < MAX_SIP_METHODS; i++) {
            if (strncmp(sip_methods[i].name, value->sip_value_start,
                len) == 0) {
                break;
            }
        }
        if (i >= MAX_SIP_METHODS) {
            value->int_val = 0;
            value->sip_value_state = SIP_VALUE_BAD;
            if (multi_value)
                goto next_val;
            else
                goto end;
        }
        value->int_val = i;
        if (!multi_value)
            goto end;
    next_val:
        if (sip_find_token(hdr, SIP_COMMA) != 0)
            break;
        value->sip_value_end = hdr->sip_hdr_current - 1;
        last_value = value;
        (void) sip_skip_white_space(hdr);
    }

end:
    *phdr = parsed_header;
    return (0);
}


/*
 * Call-Info = "Call-Info" HCOLON info * (COMMA info)
 * info = LAQUOT absoluteURI RAQUOT * (SEMI info-param)
 * info-param = ("purpose" EQUAL ("icon" | "info" | "card" | token)) |
 *       generic-param
 */
int
sip_parse_callinfo_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser3(sip_header, header, SIP_STR_VAL, B_TRUE));
}

/*
 * Content-Disposition = "Content-Disposition" HCOLON disp-type *
 *          (SEMI disp-param)
 * disp-type = "render" | "session" | "icon" | "alert" | disp-ext-token
 * disp-param = handling-param | generic-param
 * handling-param = "handling" EQUAL("optional" | "required" | other-handling)
 * other-handling = token
 * disp-ext-token = token
 *
 */
int
sip_parse_contentdis_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Content-Encoding = ("Content-Encoding" | "e") HCOLON content-coding *
 *          (COMMA content-coding)
 */
int
sip_parse_contentencode_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Content-Language = ("Content-Language" | "l") HCOLON lang-tag *
 *       (COMMA lang-tag)
 * lang-tag = primary-tag *("-" subtag)
 * prmary-tag = 1*8ALPHA
 * subtag = 1*8ALPHA
 */
int
sip_parse_contentlang_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Date = "Date" HCOLON SIPdate
 * SIPdate = wkday "," SP date1 SP time SP "GMT"
 * date1 = 2DIGIT SP mnth SP 4DIGIT; day month year
 * time = 2DIGIT ":" 2DIGIT ":" 2DIGIT
 * wkday = "Mon" | "Tue" | "Wed" | "Thu" | "Fri" | "Sat" | "Sun"
 * month = "Jan" | "Feb" etc
 */
int
sip_parse_date_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    int          r;
    sip_hdr_value_t     *value = NULL;

    if ((r = sip_prim_parsers(sip_header, header)) != 0)
        return (r);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    value = calloc(1, sizeof (sip_hdr_value_t));
    if (value == NULL) {
        sip_free_phdr(parsed_header);
        return (ENOMEM);
    }
    parsed_header->value = (sip_value_t *)value;

    value->sip_value_start = sip_header->sip_hdr_current;
    value->sip_value_header = parsed_header;
    value->date_wd_ptr = sip_header->sip_hdr_current;
    if (sip_find_token(sip_header, SIP_COMMA) == 0) {
        value->date_wd_len = sip_header->sip_hdr_current -
            value->date_wd_ptr - 1;
        sip_header->sip_hdr_current++;
        if (sip_skip_white_space(sip_header) != 0) {
            value->sip_value_state = SIP_VALUE_BAD;
            return (EPROTO);
        }
    } else {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }

    if (sip_skip_white_space(sip_header) != 0) {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }
    r = sip_atoi(sip_header, &value->date_d);
    if (r != 0 || value->date_d < 0 || value->date_d > 31) {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }
    if (sip_skip_white_space(sip_header) != 0) {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }
    value->date_m_ptr = sip_header->sip_hdr_current;
    if (sip_find_token(sip_header, SIP_SP) == 0) {
        value->date_m_len = sip_header->sip_hdr_current -
            value->date_m_ptr - 1;
    } else {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }

    r = sip_atoi(sip_header, &value->date_y);
    if (r != 0 || value->date_y < 0) {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }
    if (sip_skip_white_space(sip_header) != 0) {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }
    value->date_t_ptr = sip_header->sip_hdr_current;
    if (sip_find_token(sip_header, SIP_SP) == 0) {
        value->date_t_len = sip_header->sip_hdr_current -
            value->date_t_ptr - 1;
    } else {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }

    value->date_tz_ptr =  sip_header->sip_hdr_current;
    /*
     * minus 2 to get rid of the CRLF
     */
    value->date_tz_len = sip_header->sip_hdr_end -
        sip_header->sip_hdr_current - 2;

    *header = parsed_header;

    sip_header->sip_hdr_parsed = *header;
    return (0);
}

/*
 * Error-Info = "Error-Info" HCOLON error-uri *(COMMA error-uri)
 * error-uri = LAQUOT absoluteURI RAQUOT *(SEMI generic-param)
 */
int
sip_parse_errorinfo_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser3(sip_header, header, SIP_STR_VAL, B_TRUE));
}

/*
 * Expires = "Expires" HCOLON delta-seconds
 */
int
sip_parse_expire_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser2(sip_header, header, SIP_INT_VAL));
}

/*
 * In-Reply-To = "In-Reply-To" HCOLON callid *(COMMA callid)
 */
int
sip_parse_inreplyto_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * RSeq = "RSeq" HCOLON response-num
 */
int
sip_parse_rseq(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    int     r;
    sip_hdr_value_t *rseq_value;

    r = sip_parse_hdr_parser2(sip_header, header, SIP_INT_VAL);
    /*
     * Additionally, a value of 0 is bad_value
     */
    if (sip_header->sip_hdr_parsed != NULL &&
        sip_header->sip_hdr_parsed->value != NULL) {
        rseq_value = (sip_hdr_value_t *)
            sip_header->sip_hdr_parsed->value;
        if (rseq_value->int_val == 0)
            rseq_value->sip_value_state = SIP_VALUE_BAD;
    }
    return (r);
}

/*
 * Min-Expires  =  "Min-Expires" HCOLON delta-seconds
 */
int
sip_parse_minexpire_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser2(sip_header, header, SIP_INT_VAL));
}

/*
 * MIME-Version = "MIME-Version" HCOLON 1*DIGIT "." 1*DIGIT
 */
int
sip_parse_mimeversion_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * Organization = "Organization" HCOLON [TEXT-UTF8-TRIM]
 */
int
sip_parse_org_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    if (sip_is_empty_hdr(sip_header))
        return (sip_parse_hdr_empty(sip_header, header));
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * Priority = "Priority" HCOLON priority-val
 * priority-val = "emergency" | "urgent" | "normal" | "non-urgent" | other
 * other = token
 */
int
sip_parse_priority_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * Reply-To = "Reply-To" HCOLON rplyto-spec
 * rplyto-spec = (name-addr | addr-spec) *(SEMI rplyto-param)
 * rplyto-param = generic-param
 * name-addr = [ display-name ] LAQUOT addr-spec RAQUOT
 * addr-spec = SIP-URI | SIPS-URI | absolute URI
 */
int
sip_parse_replyto_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser3(sip_header, header, SIP_STRS_VAL,
        B_TRUE));
}

/*
 * PRIVACY = "Privacy" HCOLON priv-value *(COMMA priv-value)
 * priv-value   =   "header" / "session" / "user" / "none" / "critical"
 *                  / token / id
 */
int
sip_parse_privacy_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}


/*
 * Require = "Require" HCOLON option-tag * (COMMA option-tag)
 */
int
sip_parse_require_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Retry-After = "Retry-After" HCOLON delta-seconds [ comment ] *
 *      (SEMI retry-param)
 * retry-param = "duration" EQUAL delta-seconds
 */
int
sip_parse_retryaft_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    sip_hdr_value_t     *value = NULL;
    int         ret;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    value = calloc(1, sizeof (sip_hdr_value_t));
    if (value == NULL) {
        sip_free_phdr(parsed_header);
        return (ENOMEM);
    }

    parsed_header->value = (sip_value_t *)value;
    value->sip_value_start = sip_header->sip_hdr_current;
    value->sip_value_header = parsed_header;

    ret = sip_atoi(sip_header, &(value->intstr_int));
    if (ret != 0)
        value->sip_value_state = SIP_VALUE_BAD;
    if (sip_find_token(sip_header, SIP_LPAR) == 0) {
        value->intstr_str_ptr = sip_header->sip_hdr_current;
        if (sip_find_token(sip_header, SIP_RPAR) == 0) {
            value->intstr_str_len =
                sip_header->sip_hdr_current -
                value->intstr_str_ptr - 1;
            if (sip_find_token(sip_header, SIP_SEMI) == 0) {
                sip_header->sip_hdr_current--;
                (void) sip_parse_params(sip_header,
                    &(value->sip_param_list));
            }
        } else {
            value->sip_value_state = SIP_VALUE_BAD;
            return (EPROTO);
        }
    } else {
        value->intstr_str_ptr = NULL;
        value->intstr_str_len = 0;

        /*
         * from value start, search if parameter list
         */
        sip_header->sip_hdr_current = value->sip_value_start;
        if (sip_find_token(sip_header, SIP_SEMI) == 0) {
            sip_header->sip_hdr_current--;
            (void) sip_parse_params(sip_header,
                &(value->sip_param_list));
        }
    }

    *header = parsed_header;
    sip_header->sip_hdr_parsed = *header;
    return (0);
}

/*
 * Server = "Server" HCOLON servel-val *(LWS server-val)
 * servel-val = product|comment
 * product = token [SLASH version]
 * version = token
 * Treated as one single string
 */
int
sip_parse_server_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * Subject = ("Subject" | "s")HCOLON [TEXT-UTF8-TRIM]
 */
int
sip_parse_subject_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    if (sip_is_empty_hdr(sip_header))
        return (sip_parse_hdr_empty(sip_header, header));
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * Supported = ("Supported" | "k") HCOLON [option-tag * (COMMA option-tag) ]
 */
int
sip_parse_support_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    if (sip_is_empty_hdr(sip_header))
        return (sip_parse_hdr_empty(sip_header, header));
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Timestamp = "Timestamp" HCOLON 1*DIGIT ["." *(DIGIT)] [LWS delay]
 */
int
sip_parse_timestamp_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    sip_hdr_value_t     *value = NULL;
    int         ret;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    value = calloc(1, sizeof (sip_hdr_value_t));
    if (value == NULL) {
        sip_free_phdr(parsed_header);
        return (ENOMEM);
    }
    parsed_header->value = (sip_value_t *)value;

    value->sip_value_start = sip_header->sip_hdr_current;
    value->sip_value_header = parsed_header;

    if (sip_skip_white_space(sip_header) != 0) {
        value->sip_value_state = SIP_VALUE_BAD;
        return (EPROTO);
    }
    value->strs1_val_ptr = sip_header->sip_hdr_current;

    if (sip_find_white_space(sip_header) == 0) {
        /*
         * timestamp and delay, timestamp in str1, delay in str2
         */
        value->strs1_val_len = sip_header->sip_hdr_current -
            value->strs1_val_ptr;
        (void) sip_skip_white_space(sip_header);

        value->strs2_val_ptr = sip_header->sip_hdr_current;
        if (sip_find_cr(sip_header) != 0) {
            value->sip_value_state = SIP_VALUE_BAD;
            return (EPROTO);
        }
        if (sip_header->sip_hdr_current < value->strs2_val_ptr) {
            value->strs2_val_ptr = NULL;
            value->strs2_val_len = 0;
        } else {
            value->strs2_val_len = sip_header->sip_hdr_current -
                value->strs2_val_ptr;
        }
    } else {
        /*
         * no delay information
         */
        value->strs1_val_len = sip_header->sip_hdr_current
            - value->strs1_val_ptr;
        value->strs2_val_ptr = NULL;
        value->strs2_val_len = 0;
    }

    *header = parsed_header;
    sip_header->sip_hdr_parsed = *header;

    return (0);
}
/*
 * Unsupported = "Unsupported" HCOLON option-tag * (COMMA option-tag)
 */
int
sip_parse_usupport_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * User-Agent = "User-Agent" HCOLON server-val * (LWS server-val)
 * servel-val = product |comment
 * product = token [SLASH version]
 * version = token
 */
int
sip_parse_useragt_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * Warning = "Warning" HCOLON warning-value *(COMMA warning-value)
 * warning-value = warn-code SP warn-agent SP warn-text
 * warn-code = 3DIGIT
 * warn-agent = hostport | pseudonym ;
 *       the name or pseudonym of the server adding;
 *       the Warning header, for use in debugging
 * warn-text = quoted-string
 * pseudonym = token
 */
int
sip_parse_warn_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    int         ret;
    sip_hdr_value_t     *value = NULL;
    sip_hdr_value_t     *last_value = NULL;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    while (sip_header->sip_hdr_current < sip_header->sip_hdr_end) {
        value = calloc(1, sizeof (sip_hdr_value_t));
        if (value == NULL) {
            sip_free_phdr(parsed_header);
            return (ENOMEM);
        }

        if (last_value != NULL)
            last_value->sip_next_value = value;
        else
            parsed_header->value = (sip_value_t *)value;

        value->sip_value_start = sip_header->sip_hdr_current;
        value->sip_value_header = parsed_header;

        ret = sip_atoi(sip_header, &value->warn_code);
        if (ret != 0 || value->warn_code < 100 ||
            value->warn_code > 999) {
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_val;
        }
        if (sip_skip_white_space(sip_header) != 0) {
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_val;
        }
        value->warn_agt_ptr = sip_header->sip_hdr_current;

        if (sip_find_token(sip_header, SIP_QUOTE) == 0) {
            /*
             * get warning agent
             */
            sip_header->sip_hdr_current--;
            (void) sip_reverse_skip_white_space(sip_header);
            value->warn_agt_len = sip_header->sip_hdr_current -
                value->warn_agt_ptr - 1;
            if (value->warn_agt_len <= 0) {
                value->warn_agt_ptr = NULL;
                value->sip_value_state = SIP_VALUE_BAD;
            }

            /*
             * We will have a  SIP_QUOTE here
             */
            (void) sip_find_token(sip_header, SIP_QUOTE);

            value->warn_text_ptr =  sip_header->sip_hdr_current;
            if (sip_find_token(sip_header, SIP_QUOTE) == 0) {
                value->warn_text_len =
                    sip_header->sip_hdr_current -
                    value->warn_text_ptr - 1;
            } else {
                value->sip_value_state = SIP_VALUE_BAD;
                goto get_next_val;
            }
        } else
            /*
             * warning text must present
             */
            value->sip_value_state = SIP_VALUE_BAD;

get_next_val:
        if (sip_find_token(sip_header, SIP_COMMA) != 0)
            break;
        value->sip_value_end = sip_header->sip_hdr_current - 1;
        last_value = value;
        (void) sip_skip_white_space(sip_header);
    }

    *header = parsed_header;

    sip_header->sip_hdr_parsed = *header;
    return (0);
}

/*
 * Parse RAck header
 * "RAck" HCOLON response-num LWS CSeq-num LWS Method
 * response-num  =  1*DIGIT
 * CSeq-num      =  1*DIGIT
 */
int
sip_parse_rack(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    sip_hdr_value_t     *rack_value;
    int         len;
    char            *tmp_ptr;
    int         i;
    int         ret;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    parsed_header->value =  calloc(1, sizeof (sip_hdr_value_t));
    if (parsed_header->value == NULL) {
        free(parsed_header);
        return (ENOMEM);
    }
    rack_value = (sip_hdr_value_t *)parsed_header->value;
    rack_value->sip_value_version = SIP_VALUE_VERSION_1;
    rack_value->sip_value_start = sip_header->sip_hdr_current;
    rack_value->sip_value_header = parsed_header;
    if (sip_atoi(sip_header, &rack_value->rack_resp) ||
        rack_value->rack_resp == 0) {
        rack_value->sip_value_state = SIP_VALUE_BAD;
        rack_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto rack_parse_done;
    }
    rack_value->sip_value_header = parsed_header;
    /*
     * Get cseq.
     */
    if (sip_skip_white_space(sip_header) != 0) {
        rack_value->sip_value_state = SIP_VALUE_BAD;
        rack_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto rack_parse_done;
    }
    if (sip_atoi(sip_header, &rack_value->rack_cseq)) {
        rack_value->sip_value_state = SIP_VALUE_BAD;
        rack_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto rack_parse_done;
    }
    /*
     * Get method.
     */
    if (sip_skip_white_space(sip_header) != 0) {
        rack_value->sip_value_state = SIP_VALUE_BAD;
        rack_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto rack_parse_done;
    }

    tmp_ptr = sip_header->sip_hdr_current;
    if (sip_find_white_space(sip_header)) {
        rack_value->sip_value_state = SIP_VALUE_BAD;
        rack_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto rack_parse_done;
    }

    len = sip_header->sip_hdr_current - tmp_ptr;

    for (i = 1; i < MAX_SIP_METHODS; i++) {
        if (strncmp(sip_methods[i].name, tmp_ptr, len) == 0)
            break;
    }

    if (i >= MAX_SIP_METHODS) {
        rack_value->sip_value_state = SIP_VALUE_BAD;
        rack_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto rack_parse_done;
    }

    rack_value->rack_method = i;
    rack_value->sip_value_end = sip_header->sip_hdr_current;

rack_parse_done:
    sip_header->sip_hdr_parsed = parsed_header;

    *header = parsed_header;
    return (0);
}

/*
 * Allow  =  "Allow" HCOLON [Method *(COMMA Method)]
 */
int
sip_parse_allow_events_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Event             =  ( "Event" / "o" ) HCOLON event-type
 *          *( SEMI event-param )
 * event-type        =  event-package *( "." event-template )
 * event-package     =  token-nodot
 * event-template    =  token-nodot
 * token-nodot       =  1*( alphanum / "-"  / "!" / "%" / "*"
 *          / "_" / "+" / "`" / "'" / "~" )
 * event-param       =  generic-param / ( "id" EQUAL token )
 */
int
sip_parse_event_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Subscription-State   = "Subscription-State" HCOLON substate-value
 *          *( SEMI subexp-params )
 * substate-value       = "active" / "pending" / "terminated"
 *          / extension-substate
 * extension-substate   = token
 * subexp-params        =   ("reason" EQUAL event-reason-value)
 *          / ("expires" EQUAL delta-seconds)*
 *          / ("retry-after" EQUAL delta-seconds)
 *          / generic-param
 * event-reason-value   =   "deactivated"
 *              / "probation"
 *              / "rejected"
 *              / "timeout"
 *              / "giveup"
 *              / "noresource"
 *              / event-reason-extension
 * event-reason-extension = token
 */
int
sip_parse_substate_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Authorization     =  "Authorization" HCOLON credentials
 * credentials       =  ("Digest" LWS digest-response)
 *          / other-response
 * digest-response   =  dig-resp *(COMMA dig-resp)
 * dig-resp          =  username / realm / nonce / digest-uri
 *          / dresponse / algorithm / cnonce
 *          / opaque / message-qop
 *          / nonce-count / auth-param
 * username          =  "username" EQUAL username-value
 * username-value    =  quoted-string
 * digest-uri        =  "uri" EQUAL LDQUOT digest-uri-value RDQUOT
 * digest-uri-value  =  rquest-uri ; Equal to request-uri as specified
 *          by HTTP/1.1
 * message-qop       =  "qop" EQUAL qop-value
 * cnonce            =  "cnonce" EQUAL cnonce-value
 * cnonce-value      =  nonce-value
 * nonce-count       =  "nc" EQUAL nc-value
 * nc-value          =  8LHEX
 * dresponse         =  "response" EQUAL request-digest
 * request-digest    =  LDQUOT 32LHEX RDQUOT
 * auth-param        =  auth-param-name EQUAL
 *          ( token / quoted-string )
 * auth-param-name   =  token
 * other-response    =  auth-scheme LWS auth-param
 *          *(COMMA auth-param)
 * auth-scheme       =  token
 */
int
sip_parse_author_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser5(sip_header, header, B_TRUE));
}

/*
 * Authentication-Info  =  "Authentication-Info" HCOLON ainfo
 *              *(COMMA ainfo)
 * ainfo                =  nextnonce / message-qop
 *              / response-auth / cnonce
 *              / nonce-count
 * nextnonce            =  "nextnonce" EQUAL nonce-value
 * response-auth        =  "rspauth" EQUAL response-digest
 * response-digest      =  LDQUOT *LHEX RDQUOT
 *
 */
int
sip_parse_ainfo_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * Proxy-Authenticate  =  "Proxy-Authenticate" HCOLON challenge
 * challenge           =  ("Digest" LWS digest-cln *(COMMA digest-cln))
 *              / other-challenge
 * other-challenge     =  auth-scheme LWS auth-param
 *              *(COMMA auth-param)
 * digest-cln          =  realm / domain / nonce
 *              / opaque / stale / algorithm
 *              / qop-options / auth-param
 * realm               =  "realm" EQUAL realm-value
 * realm-value         =  quoted-string
 * domain              =  "domain" EQUAL LDQUOT URI
 *              *( 1*SP URI ) RDQUOT
 * URI                 =  absoluteURI / abs-path
 * nonce               =  "nonce" EQUAL nonce-value
 * nonce-value         =  quoted-string
 * opaque              =  "opaque" EQUAL quoted-string
 * stale               =  "stale" EQUAL ( "true" / "false" )
 * algorithm           =  "algorithm" EQUAL ( "MD5" / "MD5-sess"
 *          / token )
 * qop-options         =  "qop" EQUAL LDQUOT qop-value
 *          *("," qop-value) RDQUOT
 * qop-value           =  "auth" / "auth-int" / token
 *
 */
int
sip_parse_pauthen_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser5(sip_header, header, B_TRUE));
}

/*
 * Proxy-Authorization  =  "Proxy-Authorization" HCOLON credentials
 */
int
sip_parse_pauthor_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser5(sip_header, header, B_TRUE));
}

/*
 * Proxy-Require  =  "Proxy-Require" HCOLON option-tag
 *          *(COMMA option-tag)
 * option-tag     =  token
 */
int
sip_parse_preq_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, (char)NULL));
}

/*
 * WWW-Authenticate  =  "WWW-Authenticate" HCOLON challenge
 * extension-header  =  header-name HCOLON header-value
 * header-name       =  token
 * header-value      =  *(TEXT-UTF8char / UTF8-CONT / LWS)
 * message-body  =  *OCTET
 *
 */
int
sip_parse_wauthen_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser5(sip_header, header, B_TRUE));
}

/*
 * Call-ID  =  ( "Call-ID" / "i" ) HCOLON callid
 */
int
sip_parse_cid_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser4(sip_header, header));
}

/*
 * CSeq  =  "CSeq" HCOLON 1*DIGIT LWS Method
 */
int
sip_parse_cseq_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    sip_hdr_value_t     *cseq_value;
    int         len;
    char            *tmp_ptr;
    int         i;
    int         ret;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    parsed_header->value =  calloc(1, sizeof (sip_hdr_value_t));
    if (parsed_header->value == NULL) {
        free(parsed_header);
        return (ENOMEM);
    }
    cseq_value = (sip_hdr_value_t *)parsed_header->value;
    cseq_value->sip_value_version = SIP_VALUE_VERSION_1;
    cseq_value->sip_value_start = sip_header->sip_hdr_current;
    if (sip_atoi(sip_header, &cseq_value->cseq_num)) {
        cseq_value->sip_value_state = SIP_VALUE_BAD;
        cseq_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto cseq_parse_done;
    }
    cseq_value->sip_value_header = parsed_header;
    /*
     * Get method.
     */
    if (sip_skip_white_space(sip_header) != 0) {
        cseq_value->sip_value_state = SIP_VALUE_BAD;
        cseq_value->sip_value_end = sip_header->sip_hdr_end - 2;
        goto cseq_parse_done;
    }

    tmp_ptr = sip_header->sip_hdr_current;

    if (sip_find_white_space(sip_header)) {
        cseq_value->sip_value_state = SIP_VALUE_BAD;
        cseq_value->sip_value_end = sip_header->sip_hdr_current;
        goto cseq_parse_done;
    }

    len = sip_header->sip_hdr_current - tmp_ptr;

    for (i = 1; i < MAX_SIP_METHODS; i++) {
        if (strncmp(sip_methods[i].name, tmp_ptr, len) == 0)
            break;
    }

    if (i >= MAX_SIP_METHODS) {
        cseq_value->sip_value_state = SIP_VALUE_BAD;
        cseq_value->sip_value_end = sip_header->sip_hdr_current;
        goto cseq_parse_done;
    }

    cseq_value->cseq_method = i;
    cseq_value->sip_value_end = sip_header->sip_hdr_current;
cseq_parse_done:

    sip_header->sip_hdr_parsed = parsed_header;

    *header = parsed_header;
    return (0);
}


/*
 * Via =  ( "Via" / "v" ) HCOLON via-parm *(COMMA via-parm)
 * via-parm          =  sent-protocol LWS sent-by *( SEMI via-params )
 * via-params        =  via-ttl / via-maddr
 *                      / via-received / via-branch
 *                      / via-extension
 * via-ttl           =  "ttl" EQUAL ttl
 * via-maddr         =  "maddr" EQUAL host
 * via-received      =  "received" EQUAL (IPv4address / IPv6address)
 * via-branch        =  "branch" EQUAL token
 * via-extension     =  generic-param
 * sent-protocol     =  protocol-name SLASH protocol-version
 *                      SLASH transport
 * protocol-name     =  "SIP" / token
 * protocol-version  =  token
 * transport         =  "UDP" / "TCP" / "TLS" / "SCTP"
 *                      / other-transport
 * sent-by           =  host [ COLON port ]
 * ttl               =  1*3DIGIT ; 0 to 255
 *
 * There can be multiple via headers we always append the header.
 */
int
sip_parse_via_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    int         ret;
    sip_hdr_value_t     *value = NULL;
    sip_hdr_value_t     *last_value = NULL;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;

    while (sip_header->sip_hdr_current < sip_header->sip_hdr_end) {

        value = calloc(1, sizeof (sip_hdr_value_t));
        if (value == NULL) {
            sip_free_phdr(parsed_header);
            return (ENOMEM);
        }
        if (last_value != NULL)
            last_value->sip_next_value = value;
        else
            parsed_header->value = (sip_value_t *)value;

        value->sip_value_version = SIP_VALUE_VERSION_1;
        value->sip_value_start = sip_header->sip_hdr_current;
        value->sip_value_header = parsed_header;
        value->via_protocol_name.sip_str_ptr =
            sip_header->sip_hdr_current;

        /*
         * Check to see if there is a version number
         */
        if (sip_get_protocol_version(sip_header,
            &value->via_protocol) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        if (sip_find_token(sip_header, SIP_SLASH) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        if (sip_skip_white_space(sip_header) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        value->via_protocol_transport.sip_str_ptr =
            sip_header->sip_hdr_current;
        if (sip_find_white_space(sip_header) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        value->via_protocol_transport.sip_str_len =
            sip_header->sip_hdr_current -
            value->via_protocol_transport.sip_str_ptr;

        if (sip_skip_white_space(sip_header) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        value->via_sent_by_host.sip_str_ptr =
            sip_header->sip_hdr_current;
        if (*sip_header->sip_hdr_current == '[') {
            if (sip_find_token(sip_header, ']')) {
                if (sip_goto_next_value(sip_header) != 0) {
                    sip_free_phdr(parsed_header);
                    return (EPROTO);
                }
                value->sip_value_state = SIP_VALUE_BAD;
                goto get_next_via_value;
            }
        } else if (sip_find_separator(sip_header, SIP_SEMI, SIP_COMMA,
            SIP_HCOLON, B_FALSE)) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }
        value->via_sent_by_host.sip_str_len =
            sip_header->sip_hdr_current -
            value->via_sent_by_host.sip_str_ptr;

        if (sip_skip_white_space(sip_header) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        if (*sip_header->sip_hdr_current == SIP_HCOLON) {
            sip_header->sip_hdr_current++;
            /*
             * We have a port number
             */
            if (sip_atoi(sip_header, &value->via_sent_by_port) !=
                0) {
                if (sip_goto_next_value(sip_header) != 0) {
                    sip_free_phdr(parsed_header);
                    return (EPROTO);
                }
                value->sip_value_state = SIP_VALUE_BAD;
                goto get_next_via_value;
            }

        }

        /*
         * Do some sanity checking.
         * This should be replaced by a v4/v6 address check.
         */
        if (value->via_sent_by_host.sip_str_len == 0 ||
            (!isalnum(*value->via_sent_by_host.sip_str_ptr) &&
            *value->via_sent_by_host.sip_str_ptr != '[')) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_phdr(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_via_value;
        }

        ret = sip_parse_params(sip_header, &value->sip_param_list);
        if (ret == EPROTO) {
            value->sip_value_state = SIP_VALUE_BAD;
        } else if (ret != 0) {
            sip_free_phdr(parsed_header);
            return (ret);
        }
get_next_via_value:
        value->sip_value_end = sip_header->sip_hdr_current;

        if (sip_find_token(sip_header, SIP_COMMA) != 0)
            break;
        last_value = value;
        (void) sip_skip_white_space(sip_header);
    }

    sip_header->sip_hdr_parsed = parsed_header;

    *header = parsed_header;
    return (0);
}

/*
 * Max-Forwards  =  "Max-Forwards" HCOLON 1*DIGIT
 */
int
sip_parse_maxf_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser2(sip_header, header, SIP_INT_VAL));
}

/*
 * Content-Type     =  ( "Content-Type" / "c" ) HCOLON media-type
 * media-type       =  m-type SLASH m-subtype *(SEMI m-parameter)
 * m-type           =  discrete-type / composite-type
 * discrete-type    =  "text" / "image" / "audio" / "video"
 *                     / "application" / extension-token
 * composite-type   =  "message" / "multipart" / extension-token
 * extension-token  =  ietf-token / x-token
 * ietf-token       =  token
 * x-token          =  "x-" token
 * m-subtype        =  extension-token / iana-token
 * iana-token       =  token
 * m-parameter      =  m-attribute EQUAL m-value
 * m-attribute      =  token
 * m-value          =  token / quoted-string
 */
int
sip_parse_ctype_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser1(sip_header, header, SIP_SLASH));
}

/*
 * Content-Length  =  ( "Content-Length" / "l" ) HCOLON 1*DIGIT
 */
int
sip_parse_clen_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser2(sip_header, header, SIP_INT_VAL));
}

/*
 * Generic parser for Contact, From, To, Route and Record-Route headers
 *
 * Contact = ("Contact" / "m" ) HCOLON
 *      ( STAR / (contact-param *(COMMA contact-param)))
 * contact-param  =  (name-addr / addr-spec) *(SEMI contact-params)
 * name-addr      =  [ display-name ] LAQUOT addr-spec RAQUOT
 * addr-spec      =  SIP-URI / SIPS-URI / absoluteURI
 * display-name   =  *(token LWS)/ quoted-string
 * contact-params     =  c-p-q / c-p-expires
 *                     / contact-extension
 *
 * From =  ( "From" / "f" ) HCOLON from-spec
 * from-spec = ( name-addr / addr-spec )
 *  *( SEMI from-param )
 * from-param  =  tag-param / generic-param
 * tag-param   =  "tag" EQUAL token
 *
 * To =  ( "To" / "t" ) HCOLON ( name-addr
 *  / addr-spec ) *( SEMI to-param )
 * to-param  =  tag-param / generic-param
 *
 * Route        =  "Route" HCOLON route-param *(COMMA route-param)
 * route-param  =  name-addr *( SEMI rr-param )
 *
 * Record-Route  =  "Record-Route" HCOLON rec-route *(COMMA rec-route)
 * rec-route     =  name-addr *( SEMI rr-param )
 * rr-param      =  generic-param
 *
 * We could have multiple values for these headers. For the ones that have
 * a display name we will have a LAQUOT/RAQUOT. If we encounter an error
 * when parsing a value, we mark the value as bad and start paring the
 * next value, if present. Before we start parsing the next value, we
 * check for any parameters, if present.
 */
int
sip_parse_cftr_header(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    sip_parsed_header_t *parsed_header;
    char            *tmp_ptr;
    char            *tmp_ptr_2;
    int         ret;
    sip_hdr_value_t     *value = NULL;
    sip_hdr_value_t     *last_value = NULL;

    if ((ret = sip_prim_parsers(sip_header, header)) != 0)
        return (ret);

    if (*header != NULL)
        return (0);

    parsed_header = calloc(1, sizeof (sip_parsed_header_t));
    if (parsed_header == NULL)
        return (ENOMEM);
    parsed_header->sip_parsed_header_version = SIP_PARSED_HEADER_VERSION_1;
    parsed_header->sip_header = sip_header;
    while (sip_header->sip_hdr_current < sip_header->sip_hdr_end) {
        boolean_t   quoted_name = B_FALSE;

        value =  calloc(1, sizeof (sip_hdr_value_t));
        if (value == NULL) {
            sip_free_cftr_header(parsed_header);
            return (ENOMEM);
        }
        if (last_value != NULL)
            last_value->sip_next_value = value;
        else
            parsed_header->value = (sip_value_t *)value;
        if (*sip_header->sip_hdr_current == SIP_QUOTE) {
            sip_header->sip_hdr_current++;
            quoted_name = B_TRUE;
        }
        value->sip_value_version = SIP_VALUE_VERSION_1;
        value->sip_value_start = sip_header->sip_hdr_current;
        value->sip_value_header = parsed_header;
        /*
         * let's see if there is a display name
         */
        if (*sip_header->sip_hdr_current != SIP_LAQUOT) {

            tmp_ptr = sip_header->sip_hdr_current;
            /*
             * According to 20.10 '<' may not have a leading
             * space.
             */
            if (quoted_name &&
                sip_find_token(sip_header, SIP_QUOTE) != 0) {
                if (sip_goto_next_value(sip_header) != 0) {
                    sip_free_cftr_header(parsed_header);
                    return (EPROTO);
                }
                value->sip_value_state = SIP_VALUE_BAD;
                goto get_next_cftr_value;
            } else if (sip_find_separator(sip_header, SIP_SEMI,
                SIP_LAQUOT, SIP_COMMA, B_TRUE) != 0) {
                /*
                 * only a uri.
                 */
                value->cftr_uri.sip_str_ptr = tmp_ptr;
                value->cftr_uri.sip_str_len =
                    sip_header->sip_hdr_current - tmp_ptr;
                /*
                 * It's an error not to have a uri.
                 */
                if (value->cftr_uri.sip_str_len == 0) {
                    if (sip_goto_next_value(sip_header) !=
                        0) {
                        sip_free_cftr_header(
                            parsed_header);
                        return (EPROTO);
                    }
                    value->sip_value_state = SIP_VALUE_BAD;
                    goto get_next_cftr_value;
                }
                goto get_next_cftr_value;
            }
            /*
             * This is needed to get rid of leading white spaces of
             * display name or uri
             */
            --sip_header->sip_hdr_current;
            (void) sip_reverse_skip_white_space(sip_header);
            ++sip_header->sip_hdr_current;
            tmp_ptr_2 = sip_header->sip_hdr_current;
            if (*sip_header->sip_hdr_current == SIP_SP) {
                if (sip_skip_white_space(sip_header) != 0) {
                    /*
                     * only a uri.
                     */
                    value->cftr_uri.sip_str_ptr = tmp_ptr;
                    value->cftr_uri.sip_str_len =
                        tmp_ptr_2 - tmp_ptr;
                    /*
                     * It's an error not to have a uri.
                     */
                    if (value->cftr_uri.sip_str_len == 0) {
                        if (sip_goto_next_value(
                            sip_header) != 0) {
                            sip_free_cftr_header(
                                parsed_header);
                            return (EPROTO);
                        }
                        value->sip_value_state =
                            SIP_VALUE_BAD;
                        goto get_next_cftr_value;
                    }
                    goto get_next_cftr_value;
                }
            }

            if (*sip_header->sip_hdr_current != SIP_LAQUOT) {
                /*
                 * No display name here.
                 */
                value->cftr_uri.sip_str_ptr = tmp_ptr;
                value->cftr_uri.sip_str_len = tmp_ptr_2 -
                    tmp_ptr;
                /*
                 * It's an error not to have a uri.
                 */
                if (value->cftr_uri.sip_str_len == 0) {
                    if (sip_goto_next_value(sip_header) !=
                        0) {
                        sip_free_cftr_header(
                            parsed_header);
                        return (EPROTO);
                    }
                    value->sip_value_state = SIP_VALUE_BAD;
                    goto get_next_cftr_value;
                }
                goto get_params;
            }

            value->cftr_name = malloc(sizeof (sip_str_t));
            if (value->cftr_name == NULL) {
                sip_free_cftr_header(parsed_header);
                return (ENOMEM);
            }
            value->cftr_name->sip_str_ptr = tmp_ptr;
            value->cftr_name->sip_str_len = tmp_ptr_2 - tmp_ptr;
            if (quoted_name)
                value->cftr_name->sip_str_len--;
        }

        if (sip_find_token(sip_header, SIP_LAQUOT) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_cftr_header(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_cftr_value;
        }

        if (*sip_header->sip_hdr_current == SIP_SP) {
            if (sip_skip_white_space(sip_header) != 0) {
                if (sip_goto_next_value(sip_header) != 0) {
                    sip_free_cftr_header(parsed_header);
                    return (EPROTO);
                }
                value->sip_value_state = SIP_VALUE_BAD;
                goto get_next_cftr_value;
            }
        }

        tmp_ptr = sip_header->sip_hdr_current;

        if (sip_find_separator(sip_header, SIP_RAQUOT, (char)NULL,
            (char)NULL, B_FALSE)) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_cftr_header(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_cftr_value;
        }

        value->cftr_uri.sip_str_ptr = tmp_ptr;
        value->cftr_uri.sip_str_len =
            sip_header->sip_hdr_current - tmp_ptr;

        if (sip_find_token(sip_header, SIP_RAQUOT) != 0) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_cftr_header(parsed_header);
                return (EINVAL);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_cftr_value;
        }

        if (value->cftr_uri.sip_str_len <= strlen("<>")) {
            if (sip_goto_next_value(sip_header) != 0) {
                sip_free_cftr_header(parsed_header);
                return (EPROTO);
            }
            value->sip_value_state = SIP_VALUE_BAD;
            goto get_next_cftr_value;
        }

get_params:
        ret = sip_parse_params(sip_header, &value->sip_param_list);
        if (ret == EPROTO) {
            value->sip_value_state = SIP_VALUE_BAD;
        } else if (ret != 0) {
            sip_free_cftr_header(parsed_header);
            return (ret);
        }
get_next_cftr_value:
        value->sip_value_end = sip_header->sip_hdr_current;

        /*
         * Parse uri
         */
        if (value->cftr_uri.sip_str_len > 0) {
            int         error;
            uint_t          uri_errflags;
            char            *uri = "*";
            _sip_msg_t      *sip_msg;
            sip_message_type_t  *msg_type;

            value->sip_value_parsed_uri = sip_parse_uri(
                &value->cftr_uri, &error);
            if (value->sip_value_parsed_uri == NULL) {
                sip_free_cftr_header(parsed_header);
                return (ENOMEM);
            }
            uri_errflags = ((_sip_uri_t *)value->
                sip_value_parsed_uri)->sip_uri_errflags;
            if (error != 0 || uri_errflags != 0) {
                if ((strcmp(SIP_CONTACT, sip_header->
                    sip_header_functions->header_name) == 0) &&
                    (strncmp(value->cftr_uri.sip_str_ptr, uri,
                    strlen(uri)) == 0) && (strlen(uri) ==
                    value->cftr_uri.sip_str_len)) {
                    sip_msg = sip_header->sip_hdr_sipmsg;
                    msg_type = sip_msg->sip_msg_req_res;
                    if (msg_type->is_request && msg_type->
                        sip_req_method == REGISTER) {
                        error = 0;
                        ((_sip_uri_t *)value->
                            sip_value_parsed_uri)->
                            sip_uri_errflags = 0;
                    } else {
                        value->sip_value_state =
                            SIP_VALUE_BAD;
                    }
                } else {
                    value->sip_value_state = SIP_VALUE_BAD;
                }
            }
        }

        (void) sip_find_token(sip_header, SIP_COMMA);
        last_value = value;
        (void) sip_skip_white_space(sip_header);
    }

    sip_header->sip_hdr_parsed = parsed_header;

    *header = parsed_header;
    return (0);
}

/*
 * PAssertedID = "P-Asserted-Identity" HCOLON PAssertedID-value
 *               *(COMMA PAssertedID-value)
 * PAssertedID-value = name-addr / addr-spec
 */
int
sip_parse_passertedid(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser3(sip_header, header, SIP_STRS_VAL,
        B_TRUE));
}

/*
 * PPreferredID = "P-Preferred-Identity" HCOLON PPreferredID-value
 *               *(COMMA PAssertedID-value)
 * PPreferredID-value = name-addr / addr-spec
 */
int
sip_parse_ppreferredid(_sip_header_t *sip_header, sip_parsed_header_t **header)
{
    return (sip_parse_hdr_parser3(sip_header, header, SIP_STRS_VAL,
        B_TRUE));
}


/*
 * We don't do anything for a header we don't understand
 */
/* ARGSUSED */
int
sip_parse_unknown_header(_sip_header_t *sip_header,
    sip_parsed_header_t **header)
{
    return (EINVAL);
}