/*
 * Copyright (c) 2000-2001 Apple Computer, Inc. All Rights Reserved.
 * 
 * The contents of this file constitute Original Code as defined in and are
 * subject to the Apple Public Source License Version 1.2 (the 'License').
 * You may not use this file except in compliance with the License. Please obtain
 * a copy of the License at http://www.apple.com/publicsource and read it before
 * using this file.
 * 
 * This Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS
 * OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, INCLUDING WITHOUT
 * LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
 * PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT. Please see the License for the
 * specific language governing rights and limitations under the License.
 */


/*
 * asn_len.c - BER encode, decode and utilities for ASN.1 lengths.
 *
 *   indefinite lens are representd by the highest AsnLen
 *
 * MS 92
 * Copyright (C) 1992 Michael Sample and the University of British Columbia
 *
 * This library is free software; you can redistribute it and/or
 * modify it provided that this copyright/license information is retained
 * in original form.
 *
 * If you modify this file, you must clearly indicate your changes.
 *
 * This source code is distributed in the hope that it will be
 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty
 * of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *
 * $Header: /cvs/Darwin/src/live/Security/SecuritySNACCRuntime/c-lib/src/asn-len.c,v 1.1.1.1 2001/05/18 23:14:08 mb Exp $
 * $Log: asn-len.c,v $
 * Revision 1.1.1.1  2001/05/18 23:14:08  mb
 * Move from private repository to open source repository
 *
 * Revision 1.2  2001/05/05 00:59:25  rmurphy
 * Adding darwin license headers
 *
 * Revision 1.1.1.1  1999/03/16 18:06:30  aram
 * Originals from SMIME Free Library.
 *
 * Revision 1.2  1995/07/27 08:58:36  rj
 * merged PeekEoc(), a function used only by the type table code.
 *
 * changed `_' to `-' in file names.
 *
 * Revision 1.1  1994/08/28  09:45:54  rj
 * first check-in. for a list of changes to the snacc-1.1 distribution please refer to the ChangeLog.
 *
 */

#include "asn-config.h"
#include "asn-len.h"


AsnLen
BEncDefLen PARAMS ((b, len),
    BUF_TYPE b _AND_
    AsnLen len)
{
    /*
     * unrolled for efficiency
     * check each possibitlity of the 4 byte integer
     */
    if (len < 128)
    {
        BufPutByteRvs (b, len);
        return 1;
    }
    else if (len < 256)
    {
        BufPutByteRvs (b, len);
        BufPutByteRvs (b, 0x81);
        return 2;
    }
    else if (len < 65536)
    {
        BufPutByteRvs (b, len);
        BufPutByteRvs (b, len >> 8);
        BufPutByteRvs (b, 0x82);
        return 3;
    }
    else if (len < 16777126)
    {
        BufPutByteRvs (b, len);
        BufPutByteRvs (b, len >> 8);
        BufPutByteRvs (b, len >> 16);
        BufPutByteRvs (b, 0x83);
        return 4;
    }
    else
    {
        BufPutByteRvs (b, len);
        BufPutByteRvs (b, len >> 8);
        BufPutByteRvs (b, len >> 16);
        BufPutByteRvs (b, len >> 24);
        BufPutByteRvs (b, 0x84);
        return 5;
    }
} /*  BEncDefLen */


/*
 * non unrolled version
 */
AsnLen
BEncDefLen2 PARAMS ((b, len),
    BUF_TYPE  b _AND_
    long int  len)
{
    int i;
    unsigned long int j;

    if (len < 128)
    {
        BufPutByteRvs (b, len);
        return 1;
    }
    else
    {
        for (i = 0, j = len; j > 0; j >>= 8, i++)
            BufPutByteRvs (b, j);

        BufPutByteRvs (b, 0x80 | i);
        return i + 1;
    }

} /*  BEncDefLen2 */


/*
 * decodes and returns an ASN.1 length
 */
AsnLen
BDecLen PARAMS ((b, bytesDecoded, env),
    BUF_TYPE b _AND_
    unsigned long int  *bytesDecoded _AND_
    jmp_buf env)
{
    AsnLen len;
    AsnLen byte;
    int lenBytes;

    byte = (unsigned long int) BufGetByte (b);

    if (BufReadError (b))
    {
        Asn1Error ("BDecLen: ERROR - decoded past end of data\n");
        longjmp (env, -13);
    }

    (*bytesDecoded)++;
    if (byte < 128)   /* short length */
        return byte;

    else if (byte == (AsnLen) 0x080)  /* indef len indicator */
        return INDEFINITE_LEN;

    else  /* long len form */
    {
        /*
         * strip high bit to get # bytes left in len
         */
        lenBytes = byte & (AsnLen) 0x7f;

        if (lenBytes > sizeof (AsnLen))
        {
            Asn1Error ("BDecLen: ERROR - length overflow\n");
            longjmp (env, -14);
        }

        (*bytesDecoded) += lenBytes;

        for (len = 0; lenBytes > 0; lenBytes--)
            len = (len << 8) | (AsnLen) BufGetByte (b);


        if (BufReadError (b))
        {
            Asn1Error ("BDecLen: ERROR - decoded past end of data\n");
            longjmp (env, -15);
        }

        return len;
    }
    /* not reached */
} /* BDecLen */


/* MACRO
AsnLen
BEncEoc PARAMS ((b),
    BUF_TYPE b)
{
    BufPutByteRvs (b, 0);
    BufPutByteRvs (b, 0);
    return 2;
}   BEncEoc */

/*
 * Decodes an End of Contents (EOC) marker from the given buffer.
 * Flags and error if the octets are non-zero or if a read error
 * occurs.  Increments bytesDecoded by the length of the EOC marker.
 */
void
BDecEoc PARAMS ((b, bytesDecoded, env),
    BUF_TYPE b _AND_
    AsnLen *bytesDecoded _AND_
    jmp_buf env)
{
    if ((BufGetByte (b) != 0) || (BufGetByte (b) != 0) || BufReadError (b))
    {
        Asn1Error ("BDecEoc: ERROR - non zero byte in EOC or end of data reached\n");
        longjmp (env, -16);
    }
    (*bytesDecoded) += 2;

}  /* BDecEoc */

#if TTBL
/* returns true if the next tag is actually and EOC */
int PeekEoc PARAMS ((b),
    BUF_TYPE b)
{
    return BufPeekByte (b) == 0;
}  /* PeekEoc */
#endif
