m_ord.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (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
* 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 (c) 1996, by Sun Microsystems, Inc.
* All rights reserved.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
/*
* m_ord.c
*
* Copyright 1986, 1993 by Mortice Kern Systems Inc. All rights reserved.
*
* FUNCTIONS:
* m_ord(c)
* m_chr(i)
*/
#ifdef M_RCSID
#ifndef lint
#endif
#endif
#include <mks.h>
#include <ctype.h>
/*
* Given an English alphabetic letter, return an ordinal number.
* If the character is not an English letter then return -1.
*
* This is most useful for handling the fact that POSIX.2 does not
* have a requirement that the English alpha letters be in sequential
* order in the character set. This would mean that the following is
* non-portable to non-ASCII machines:
*
* index = letter - 'a';
*
* The only solution possible was to have a mapping function to
* convert the alpha letters to their one (1) based ordinal value.
*
* index = m_ord(letter) - 1;
*/
/*f
* m_ord(c) : convert character(case insensitive) to an an ordinal value.
* if c is an alphabetic character (A-Z,a-z), this returns
* a number between 1 and 26
*/
int
m_ord(c)
wint_t c;
{
/* note: this implementation is code set independent */
switch (towupper(c)) {
case 'A': return 1;
case 'B': return 2;
case 'C': return 3;
case 'D': return 4;
case 'E': return 5;
case 'F': return 6;
case 'G': return 7;
case 'H': return 8;
case 'I': return 9;
case 'J': return 10;
case 'K': return 11;
case 'L': return 12;
case 'M': return 13;
case 'N': return 14;
case 'O': return 15;
case 'P': return 16;
case 'Q': return 17;
case 'R': return 18;
case 'S': return 19;
case 'T': return 20;
case 'U': return 21;
case 'V': return 22;
case 'W': return 23;
case 'X': return 24;
case 'Y': return 25;
case 'Z': return 26;
default : return -1;
}
}
/*f
* m_chr(i) : convert an ordinal value to its corresponding character
* using the reverse mapping as m_ord().
* if i is a number between 1 and 26 it returns
* a character between A-Z
*
*/
m_chr(i)
int i;
{
/* note: this implementation is code set independent */
switch (i) {
case 1: return 'A';
case 2: return 'B';
case 3: return 'C';
case 4: return 'D';
case 5: return 'E';
case 6: return 'F';
case 7: return 'G';
case 8: return 'H';
case 9: return 'I';
case 10: return 'J';
case 11: return 'K';
case 12: return 'L';
case 13: return 'M';
case 14: return 'N';
case 15: return 'O';
case 16: return 'P';
case 17: return 'Q';
case 18: return 'R';
case 19: return 'S';
case 20: return 'T';
case 21: return 'U';
case 22: return 'V';
case 23: return 'W';
case 24: return 'X';
case 25: return 'Y';
case 26: return 'Z';
default : return -1;
}
}
#ifdef TEST
main()
{
int A,Z,a,z;
A = m_ord('A');
Z = m_ord('Z');
a = m_ord('a');
z = m_ord('z');
printf("ord(A) = %d, ord(Z) = %d, m_chr(A) = '%c', m_chr(Z) = '%c'\n",
printf("ord(a) = %d, ord(z) = %d, m_chr(a) = '%c', m_chr(z) = '%c'\n",
}
#endif /*TEST*/