pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
/*! \file ssl/ssl_cert.c */
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
 * All rights reserved.
 *
 * This package is an SSL implementation written
 * by Eric Young (eay@cryptsoft.com).
 * The implementation was written so as to conform with Netscapes SSL.
 * 
 * This library is free for commercial and non-commercial use as long as
 * the following conditions are aheared to.  The following conditions
 * apply to all code found in this distribution, be it the RC4, RSA,
 * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
 * included with this distribution is covered by the same copyright terms
 * except that the holder is Tim Hudson (tjh@cryptsoft.com).
 * 
 * Copyright remains Eric Young's, and as such any Copyright notices in
 * the code are not to be removed.
 * If this package is used in a product, Eric Young should be given attribution
 * as the author of the parts of the library used.
 * This can be in the form of a textual message at program startup or
 * in documentation (online or textual) provided with the package.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *    "This product includes cryptographic software written by
 *     Eric Young (eay@cryptsoft.com)"
 *    The word 'cryptographic' can be left out if the rouines from the library
 *    being used are not cryptographic related :-).
 * 4. If you include any Windows specific code (or a derivative thereof) from 
 *    the apps directory (application code) you must include an acknowledgement:
 *    "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
 * 
 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * 
 * The licence and distribution terms for any publically available version or
 * derivative of this code cannot be changed.  i.e. this code cannot simply be
 * copied and put under another distribution licence
 * [including the GNU Public Licence.]
 */
/* ====================================================================
 * Copyright (c) 1999 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    openssl-core@OpenSSL.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 */
/* ====================================================================
 * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
 * ECC cipher suite support in OpenSSL originally developed by 
 * SUN MICROSYSTEMS, INC., and contributed to the OpenSSL project.
 */

#include <stdio.h>

#include "e_os.h"
#ifndef NO_SYS_TYPES_H
# include <sys/types.h>
#endif

#include "o_dir.h"
#include <openssl/objects.h>
#include <openssl/bio.h>
#include <openssl/pem.h>
#include <openssl/x509v3.h>
#ifndef OPENSSL_NO_DH
#include <openssl/dh.h>
#endif
#include <openssl/bn.h>
#include "ssl_locl.h"

int SSL_get_ex_data_X509_STORE_CTX_idx(void)
	{
	static volatile int ssl_x509_store_ctx_idx= -1;

	if (ssl_x509_store_ctx_idx < 0)
		{
		/* any write lock will do; usually this branch
		 * will only be taken once anyway */
		CRYPTO_w_lock(CRYPTO_LOCK_SSL_CTX);
		
		if (ssl_x509_store_ctx_idx < 0)
			{
			ssl_x509_store_ctx_idx=X509_STORE_CTX_get_ex_new_index(
				0,"SSL for verify callback",NULL,NULL,NULL);
			}
		
		CRYPTO_w_unlock(CRYPTO_LOCK_SSL_CTX);
		}
	return ssl_x509_store_ctx_idx;
	}

CERT *ssl_cert_new(void)
	{
	CERT *ret;

	ret=(CERT *)OPENSSL_malloc(sizeof(CERT));
	if (ret == NULL)
		{
		SSLerr(SSL_F_SSL_CERT_NEW,ERR_R_MALLOC_FAILURE);
		return(NULL);
		}
	memset(ret,0,sizeof(CERT));

	ret->key= &(ret->pkeys[SSL_PKEY_RSA_ENC]);
	ret->references=1;

	return(ret);
	}

CERT *ssl_cert_dup(CERT *cert)
	{
	CERT *ret;
	int i;

	ret = (CERT *)OPENSSL_malloc(sizeof(CERT));
	if (ret == NULL)
		{
		SSLerr(SSL_F_SSL_CERT_DUP, ERR_R_MALLOC_FAILURE);
		return(NULL);
		}

	memset(ret, 0, sizeof(CERT));

	ret->key = &ret->pkeys[cert->key - &cert->pkeys[0]];
	/* or ret->key = ret->pkeys + (cert->key - cert->pkeys),
	 * if you find that more readable */

	ret->valid = cert->valid;
	ret->mask = cert->mask;
	ret->export_mask = cert->export_mask;

#ifndef OPENSSL_NO_RSA
	if (cert->rsa_tmp != NULL)
		{
		RSA_up_ref(cert->rsa_tmp);
		ret->rsa_tmp = cert->rsa_tmp;
		}
	ret->rsa_tmp_cb = cert->rsa_tmp_cb;
#endif

#ifndef OPENSSL_NO_DH
	if (cert->dh_tmp != NULL)
		{
		ret->dh_tmp = DHparams_dup(cert->dh_tmp);
		if (ret->dh_tmp == NULL)
			{
			SSLerr(SSL_F_SSL_CERT_DUP, ERR_R_DH_LIB);
			goto err;
			}
		if (cert->dh_tmp->priv_key)
			{
			BIGNUM *b = BN_dup(cert->dh_tmp->priv_key);
			if (!b)
				{
				SSLerr(SSL_F_SSL_CERT_DUP, ERR_R_BN_LIB);
				goto err;
				}
			ret->dh_tmp->priv_key = b;
			}
		if (cert->dh_tmp->pub_key)
			{
			BIGNUM *b = BN_dup(cert->dh_tmp->pub_key);
			if (!b)
				{
				SSLerr(SSL_F_SSL_CERT_DUP, ERR_R_BN_LIB);
				goto err;
				}
			ret->dh_tmp->pub_key = b;
			}
		}
	ret->dh_tmp_cb = cert->dh_tmp_cb;
#endif

#ifndef OPENSSL_NO_ECDH
	if (cert->ecdh_tmp)
		{
		ret->ecdh_tmp = EC_KEY_dup(cert->ecdh_tmp);
		if (ret->ecdh_tmp == NULL)
			{
			SSLerr(SSL_F_SSL_CERT_DUP, ERR_R_EC_LIB);
			goto err;
			}
		}
	ret->ecdh_tmp_cb = cert->ecdh_tmp_cb;
#endif

	for (i = 0; i < SSL_PKEY_NUM; i++)
		{
		if (cert->pkeys[i].x509 != NULL)
			{
			ret->pkeys[i].x509 = cert->pkeys[i].x509;
			CRYPTO_add(&ret->pkeys[i].x509->references, 1,
				CRYPTO_LOCK_X509);
			}
		
		if (cert->pkeys[i].privatekey != NULL)
			{
			ret->pkeys[i].privatekey = cert->pkeys[i].privatekey;
			CRYPTO_add(&ret->pkeys[i].privatekey->references, 1,
				CRYPTO_LOCK_EVP_PKEY);

			switch(i) 
				{
				/* If there was anything special to do for
				 * certain types of keys, we'd do it here.
				 * (Nothing at the moment, I think.) */

			case SSL_PKEY_RSA_ENC:
			case SSL_PKEY_RSA_SIGN:
				/* We have an RSA key. */
				break;
				
			case SSL_PKEY_DSA_SIGN:
				/* We have a DSA key. */
				break;
				
			case SSL_PKEY_DH_RSA:
			case SSL_PKEY_DH_DSA:
				/* We have a DH key. */
				break;

			case SSL_PKEY_ECC:
				/* We have an ECC key */
				break;

			default:
				/* Can't happen. */
				SSLerr(SSL_F_SSL_CERT_DUP, SSL_R_LIBRARY_BUG);
				}
			}
		}
	
	/* ret->extra_certs *should* exist, but currently the own certificate
	 * chain is held inside SSL_CTX */

	ret->references=1;

	return(ret);
	
#if !defined(OPENSSL_NO_DH) || !defined(OPENSSL_NO_ECDH)
err:
#endif
#ifndef OPENSSL_NO_RSA
	if (ret->rsa_tmp != NULL)
		RSA_free(ret->rsa_tmp);
#endif
#ifndef OPENSSL_NO_DH
	if (ret->dh_tmp != NULL)
		DH_free(ret->dh_tmp);
#endif
#ifndef OPENSSL_NO_ECDH
	if (ret->ecdh_tmp != NULL)
		EC_KEY_free(ret->ecdh_tmp);
#endif

	for (i = 0; i < SSL_PKEY_NUM; i++)
		{
		if (ret->pkeys[i].x509 != NULL)
			X509_free(ret->pkeys[i].x509);
		if (ret->pkeys[i].privatekey != NULL)
			EVP_PKEY_free(ret->pkeys[i].privatekey);
		}

	return NULL;
	}


void ssl_cert_free(CERT *c)
	{
	int i;

	if(c == NULL)
	    return;

	i=CRYPTO_add(&c->references,-1,CRYPTO_LOCK_SSL_CERT);
#ifdef REF_PRINT
	REF_PRINT("CERT",c);
#endif
	if (i > 0) return;
#ifdef REF_CHECK
	if (i < 0)
		{
		fprintf(stderr,"ssl_cert_free, bad reference count\n");
		abort(); /* ok */
		}
#endif

#ifndef OPENSSL_NO_RSA
	if (c->rsa_tmp) RSA_free(c->rsa_tmp);
#endif
#ifndef OPENSSL_NO_DH
	if (c->dh_tmp) DH_free(c->dh_tmp);
#endif
#ifndef OPENSSL_NO_ECDH
	if (c->ecdh_tmp) EC_KEY_free(c->ecdh_tmp);
#endif

	for (i=0; i<SSL_PKEY_NUM; i++)
		{
		if (c->pkeys[i].x509 != NULL)
			X509_free(c->pkeys[i].x509);
		if (c->pkeys[i].privatekey != NULL)
			EVP_PKEY_free(c->pkeys[i].privatekey);
#if 0
		if (c->pkeys[i].publickey != NULL)
			EVP_PKEY_free(c->pkeys[i].publickey);
#endif
		}
	OPENSSL_free(c);
	}

int ssl_cert_inst(CERT **o)
	{
	/* Create a CERT if there isn't already one
	 * (which cannot really happen, as it is initially created in
	 * SSL_CTX_new; but the earlier code usually allows for that one
	 * being non-existant, so we follow that behaviour, as it might
	 * turn out that there actually is a reason for it -- but I'm
	 * not sure that *all* of the existing code could cope with
	 * s->cert being NULL, otherwise we could do without the
	 * initialization in SSL_CTX_new).
	 */
	
	if (o == NULL) 
		{
		SSLerr(SSL_F_SSL_CERT_INST, ERR_R_PASSED_NULL_PARAMETER);
		return(0);
		}
	if (*o == NULL)
		{
		if ((*o = ssl_cert_new()) == NULL)
			{
			SSLerr(SSL_F_SSL_CERT_INST, ERR_R_MALLOC_FAILURE);
			return(0);
			}
		}
	return(1);
	}


SESS_CERT *ssl_sess_cert_new(void)
	{
	SESS_CERT *ret;

	ret = OPENSSL_malloc(sizeof *ret);
	if (ret == NULL)
		{
		SSLerr(SSL_F_SSL_SESS_CERT_NEW, ERR_R_MALLOC_FAILURE);
		return NULL;
		}

	memset(ret, 0 ,sizeof *ret);
	ret->peer_key = &(ret->peer_pkeys[SSL_PKEY_RSA_ENC]);
	ret->references = 1;

	return ret;
	}

void ssl_sess_cert_free(SESS_CERT *sc)
	{
	int i;

	if (sc == NULL)
		return;

	i = CRYPTO_add(&sc->references, -1, CRYPTO_LOCK_SSL_SESS_CERT);
#ifdef REF_PRINT
	REF_PRINT("SESS_CERT", sc);
#endif
	if (i > 0)
		return;
#ifdef REF_CHECK
	if (i < 0)
		{
		fprintf(stderr,"ssl_sess_cert_free, bad reference count\n");
		abort(); /* ok */
		}
#endif

	/* i == 0 */
	if (sc->cert_chain != NULL)
		sk_X509_pop_free(sc->cert_chain, X509_free);
	for (i = 0; i < SSL_PKEY_NUM; i++)
		{
		if (sc->peer_pkeys[i].x509 != NULL)
			X509_free(sc->peer_pkeys[i].x509);
#if 0 /* We don't have the peer's private key.  These lines are just
	   * here as a reminder that we're still using a not-quite-appropriate
	   * data structure. */
		if (sc->peer_pkeys[i].privatekey != NULL)
			EVP_PKEY_free(sc->peer_pkeys[i].privatekey);
#endif
		}

#ifndef OPENSSL_NO_RSA
	if (sc->peer_rsa_tmp != NULL)
		RSA_free(sc->peer_rsa_tmp);
#endif
#ifndef OPENSSL_NO_DH
	if (sc->peer_dh_tmp != NULL)
		DH_free(sc->peer_dh_tmp);
#endif
#ifndef OPENSSL_NO_ECDH
	if (sc->peer_ecdh_tmp != NULL)
		EC_KEY_free(sc->peer_ecdh_tmp);
#endif

	OPENSSL_free(sc);
	}

int ssl_set_peer_cert_type(SESS_CERT *sc,int type)
	{
	sc->peer_cert_type = type;
	return(1);
	}

int ssl_verify_cert_chain(SSL *s,STACK_OF(X509) *sk)
	{
	X509 *x;
	int i;
	X509_STORE_CTX ctx;

	if ((sk == NULL) || (sk_X509_num(sk) == 0))
		return(0);

	x=sk_X509_value(sk,0);
	if(!X509_STORE_CTX_init(&ctx,s->ctx->cert_store,x,sk))
		{
		SSLerr(SSL_F_SSL_VERIFY_CERT_CHAIN,ERR_R_X509_LIB);
		return(0);
		}
	if (s->param)
		X509_VERIFY_PARAM_inherit(X509_STORE_CTX_get0_param(&ctx),
						s->param);
#if 0
	if (SSL_get_verify_depth(s) >= 0)
		X509_STORE_CTX_set_depth(&ctx, SSL_get_verify_depth(s));
#endif
	X509_STORE_CTX_set_ex_data(&ctx,SSL_get_ex_data_X509_STORE_CTX_idx(),s);

	/* We need to inherit the verify parameters. These can be determined by
	 * the context: if its a server it will verify SSL client certificates
	 * or vice versa.
	 */

	X509_STORE_CTX_set_default(&ctx,
				s->server ? "ssl_client" : "ssl_server");

	if (s->verify_callback)
		X509_STORE_CTX_set_verify_cb(&ctx, s->verify_callback);

	if (s->ctx->app_verify_callback != NULL)
#if 1 /* new with OpenSSL 0.9.7 */
		i=s->ctx->app_verify_callback(&ctx, s->ctx->app_verify_arg); 
#else
		i=s->ctx->app_verify_callback(&ctx); /* should pass app_verify_arg */
#endif
	else
		{
#ifndef OPENSSL_NO_X509_VERIFY
		i=X509_verify_cert(&ctx);
#else
		i=0;
		ctx.error=X509_V_ERR_APPLICATION_VERIFICATION;
		SSLerr(SSL_F_SSL_VERIFY_CERT_CHAIN,SSL_R_NO_VERIFY_CALLBACK);
#endif
		}

	s->verify_result=ctx.error;
	X509_STORE_CTX_cleanup(&ctx);

	return(pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
/* ====================================================================
 * Copyright (c) 1998-1999 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    openssl-core@openssl.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */
 
 
 
 #include "CPStringUtils.hpp"
#include "ErrorHandling.hpp"



#define kNumberFormatString			"\p########0.00#######;-########0.00#######"



//	Useful utility functions which could be optimized a whole lot


void CopyPStrToCStr(const unsigned char *thePStr,char *theCStr,const int maxCStrLength)
{
int		i,numPChars;


	if (thePStr != nil && theCStr != nil && maxCStrLength > 0)
	{
		numPChars = thePStr[0];
		
		for (i = 0;;i++)
		{
			if (i >= numPChars || i >= maxCStrLength - 1)
			{
				theCStr[i] = 0;
				
				break;
			}
			
			else
			{
				theCStr[i] = thePStr[i + 1];
			}
		}
	}
}


void CopyPStrToPStr(const unsigned char *theSrcPStr,unsigned char *theDstPStr,const int maxDstStrLength)
{
int		theMaxDstStrLength;

	
	theMaxDstStrLength = maxDstStrLength;
	
	
	if (theDstPStr != nil && theSrcPStr != nil && theMaxDstStrLength > 0)
	{
		if (theMaxDstStrLength > 255)
		{
			theMaxDstStrLength = 255;
		}
		
		
		if (theMaxDstStrLength - 1 < theSrcPStr[0])
		{
			BlockMove(theSrcPStr + 1,theDstPStr + 1,theMaxDstStrLength - 1);
			
			theDstPStr[0] = theMaxDstStrLength - 1;
		}
		
		else
		{
			BlockMove(theSrcPStr,theDstPStr,theSrcPStr[0] + 1);
		}
	}
}


void CopyCStrToCStr(const char *theSrcCStr,char *theDstCStr,const int maxDstStrLength)
{
int		i;


	if (theDstCStr != nil && theSrcCStr != nil && maxDstStrLength > 0)
	{
		for (i = 0;;i++)
		{
			if (theSrcCStr[i] == 0 || i >= maxDstStrLength - 1)
			{
				theDstCStr[i] = 0;
				
				break;
			}
			
			else
			{
				theDstCStr[i] = theSrcCStr[i];
			}
		}
	}
}



void CopyCSubstrToCStr(const char *theSrcCStr,const int maxCharsToCopy,char *theDstCStr,const int maxDstStrLength)
{
int		i;


	if (theDstCStr != nil && theSrcCStr != nil && maxDstStrLength > 0)
	{
		for (i = 0;;i++)
		{
			if (theSrcCStr[i] == 0 || i >= maxDstStrLength - 1 || i >= maxCharsToCopy)
			{
				theDstCStr[i] = 0;
				
				break;
			}
			
			else
			{
				theDstCStr[i] = theSrcCStr[i];
			}
		}
	}
}



void CopyCSubstrToPStr(const char *theSrcCStr,const int maxCharsToCopy,unsigned char *theDstPStr,const int maxDstStrLength)
{
int		i;
int		theMaxDstStrLength;

	
	theMaxDstStrLength = maxDstStrLength;

	if (theDstPStr != nil && theSrcCStr != nil && theMaxDstStrLength > 0)
	{
		if (theMaxDstStrLength > 255)
		{
			theMaxDstStrLength = 255;
		}
		
		
		for (i = 0;;i++)
		{
			if (theSrcCStr[i] == 0 || i >= theMaxDstStrLength - 1 || i >= maxCharsToCopy)
			{
				theDstPStr[0] = i;
				
				break;
			}
			
			else
			{
				theDstPStr[i + 1] = theSrcCStr[i];
			}
		}
	}
}



void CopyCStrToPStr(const char *theSrcCStr,unsigned char *theDstPStr,const int maxDstStrLength)
{
int		i;
int		theMaxDstStrLength;

	
	theMaxDstStrLength = maxDstStrLength;

	if (theDstPStr != nil && theSrcCStr != nil && theMaxDstStrLength > 0)
	{
		if (theMaxDstStrLength > 255)
		{
			theMaxDstStrLength = 255;
		}
		
		
		for (i = 0;;i++)
		{
			if (i >= theMaxDstStrLength - 1 || theSrcCStr[i] == 0)
			{
				theDstPStr[0] = i;
				
				break;
			}
			
			else
			{
				theDstPStr[i + 1] = theSrcCStr[i];
			}
		}
	}
}


void ConcatPStrToCStr(const unsigned char *thePStr,char *theCStr,const int maxCStrLength)
{
int		i,numPChars,cStrLength;


	if (thePStr != nil && theCStr != nil && maxCStrLength > 0)
	{
		for (cStrLength = 0;theCStr[cStrLength] != 0;cStrLength++)
		{
		
		}
		

		numPChars = thePStr[0];
		
		
		for (i = 0;;i++)
		{
			if (i >= numPChars || cStrLength >= maxCStrLength - 1)
			{
				theCStr[cStrLength++] = 0;
				
				break;
			}
			
			else
			{
				theCStr[cStrLength++] = thePStr[i + 1];
			}
		}
	}
}



void ConcatPStrToPStr(const unsigned char *theSrcPStr,unsigned char *theDstPStr,const int maxDstStrLength)
{
int		theMaxDstStrLength;

	
	theMaxDstStrLength = maxDstStrLength;
	
	if (theSrcPStr != nil && theDstPStr != nil && theMaxDstStrLength > 0)
	{
		if (theMaxDstStrLength > 255)
		{
			theMaxDstStrLength = 255;
		}
		
		
		if (theMaxDstStrLength - theDstPStr[0] - 1 < theSrcPStr[0])
		{
			BlockMove(theSrcPStr + 1,theDstPStr + theDstPStr[0] + 1,theMaxDstStrLength - 1 - theDstPStr[0]);
			
			theDstPStr[0] = theMaxDstStrLength - 1;
		}
		
		else
		{
			BlockMove(theSrcPStr + 1,theDstPStr + theDstPStr[0] + 1,theSrcPStr[0]);
			
			theDstPStr[0] += theSrcPStr[0];
		}
	}
}



void ConcatCStrToPStr(const char *theSrcCStr,unsigned char *theDstPStr,const int maxDstStrLength)
{
int		i,thePStrLength;
int		theMaxDstStrLength;

	
	theMaxDstStrLength = maxDstStrLength;

	if (theSrcCStr != nil && theDstPStr != nil && theMaxDstStrLength > 0)
	{
		if (theMaxDstStrLength > 255)
		{
			theMaxDstStrLength = 255;
		}
		
		
		thePStrLength = theDstPStr[0];
		
		for (i = 0;;i++)
		{
			if (theSrcCStr[i] == 0 || thePStrLength >= theMaxDstStrLength - 1)
			{
				theDstPStr[0] = thePStrLength;
				
				break;
			}
			
			else
			{
				theDstPStr[thePStrLength + 1] = theSrcCStr[i];
				
				thePStrLength++;
			}
		}
	}
}



void ConcatCStrToCStr(const char *theSrcCStr,char *theDstCStr,const int maxCStrLength)
{
int		cStrLength;


	if (theSrcCStr != nil && theDstCStr != nil && maxCStrLength > 0)
	{
		for (cStrLength = 0;theDstCStr[cStrLength] != 0;cStrLength++)
		{
		
		}
		

		for (;;)
		{
			if (*theSrcCStr == 0 || cStrLength >= maxCStrLength - 1)
			{
				theDstCStr[cStrLength++] = 0;
				
				break;
			}
			
			else
			{
				theDstCStr[cStrLength++] = *theSrcCStr++;
			}
		}
	}
}



void ConcatCharToCStr(const char theChar,char *theDstCStr,const int maxCStrLength)
{
int		cStrLength;


	if (theDstCStr != nil && maxCStrLength > 0)
	{
		cStrLength = CStrLength(theDstCStr);
		
		if (cStrLength < maxCStrLength - 1)
		{
			theDstCStr[cStrLength++] = theChar;
			theDstCStr[cStrLength++] = '\0';
		}
	}
}



void ConcatCharToPStr(const char theChar,unsigned char *theDstPStr,const int maxPStrLength)
{
int		pStrLength;


	if (theDstPStr != nil && maxPStrLength > 0)
	{
		pStrLength = PStrLength(theDstPStr);
		
		if (pStrLength < maxPStrLength - 1 && pStrLength < 255)
		{
			theDstPStr[pStrLength + 1] = theChar;
			theDstPStr[0] += 1;
		}
	}
}




int CompareCStrs(const char *theFirstCStr,const char *theSecondCStr,const Boolean ignoreCase)
{
int		returnValue;
char	firstChar,secondChar;

	
	returnValue = 0;
	
	
	if (theFirstCStr != nil && theSecondCStr != nil)
	{
		for (;;)
		{
			firstChar = *theFirstCStr;
			secondChar = *theSecondCStr;
			
			if (ignoreCase == true)
			{
				if (firstChar >= 'A' && firstChar <= 'Z')
				{
					firstChar = 'a' + (firstChar - 'A');
				}
				
				if (secondChar >= 'A' && secondChar <= 'Z')
				{
					secondChar = 'a' + (secondChar - 'A');
				}
			}
			
			
			if (firstChar == 0 && secondChar != 0)
			{
				returnValue = -1;
				
				break;
			}
			
			else if (firstChar != 0 && secondChar == 0)
			{
				returnValue = 1;
				
				break;
			}
			
			else if (firstChar == 0 && secondChar == 0)
			{
				returnValue = 0;
				
				break;
			}
			
			else if (firstChar < secondChar)
			{
				returnValue = -1;
				
				break;
			}
			
			else if (firstChar > secondChar)
			{
				returnValue = 1;
				
				break;
			}
			
			theFirstCStr++;
			theSecondCStr++;
		}
	}
	
	
	return(returnValue);
}



Boolean CStrsAreEqual(const char *theFirstCStr,const char *theSecondCStr,const Boolean ignoreCase)
{
	if (CompareCStrs(theFirstCStr,theSecondCStr,ignoreCase) == 0)
	{
		return true;
	}
	
	else
	{
		return false;
	}
}


Boolean PStrsAreEqual(const unsigned char *theFirstPStr,const unsigned char *theSecondPStr,const Boolean ignoreCase)
{
	if (ComparePStrs(theFirstPStr,theSecondPStr,ignoreCase) == 0)
	{
		return true;
	}
	
	else
	{
		return false;
	}
}



int ComparePStrs(const unsigned char *theFirstPStr,const unsigned char *theSecondPStr,const Boolean ignoreCase)
{
int		i,returnValue;
char	firstChar,secondChar;

	
	returnValue = 0;
	
	
	if (theFirstPStr != nil && theSecondPStr != nil)
	{
		for (i = 1;;i++)
		{
			firstChar = theFirstPStr[i];
			secondChar = theSecondPStr[i];

			if (ignoreCase == true)
			{
				if (firstChar >= 'A' && firstChar <= 'Z')
				{
					firstChar = 'a' + (firstChar - 'A');
				}
				
				if (secondChar >= 'A' && secondChar <= 'Z')
				{
					secondChar = 'a' + (secondChar - 'A');
				}
			}


			if (theFirstPStr[0] < i && theSecondPStr[0] >= i)
			{
				returnValue = -1;
				
				break;
			}
			
			else if (theFirstPStr[0] >= i && theSecondPStr[0] < i)
			{
				returnValue = 1;
				
				break;
			}
			
			else if (theFirstPStr[0] < i && theSecondPStr[0] < i)
			{
				returnValue = 0;
				
				break;
			}
			
			else if (firstChar < secondChar)
			{
				returnValue = -1;
				
				break;
			}
			
			else if (firstChar > secondChar)
			{
				returnValue = 1;
				
				break;
			}
		}
	}
	
	
	return(returnValue);
}



int CompareCStrToPStr(const char *theCStr,const unsigned char *thePStr,const Boolean ignoreCase)
{
int		returnValue;
char	tempString[256];

	
	returnValue = 0;
	
	if (theCStr != nil && thePStr != nil)
	{
		CopyPStrToCStr(thePStr,tempString,sizeof(tempString));
		
		returnValue = CompareCStrs(theCStr,tempString,ignoreCase);
	}
	
	
	return(returnValue);
}



void ConcatLongIntToCStr(const long theNum,char *theCStr,const int maxCStrLength,const int numDigits)
{
Str255 		theStr255;


	NumToString(theNum,theStr255);


	if (numDigits > 0)
	{
	int 	charsToInsert;
	
		
		charsToInsert = numDigits - PStrLength(theStr255);
		
		if (charsToInsert > 0)
		{
		char	tempString[256];
			
			CopyCStrToCStr("",tempString,sizeof(tempString));
			
			for (;charsToInsert > 0;charsToInsert--)
			{
				ConcatCStrToCStr("0",tempString,sizeof(tempString));
			}
			
			ConcatPStrToCStr(theStr255,tempString,sizeof(tempString));
			
			CopyCStrToPStr(tempString,theStr255,sizeof(theStr255));
		}
	}


	ConcatPStrToCStr(theStr255,theCStr,maxCStrLength);
}




void ConcatLongIntToPStr(const long theNum,unsigned char *thePStr,const int maxPStrLength,const int numDigits)
{
Str255 		theStr255;


	NumToString(theNum,theStr255);


	if (numDigits > 0)
	{
	int 	charsToInsert;
	
		
		charsToInsert = numDigits - PStrLength(theStr255);
		
		if (charsToInsert > 0)
		{
		char	tempString[256];
			
			CopyCStrToCStr("",tempString,sizeof(tempString));
			
			for (;charsToInsert > 0;charsToInsert--)
			{
				ConcatCStrToCStr("0",tempString,sizeof(tempString));
			}
			
			ConcatPStrToCStr(theStr255,tempString,sizeof(tempString));
			
			CopyCStrToPStr(tempString,theStr255,sizeof(theStr255));
		}
	}


	ConcatPStrToPStr(theStr255,thePStr,maxPStrLength);
}



void CopyCStrAndConcatLongIntToCStr(const char *theSrcCStr,const long theNum,char *theDstCStr,const int maxDstStrLength)
{
	CopyCStrToCStr(theSrcCStr,theDstCStr,maxDstStrLength);
	
	ConcatLongIntToCStr(theNum,theDstCStr,maxDstStrLength);
}



void CopyLongIntToCStr(const long theNum,char *theCStr,const int maxCStrLength,const int numDigits)
{
Str255 		theStr255;


	NumToString(theNum,theStr255);


	if (numDigits > 0)
	{
	int 	charsToInsert;
	
		
		charsToInsert = numDigits - PStrLength(theStr255);
		
		if (charsToInsert > 0)
		{
		char	tempString[256];
			
			CopyCStrToCStr("",tempString,sizeof(tempString));
			
			for (;charsToInsert > 0;charsToInsert--)
			{
				ConcatCStrToCStr("0",tempString,sizeof(tempString));
			}
			
			ConcatPStrToCStr(theStr255,tempString,sizeof(tempString));
			
			CopyCStrToPStr(tempString,theStr255,sizeof(theStr255));
		}
	}


	CopyPStrToCStr(theStr255,theCStr,maxCStrLength);
}





void CopyUnsignedLongIntToCStr(const unsigned long theNum,char *theCStr,const int maxCStrLength)
{
char			tempString[256];
int				srcCharIndex,dstCharIndex;
unsigned long	tempNum,quotient,remainder;

	
	if (theNum == 0)
	{
		CopyCStrToCStr("0",theCStr,maxCStrLength);
	}
	
	else
	{
		srcCharIndex = 0;
		
		tempNum = theNum;
		
		for (;;)
		{
			if (srcCharIndex >= sizeof(tempString) - 1 || tempNum == 0)
			{
				for (dstCharIndex = 0;;)
				{
					if (dstCharIndex >= maxCStrLength - 1 || srcCharIndex <= 0)
					{
						theCStr[dstCharIndex] = 0;
						
						break;
					}
					
					theCStr[dstCharIndex++] = tempString[--srcCharIndex];
				}
				
				break;
			}
			

			quotient = tempNum / 10;
			
			remainder = tempNum - (quotient * 10);
			
			tempString[srcCharIndex] = '0' + remainder;
			
			srcCharIndex++;
			
			tempNum = quotient;
		}
	}
}




void CopyLongIntToPStr(const long theNum,unsigned char *thePStr,const int maxPStrLength,const int numDigits)
{
char	tempString[256];


	CopyLongIntToCStr(theNum,tempString,sizeof(tempString),numDigits);
	
	CopyCStrToPStr(tempString,thePStr,maxPStrLength);
}



OSErr CopyLongIntToNewHandle(const long inTheLongInt,Handle *theHandle)
{
OSErr		errCode = noErr;
char		tempString[32];
	
	
	CopyLongIntToCStr(inTheLongInt,tempString,sizeof(tempString));
	
	errCode = CopyCStrToNewHandle(tempString,theHandle);

	return(errCode);
}


OSErr CopyLongIntToExistingHandle(const long inTheLongInt,Handle theHandle)
{
OSErr		errCode = noErr;
char		tempString[32];
	
	
	CopyLongIntToCStr(inTheLongInt,tempString,sizeof(tempString));
	
	errCode = CopyCStrToExistingHandle(tempString,theHandle);

	return(errCode);
}




OSErr CopyCStrToExistingHandle(const char *theCString,Handle theHandle)
{
OSErr	errCode = noErr;
long	stringLength;

	
	if (theCString == nil)
	{
		SetErrorMessageAndBail(("CopyCStrToExistingHandle: Bad parameter, theCString == nil"));
	}

	if (theHandle == nil)
	{
		SetErrorMessageAndBail(("CopyCStrToExistingHandle: Bad parameter, theHandle == nil"));
	}

	if (*theHandle == nil)
	{
		SetErrorMessageAndBail(("CopyCStrToExistingHandle: Bad parameter, *theHandle == nil"));
	}



	stringLength = CStrLength(theCString) + 1;
	
	SetHandleSize(theHandle,stringLength);
	
	if (GetHandleSize(theHandle) < stringLength)
	{
		SetErrorMessageAndLongIntAndBail("CopyCStrToExistingHandle: Can't set Handle size, MemError() = ",MemError());
	}
	
	
	::BlockMove(theCString,*theHandle,stringLength);
	

EXITPOINT:
	
	return(errCode);
}





OSErr CopyCStrToNewHandle(const char *theCString,Handle *theHandle)
{
OSErr	errCode = noErr;
long	stringLength;

	
	if (theCString == nil)
	{
		SetErrorMessageAndBail(("CopyCStrToNewHandle: Bad parameter, theCString == nil"));
	}

	if (theHandle == nil)
	{
		SetErrorMessageAndBail(("CopyCStrToNewHandle: Bad parameter, theHandle == nil"));
	}



	stringLength = CStrLength(theCString) + 1;
	
	*theHandle = NewHandle(stringLength);
	
	if (*theHandle == nil)
	{
		SetErrorMessageAndLongIntAndBail("CopyCStrToNewHandle: Can't allocate Handle, MemError() = ",MemError());
	}
	
	
	::BlockMove(theCString,**theHandle,stringLength);
	

EXITPOINT:
	
	return(errCode);
}



OSErr CopyPStrToNewHandle(const unsigned char *thePString,Handle *theHandle)
{
OSErr	errCode = noErr;
long	stringLength;

	
	if (thePString == nil)
	{
		SetErrorMessageAndBail(("CopyPStrToNewHandle: Bad parameter, thePString == nil"));
	}

	if (theHandle == nil)
	{
		SetErrorMessageAndBail(("CopyPStrToNewHandle: Bad parameter, theHandle == nil"));
	}



	stringLength = PStrLength(thePString) + 1;
	
	*theHandle = NewHandle(stringLength);
	
	if (*theHandle == nil)
	{
		SetErrorMessageAndLongIntAndBail("CopyPStrToNewHandle: Can't allocate Handle, MemError() = ",MemError());
	}
	
	
	if (stringLength > 1)
	{
		BlockMove(thePString + 1,**theHandle,stringLength - 1);
	}
	
	(**theHandle)[stringLength - 1] = 0;
	

EXITPOINT:
	
	return(errCode);
}


OSErr AppendPStrToHandle(const unsigned char *thePString,Handle theHandle,long *currentLength)
{
OSErr		errCode = noErr;
char		tempString[256];

	
	CopyPStrToCStr(thePString,tempString,sizeof(tempString));
	
	errCode = AppendCStrToHandle(tempString,theHandle,currentLength);
	

EXITPOINT:
	
	return(errCode);
}



OSErr AppendCStrToHandle(const char *theCString,Handle theHandle,long *currentLength,long *maxLength)
{
OSErr		errCode = noErr;
long		handleMaxLength,handleCurrentLength,stringLength,byteCount;


	if (theCString == nil)
	{
		SetErrorMessageAndBail(("AppendCStrToHandle: Bad parameter, theCString == nil"));
	}

	if (theHandle == nil)
	{
		SetErrorMessageAndBail(("AppendCStrToHandle: Bad parameter, theHandle == nil"));
	}
	
	
	if (maxLength != nil)
	{
		handleMaxLength = *maxLength;
	}
	
	else
	{
		handleMaxLength = GetHandleSize(theHandle);
	}
	
	
	if (currentLength != nil && *currentLength >= 0)
	{
		handleCurrentLength = *currentLength;
	}
	
	else
	{
		handleCurrentLength = CStrLength(*theHandle);
	}
	
	
	stringLength = CStrLength(theCString);
	
	byteCount = handleCurrentLength + stringLength + 1;
	
	if (byteCount > handleMaxLength)
	{
		SetHandleSize(theHandle,handleCurrentLength + stringLength + 1);
		
		if (maxLength != nil)
		{
			*maxLength = GetHandleSize(theHandle);
			
			handleMaxLength = *maxLength;
		}
		
		else
		{
			handleMaxLength = GetHandleSize(theHandle);
		}

		if (byteCount > handleMaxLength)
		{
			SetErrorMessageAndLongIntAndBail("AppendCStrToHandle: Can't increase Handle allocation, MemError() = ",MemError());
		}
	}
	
	
	BlockMove(theCString,*theHandle + handleCurrentLength,stringLength + 1);
	
	
	if (currentLength != nil)
	{
		*currentLength += stringLength;
	}


	errCode = noErr;
	
	
EXITPOINT:

	return(errCode);
}



OSErr AppendCharsToHandle(const char *theChars,const int numChars,Handle theHandle,long *currentLength,long *maxLength)
{
OSErr		errCode = noErr;
long		handleMaxLength,handleCurrentLength,byteCount;


	if (theChars == nil)
	{
		SetErrorMessageAndBail(("AppendCharsToHandle: Bad parameter, theChars == nil"));
	}

	if (theHandle == nil)
	{
		SetErrorMessageAndBail(("AppendCharsToHandle: Bad parameter, theHandle == nil"));
	}
	
	
	if (maxLength != nil)
	{
		handleMaxLength = *maxLength;
	}
	
	else
	{
		handleMaxLength = GetHandleSize(theHandle);
	}
	
	
	if (currentLength != nil && *currentLength >= 0)
	{
		handleCurrentLength = *currentLength;
	}
	
	else
	{
		handleCurrentLength = CStrLength(*theHandle);
	}
	
	
	byteCount = handleCurrentLength + numChars + 1;
	
	if (byteCount > handleMaxLength)
	{
		SetHandleSize(theHandle,handleCurrentLength + numChars + 1);
		
		if (maxLength != nil)
		{
			*maxLength = GetHandleSize(theHandle);
			
			handleMaxLength = *maxLength;
		}
		
		else
		{
			handleMaxLength = GetHandleSize(theHandle);
		}

		if (byteCount > handleMaxLength)
		{
			SetErrorMessageAndLongIntAndBail("AppendCharsToHandle: Can't increase Handle allocation, MemError() = ",MemError());
		}
	}
	
	
	BlockMove(theChars,*theHandle + handleCurrentLength,numChars);
	
	(*theHandle)[handleCurrentLength + numChars] = '\0';
	
	if (currentLength != nil)
	{
		*currentLength += numChars;
	}


	errCode = noErr;
	
	
EXITPOINT:

	return(errCode);
}



OSErr AppendLongIntToHandle(const long inTheLongInt,Handle theHandle,long *currentLength)
{
OSErr		errCode = noErr;
char		tempString[32];
	
	
	CopyLongIntToCStr(inTheLongInt,tempString,sizeof(tempString));
	
	errCode = AppendCStrToHandle(tempString,theHandle,currentLength);

	return(errCode);
}




long CStrLength(const char *theCString)
{
long	cStrLength = 0;

	
	if (theCString != nil)
	{
		for (cStrLength = 0;theCString[cStrLength] != 0;cStrLength++)
		{
		
		}
	}
	
	
	return(cStrLength);
}



long PStrLength(const unsigned char *thePString)
{
long	pStrLength = 0;

	
	if (thePString != nil)
	{
		pStrLength = thePString[0];
	}
	
	
	return(pStrLength);
}





void ZeroMem(void *theMemPtr,const unsigned long numBytes)
{
unsigned char	*theBytePtr;
unsigned long	*theLongPtr;
unsigned long	numSingleBytes;
unsigned long	theNumBytes;

	
	theNumBytes = numBytes;
	
	if (theMemPtr != nil && theNumBytes > 0)
	{
		theBytePtr = (unsigned char	*) theMemPtr;
		
		numSingleBytes = (unsigned long) theBytePtr & 0x0003;
		
		while (numSingleBytes > 0)
		{
			*theBytePtr++ = 0;
			
			theNumBytes--;
			numSingleBytes--;
		}
		

		theLongPtr = (unsigned long	*) theBytePtr;
		
		while (theNumBytes >= 4)
		{
			*theLongPtr++ = 0;
			
			theNumBytes -= 4;
		}
		
		
		theBytePtr = (unsigned char	*) theLongPtr;
		
		while (theNumBytes > 0)
		{
			*theBytePtr++ = 0;
			
			theNumBytes--;
		}
	}
}




char *FindCharInCStr(const char theChar,const char *theCString)
{
char	*theStringSearchPtr;

	
	theStringSearchPtr = (char	*) theCString;
	
	if (theStringSearchPtr != nil)
	{
		while (*theStringSearchPtr != '\0' && *theStringSearchPtr != theChar)
		{
			theStringSearchPtr++;
		}
		
		if (*theStringSearchPtr == '\0')
		{
			theStringSearchPtr = nil;
		}
	}
	
	return(theStringSearchPtr);
}



long FindCharOffsetInCStr(const char theChar,const char *theCString,const Boolean inIgnoreCase)
{
long	theOffset = -1;


	if (theCString != nil)
	{
		theOffset = 0;
		

		if (inIgnoreCase)
		{
		char	searchChar = theChar;
		
			if (searchChar >= 'a' && searchChar <= 'z')
			{
				searchChar = searchChar - 'a' + 'A';
			}
			
			
			while (*theCString != 0)
			{
			char	currentChar = *theCString;
			
				if (currentChar >= 'a' && currentChar <= 'z')
				{
					currentChar = currentChar - 'a' + 'A';
				}
			
				if (currentChar == searchChar)
				{
					break;
				}
				
				theCString++;
				theOffset++;
			}
		}
		
		else
		{
			while (*theCString != 0 && *theCString != theChar)
			{
				theCString++;
				theOffset++;
			}
		}
		
		if (*theCString == 0)
		{
			theOffset = -1;
		}
	}
	
	return(theOffset);
}


long FindCStrOffsetInCStr(const char *theCSubstring,const char *theCString,const Boolean inIgnoreCase)
{
long	theOffset = -1;


	if (theCSubstring != nil && theCString != nil)
	{
		for (theOffset = 0;;theOffset++)
		{
			if (theCString[theOffset] == 0)
			{
				theOffset = -1;
				
				goto EXITPOINT;
			}
			
			
			for (const char	*tempSubstringPtr = theCSubstring,*tempCStringPtr = theCString + theOffset;;tempSubstringPtr++,tempCStringPtr++)
			{
				if (*tempSubstringPtr == 0)
				{
					goto EXITPOINT;
				}
				
				else if (*tempCStringPtr == 0)
				{
					break;
				}
			
			char	searchChar = *tempSubstringPtr;
			char	currentChar = *tempCStringPtr;
			
				if (inIgnoreCase && searchChar >= 'a' && searchChar <= 'z')
				{
					searchChar = searchChar - 'a' + 'A';
				}
				
				if (inIgnoreCase && currentChar >= 'a' && currentChar <= 'z')
				{
					currentChar = currentChar - 'a' + 'A';
				}
				
				if (currentChar != searchChar)
				{
					break;
				}
			}
		}
		
		theOffset = -1;
	}


EXITPOINT:
	
	return(theOffset);
}



void InsertCStrIntoCStr(const char *theSrcCStr,const int theInsertionOffset,char *theDstCStr,const int maxDstStrLength)
{
int		currentLength;
int		insertLength;
int		numCharsToInsert;
int		numCharsToShift;

	
	if (theDstCStr != nil && theSrcCStr != nil && maxDstStrLength > 0 && theInsertionOffset < maxDstStrLength - 1)
	{
		currentLength = CStrLength(theDstCStr);
		
		insertLength = CStrLength(theSrcCStr);
		

		if (theInsertionOffset + insertLength < maxDstStrLength - 1)
		{
			numCharsToInsert = insertLength;
		}
		
		else
		{
			numCharsToInsert = maxDstStrLength - 1 - theInsertionOffset;
		}
		

		if (numCharsToInsert + currentLength < maxDstStrLength - 1)
		{
			numCharsToShift = currentLength - theInsertionOffset;
		}
		
		else
		{
			numCharsToShift = maxDstStrLength - 1 - theInsertionOffset - numCharsToInsert;
		}

		
		if (numCharsToShift > 0)
		{
			BlockMove(theDstCStr + theInsertionOffset,theDstCStr + theInsertionOffset + numCharsToInsert,numCharsToShift);
		}
		
		if (numCharsToInsert > 0)
		{
			BlockMove(theSrcCStr,theDstCStr + theInsertionOffset,numCharsToInsert);
		}
		
		theDstCStr[theInsertionOffset + numCharsToInsert + numCharsToShift] = 0;
	}
}



void InsertPStrIntoCStr(const unsigned char *theSrcPStr,const int theInsertionOffset,char *theDstCStr,const int maxDstStrLength)
{
int		currentLength;
int		insertLength;
int		numCharsToInsert;
int		numCharsToShift;

	
	if (theDstCStr != nil && theSrcPStr != nil && maxDstStrLength > 0 && theInsertionOffset < maxDstStrLength - 1)
	{
		currentLength = CStrLength(theDstCStr);
		
		insertLength = PStrLength(theSrcPStr);
		

		if (theInsertionOffset + insertLength < maxDstStrLength - 1)
		{
			numCharsToInsert = insertLength;
		}
		
		else
		{
			numCharsToInsert = maxDstStrLength - 1 - theInsertionOffset;
		}
		

		if (numCharsToInsert + currentLength < maxDstStrLength - 1)
		{
			numCharsToShift = currentLength - theInsertionOffset;
		}
		
		else
		{
			numCharsToShift = maxDstStrLength - 1 - theInsertionOffset - numCharsToInsert;
		}

		
		if (numCharsToShift > 0)
		{
			BlockMove(theDstCStr + theInsertionOffset,theDstCStr + theInsertionOffset + numCharsToInsert,numCharsToShift);
		}
		
		if (numCharsToInsert > 0)
		{
			BlockMove(theSrcPStr + 1,theDstCStr + theInsertionOffset,numCharsToInsert);
		}
		
		theDstCStr[theInsertionOffset + numCharsToInsert + numCharsToShift] = 0;
	}
}



OSErr InsertCStrIntoHandle(const char *theCString,Handle theHandle,const long inInsertOffset)
{
OSErr	errCode;
int		currentLength;
int		insertLength;

	
	SetErrorMessageAndBailIfNil(theCString,"InsertCStrIntoHandle: Bad parameter, theCString == nil");

	SetErrorMessageAndBailIfNil(theHandle,"InsertCStrIntoHandle: Bad parameter, theHandle == nil");
	
	currentLength = CStrLength(*theHandle);
	
	if (currentLength + 1 > ::GetHandleSize(theHandle))
	{
		SetErrorMessageAndBail("InsertCStrIntoHandle: Handle has been overflowed");
	}
	
	if (inInsertOffset > currentLength)
	{
		SetErrorMessageAndBail("InsertCStrIntoHandle: Insertion offset is greater than string length");
	}
	
	insertLength = CStrLength(theCString);
	
	::SetHandleSize(theHandle,currentLength + 1 + insertLength);
	
	if (::GetHandleSize(theHandle) < currentLength + 1 + insertLength)
	{
		SetErrorMessageAndLongIntAndBail("InsertCStrIntoHandle: Can't expand storage for Handle, MemError() = ",MemError());
	}
	
	::BlockMove(*theHandle + inInsertOffset,*theHandle + inInsertOffset + insertLength,currentLength - inInsertOffset + 1);
	
	::BlockMove(theCString,*theHandle + inInsertOffset,insertLength);


	errCode = noErr;
	
	
EXITPOINT:

	return(errCode);
}




void CopyCStrAndInsert1LongIntIntoCStr(const char *theSrcCStr,const long theNum,char *theDstCStr,const int maxDstStrLength)
{
	CopyCStrAndInsertCStrLongIntIntoCStr(theSrcCStr,nil,theNum,theDstCStr,maxDstStrLength);
}


void CopyCStrAndInsert2LongIntsIntoCStr(const char *theSrcCStr,const long long1,const long long2,char *theDstCStr,const int maxDstStrLength)
{
const long	theLongInts[] = { long1,long2 };

	CopyCStrAndInsertCStrsLongIntsIntoCStr(theSrcCStr,nil,theLongInts,theDstCStr,maxDstStrLength);
}


void CopyCStrAndInsert3LongIntsIntoCStr(const char *theSrcCStr,const long long1,const long long2,const long long3,char *theDstCStr,const int maxDstStrLength)
{
const long	theLongInts[] = { long1,long2,long3 };

	CopyCStrAndInsertCStrsLongIntsIntoCStr(theSrcCStr,nil,theLongInts,theDstCStr,maxDstStrLength);
}


void CopyCStrAndInsertCStrIntoCStr(const char *theSrcCStr,const char *theInsertCStr,char *theDstCStr,const int maxDstStrLength)
{
const char	*theCStrs[2] = { theInsertCStr,nil };

	CopyCStrAndInsertCStrsLongIntsIntoCStr(theSrcCStr,theCStrs,nil,theDstCStr,maxDstStrLength);
}



void CopyCStrAndInsertCStrLongIntIntoCStr(const char *theSrcCStr,const char *theInsertCStr,const long theNum,char *theDstCStr,const int maxDstStrLength)
{
const char	*theCStrs[2] = { theInsertCStr,nil };
const long	theLongInts[1] = { theNum };

	CopyCStrAndInsertCStrsLongIntsIntoCStr(theSrcCStr,theCStrs,theLongInts,theDstCStr,maxDstStrLength);
}



void CopyCStrAndInsertCStrsLongIntsIntoCStr(const char *theSrcCStr,const char **theInsertCStrs,const long *theLongInts,char *theDstCStr,const int maxDstStrLength)
{
int			dstCharIndex,srcCharIndex,theMaxDstStrLength;
int			theCStrIndex = 0;
int			theLongIntIndex = 0;

	
	theMaxDstStrLength = maxDstStrLength;
	
	if (theDstCStr != nil && theSrcCStr != nil && theMaxDstStrLength > 0)
	{
		dstCharIndex = 0;
		
		srcCharIndex = 0;
		
		
		//	Allow room for NULL at end of string
		
		theMaxDstStrLength--;
		
		
		for (;;)
		{
			//	Hit end of buffer?
			
			if (dstCharIndex >= theMaxDstStrLength)
			{
				theDstCStr[dstCharIndex++] = 0;
				
				goto EXITPOINT;
			}
			
			//	End of source string?
			
			else if (theSrcCStr[srcCharIndex] == 0)
			{
				theDstCStr[dstCharIndex++] = 0;
				
				goto EXITPOINT;
			}
			
			//	Did we find a '%s'?
			
			else if (theInsertCStrs != nil && theInsertCStrs[theCStrIndex] != nil && theSrcCStr[srcCharIndex] == '%' && theSrcCStr[srcCharIndex + 1] == 's')
			{
				//	Skip over the '%s'
				
				srcCharIndex += 2;
				
				
				//	Terminate the dest string and then concat the string
				
				theDstCStr[dstCharIndex] = 0;
				
				ConcatCStrToCStr(theInsertCStrs[theCStrIndex],theDstCStr,theMaxDstStrLength);
				
				dstCharIndex = CStrLength(theDstCStr);
				
				theCStrIndex++;
			}
			
			//	Did we find a '%ld'?
			
			else if (theLongInts != nil && theSrcCStr[srcCharIndex] == '%' && theSrcCStr[srcCharIndex + 1] == 'l' && theSrcCStr[srcCharIndex + 2] == 'd')
			{
				//	Skip over the '%ld'
				
				srcCharIndex += 3;
				
				
				//	Terminate the dest string and then concat the number
				
				theDstCStr[dstCharIndex] = 0;
				
				ConcatLongIntToCStr(theLongInts[theLongIntIndex],theDstCStr,theMaxDstStrLength);
				
				theLongIntIndex++;
				
				dstCharIndex = CStrLength(theDstCStr);
			}
			
			else
			{
				theDstCStr[dstCharIndex++] = theSrcCStr[srcCharIndex++];
			}
		}
	}



EXITPOINT:

	return;
}





OSErr CopyCStrAndInsertCStrLongIntIntoHandle(const char *theSrcCStr,const char *theInsertCStr,const long theNum,Handle *theHandle)
{
OSErr	errCode;
long	byteCount;

	
	if (theHandle != nil)
	{
		byteCount = CStrLength(theSrcCStr) + CStrLength(theInsertCStr) + 32;
		
		*theHandle = NewHandle(byteCount);
		
		if (*theHandle == nil)
		{
			SetErrorMessageAndLongIntAndBail("CopyCStrAndInsertCStrLongIntIntoHandle: Can't allocate Handle, MemError() = ",MemError());
		}
		
		
		HLock(*theHandle);
		
		CopyCStrAndInsertCStrLongIntIntoCStr(theSrcCStr,theInsertCStr,theNum,**theHandle,byteCount);
		
		HUnlock(*theHandle);
	}
	
	errCode = noErr;
	
	
EXITPOINT:

	return(errCode);
}





OSErr CopyIndexedWordToCStr(char *theSrcCStr,int whichWord,char *theDstCStr,int maxDstCStrLength)
{
OSErr		errCode;
char		*srcCharPtr,*dstCharPtr;
int			wordCount;
int			byteCount;


	if (theSrcCStr == nil)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToCStr: Bad parameter, theSrcCStr == nil"));
	}
	
	if (theDstCStr == nil)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToCStr: Bad parameter, theDstCStr == nil"));
	}
	
	if (whichWord < 0)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToCStr: Bad parameter, whichWord < 0"));
	}
	
	if (maxDstCStrLength <= 0)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToCStr: Bad parameter, maxDstCStrLength <= 0"));
	}

	
	*theDstCStr = '\0';
	
	srcCharPtr = theSrcCStr;

	while (*srcCharPtr == ' ' || *srcCharPtr == '\t')
	{
		srcCharPtr++;
	}
	

	for (wordCount = 0;wordCount < whichWord;wordCount++)
	{
		while (*srcCharPtr != ' ' && *srcCharPtr != '\t' && *srcCharPtr != '\r' && *srcCharPtr != '\n' && *srcCharPtr != '\0')
		{
			srcCharPtr++;
		}
		
		if (*srcCharPtr == '\r' || *srcCharPtr == '\n' || *srcCharPtr == '\0')
		{
			errCode = noErr;
			
			goto EXITPOINT;
		}

		while (*srcCharPtr == ' ' || *srcCharPtr == '\t')
		{
			srcCharPtr++;
		}
		
		if (*srcCharPtr == '\r' || *srcCharPtr == '\n' || *srcCharPtr == '\0')
		{
			errCode = noErr;
			
			goto EXITPOINT;
		}
	}


	dstCharPtr = theDstCStr;
	byteCount = 0;
	
	
	for(;;)
	{
		if (byteCount >= maxDstCStrLength - 1 || *srcCharPtr == '\0' || *srcCharPtr == ' ' || *srcCharPtr == '\t' || *srcCharPtr == '\r' || *srcCharPtr == '\n')
		{
			*dstCharPtr = '\0';
			break;
		}
		
		*dstCharPtr++ = *srcCharPtr++;
		
		byteCount++;
	}


	errCode = noErr;


EXITPOINT:

	return(errCode);
}





OSErr CopyIndexedWordToNewHandle(char *theSrcCStr,int whichWord,Handle *outTheHandle)
{
OSErr		errCode;
char		*srcCharPtr;
int			wordCount;
int			byteCount;


	if (theSrcCStr == nil)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToNewHandle: Bad parameter, theSrcCStr == nil"));
	}
	
	if (outTheHandle == nil)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToNewHandle: Bad parameter, outTheHandle == nil"));
	}
	
	if (whichWord < 0)
	{
		SetErrorMessageAndBail(("CopyIndexedWordToNewHandle: Bad parameter, whichWord < 0"));
	}

	
	*outTheHandle = nil;
	

	srcCharPtr = theSrcCStr;

	while (*srcCharPtr == ' ' || *srcCharPtr == '\t')
	{
		srcCharPtr++;
	}
	

	for (wordCount = 0;wordCount < whichWord;wordCount++)
	{
		while (*srcCharPtr != ' ' && *srcCharPtr != '\t' && *srcCharPtr != '\r' && *srcCharPtr != '\n' && *srcCharPtr != '\0')
		{
			srcCharPtr++;
		}
		
		if (*srcCharPtr == '\r' || *srcCharPtr == '\n' || *srcCharPtr == '\0')
		{
			break;
		}

		while (*srcCharPtr == ' ' || *srcCharPtr == '\t')
		{
			srcCharPtr++;
		}
		
		if (*srcCharPtr == '\r' || *srcCharPtr == '\n' || *srcCharPtr == '\0')
		{
			break;
		}
	}


	for (byteCount = 0;;byteCount++)
	{
		if (srcCharPtr[byteCount] == ' ' || srcCharPtr[byteCount] == '\t' || srcCharPtr[byteCount] == '\r' || srcCharPtr[byteCount] == '\n' || srcCharPtr[byteCount] == '\0')
		{
			break;
		}
	}

	
	*outTheHandle = NewHandle(byteCount + 1);
	
	if (*outTheHandle == nil)
	{
		SetErrorMessageAndLongIntAndBail("CopyIndexedWordToNewHandle: Can't allocate Handle, MemError() = ",MemError());
	}
	
	
	::BlockMove(srcCharPtr,**outTheHandle,byteCount);
	
	(**outTheHandle)[byteCount] = '\0';

	errCode = noErr;


EXITPOINT:

	return(errCode);
}



OSErr CopyIndexedLineToCStr(const char *theSrcCStr,int inWhichLine,int *lineEndIndex,Boolean *gotLastLine,char *theDstCStr,const int maxDstCStrLength)
{
OSErr		errCode;
int			theCurrentLine;
int			theCurrentLineOffset;
int			theEOSOffset;


	if (theSrcCStr == nil)
	{
		SetErrorMessageAndBail(("CopyIndexedLineToCStr: Bad parameter, theSrcCStr == nil"));
	}
	
	if (theDstCStr == nil)
	{
		SetErrorMessageAndBail(("CopyIndexedLineToCStr: Bad parameter, theDstCStr == nil"));
	}
	
	if (inWhichLine < 0)
	{
		SetErrorMessageAndBail(("CopyIndexedLineToCStr: Bad parameter, inWhichLine < 0"));
	}
	
	if (maxDstCStrLength <= 0)
	{
		SetErrorMessageAndBail(("CopyIndexedLineToCStr: Bad parameter, maxDstCStrLength <= 0"));
	}
	
	
	if (gotLastLine != nil)
	{
		*gotLastLine = false;
	}

	
	*theDstCStr = 0;
	
	theCurrentLineOffset = 0;
	
	theCurrentLine = 0;
	
	
	while (theCurrentLine < inWhichLine)
	{
		while (theSrcCStr[theCurrentLineOffset] != '\r' && theSrcCStr[theCurrentLineOffset] != 0)
		{
			theCurrentLineOffset++;
		}
		
		if (theSrcCStr[theCurrentLineOffset] == 0)
		{
			break;
		}
		
		theCurrentLineOffset++;
		theCurrentLine++;
	}
		
	if (theSrcCStr[theCurrentLineOffset] == 0)
	{
		SetErrorMessageAndLongIntAndBail("CopyIndexedLineToCStr: Too few lines in source text, can't get line ",inWhichLine);
	}


	theEOSOffset = FindCharOffsetInCStr('\r',theSrcCStr + theCurrentLineOffset);
	
	if (theEOSOffset >= 0)
	{
		CopyCSubstrToCStr(theSrcCStr + theCurrentLineOffset,theEOSOffset,theDstCStr,maxDstCStrLength);
		
		if (gotLastLine != nil)
		{
			*gotLastLine = false;
		}
	
		if (lineEndIndex != nil)
		{
			*lineEndIndex = theEOSOffset;
		}
	}
	
	else
	{
		theEOSOffset = CStrLength(theSrcCStr + theCurrentLineOffset);

		CopyCSubstrToCStr(theSrcCStr + theCurrentLineOffset,theEOSOffset,theDstCStr,maxDstCStrLength);
		
		if (gotLastLine != nil)
		{
			*gotLastLine = true;
		}
	
		if (lineEndIndex != nil)
		{
			*lineEndIndex = theEOSOffset;
		}
	}
	

	errCode = noErr;


EXITPOINT:

	return(errCode);
}



OSErr CopyIndexedLineToNewHandle(const char *theSrcCStr,int inWhichLine,Handle *outNewHandle)
{
OSErr		errCode;
int			theCurrentLine;
int			theCurrentLineOffset;
int			byteCount;


	SetErrorMessageAndBailIfNil(theSrcCStr,"CopyIndexedLineToNewHandle: Bad parameter, theSrcCStr == nil");
	SetErrorMessageAndBailIfNil(outNewHandle,"CopyIndexedLineToNewHandle: Bad parameter, outNewHandle == nil");
	
	if (inWhichLine < 0)
	{
		SetErrorMessageAndBail(("CopyIndexedLineToNewHandle: Bad parameter, inWhichLine < 0"));
	}
	

	theCurrentLineOffset = 0;
	
	theCurrentLine = 0;
	
	
	while (theCurrentLine < inWhichLine)
	{
		while (theSrcCStr[theCurrentLineOffset] != '\r' && theSrcCStr[theCurrentLineOffset] != '\0')
		{
			theCurrentLineOffset++;
		}
		
		if (theSrcCStr[theCurrentLineOffset] == '\0')
		{
			break;
		}
		
		theCurrentLineOffset++;
		theCurrentLine++;
	}
		
	if (theSrcCStr[theCurrentLineOffset] == '\0')
	{
		SetErrorMessageAndLongIntAndBail("CopyIndexedLineToNewHandle: Too few lines in source text, can't get line #",inWhichLine);
	}

	
	byteCount = 0;
	
	while (theSrcCStr[theCurrentLineOffset + byteCount] != '\r' && theSrcCStr[theCurrentLineOffset + byteCount] != '\0')
	{
		byteCount++;
	}
		
	
	*outNewHandle = NewHandle(byteCount + 1);
	
	if (*outNewHandle == nil)
	{
		SetErrorMessageAndLongIntAndBail("CopyIndexedLineToNewHandle: Can't allocate Handle, MemError() = ",MemError());
	}
	
	::BlockMove(theSrcCStr + theCurrentLineOffset,**outNewHandle,byteCount);
	
	(**outNewHandle)[byteCount] = '\0';

	errCode = noErr;


EXITPOINT:

	return(errCode);
}




OSErr CountDigits(const char *inCStr,int *outNumIntegerDigits,int *outNumFractDigits)
{
OSErr	errCode = noErr;
int		numIntDigits = 0;
int		numFractDigits = 0;
int 	digitIndex = 0;

	
	SetErrorMessageAndBailIfNil(inCStr,"CountDigits: Bad parameter, theSrcCStr == nil");
	SetErrorMessageAndBailIfNil(outNumIntegerDigits,"CountDigits: Bad parameter, outNumIntegerDigits == nil");
	SetErrorMessageAndBailIfNil(outNumFractDigits,"CountDigits: Bad parameter, outNumFractDigits == nil");
	
	digitIndex = 0;
	
	while (inCStr[digitIndex] >= '0' && inCStr[digitIndex] <= '9')
	{
		digitIndex++;
		numIntDigits++;
	}
	
	if (inCStr[digitIndex] == '.')
	{
		digitIndex++;
		
		while (inCStr[digitIndex] >= '0' && inCStr[digitIndex] <= '9')
		{
			digitIndex++;
			numFractDigits++;
		}
	}
	
	*outNumIntegerDigits = numIntDigits;
	
	*outNumFractDigits = numFractDigits;
	
	errCode = noErr;
	
EXITPOINT:

	return(errCode);
}



OSErr ExtractIntFromCStr(const char *theSrcCStr,int *outInt,Boolean skipLeadingSpaces)
{
OSErr		errCode;
int			theCharIndex;


	if (theSrcCStr == nil)
	{
		SetErrorMessageAndBail(("ExtractIntFromCStr: Bad parameter, theSrcCStr == nil"));
	}
	
	if (outInt == nil)
	{
		SetErrorMessageAndBail(("ExtractIntFromCStr: Bad parameter, outInt == nil"));
	}	

	
	*outInt = 0;
	
	theCharIndex = 0;
	
	if (skipLeadingSpaces == true)
	{
		while (theSrcCStr[theCharIndex] == ' ')
		{
			theCharIndex++;
		}
	}
	
	if (theSrcCStr[theCharIndex] < '0' || theSrcCStr[theCharIndex] > '9')
	{
		SetErrorMessageAndBail(("ExtractIntFromCStr: Bad parameter, theSrcCStr contains a bogus numeric representation"));
	}


	while (theSrcCStr[theCharIndex] >= '0' && theSrcCStr[theCharIndex] <= '9')
	{
		*outInt = (*outInt * 10) + (theSrcCStr[theCharIndex] - '0');
		
		theCharIndex++;
	}
	

	errCode = noErr;


EXITPOINT:

	return(errCode);
}



OSErr ExtractIntFromPStr(const unsigned char *theSrcPStr,int *outInt,Boolean skipLeadingSpaces)
{
OSErr		errCode;
char		theCStr[256];


	if (theSrcPStr == nil)
	{
		SetErrorMessageAndBail(("ExtractIntFromPStr: Bad parameter, theSrcPStr == nil"));
	}
	
	if (outInt == nil)
	{
		SetErrorMessageAndBail(("ExtractIntFromPStr: Bad parameter, outInt == nil"));
	}
	
	
	CopyPStrToCStr(theSrcPStr,theCStr,sizeof(theCStr));
	
	
	errCode = ExtractIntFromCStr(theCStr,outInt,skipLeadingSpaces);


EXITPOINT:

	return(errCode);
}



int CountOccurencesOfCharInCStr(const char inChar,const char *inSrcCStr)
{
int		theSrcCharIndex;
int		numOccurrences = -1;


	if (inSrcCStr != nil && inChar != '\0')
	{
		numOccurrences = 0;
		
		for (theSrcCharIndex = 0;inSrcCStr[theSrcCharIndex] != '\0';theSrcCharIndex++)
		{
			if (inSrcCStr[theSrcCharIndex] == inChar)
			{
				numOccurrences++;
			}
		}
	}
	
	return(numOccurrences);
}


int CountWordsInCStr(const char *inSrcCStr)
{
int		numWords = -1;


	if (inSrcCStr != nil)
	{
		numWords = 0;
		
		//	Skip lead spaces
		
		while (*inSrcCStr == ' ')
		{
			inSrcCStr++;
		}

		while (*inSrcCStr != '\0')
		{
			numWords++;

			while (*inSrcCStr != ' ' && *inSrcCStr != '\0')
			{
				inSrcCStr++;
			}
			
			while (*inSrcCStr == ' ')
			{
				inSrcCStr++;
			}
		}
	}
	
	return(numWords);
}




void ConvertCStrToUpperCase(char *theSrcCStr)
{
char		*theCharPtr;


	if (theSrcCStr != nil)
	{
		theCharPtr = theSrcCStr;
		
		while (*theCharPtr != 0)
		{
			if (*theCharPtr >= 'a' && *theCharPtr <= 'z')
			{
				*theCharPtr = *theCharPtr - 'a' + 'A';
			}
			
			theCharPtr++;
		}
	}
}







void ExtractCStrItemFromCStr(const char *inSrcCStr,const char inItemDelimiter,const int inItemNumber,Boolean *foundItem,char *outDstCharPtr,const int inDstCharPtrMaxLength,const Boolean inTreatMultipleDelimsAsSingleDelim)
{
int		theItem;
int		theSrcCharIndex;
int		theDstCharIndex;


	if (foundItem != nil)
	{
		*foundItem = false;
	}
	
	
	if (outDstCharPtr != nil && inDstCharPtrMaxLength > 0 && inItemNumber >= 0 && inItemDelimiter != 0)
	{
		*outDstCharPtr = 0;
		

		theSrcCharIndex = 0;
		
		for (theItem = 0;theItem < inItemNumber;theItem++)
		{
			while (inSrcCStr[theSrcCharIndex] != inItemDelimiter && inSrcCStr[theSrcCharIndex] != '\0')
			{
				theSrcCharIndex++;
			}
			
			if (inSrcCStr[theSrcCharIndex] == inItemDelimiter)
			{
				theSrcCharIndex++;
				
				if (inTreatMultipleDelimsAsSingleDelim)
				{
					while (inSrcCStr[theSrcCharIndex] == inItemDelimiter)
					{
						theSrcCharIndex++;
					}
				}
			}
			
			
			if (inSrcCStr[theSrcCharIndex] == '\0')
			{
				goto EXITPOINT;
			}
		}
		

		if (foundItem != nil)
		{
			*foundItem = true;
		}
		
		
		theDstCharIndex = 0;
		
		for (;;)
		{
			if (inSrcCStr[theSrcCharIndex] == 0 || inSrcCStr[theSrcCharIndex] == inItemDelimiter || theDstCharIndex >= inDstCharPtrMaxLength - 1)
			{
				outDstCharPtr[theDstCharIndex] = 0;
				
				break;
			}
			
			outDstCharPtr[theDstCharIndex++] = inSrcCStr[theSrcCharIndex++];
		}
	}
	
	
EXITPOINT:

	return;
}



OSErr ExtractCStrItemFromCStrIntoNewHandle(const char *inSrcCStr,const char inItemDelimiter,const int inItemNumber,Boolean *foundItem,Handle *outNewHandle,const Boolean inTreatMultipleDelimsAsSingleDelim)
{
OSErr	errCode;
int		theItem;
int		theSrcCharIndex;
int		theItemLength;


	if (inSrcCStr == nil)
	{
		SetErrorMessage("ExtractCStrItemFromCStrIntoNewHandle: Bad parameter, inSrcCStr == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	if (outNewHandle == nil)
	{
		SetErrorMessage("ExtractCStrItemFromCStrIntoNewHandle: Bad parameter, outNewHandle == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	if (foundItem == nil)
	{
		SetErrorMessage("ExtractCStrItemFromCStrIntoNewHandle: Bad parameter, foundItem == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	if (inItemNumber < 0)
	{
		SetErrorMessage("ExtractCStrItemFromCStrIntoNewHandle: Bad parameter, inItemNumber < 0");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	if (inItemDelimiter == 0)
	{
		SetErrorMessage("ExtractCStrItemFromCStrIntoNewHandle: Bad parameter, inItemDelimiter == 0");
		errCode = kGenericError;
		goto EXITPOINT;
	}


	*foundItem = false;
	
	theSrcCharIndex = 0;
	
	for (theItem = 0;theItem < inItemNumber;theItem++)
	{
		while (inSrcCStr[theSrcCharIndex] != inItemDelimiter && inSrcCStr[theSrcCharIndex] != '\0')
		{
			theSrcCharIndex++;
		}
		
		if (inSrcCStr[theSrcCharIndex] == inItemDelimiter)
		{
			theSrcCharIndex++;
			
			if (inTreatMultipleDelimsAsSingleDelim)
			{
				while (inSrcCStr[theSrcCharIndex] == inItemDelimiter)
				{
					theSrcCharIndex++;
				}
			}
		}
		
		
		if (inSrcCStr[theSrcCharIndex] == '\0')
		{
			errCode = noErr;
			
			goto EXITPOINT;
		}
	}
	

	*foundItem = true;
	
	
	for (theItemLength = 0;;theItemLength++)
	{
		if (inSrcCStr[theSrcCharIndex + theItemLength] == 0 || inSrcCStr[theSrcCharIndex + theItemLength] == inItemDelimiter)
		{
			break;
		}
	}
	

	*outNewHandle = NewHandle(theItemLength + 1);
	
	if (*outNewHandle == nil)
	{
		SetErrorMessageAndLongIntAndBail("ExtractCStrItemFromCStrIntoNewHandle: Can't allocate Handle, MemError() = ",MemError());
	}
	
	
	BlockMove(inSrcCStr + theSrcCharIndex,**outNewHandle,theItemLength);
	
	(**outNewHandle)[theItemLength] = 0;
	
	errCode = noErr;
	
	
EXITPOINT:

	return(errCode);
}






OSErr ExtractFloatFromCStr(const char *inCString,extended80 *outFloat)
{
OSErr				errCode;
Str255				theStr255;
Handle				theNumberPartsTableHandle = nil;
long				theNumberPartsOffset,theNumberPartsLength;
FormatResultType	theFormatResultType;
NumberParts			theNumberPartsTable;
NumFormatStringRec	theNumFormatStringRec;


	if (inCString == nil)
	{
		SetErrorMessage("ExtractFloatFromCStr: Bad parameter, inCString == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}

	if (outFloat == nil)
	{
		SetErrorMessage("ExtractFloatFromCStr: Bad parameter, outFloat == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	
//	GetIntlResourceTable(smRoman,smNumberPartsTable,&theNumberPartsTableHandle,&theNumberPartsOffset,&theNumberPartsLength);

	GetIntlResourceTable(GetScriptManagerVariable(smSysScript),smNumberPartsTable,&theNumberPartsTableHandle,&theNumberPartsOffset,&theNumberPartsLength);	
	
	if (theNumberPartsTableHandle == nil)
	{
		SetErrorMessage("ExtractFloatFromCStr: Can't get number parts table for converting string representations to/from numeric representations");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	if (theNumberPartsLength > sizeof(theNumberPartsTable))
	{
		SetErrorMessage("ExtractFloatFromCStr: Number parts table has bad length");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	

	BlockMove(*theNumberPartsTableHandle + theNumberPartsOffset,&theNumberPartsTable,theNumberPartsLength);
	
	
	theFormatResultType = (FormatResultType) StringToFormatRec(kNumberFormatString,&theNumberPartsTable,&theNumFormatStringRec);
	
	if (theFormatResultType != fFormatOK)
	{
		SetErrorMessage("ExtractFloatFromCStr: StringToFormatRec() != fFormatOK");
		errCode = kGenericError;
		goto EXITPOINT;
	}

	
	CopyCStrToPStr(inCString,theStr255,sizeof(theStr255));


	theFormatResultType = (FormatResultType) StringToExtended(theStr255,&theNumFormatStringRec,&theNumberPartsTable,outFloat);
	
	if (theFormatResultType != fFormatOK && theFormatResultType != fBestGuess)
	{
		SetErrorMessageAndLongIntAndBail("ExtractFloatFromCStr: StringToExtended() = ",theFormatResultType);
	}

	
	errCode = noErr;
	

EXITPOINT:
	
	return(errCode);
}



OSErr CopyFloatToCStr(const extended80 *theFloat,char *theCStr,const int maxCStrLength,const int inMaxNumIntDigits,const int inMaxNumFractDigits)
{
OSErr				errCode;
Str255				theStr255;
Handle				theNumberPartsTableHandle = nil;
long				theNumberPartsOffset,theNumberPartsLength;
FormatResultType	theFormatResultType;
NumberParts			theNumberPartsTable;
NumFormatStringRec	theNumFormatStringRec;


	if (theCStr == nil)
	{
		SetErrorMessage("CopyFloatToCStr: Bad parameter, theCStr == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}

	if (theFloat == nil)
	{
		SetErrorMessage("CopyFloatToCStr: Bad parameter, theFloat == nil");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	

//	GetIntlResourceTable(smRoman,smNumberPartsTable,&theNumberPartsTableHandle,&theNumberPartsOffset,&theNumberPartsLength);

	GetIntlResourceTable(GetScriptManagerVariable(smSysScript),smNumberPartsTable,&theNumberPartsTableHandle,&theNumberPartsOffset,&theNumberPartsLength);	
	
	if (theNumberPartsTableHandle == nil)
	{
		SetErrorMessage("CopyFloatToCStr: Can't get number parts table for converting string representations to/from numeric representations");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	if (theNumberPartsLength > sizeof(theNumberPartsTable))
	{
		SetErrorMessage("CopyFloatToCStr: Number parts table has bad length");
		errCode = kGenericError;
		goto EXITPOINT;
	}
	
	
	BlockMove(*theNumberPartsTableHandle + theNumberPartsOffset,&theNumberPartsTable,theNumberPartsLength);
	
	
	if (inMaxNumIntDigits >= 0 || inMaxNumFractDigits >= 0)
	{
	char	numberFormat[64];
	int		numberFormatLength = 0;
	
		for (int i = 0;i < inMaxNumIntDigits && numberFormatLength < sizeof(numberFormat) - 1;i++)
		{
			numberFormat[numberFormatLength++] = '0';
		}
		
		if (inMaxNumFractDigits > 0 && numberFormatLength < sizeof(numberFormat) - 1)
		{
			numberFormat[numberFormatLength++] = '.';
			
			for (int i = 0;i < inMaxNumFractDigits && numberFormatLength < sizeof(numberFormat) - 1;i++)
			{
				numberFormat[numberFormatLength++] = '0';
			}
		}

		
		if (numberFormatLength < sizeof(numberFormat) - 1)
		{
			numberFormat[numberFormatLength++] = ';';
		}
		
		if (numberFormatLength < sizeof(numberFormat) - 1)
		{
			numberFormat[numberFormatLength++] = '-';
		}
		

		for (int i = 0;i < inMaxNumIntDigits && numberFormatLength < sizeof(numberFormat) - 1;i++)
		{
			numberFormat[numberFormatLength++] = '0';
		}
		
		if (inMaxNumFractDigits > 0 && numberFormatLength < sizeof(numberFormat) - 1)
		{
			numberFormat[numberFormatLength++] = '.';
			
			for (int i = 0;i < inMaxNumFractDigits && numberFormatLength < sizeof(numberFormat) - 1;i++)
			{
				numberFormat[numberFormatLength++] = '0';
			}
		}
		
		numberFormat[numberFormatLength] = '\0';


	Str255	tempStr255;
	
		CopyCStrToPStr(numberFormat,tempStr255,sizeof(tempStr255));
		
		theFormatResultType = (FormatResultType) StringToFormatRec(tempStr255,&theNumberPartsTable,&theNumFormatStringRec);
	}
	
	else
	{
		theFormatResultType = (FormatResultType) StringToFormatRec(kNumberFormatString,&theNumberPartsTable,&theNumFormatStringRec);
	}
	
	if (theFormatResultType != fFormatOK)
	{
		SetErrorMessage("CopyFloatToCStr: StringToFormatRec() != fFormatOK");
		errCode = kGenericError;
		goto EXITPOINT;
	}


	theFormatResultType = (FormatResultType) ExtendedToString(theFloat,&theNumFormatStringRec,&theNumberPartsTable,theStr255);
	
	if (theFormatResultType != fFormatOK)
	{
		SetErrorMessage("CopyFloatToCStr: ExtendedToString() != fFormatOK");
		errCode = kGenericError;
		goto EXITPOINT;
	}

	
	CopyPStrToCStr(theStr255,theCStr,maxCStrLength);
	
	errCode = noErr;
	

EXITPOINT:
	
	return(errCode);
}





void SkipWhiteSpace(char **ioSrcCharPtr,const Boolean inStopAtEOL)
{
	if (ioSrcCharPtr != nil && *ioSrcCharPtr != nil)
	{
		if (inStopAtEOL)
		{
			while ((**ioSrcCharPtr == ' ' || **ioSrcCharPtr == '\t') && **ioSrcCharPtr != '\r' && **ioSrcCharPtr != '\n')
			{
				*ioSrcCharPtr++;
			}
		}
		
		else
		{
			while (**ioSrcCharPtr == ' ' || **ioSrcCharPtr == '\t')
			{
				*ioSrcCharPtr++;
			}
		}
	}
}