80 lines
1.5 KiB
C
80 lines
1.5 KiB
C
/* Copyright (c) 1990, 1991 UNIX System Laboratories, Inc. */
|
|
/* Copyright (c) 1984, 1986, 1987, 1988, 1989, 1990 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF */
|
|
/* UNIX System Laboratories, Inc. */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
#ident "@(#)ksh:shlib/convert.c 1.1.4.1"
|
|
|
|
/*
|
|
* CONVERT.C
|
|
*
|
|
*
|
|
* LTOU (STR1, STR2)
|
|
* Copy STR1 to STR2, changing lower case to upper case.
|
|
*
|
|
* UTOL (STR1, STR2)
|
|
* Copy STR1 to STR2, changing upper case to lower case.
|
|
*/
|
|
|
|
#ifdef KSHELL
|
|
#include "shtype.h"
|
|
#else
|
|
#include <ctype.h>
|
|
#endif /* KSHELL */
|
|
|
|
/*
|
|
* LTOU (STR1, STR2)
|
|
* char *STR1;
|
|
* char *STR2;
|
|
*
|
|
* Copy STR1 to STR2, converting uppercase alphabetics to
|
|
* lowercase. STR2 should be big enough to hold STR1.
|
|
*
|
|
* STR1 and STR2 may point to the same place.
|
|
*
|
|
*/
|
|
|
|
void ltou(str1,str2)
|
|
register char *str1,*str2;
|
|
{
|
|
for(; *str1; str1++,str2++)
|
|
{
|
|
if(islower(*str1))
|
|
*str2 = toupper(*str1);
|
|
else
|
|
*str2 = *str1;
|
|
}
|
|
*str2 = 0;
|
|
}
|
|
|
|
|
|
/*
|
|
* UTOL (STR1, STR2)
|
|
* char *STR1;
|
|
* char *STR2;
|
|
*
|
|
* Copy STR1 to STR2, converting lowercase alphabetics to
|
|
* uppercase. STR2 should be big enough to hold STR1.
|
|
*
|
|
* STR1 and STR2 may point to the same place.
|
|
*
|
|
*/
|
|
|
|
void utol(str1,str2)
|
|
register char *str1,*str2;
|
|
{
|
|
for(; *str1; str1++,str2++)
|
|
{
|
|
if(isupper(*str1))
|
|
*str2 = tolower(*str1);
|
|
else
|
|
*str2 = *str1;
|
|
}
|
|
*str2 = 0;
|
|
}
|
|
|