
/**********************************************************************/
/*                                                                    */
/* Copyright (c) 2001 by Sun Microsystems, Inc.                       */
/* All rights reserved.                                               */
/*                                                                    */
/**********************************************************************/


/* $Date:   30 May 2002 12:22:48  $ */
/* $Modtime:   30 May 2002 12:23:46  $ */

#ifndef	lint
#ifdef __STDC__
const
#endif
static char sccsid[] = "@(#) $Workfile:   cvlwrupr.c  $ $Revision:   1.3  $";
#endif

/*
 * $Log:   /home/dd134127/MTP/SunMTP8.0.0e/unikixsrc/user/convert/PVCS/cvlwrupr.c_v  $
 * 
 *    Rev 1.3   30 May 2002 12:22:48   dd134127
 * Check value of noBytes, not mblen.
 * 
 *    Rev 1.2   30 May 2002 11:10:20   dd134127
 * define E_3657 and E_3658
 * 
 *    Rev 1.1   29 May 2002 12:40:54   ss134153
 * D4662751
 * Changed lower to upper routine used in MTP to account for locale.
 * This allows for correct handling of double byte characters when
 * passed to the routine.
 * 
 *    Rev 1.0   19 Sep 2001 16:47:36   unikix
 * Initial 7.2
 * 
 *    Rev 1.0   30 Jan 2000 11:47:48   unikix
 * Initial 7.0
 * 
 *    Rev 1.0   15 Mar 1999 19:59:54   unikix
 * Initial 6.0
 * 
 *    Rev 1.0   05/22/97 17:33:14   unikix
 * Initial 5.1
 * 
 *    Rev 1.0   04/10/96 14:13:02   unikix
 * Initial 5.0
 * 
 *    Rev 1.0   12/28/94 15:18:12   unikix
 * Initial revision (from V410ad)
 * 
 *    Rev 1.0.1.2   10/26/94 09:53:02   alan
 * Load conversion tables into memory
 * 
 *    Rev 1.0.1.1   09/16/94 16:10:08   randyh
 * Move rev 1.1 to V410u
 * 
 *    Rev 1.0.1.0   11/18/93 16:33:36   unikix
 * UniKix 4.1 baseline (from V400m)
 * 
 *    Rev 1.1   07/06/94 17:01:22   randyh
 * Kaschewski: more unsigned char problems.
 * 
 *    Rev 1.0   06/10/93 11:58:38   unikix
 * UniKix 3.1.2 version
 */

/*
cvlwrupr.c exported routines:
	cvlwrupr
cvlwrupr.c has no exported variables
cvlwrupr.c imports:
	toupper
	islower
	mblen
	setlocale
*/

/*
**Name	     :	CVLWRUPR
**		This subroutine	converts an array of characters	to
**		upper case.
**
**		1.2	    (91/02/15)
		Updated 2002/05/28
**
**Parameters :	PINCHAR: is the	first character	of the string to be
**		converted.
**		PLENGTH: is the	number of characters to	convert.
**
**Return     :	This procedure returns the string starting at PINCHAR
**		with PLENGTH character converted to upper case.
**
**External   :	TOUPPER(<char>). Converts a character from lower case
**		to upper case.
**
**		ISLOWER(<char>). Returns TRUE if character is lower case
**
**		MBLEN(<char *>). Returns number of bytes that comprise
**		the character pointed to.
**		
**		SETLOCALE(<int category>, <const char * locale>):
**		Sets the locale or returns current locale depending 
**		upon input parameters
**
**		CTYPE.H	 Functions for the classification and conversion
**		of characters.
**
*/

/* ------------- unix includes ------------- */
#include <ctype.h>
#include <locale.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>
#include <errno.h>
#include <stdlib.h>

extern void kxprtf();
extern void kxerror();
extern void kxerror2();

#define E_3653	3653 
#define E_3654  3654
#define E_3655  3655
#define E_3656  3656
#define E_3657  3657
#define E_3658  3658

#define E_PRINT 1    

void cvlwrupr(pinchar, plength)
unsigned char *pinchar;
int  plength;
{
	register   li;	     /*loop index */
	unsigned char *linchar;	     /*local for pinchar*/

	char *originalLocale; /* Locale before entering routine */
	int noBytes;

	char *retChar;
	int retInt;

	
	errno = 0;
	originalLocale = setlocale(LC_CTYPE, NULL); /* save locale */
	if (originalLocale = NULL) 
	    {
	    kxerror1(E_3654, E_PRINT, "cvlwrupr", errno);
	    }

	errno = 0;
	retChar = setlocale(LC_CTYPE, ""); /* set locale to local environment */
	if (retChar = NULL)
	    {
	    kxerror1(E_3655, E_PRINT, "cvlwrupr", errno);
	    }

	errno = 0;
	retInt = mblen(NULL,0); /* this flushes the multibyte buffer,
				   supposedly!! */
	if (retInt == -1)
	    {
	    kxerror2(E_3656, E_PRINT, "cvlwrupr", retInt, errno);
	    }

	for (li = 0; li < plength; li++) 
	    {
	    errno = 0;
	    noBytes = mblen(pinchar+li, MB_CUR_MAX);
	    if (noBytes == 1) /* single byte */
		{
		/* upcase single byte lower case chars */
		if (islower(*(pinchar + li)))
		    {
		    *(pinchar + li) = toupper(*(pinchar + li));
		    }
		}
	    else if (noBytes == 2) /* double byte */
		{
		li++; /* skip double byte chars */
		}
	    else
		{
		if (noBytes == -1)
		    {
		    kxerror2(E_3656, E_PRINT, "cvlwrupr", noBytes, errno);
		    }
		else if (noBytes > 2)
		    {
		    kxerror1(E_3657, E_PRINT, "cvlwrupr", noBytes);
		    }
		}
	    }

	errno = 0;
	retChar = setlocale(LC_CTYPE, originalLocale); /* restore locale */
	if (retChar == NULL)
	    {
	    kxerror2(E_3658, E_PRINT, "cvlwrupr", originalLocale, errno);
	    }
}
